Fileman API Class 1
From VistApedia
Using username "worldvistaEHR".
Authenticating with public key "rsa-key-20101206"
Linux cassandra 2.6.26-1-686 #1 SMP Fri Mar 13 18:08:45 UTC 2009 i686
The programs included with the Debian GNU/Linux system are free software;
the exact distribution terms for each program are described in the
individual files in /usr/share/doc/*/copyright.
Debian GNU/Linux comes with ABSOLUTELY NO WARRANTY, to the extent
permitted by applicable law.
Last login: Mon May 9 05:57:23 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>; Classic
GTM>; DBS
GTM>; Classic: Was originally written to be interactive; but it was later retrof
itted to be non-interactive
GTM>; DBS: - Designed for non-interactive use (like GUI clients)
GTM>; When using ANY fileman APIs, you need to read the documentation
GTM>; to know which variables you need to new for calling Fileman
GTM>; E.g.
GTM>; ^DIC
GTM>; NEW DIC,X,Y,DINUM,DLAYGO,DTOUT,DUOUT
GTM>; For DBS calls, you typically just need to new your
GTM>; Input arrays and output arrays (output 2: Message output and sometimes oth
ers)
GTM>; Passing varialbes to calls
GTM>; Old calls typically pass variables in the "symbol table".
GTM>; E.g. S X="MOUSE,MINNIE",DIC=2,DIC(0)="MQ" D ^DIC
GTM>; New calls pass them as parameters (sometimes too many)
GTM>; WRITE $$GET1^DIQ(2,"1,",.01)
GTM>;
GTM>; Routine Names that Fileman uses:
GTM>; ^DIC -> Lookup
GTM>; ^DIQ -> Get a value
GTM>; ^DIE -> Edit data
GTM>; ^DID -> Data Dictionary
GTM>; ^DILF -> Utilities
GTM>; ^DI -> Fileman Entry
GTM>;
GTM>; ^DIR -> Reading
GTM>N X,Y,DIR,DA,DTOUT,DUOUT,DIRUT,DIROUT
GTM>S DIR(0)="E" D ^DIR
Type <Enter> to continue or '^' to exit:
GTM>W Y
1
GTM>W DUOUT
%GTM-E-UNDEF, Undefined local variable: DUOUT
GTM>S DIR(0)="E" D ^DIR
Type <Enter> to continue or '^' to exit: ^
GTM>W DUOUT
1
GTM>S DIR(0)="N^20:30" D ^DIR
Enter a number (20-30):
This is a required response. Enter '^' to exit
Enter a number (20-30):
This is a required response. Enter '^' to exit
Enter a number (20-30): ^
GTM>S DIR(0)="NO^20:30" D ^DIR
Enter a number (20-30):
GTM>S DIR(0)="D" D ^DIR
Enter a date:
This is a required response. Enter '^' to exit
Enter a date: ^
GTM>S DIR(0)="D^T" D ^DIR
Enter a date (T-DEC 31,2699): T-1
GTM>S DIR(0)="D^3110518" D ^DIR
Enter a date (MAY 18,2011-DEC 31,2699): ^
GTM>S DIR(0)="F" D ^DIR
Enter response: LKSAJFDLKDS
GTM>W Y
LKSAJFDLKDS
GTM>S DIR(0)="P^4" D ^DIR
Select INSTITUTION: ??
Choose from:
AUSTIN 200
BVA/VBA SUPPORT OFFICE DC BVA/VBA-SO 397
OFFICE OF INFORMATION SRV CNTR 776
UPSTATE NEW YORK HCS (528) VAMC 528
VISN 1 VISN
VISN 10 VISN
VISN 11 VISN
VISN 12 VISN
VISN 13 VISN
VISN 14 VISN
VISN 15 VISN
VISN 16 VISN
VISN 17 VISN
VISN 18 VISN
VISN 19 VISN
VISN 20 VISN
VISN 21 VISN
VISN 22 VISN
VISN 23 VISN
to exit: ^
Select INSTITUTION: AUSTIN
GTM>W Y
26^AUSTIN
GTM>S DIR(0)="P^4",DIR("S")="I $P(^(0),U,4)" D ^DIR
Select INSTITUTION: ??
Choose from:
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION: ^
GTM>S DIR(0)="P^4",DIR("S")="I $P(^(99),U,4)" D ^DIR
Select INSTITUTION: ??
Choose from:
%GTM-E-GVUNDEF, Global variable undefined: ^DIC(4,2,99)
At M source location S4+12^DICL2
GTM>ZG
GTM>S DIR(0)="P^4",DIR("S")="I $P($G(^(99)),U,4)" D ^DIR
Select INSTITUTION: ??
Choose from:
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION: ^
GTM>S DIR(0)="P^4",DIR("S")="I '$P($G(^(99)),U,4)" D ^DIR
Select INSTITUTION: ??
Choose from:
AUSTIN 200
BVA/VBA SUPPORT OFFICE DC BVA/VBA-SO 397
OFFICE OF INFORMATION SRV CNTR 776
UPSTATE NEW YORK HCS (528) VAMC 528
VISN 1 VISN
VISN 10 VISN
VISN 11 VISN
VISN 12 VISN
VISN 13 VISN
VISN 14 VISN
VISN 15 VISN
VISN 16 VISN
VISN 17 VISN
VISN 18 VISN
VISN 19 VISN
VISN 20 VISN
VISN 21 VISN
VISN 22 VISN
VISN 23 VISN
to exit:
VISN 3 VISN
VISN 4 VISN
VISN 5 VISN
VISN 6 VISN
VISN 7 VISN
VISN 8 VISN
VISN 9 VISN
VOE OFFICE INSTITUTION 100
VOE OFFICE INSTITUTION OLD
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION: ^
GTM>S DIR(0)="P^4",DIR("S")="W ^(0),!" D ^DIR
Select INSTITUTION: ??
Choose from:
AUSTIN^TEXAS^^^^^^^^^National
BVA/VBA SUPPORT OFFICE^11^^^^^^^^^N
OFFICE OF INFORMATION SRV CNTR^OHIO^^^^^^^^^National
UPSTATE NEW YORK HCS (528)^^^^^^^^^^L
VISN 1
VISN 10
VISN 11
VISN 12
VISN 13
VISN 14
VISN 15
VISN 16
VISN 17
VISN 18
VISN 19
AUSTIN 200
BVA/VBA SUPPORT OFFICE DC BVA/VBA-SO 397
OFFICE OF INFORMATION SRV CNTR 776
UPSTATE NEW YORK HCS (528) VAMC 528
to exit:
VISN 1 VISN
VISN 10 VISN
VISN 11 VISN
VISN 12 VISN
VISN 13 VISN
VISN 14 VISN
VISN 15 VISN
VISN 16 VISN
VISN 17 VISN
VISN 18 VISN
VISN 19 VISN
VISN 20
VISN 21
VISN 22
VISN 23^^^^^^^^^^L
VISN 3
VISN 4
VISN 5
VISN 6
VISN 7
VISN 8
VISN 9
VOE OFFICE INSTITUTION^^^^VOE EHR^^^^^^L
VOE OFFICE INSTITUTION OLD^^^^VOE EHR^^^^^^L
VISN 20 VISN
VISN 21 VISN
VISN 22 VISN
VISN 23 VISN
VISN 3 VISN
VISN 4 VISN
VISN 5 VISN
VISN 6 VISN
VISN 7 VISN
VISN 8 VISN
VISN 9 VISN
VOE OFFICE INSTITUTION 100
VOE OFFICE INSTITUTION OLD
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION:
This is a required response. Enter '^' to exit
Select INSTITUTION: ^
GTM>W ^(0)
%GTM-E-GVUNDEF, Global variable undefined: ^TMP("DIERR",0)
GTM>I ^DIC(4,1,0)
GTM>W ^(0)
VOE OFFICE INSTITUTION^^^^VOE EHR^^^^^^L
GTM>W $R
^DIC(4,1,0)
GTM>W ^DIC(4,1,0)
VOE OFFICE INSTITUTION^^^^VOE EHR^^^^^^L
GTM>S DIR(0)="Y" D ^DIR
Enter Yes or No: ^
GTM>S DIR(0)="2,.03"
GTM>D ^DIR
DATE OF BIRTH: ^
GTM>S DIR("A")="Question"
GTM>S DIR("B")="Default Answer"
GTM>d ^DIR
Question: Default Answer// ?? ??
Enter the patients DATE OF BIRTH which must be later than 12/31/1870.
Examples of Valid Dates:
JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057
T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc.
T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc.
If the year is omitted, the computer assumes a date in the PAST.
You may omit the precise day, as: JAN, 1957
Question: Default Answer// ^
GTM>S DIR("B")="T"
GTM>d ^DIR
Question: T// (MAY 09, 2011)
GTM>S DIR("?")="HELLO WORLD"
GTM>D ^DIR
Question: T// ?
Enter the patients DATE OF BIRTH which must be later than 12/31/1870.
Examples of Valid Dates:
JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057
T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc.
T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc.
If the year is omitted, the computer assumes a date in the PAST.
You may omit the precise day, as: JAN, 1957
HELLO WORLD.
Question: T// ^
GTM>;
GTM>; ^DIC
GTM>S DIC(0)="AEMQ" ; Ask Echo Multiple Indexes Search Question bad output
GTM>D ^DIC
GTM>S DIC=200
GTM>D ^DIC
Select NEW PERSON NAME: ??
Choose from:
ADMINISTRATOR,SYSTEM WCJ
ANALYST,ONE OA IRM ANALYST
ANALYST,THREE TA IRM ANALYST
ANALYST,TWO IRM ANALYST
AUTHORIZER,IB MRA MRA
CENTRAL,PAID
CLERK,EIGHT Medical Clerk
CLERK,ELEVEN Medical Clerk
CLERK,FIFTEEN Medical Clerk
CLERK,FIVE Medical Clerk
CLERK,FOUR Medical Clerk
CLERK,FOURTEEN Medical Clerk
CLERK,NINE Medical Clerk
CLERK,ONE CO Medical Clerk
CLERK,SEVEN Medical Clerk
CLERK,SIX Medical Clerk
CLERK,TEN Medical Clerk
CLERK,THIRTEEN Medical Clerk
CLERK,THREE Medical Clerk
to exit:
CLERK,TWELVE Medical Clerk
CLERK,TWO Medical Clerk
COORDINATOR,CLINICAL CC MED CLINICAL COORDINATOR
COORDINATOR,EIGHT EC
COORDINATOR,FIVE FC IRM ANALYST
COORDINATOR,FOUR FC
COORDINATOR,NINE NC
COORDINATOR,ONE OC IRM ANALYST
COORDINATOR,SEVEN SC
COORDINATOR,SIX SC IRM CLINICAL COORDINATOR
COORDINATOR,THREE TC IRM ANALYST
COORDINATOR,TWO TC IRM ANALYST
DOCTOR,EIGHT Physician
DOCTOR,ELEVEN Physician
DOCTOR,FIVE Physician
DOCTOR,FOUR Physician
DOCTOR,NINE Physician
DOCTOR,ONE DO Physician
DOCTOR,SEVEN Physician
DOCTOR,SIX Physician
DOCTOR,TEN Physician
DOCTOR,THREE Physician
to exit:
DOCTOR,TWELVE Physician
DOCTOR,TWO DT Physician
EDILOCKBOX,AUTOMATIC EDI
HABIEL,SAM SH
INTERFACE,IB IIV IIV
LAB,SUPERUSER LS IRM ANALYST
LRLAB,HL
LRLAB,POC
MANAGER,SYSTEM SM System Manager
NURSE,EIGHT Nurse
NURSE,ELEVEN Nurse
NURSE,FIFTEEN Nurse
NURSE,FIVE Nurse
NURSE,FOUR Nurse
NURSE,FOURTEEN Nurse
NURSE,NINE Nurse
NURSE,ONE NO Nurse
NURSE,SEVEN Nurse
NURSE,SIX Nurse
NURSE,TEN Nurse
NURSE,THIRTEEN Nurse
NURSE,THREE Nurse
to exit: ^
Select NEW PERSON NAME: CLINI ??
Select NEW PERSON NAME:
GTM>D ^DIC
Select NEW PERSON NAME:
GTM>D ^DIC
Select NEW PERSON NAME: NURSE,ONE NO Nurse
GTM>W Y
12^NURSE,ONE
GTM>W ^VA(200,12,0)
NURSE,ONE^NO^^#dD^^^^^3
GTM>S DIC(0)="AEMQL" ; Ask Echo Multiple Indexes Search Question bad output
GTM>D ^DIC
Select NEW PERSON NAME: TEST,TEST ??
Select NEW PERSON NAME: TEST,TEST ??
Select NEW PERSON NAME:
GTM>S DIC(0)="AEMQL",DLAYGO=200
GTM>D ^DIC
Select NEW PERSON NAME: TEST ??
Select NEW PERSON NAME: TEST,TEST
Are you adding 'TEST,TEST' as a new NEW PERSON (the 82ND)? No// (No) ??
Select NEW PERSON NAME:
GTM>; To add entry, DIC(0) has an "L" -> Laygo adding
GTM>; Optionally (not all files), you set the DLAYGO variable
GTM>;
GTM>; How to access a subfile with ^DIC
GTM>W Y
-1
GTM>ZWRITE ^VA(200,12,*)
^VA(200,12,0)="NURSE,ONE^NO^^#dD^^^^^3"
^VA(200,12,.13)="^^^^^888-888-8888"
^VA(200,12,1)="^^^^2^^3050222^9^000000002"
^VA(200,12,2,0)="^200.02P^67^1"
^VA(200,12,2,67,0)="67^1"
^VA(200,12,2,"AX1",1,67)=""
^VA(200,12,2,"B",67,67)=""
^VA(200,12,3.1)=16
^VA(200,12,5)=2
^VA(200,12,12)="^^"
^VA(200,12,20)="62149^ONE NURSE^^ABCDEF.11"
^VA(200,12,51,0)="^200.051PA^314^18"
^VA(200,12,51,7,0)="7^9^3050222"
^VA(200,12,51,14,0)="14^9^3050222"
^VA(200,12,51,27,0)="27^9^3050222"
^VA(200,12,51,28,0)="28^9^3050222"
^VA(200,12,51,30,0)="30^9^3050222"
^VA(200,12,51,58,0)="58^9^3050222"
^VA(200,12,51,66,0)="66^9^3050222"
^VA(200,12,51,67,0)="67^9^3050222"
^VA(200,12,51,73,0)="73^9^3050222"
^VA(200,12,51,74,0)="74^9^3050222"
^VA(200,12,51,75,0)="75^9^3050222"
^VA(200,12,51,77,0)="77^9^3050222"
^VA(200,12,51,79,0)="79^9^3050222"
^VA(200,12,51,81,0)="81^9^3050222"
^VA(200,12,51,89,0)="89^9^3050222"
^VA(200,12,51,91,0)="91^9^3050225"
^VA(200,12,51,119,0)="119^9^3050222"
^VA(200,12,51,314,0)="314^9^3050222"
^VA(200,12,51,"B",7,7)=""
^VA(200,12,51,"B",14,14)=""
^VA(200,12,51,"B",27,27)=""
^VA(200,12,51,"B",28,28)=""
^VA(200,12,51,"B",30,30)=""
^VA(200,12,51,"B",58,58)=""
^VA(200,12,51,"B",66,66)=""
^VA(200,12,51,"B",67,67)=""
^VA(200,12,51,"B",73,73)=""
^VA(200,12,51,"B",74,74)=""
^VA(200,12,51,"B",75,75)=""
^VA(200,12,51,"B",77,77)=""
^VA(200,12,51,"B",79,79)=""
^VA(200,12,51,"B",81,81)=""
^VA(200,12,51,"B",89,89)=""
^VA(200,12,51,"B",91,91)=""
^VA(200,12,51,"B",119,119)=""
^VA(200,12,51,"B",314,314)=""
^VA(200,12,101)=0
^VA(200,12,200)="^^^1^0^0^^^Y^9999"
^VA(200,12,201)=10076
^VA(200,12,202.1)="^"
^VA(200,12,203,0)="^200.03IP^1^1"
^VA(200,12,203,1,0)=8552
^VA(200,12,203,"B",8552,1)=""
^VA(200,12,203.1)="61012,20719"
^VA(200,12,"ORD",0)="^200.010113POI^1^1"
^VA(200,12,"ORD",1,0)="1^3050222"
^VA(200,12,"ORD","B",1,1)=""
^VA(200,12,"PS")="1^^3929^^2^1"
^VA(200,12,"USC1",0)="^200.05P^1^1"
^VA(200,12,"USC1",1,0)="301^3050222"
^VA(200,12,"USC1","AD",3050222,1)=""
^VA(200,12,"USC1","B",301,1)=""
GTM>S DIC="^VA(200,12,51,",DIC(0)="AEMQ" D ^DIC
Select KEYS: ??
Choose from:
PROVIDER
XMMGR
LRLAB
LRVERIFY
LRLIASON
ORES
DG PTFREL
DG ELIGIBILITY
DG DETAIL
DG SUPERVISOR
DG SECURITY OFFICER
DG CONSISTENCY
DG INSTITUTION
DGADM
DG DEPDELETE
IB SUPERVISOR
PSORPH
DG [[RECORD~|Record]] ACCESS
Select KEYS:
GTM>D P^DI
MSC FileMan 22.1039
Identity = 9 COORDINATOR,FIVE FC IRM ANALYST
...OK? Yes// (Yes)
Select OPTION: DATA DICTIONARY UTILITIES
Select DATA DICTIONARY UTILITY OPTION: ?
Answer with DATA DICTIONARY UTILITY OPTION NUMBER, or NAME
Choose from:
1 LIST FILE ATTRIBUTES
2 MAP POINTER RELATIONS
3 CHECK/FIX DD STRUCTURE
4 FIND POINTERS INTO A FILE
Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES
START WITH What File: NEW PERSON// (81 entries)
GO TO What File: NEW PERSON// (81 entries)
Select SUB-FILE:
Select LISTING FORMAT: STANDARD// GLOBAL MAP
DEVICE: ;;99 TELNET
GLOBAL MAP DATA DICTIONARY #200 -- NEW PERSON FILE 5/9/11 PAGE 1
STORED IN ^VA(200, (81 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSIO
N 8.0)
-------------------------------------------------------------------------------
This file contains data on employees, users, practitioners, etc. who were
previously in Files 3,6,16 and others.
DHCP packages must check with the KERNEL developers to see that a given
number/namespace is clear for them to use.
Field numbers 53-59.9 reserved for Pharm.
Nodes and X-ref 'PS*'. Field numbers 70-79.9 reserved for Radiology
Nodes and X-ref 'RA*'. Field numbers 720-725 reserved for DSSM
Nodes and X-ref 'EC*' and 'AEC*'. Field numbers 740-749.9 reserved for QA
Nodes and X-ref 'QA*'. Field numbers 654-654.9 reserved for Social work
Node 654 and X-ref 'SW*'. Field numbers 500-500.9 reserved for mailman
Node 500 and X-ref 'XM*' and 'AXM*'.
CROSS
REFERENCED BY: ACCESS CODE(A), PERSON FILE POINTER(A16), KEY(AB),
TYPE-AHEAD(AB2), [[HINQ~|HINQ]] EMPLOYEE NUMBER(AC), SURROGATE(ACSW),
SECONDARY MENU OPTIONS(AD), NAME(AE),
PRIMARY MENU OPTION(AF), ACCESSIBLE FILE(AFOF), NAME(AG),
DIVISION(AH), PRIMARY MENU OPTION(AI), SSN(AJ), KEY(AK),
NPI(ANPI), SECONDARY MENU OPTIONS(AOA),
DATE HL7 TRAINEE [[RECORD~|Record]] BUILT(AOAA), SYNONYM(AOB),
ACCESS CODE(AOLD), PRIMARY MENU OPTION(AP), ARA VALUE(ARA),
SOCIAL WORKER ?(ASWB), IMMEDIATE SUPERVISOR(ASWC),
SOCIAL WORKER'S NUMBER(ASWD), POSITION/TITLE(ASWE),
NAME(ASX), VPID(AVPID), PACKAGE ID(AXQA), PACKAGE ID(AXQAN),
ALIAS(BB), SSN(BS), NAME(BS5), SSN(BS55), INITIAL(C),
NICK NAME(D), SERVICE/SECTION(E), DEA#(PS1), VA#(PS2),
SSN(SSN), VERIFY CODE(VOLD)
INDEXED BY: DEGREE (ADEG), NAME (ANAME), NAME & STREET ADDRESS 1 & STREET
ADDRESS 2 & STREET ADDRESS 3 & CITY & STATE & ZIP CODE & SSN &
EMAIL ADDRESS & CURRENT DEGREE LEVEL & PROGRAM OF STUDY & LAST
TRAINING MONTH & YEAR & SERVICE/SECTION & TITLE & DOB & VHA
TRAINING FACILITY & CLINICAL CORE TRAINEE & DATE NO LONGER
TRAINEE & START OF TRAINING (ATR), NAME & ACCESS CODE & DISUSER
(AUSER), KEY (AUSERKEY), VISITED FROM & DUZ AT HOME SITE
(AVISIT), NAME & TERMINATION DATE & DOB & SSN (AXUHUI), KEY
(AXUHUIKEY), NAME (B), NPI (NPI42)
^VA(200,D0,0)= (#.01) NAME [1F] ^ (#1) INITIAL [2F] ^ (#2) ACCESS CODE [3F] ^
==>(#3) FILE MANAGER ACCESS CODE [4F] ^ (#9.21) DELETE ALL MAIL
==>ACCESS [5S] ^ (#9.22) DELETE KEYS AT TERMINATION [6S] ^ (#7)
==>DISUSER [7S] ^ (#7.2) VERIFY CODE never expires [8S] ^ (#8)
==>TITLE [9P:3.1] ^ ^ (#9.2) TERMINATION DATE [11D] ^ (#15)
==>PROHIBITED TIMES FOR SIGN-ON [12F] ^ (#9.4) Termination Reason
==>[13F] ^ ^ ^ (#8980.16) PERSON FILE POINTER [16P:16] ^
^VA(200,D0,.1)= (#11.2) DATE VERIFY CODE LAST CHANGED [1F] ^ (#11) VERIFY
==>CODE [2F] ^ ^ (#13) NICK NAME [4F] ^ (#14) PAC [5F] ^
==>(#11.6) ALLOW ARA ACCESS [6S] ^ (#11.7) ARA VALUE [7F] ^ ^
==>(#14.9) [[HINQ~|HINQ]] EMPLOYEE NUMBER [9F] ^ (#2.1) Want to edit
==>ACCESS CODE (Y/N) [10F] ^ (#11.1) Want to edit VERIFY CODE
==>(Y/N) [11F] ^
^VA(200,D0,.11)= (#.111) STREET ADDRESS 1 [1F] ^ (#.112) STREET ADDRESS 2
==>[2F] ^ (#.113) STREET ADDRESS 3 [3F] ^ (#.114) CITY [4F] ^
==>(#.115) STATE [5P:5] ^ (#.116) ZIP CODE [6F] ^
^VA(200,D0,.121)= (#.1211) TEMPORARY ADDRESS 1 [1F] ^ (#.1212) TEMPORARY
==>ADDRESS 2 [2F] ^ (#.1213) TEMPORARY ADDRESS 3 [3F] ^
==>(#.1214) TEMPORARY CITY [4F] ^ (#.1215) TEMPORARY STATE
==>[5P:5] ^ (#.1216) TEMPORARY ZIP CODE [6F] ^ (#.1217) START
==>DATE OF TEMP ADDRES [7D] ^ (#.1218) END DATE OF TEMP
==>ADDRESS [8D] ^
^VA(200,D0,.13)= (#.131) PHONE (HOME) [1F] ^ (#.132) OFFICE PHONE [2F] ^
==>(#.133) PHONE #3 [3F] ^ (#.134) PHONE #4 [4F] ^ (#.135)
==>COMMERCIAL PHONE [5F] ^ (#.136) FAX NUMBER [6F] ^ (#.137)
==>VOICE PAGER [7F] ^ (#.138) DIGITAL PAGER [8F] ^
^VA(200,D0,.14)= (#.141) ROOM [1F] ^
^VA(200,D0,.15)= (#.151) EMAIL ADDRESS [1F] ^
^VA(200,D0,.2,0)=^200.01^^ (#20) UCI
^VA(200,D0,.2,D1,0)= (#.01) UCI [1F] ^ (#2) ROUTINES (RN1:RN2) [2F] ^
^VA(200,D0,1)= (#31.1) FILE RANGE [1F] ^ (#4) SEX [2S] ^ (#5) DOB [3D] ^
==>(#31.2) TEXT TERMINATOR [4F] ^ (#31.3) PREFERRED EDITOR
==>[5P:1.2] ^ ^ (#30) DATE ENTERED [7D] ^ (#31) CREATOR [8P:200]
==>^ (#9) SSN [9F] ^
^VA(200,D0,1.1)= (#202) LAST SIGN-ON DATE/TIME [1D] ^ (#202.02) XUS Logon
==>Attempt Count [2N] ^ (#202.03) XUS Active User [3S] ^
==>(#202.04) Entry Last Edit Date [4D] ^ (#202.05) LOCKOUT USER
==>UNTIL [5D] ^
^VA(200,D0,1.2)= (#9.3) TERMINAL TYPE LAST USED [1P:3.2] ^
^VA(200,D0,2,0)=^200.02P^^ (#16) DIVISION
^VA(200,D0,2,D1,0)= (#.01) DIVISION [1P:4] ^ (#1) DEFAULT [2S] ^
^VA(200,D0,3,0)=^200.04^^ (#10) ALIAS
^VA(200,D0,3,D1,0)= (#.01) ALIAS [1F] ^
^VA(200,D0,3.1)= (#10.1) NAME COMPONENTS [1P:20] ^ ^ ^ ^ ^ (#10.6) DEGREE
==>[6F] ^
^VA(200,D0,5)= (#29) SERVICE/SECTION [1P:49] ^ (#28) MAIL CODE [2F] ^
^VA(200,D0,12)= (#12.1) CURRENT DEGREE LEVEL [1P:771.9] ^ (#12.2) PROGRAM OF
==>STUDY [2P:8932.2] ^ (#12.3) LAST TRAINING MONTH & YEAR [3F] ^
==>(#12.4) VHA TRAINING FACILITY [4P:4] ^ (#12.5) DATE HL7
==>TRAINEE [[RECORD~|Record]] BUILT [5D] ^ (#12.6) CLINICAL CORE TRAINEE
==>[6S] ^ (#12.7) DATE NO LONGER TRAINEE [7D] ^ (#12.8) START OF
==>TRAINING [8D] ^
^VA(200,D0,19)= (#19) DELEGATE OF [1P:200] ^ (#19.1) DELEGATION DATE [2D] ^
==>(#19.2) DELEGATION LEVEL [3N] ^
^VA(200,D0,19.5,0)=^200.19P^^ (#19.5) DELEGATED OPTIONS
^VA(200,D0,19.5,D1,0)= (#.01) DELEGATED OPTIONS [1P:19] ^ (#1) DELEGATED BY
==>[2P:200] ^ (#2) DATE DELEGATED [3D] ^ (#3) EDITABLE
==>[4S] ^
^VA(200,D0,19.6,0)=^200.196^^ (#19.6) ALLOWABLE NEW MENU PREFIX
^VA(200,D0,19.6,D1,0)= (#.01) ALLOWABLE NEW MENU PREFIX [1F] ^
^VA(200,D0,19.8,0)=^200.198A^^ (#19.8) MENU TEMPLATE
^VA(200,D0,19.8,D1,0)= (#.01) MENU TEMPLATE [1F] ^
^VA(200,D0,19.8,D1,1,0)=^200.1981^^ (#1) PATHWAY
^VA(200,D0,19.8,D1,1,D2,0)= (#.01) PATHWAY [1W] ^
^VA(200,D0,20)= (#20.1) DATE E-SIG LAST CHANGED [1F] ^ (#20.2) SIGNATURE
==>BLOCK PRINTED NAME [2F] ^ (#20.3) SIGNATURE BLOCK TITLE [3F]
==>^ (#20.4) ELECTRONIC SIGNATURE CODE [4F] ^
^VA(200,D0,50)= (#50.1) KEY DELEGATION LEVEL [1N] ^
^VA(200,D0,51,0)=^200.051PA^^ (#51) KEYS
^VA(200,D0,51,D1,0)= (#.01) KEY [1P:19.1] ^ (#1) GIVEN BY [2P:200] ^ (#2)
==>DATE GIVEN [3D] ^ (#3) REVIEW DATE [4D] ^
^VA(200,D0,52,0)=^200.052P^^ (#52) DELEGATED KEYS
^VA(200,D0,52,D1,0)= (#.01) DELEGATED KEY [1P:19.1] ^ (#1) DELEGATED BY
==>[2P:200] ^ (#2) DATE DELEGATED [3D] ^ (#3) MAY
==>RE-DELEGATE [4S] ^
^VA(200,D0,101)= (#101.01) RESTRICT PATIENT SELECTION [1S] ^ (#101.02)
==>PATIENT SELECTION LIST [2P:100.21] ^
^VA(200,D0,125)= (#125) PROBLEM LIST PRIMARY VIEW [1F] ^ (#125.1) PROBLEM
==>SELECTION LIST [2P:125] ^
^VA(200,D0,200)= ^ ^ ^ (#200.04) MULTIPLE SIGN-ON [4S] ^ (#200.05) ASK
==>DEVICE TYPE AT SIGN-ON [5S] ^ (#200.06) AUTO MENU [6S] ^
==>(#200.07) LANGUAGE [7P:.85] ^ ^ (#200.09) TYPE-AHEAD [9S] ^
==>(#200.1) TIMED READ (# OF SECONDS) [10N] ^ (#200.11) ALWAYS
==>SHOW SECONDARIES [11S] ^ ^ ^ ^ ^ ^ ^ (#200.18) AUTO
==>SIGN-ON [18S] ^ (#200.19) MULTIPLE SIGN-ON LIMIT [19N] ^
^VA(200,D0,201)= (#201) PRIMARY MENU OPTION [1P:19] ^ (#201.1) PRIMARY WINDOW
==>[2P:19] ^ (#201.2) STARTUP DEFAULT [3S] ^
^VA(200,D0,202.1)= (#202.1) LAST OPTION ACCESSED [1P:19] ^ (#202.2) LAST
==>OPTION MAIN MENU [2F] ^
^VA(200,D0,203,0)=^200.03IP^^ (#203) SECONDARY MENU OPTIONS
^VA(200,D0,203,D1,0)= (#.01) SECONDARY MENU OPTIONS [1P:19] ^ (#2) SYNONYM
==>[2F] ^
^VA(200,D0,203.1)= (#203.1) TIMESTAMP [1F] ^
^VA(200,D0,351,0)=^200.0351PA^^ (#351) PERSONAL DIAGNOSES LIST
^VA(200,D0,351,D1,0)= (#.01) DIAGNOSIS [1P:80] ^ (#1) EXPRESSION [2P:757.01]
==>^
^VA(200,D0,400)= (#400) SUPPLY EMPLOYEE [1S] ^
^VA(200,D0,450)= (#450) PAID EMPLOYEE [1P:450] ^
^VA(200,D0,500,0)=^200.005A^^ (#500) NETWORK ADDRESS
^VA(200,D0,500,D1,0)= (#.01) NETWORK ADDRESS LASTNAME [1F] ^ (#1) NETWORK
==>ADDRESS FIRST NAME [2F] ^ (#2) X.400 USER ID [3F] ^
==>(#3) GENERATION [4F] ^ (#4) COUNTRY [5S] ^ (#6)
==>LOCALITY [6F] ^ (#7) [[APPLICATION~|Application]] ENTITY [7F] ^ (#99)
==>ADMINISTRATIVE DOMAIN [8F] ^ (#98) PRIVATE
==>ADMINISTRATIVE DOMAIN [9F] ^
^VA(200,D0,500,D1,1)= (#5) ORGANIZATION [1F] ^ (#5.1) ORGANIZATIONAL UNIT
==>sub0 [2F] ^ (#5.2) ORGANIZATIONAL UNIT sub1 [3F] ^
==>(#5.3) ORGANIZATIONAL UNIT sub2 [4F] ^ (#5.4)
==>ORGANIZATIONAL UNIT sub3 [5F] ^
^VA(200,D0,654)= (#654) SOCIAL WORKER ? [1S] ^ (#654.1) IMMEDIATE SUPERVISOR
==>[2P:200] ^ (#654.2) SOCIAL WORKER'S NUMBER [3N] ^ (#654.3)
==>SURROGATE [4P:200] ^ (#654.15) POSITION/TITLE [5S] ^
^VA(200,D0,8910,0)=^200.06A^^ (#8910) VISITED FROM
^VA(200,D0,8910,D1,0)= (#.01) VISITED FROM [1F] ^ (#1) SITE NAME [2F] ^ (#2)
==>DUZ AT HOME SITE [3N] ^ (#3) FIRST VISIT [4D] ^ (#4)
==>LAST VISITED [5D] ^ (#5) PHONE AT SITE [6F] ^
^VA(200,D0,EC,0)=^200.72P^^ (#720) DMMS UNITS
^VA(200,D0,EC,D1,0)= (#.01) DMMS UNITS [1P:724] ^
^VA(200,D0,ESP)= (#910.1) BADGE NUMBER [1N] ^ (#910.2) RANK [2F] ^
^VA(200,D0,FOF,0)=^200.032PA^^ (#32) ACCESSIBLE FILE
^VA(200,D0,FOF,D1,0)= (#.01) ACCESSIBLE FILE [1P:1] ^ (#1) DATA DICTIONARY
==>ACCESS [2S] ^ (#2) DELETE ACCESS [3S] ^ (#3) LAYGO
==>ACCESS [4S] ^ (#4) READ ACCESS [5S] ^ (#5) WRITE ACCESS
==>[6S] ^ (#6) AUDIT ACCESS [7S] ^
^VA(200,D0,LM)= (#8983.11) DISPLAY HELP AT ENTRY TO LM [1S] ^ (#8983.12) ASK
==>TERMINAL TYPE AT LM ENTRY [2S] ^ (#8983.13) DEFAULT TERMINAL
==>TYPE FOR LM [3P:3.2] ^ (#8983.14) DISPLAY LM COMMANDS [4S] ^
==>(#8983.15) BRIGHT CHARS AT EXIT FROM LM [5S] ^ (#8983.16)
==>DATE LAST ACCESSED LM WP [6D] ^ (#8983.17) TOTAL MINUTES
==>USING LM WP [7N] ^ (#8983.18) KEYSTROKES FROM LM WP [8N] ^
^VA(200,D0,LM1,0)=^200.0089831^^ (#8983.5) SPELLING EXCEPTION DICTIONARY
^VA(200,D0,LM1,D1,0)= (#.01) WORD [1F] ^
^VA(200,D0,LM2,0)=^200.0089832I^^ (#8983.51) DEFINED FORMATS FOR LM
^VA(200,D0,LM2,D1,0)= (#.01) NUMBER [1N] ^ (#1) DEFAULT [2S] ^ (#2) FORMAT
==>LINE [3F] ^
^VA(200,D0,LM3,0)=^200.0089833^^ (#8983.52) DEFINED PHRASES FOR LM
^VA(200,D0,LM3,D1,0)= (#.01) KEYWORD [1F] ^
^VA(200,D0,LM3,D1,1,0)=^200.00898331^^ (#1) PHRASE
^VA(200,D0,LM3,D1,1,D2,0)= (#.01) PHRASE [1W] ^
^VA(200,D0,LM4,0)=^200.0089834^^ (#8983.6) LM LIMIT WP FIELDS TO EDIT
^VA(200,D0,LM4,D1,0)= (#.01) LM LIMIT WP FIELDS TO EDIT [1F] ^
^VA(200,D0,NPI)= (#41.99) NPI [1F] ^ (#41.98) NPI ENTRY STATUS [2S] ^
^VA(200,D0,NPISTATUS,0)=^200.042D^^ (#42) EFFECTIVE DATE/TIME
^VA(200,D0,NPISTATUS,D1,0)= (#.01) EFFECTIVE DATE/TIME [1D] ^ (#.02) STATUS
==>[2S] ^ (#.03) NPI [3F] ^
^VA(200,D0,ORD,0)=^200.010113POI^^ (#101.13) CPRS TAB
^VA(200,D0,ORD,D1,0)= (#.01) CPRS TAB [1P:101.13] ^ (#.02) EFFECTIVE DATE
==>[2D] ^ (#.03) EXPIRATION DATE [3D] ^
^VA(200,D0,PS)= (#53.1) AUTHORIZED TO WRITE MED ORDERS [1S] ^ (#53.2) DEA#
==>[2F] ^ (#53.3) VA# [3F] ^ (#53.4) INACTIVE DATE [4D] ^
==>(#53.5) PROVIDER CLASS [5P:7] ^ (#53.6) PROVIDER TYPE [6S] ^
==>(#53.7) REQUIRES COSIGNER [7S] ^ (#53.8) USUAL COSIGNER
==>[8P:200] ^ (#53.9) REMARKS [9F] ^
^VA(200,D0,PS1,0)=^200.541P^^ (#54.1) LICENSING STATE
^VA(200,D0,PS1,D1,0)= (#.01) LICENSING STATE [1P:5] ^ (#1) LICENSE NUMBER
==>[2F] ^ (#2) EXPIRATION DATE [3D] ^
^VA(200,D0,PS2,0)=^200.55P^^ (#54.2) STATE ISSUING DEA NUMBER
^VA(200,D0,PS2,D1,0)= (#.01) STATE ISSUING DEA NUMBER [1P:5] ^ (#1) STATE DEA
==>NUMBER [2F] ^
^VA(200,D0,QAR)= (#747.1) SERVICE [1P:730] ^ (#747.3) TYPE OF APPOINTMENT
==>[2S] ^ (#747.4) APPOINTMENT DATE [3D] ^ (#747.9) VAF 10-2850
==>COMPLETION (Y/N) [4S] ^ (#747.33) PRIMARY DEGREE [5P:747.7]
==>^ (#747.35) DATE REAPPRAISAL IS DUE [6D] ^ (#747.41) PLACE
==>OF BIRTH [7F] ^ (#747.42) VA CAUTIONARY LIST CHECKED? [8S] ^
==>(#747.44) DEA EXPIRATION DATE [9D] ^
^VA(200,D0,QAR1,0)=^200.07472A^^ (#747.2) MANDATORY TRAINING
^VA(200,D0,QAR1,D1,0)= (#.01) MANDATORY TRAINING [1F] ^ (#1) DATE ATTENDED
==>[2D] ^ (#2) DATE COMPLETED [3D] ^ (#3) RENEWAL DATE
==>[4D] ^
^VA(200,D0,QAR10,0)=^200.074736A^^ (#747.36) CONTINUING EDUCATION PROGRAM
^VA(200,D0,QAR10,D1,0)= (#.01) CONTINUING EDUCATION PROGRAM [1F] ^
^VA(200,D0,QAR10,D1,1,0)=^200.0747361^^ (#1) DESCRIPTION
^VA(200,D0,QAR10,D1,1,D2,0)= (#.01) DESCRIPTION [1W] ^
^VA(200,D0,QAR10,D1,2)= (#2) DATE ATTENDED [1F] ^ (#3) NUMBER OF C.M.E. HOURS
==>[2N] ^ (#4) LOCATION OF PROGRAM [3F] ^
^VA(200,D0,QAR10,D1,3,0)=^200.0747365^^ (#5) C.M.E. COMMENTS
^VA(200,D0,QAR10,D1,3,D2,0)= (#.01) C.M.E. COMMENTS [1W] ^
^VA(200,D0,QAR11,0)=^200.074713PA^^ (#747.13) CLINICAL BACKGROUND
^VA(200,D0,QAR11,D1,0)= (#.01) CLINICAL BACKGROUND [1P:747.8] ^ (#1) YRS. OF
==>EXPERIENCE [2N] ^
^VA(200,D0,QAR12)= (#747.11) APPOINTMENT STATUS [1S] ^ (#747.12) ALIEN VISA
==>[2S] ^ (#747.14) VAF 10-2850 SIGNED/COS (Y/N) [3S] ^
==>(#747.15) VAF 10-2850 LICENSE DATA (Y/N) [4S] ^ (#747.16)
==>LICENSURE CHALLENGE ? [5S] ^ (#747.17) CLINICAL PRIVILEGES
==>[6S] ^ (#747.18) CLIN PRIVILEGES CHALLENGES ? [7S] ^
==>(#747.19) LICENSE CHECK [8S] ^ (#747.21) LICENSE
==>[[VERIFICATION~|Verification]] [9S] ^ (#747.22) SERVICE COMPUTATION DATE
==>[10D] ^ (#747.23) END OF PROBATIONARY PERIOD [11D] ^
==>(#747.24) ECFMG COMPLETED [12D] ^ (#747.25) TIMEFRAME TO
==>RENEW PRIVILEGES? [13S] ^ (#747.26) HEALTH STATEMENT,
==>APPLICANT [14D] ^ (#747.29) BYLAWS AGREEMENT DATE [15D] ^
==>(#747.241) ECFMG [[[VERIFICATION~|Verification]] [16S] ^
^VA(200,D0,QAR14,0)=^200.074727D^^ (#747.27) HEALTH STATEMENT, COLLEAGUE
^VA(200,D0,QAR14,D1,0)= (#.01) HEALTH STATEMENT, COLLEAGUE [1D] ^
^VA(200,D0,QAR15,0)=^200.074728SA^^ (#747.28) DATE REFERENCE RECEIVED
^VA(200,D0,QAR15,D1,0)= (#.01) REFERENCES [1S] ^ (#1) DATE [2D] ^
^VA(200,D0,QAR16,0)=^200.074731S^^ (#747.31) RECOMMENDATION SIGNATURES
^VA(200,D0,QAR16,D1,0)= (#.01) RECOMMENDATION SIGNATURES [1S] ^ (#1) DATE
==>[2D] ^
^VA(200,D0,QAR17,0)=^200.074732^^ (#747.32) PERTINENT CLINICAL INFORMATION
^VA(200,D0,QAR17,D1,0)= (#.01) PERTINENT CLINICAL INFORMATION [1W] ^
^VA(200,D0,QAR18)= (#747.37) NPDB QUERIED ? [1S] ^ (#747.38) DATE SENT TO
==>NPDB ? [2D] ^ (#747.39) RESULTS OF QUERY ? [3S] ^
==>(#747.381) DATE REC'D FROM NPDB [4D] ^
^VA(200,D0,QAR19,0)=^200.074743^^ (#747.43) INTERNSHIP/RESIDENCY
^VA(200,D0,QAR19,D1,0)= (#.01) RES. INSTITUTION [1F] ^ (#1) ADDRESS [2F] ^
==>(#2) SPECIALTY [3P:747.9] ^ (#3) COMPLETION DATE [4D]
==>^ (#4) # OF MONTHS [5N] ^ (#5) [[VERIFICATION~|Verification]] [6S] ^
==>(#1.1) ADDRESS 2 [7F] ^ (#1.2) CITY [8F] ^ (#1.3)
==>STATE [9P:5] ^ (#1.4) ZIP [10F] ^
^VA(200,D0,QAR2,0)=^200.07475P^^ (#747.5) CERTIFICATION
^VA(200,D0,QAR2,D1,0)= (#.01) CERTIFICATION [1P:747.9] ^ (#1) DATE [2D] ^
==>(#2) [[VERIFICATION~|Verification]] [3S] ^ (#1.1) EXPIRATION DATE [4D] ^
^VA(200,D0,QAR20,0)=^200.074745SA^^ (#747.45) CONTROL/SUBSTANCE CERT (Y/N)
^VA(200,D0,QAR20,D1,0)= (#.01) CONTROL/SUBSTANCE CERT (Y/N) [1S] ^ (#1) STATE
==>[2P:5] ^ (#2) EXPIRATION DATE [3D] ^
^VA(200,D0,QAR4,0)=^200.07476PA^^ (#747.6) BOARD ELIGIBLE
^VA(200,D0,QAR4,D1,0)= (#.01) BOARD ELIGIBLE [1P:747.9] ^ (#1) EXPIRATION
==>DATE [2D] ^ (#2) [[VERIFICATION~|Verification]] [3S] ^
^VA(200,D0,QAR5,0)=^200.07477A^^ (#747.7) PROFESSIONAL ORGANIZATION
^VA(200,D0,QAR5,D1,0)= (#.01) PROFESSIONAL ORGANIZATION [1F] ^
^VA(200,D0,QAR6,0)=^200.07478A^^ (#747.8) HONORS/OFFICES HELD
^VA(200,D0,QAR6,D1,0)= (#.01) HONORS/OFFICES HELD [1F] ^
^VA(200,D0,QAR6,D1,1,0)=^200.074781A^^ (#1) SOCIETY
^VA(200,D0,QAR6,D1,1,D2,0)= (#.01) SOCIETY [1F] ^
^VA(200,D0,QAR7,0)=^200.0747111P^^ (#747.111) SPECIALTY
^VA(200,D0,QAR7,D1,0)= (#.01) SPECIALTY [1P:747.9] ^
^VA(200,D0,QAR7,D1,1,0)=^200.07471111PA^^ (#1) SPECIAL PROCEDURE
^VA(200,D0,QAR7,D1,1,D2,0)= (#.01) SPECIAL PROCEDURE [1P:747.25] ^
^VA(200,D0,QAR8)= (#747.112) EFFECTIVE DATE [1D] ^ (#747.113) RENEW DATE [2D]
==>^ (#747.114) GENERAL PRIVILEGE [3P:730] ^
^VA(200,D0,QAR9,0)=^200.074734^^ (#747.34) SCHOOL ATTENDED
^VA(200,D0,QAR9,D1,0)= (#.01) SCHOOL ATTENDED [1F] ^ (#1) ADDRESS [2F] ^ (#2)
==>ADDRESS 2 [3F] ^ (#3) CITY [4F] ^ (#4) STATE [5P:5] ^
==>(#5) ZIP CODE [6F] ^ (#6) DATE COMPLETED [7D] ^ (#7)
==>[[VERIFICATION~|Verification]] [8S] ^ (#4.5) COUNTRY [9P:747.5] ^
^VA(200,D0,QAR9,D1,1,0)=^200.0747348P^^ (#8) EDUCATION LEVEL
^VA(200,D0,QAR9,D1,1,D2,0)= (#.01) EDUCATION LEVEL [1P:747.7] ^
^VA(200,D0,RA)= (#70) STAFF REVIEW REQUIRED [1S] ^ (#71) ALLOW VERIFYING OF
==>OTHERS [2S] ^ (#73) RAD/NUC MED INACTIVE DATE [3D] ^
^VA(200,D0,RAC,0)=^200.072S^^ (#72) RAD/NUC MED CLASSIFICATION
^VA(200,D0,RAC,D1,0)= (#.01) RAD/NUC MED CLASSIFICATION [1S] ^
^VA(200,D0,RAL,0)=^200.074P^^ (#74) RAD/NUC MED LOCATION ACCESS
^VA(200,D0,RAL,D1,0)= (#.01) RAD/NUC MED LOCATION ACCESS [1P:79.1] ^
^VA(200,D0,SPL)= (#41) ALLOWED TO USE SPOOLER [1S] ^ (#41.1) MULTI-DEVICE
==>DESPOOLING [2S] ^ (#41.2) CAN MAKE INTO A MAIL MESSAGE [3S]
==>^
^VA(200,D0,TPB)= (#53.91) NON-VA PRESCRIBER [1S] ^ (#53.92) TAX ID [2F] ^
==>(#53.93) EXCLUSIONARY CHECK PERFORMED [3S] ^ (#53.94) DATE
==>EXCLUSIONARY LIST CHECKED [4D] ^ (#53.95) ON EXCLUSIONARY
==>LIST [5S] ^ (#53.96) EXCLUSIONARY CHECKED BY [6P:200] ^
^VA(200,D0,USC1,0)=^200.05P^^ (#8932.1) PERSON CLASS
^VA(200,D0,USC1,D1,0)= (#.01) Person Class [1P:8932.1] ^ (#2) Effective Date
==>[2D] ^ (#3) Expiration Date [3D] ^
^VA(200,D0,USC2)= (#8932.2) PGYear [1N] ^ (#8932.21) PGY assigned [2D] ^
==>(#8932.3) FYear [3N] ^ (#8932.31) FY assigned [4D] ^
^VA(200,D0,USC3,0)=^200.07P^^ (#9.5) USER CLASS
^VA(200,D0,USC3,D1,0)= (#.01) User Class [1P:201] ^ (#2) ISPRIMARY [2S] ^
^VA(200,D0,VPID)= (#9000) VPID [1F] ^
^VA(200,D0,XQA,0)=^200.194DA^^ (#19.4) ALERT DATE/TIME
^VA(200,D0,XQA,D1,0)= (#.01) ALERT DATE TIME [1D] ^ (#.02) PACKAGE ID [2F] ^
==>(#.03) MESSAGE TEXT [3F] ^ (#.04) NEW ALERT FLAG [4S] ^
==>(#.05) ACTION FLAG [5S] ^ (#.06) RESERVED1 [6F] ^
==>(#.07) ENTRY POINT [7F] ^ (#.08) AROUTINE NAME [8F] ^
==>(#.09) RESERVED FIELD [9F] ^ (#.1) FIRST DATA PIECE
==>[10F] ^
^VA(200,D0,XQA,D1,1)= (#1) DATA STRING [E1,245F] ^
^VA(200,D0,XUS)= ^ ^ ^ ^ ^ ^ ^ (#200.08) RESERVED [8F] ^
INPUT TEMPLATE(S):
^DIE(12)= *XUFILERANGE
^DIE(11)= *XUFILESINGLE
^DIE(1282)= ESP POLICE EDIT
^DIE(1640)= OR USER ACCESS OPTIONS
^DIE(1060)= RA PERSONNEL
^DIE(1291)= SOWKNWRK
^DIE(1725)= UJO PHARMACY F200 FIELDS
^DIE(16)= XQSMD SET PREFIX
^DIE(10)= XUEDIT CHARACTERISTICS
^DIE(9)= XUEXISTING USER
^DIE(8)= XUNEW USER
^DIE(1248)= XUREACT USER
^DIE(1249)= XUSER PC BUILD
^DIE(22)= XUSERDEACT
PRINT TEMPLATE(S):
^DIPT(1424)= ACTIVE USERS BY MAIL CODE
^DIPT(1425)= BRIEF USER HEADING
^DIPT(.01)= CAPTIONED
^DIPT(1227)= DG MISSING SSN PRINT
^DIPT(170)= ORB RECIP TOTALS
^DIPT(598)= RA PERSONNEL LIST
^DIPT(599)= RA RESIDENT RADIOLOGIST
^DIPT(1488)= XQAL NO BKUP REVIEWER
^DIPT(26)= XQSMD BY OPTION
^DIPT(25)= XQSMD BY USER
^DIPT(35)= XQSMD OPTION BY USER
^DIPT(1437)= XU-CLINICAL ACTIVE TRAINEE
^DIPT(1436)= XU-CLINICAL INACTIVE TRAINEE
^DIPT(1341)= XU-CLINICAL TRAINEE DB COUNT
^DIPT(1339)= XU-CLINICAL TRAINEE INQUIRY
^DIPT(1435)= XU-CLINICAL TRAINEE LIST
^DIPT(1432)= XU-CLINICAL TRAINEE TRANSA
^DIPT(1433)= XU-CLINICAL TRAINEE TRANSB
^DIPT(1434)= XU-CLINICAL TRAINEE TRANSC
^DIPT(31)= XUFILE ACCESS ABBREVIATED
^DIPT(30)= XUFILEINQ Previously Compiled: XUFILE0
^DIPT(32)= XUFILEINQHDR
^DIPT(33)= XUFILEOFILES
^DIPT(1264)= XUS VISIT USERS
^DIPT(1438)= XUSAP PROXY LIST
^DIPT(1455)= XUSEC ISO ACTIVE USER PRINT
^DIPT(24)= XUSER LIST
^DIPT(755)= XUSER PC BUILD
^DIPT(27)= XUSERINQ Compiled: ^XUCT01
^DIPT(1421)= XUSERINQFGO
^DIPT(1411)= vvso 12
SORT TEMPLATE(S):
^DIBT(689)= DG MISSING SSN SORT
^DIBT(916)= KBAN TEST
^DIBT(851)= PRIMARY WITHIN MAIL CODE
^DIBT(309)= RA PERSONNEL LIST
^DIBT(918)= UJO MEDICINE FOLKS
^DIBT(917)= UJO PHARMACY FOLKS
^DIBT(843)= VVSO 12
^DIBT(844)= VVSO SORT
^DIBT(17)= XQSMD BY OPTION
^DIBT(16)= XQSMD BY USER
^DIBT(860)= XU-CLINICAL ACTIVE TRAINEE
^DIBT(859)= XU-CLINICAL INACTIVE TRAINEE
^DIBT(780)= XU-CLINICAL TRAINEE DB COUNT
^DIBT(858)= XU-CLINICAL TRAINEE LIST
^DIBT(855)= XU-CLINICAL TRAINEE TRANSA
^DIBT(856)= XU-CLINICAL TRAINEE TRANSB
^DIBT(857)= XU-CLINICAL TRAINEE TRANSC
^DIBT(18)= XUFILE BY FILE NUMBER
^DIBT(713)= XUS VISIT USERS
^DIBT(862)= XUSAP PROXY LIST
^DIBT(875)= XUSEC ISO ACTIVE USER SORT
^DIBT(373)= XUSER PC BUILD
FORM(S)/BLOCK(S):
^DIST(.403,116)= KBAN EDIT USER
^DIST(.404,434)= KBAN EDIT USER HEADER
^DIST(.404,435)= KBAN EDIT USER 1
^DIST(.404,436)= KBAN USER EDIT KEYS
^DIST(.404,437)= KBAN USER EDIT 2NDRY MENUS
^DIST(.404,438)= KBAN USER EDIT DIVISIONS
^DIST(.403,93)= XU-CLINICAL TRAINEE
^DIST(.404,356)= XU-CLINICAL TRAINEE HDR
^DIST(.404,357)= XU-CLINICAL TRAINEE 1
^DIST(.403,29)= XU-PERSON CLASS
^DIST(.404,85)= XU-PERSON CLASS 1
^DIST(.404,86)= XU-PERSON CLASS 2
^DIST(.403,2)= XUEDIT CHARACTERISTICS
^DIST(.404,26)= XUEDIT CHARACTERISTICS HDR
^DIST(.404,27)= XUEDIT CHARACTERISTICS
^DIST(.403,3)= XUEXISTING USER
^DIST(.404,28)= XUEXISTING USER 1
^DIST(.404,47)= XUEXISTING USER 0
^DIST(.404,29)= XUEXISTING USER 2
^DIST(.404,30)= XUEXISTING USER 3
^DIST(.404,31)= XUEXISTING USER 4
^DIST(.404,50)= XUEXISTING USER 5
^DIST(.404,86)= XU-PERSON CLASS 2
^DIST(.404,321)= XUEXISTING USER NAME COMPONENT
^DIST(.404,341)= XUEXISTING USER CPRS
^DIST(.404,342)= XUEXISTING USER CPRS TAB
^DIST(.404,358)= XUEXISTING USER TRAINEE
^DIST(.404,403)= Termination
^DIST(.403,30)= XUNEW USER
^DIST(.404,28)= XUEXISTING USER 1
^DIST(.404,47)= XUEXISTING USER 0
^DIST(.404,29)= XUEXISTING USER 2
^DIST(.404,50)= XUEXISTING USER 5
^DIST(.404,86)= XU-PERSON CLASS 2
^DIST(.404,87)= XUNEW USER
^DIST(.404,30)= XUEXISTING USER 3
^DIST(.404,31)= XUEXISTING USER 4
^DIST(.404,321)= XUEXISTING USER NAME COMPONENT
^DIST(.404,341)= XUEXISTING USER CPRS
^DIST(.404,342)= XUEXISTING USER CPRS TAB
^DIST(.404,358)= XUEXISTING USER TRAINEE
^DIST(.403,14)= XUREACT USER
^DIST(.404,28)= XUEXISTING USER 1
^DIST(.404,47)= XUEXISTING USER 0
^DIST(.404,29)= XUEXISTING USER 2
^DIST(.404,50)= XUEXISTING USER 5
^DIST(.404,86)= XU-PERSON CLASS 2
^DIST(.404,30)= XUEXISTING USER 3
^DIST(.404,31)= XUEXISTING USER 4
^DIST(.404,321)= XUEXISTING USER NAME COMPONENT
^DIST(.404,341)= XUEXISTING USER CPRS
^DIST(.404,342)= XUEXISTING USER CPRS TAB
^DIST(.404,358)= XUEXISTING USER TRAINEE
^DIST(.403,10)= XUSERDEACT
^DIST(.404,46)= XUSERDEACT HDR
^DIST(.404,44)= XUSERDEACT
\
Select DATA DICTIONARY UTILITY OPTION:
Select OPTION:
GTM>;
GTM>; Call to search indexes only: MIX^DIC1
GTM>; D for index to search
GTM>S D="SSN",DIC(0)="AEMQ",DIC=2 D ^DIC
Select PATIENT NAME: ??
Choose from:
BIRD,TWEETIE F 12-07-1988
123458906
BUNNY,BUGS M 11-22-2001 12
DUCK,DONALD M 12-03-1983 5
GOOSE,GOOFY M 09-29-1982 303092982P 6
LISA,MONA DA F 11-11-1937 524111137P 8
MAKOPITO,SERENA <A> F 11-11-2007
123458910
MARS,SAILOR M 00-00-1990
123458905
MARTIAN,THE M 01-22-1933 16
MCDUCK,SCROOGE M 11-22-1933 9
MICHIRO,AOI F 11-11-1988
123458909
MOON,PLUTO F 00-00-1980
123458904
MOON,SAILOR F 00-00-1980
123458903
MOORE,MANDY F 11-22-1988 15
to exit:
MOUSE,MICKEY M 11-20-1931 4
MOUSE,MINNIE F 04-23-1965 505042365P
505042365P
POOH,WINNIE THE M 11-01-1922
123458908
RED NOSE,RUDOLPH M 11-22-1933 10
RUNNER,ROAD F 11-22-1980 13
THECAT,TOM M 07-07-1980
123458907
WHITE,SNOW F 11-22-1933 123458902
123458902
WILE,COYOTE E M 11-22-1933 14
ZZ PATIENT,TEST ONE <A> F 01-24-1945 000003322 1
ZZ PATIENT,TEST THREE <CA> M 01-15-1968 3
ZZ PATIENT,TEST TWO <A> M 12-25-1957 2(D)
Select PATIENT NAME:
GTM>S D="SSN",DIC(0)="AEMQ",DIC=2 D MIX^DIC1
Select PATIENT: ??
Choose from:
123458902 WHITE,SNOW 11-22-33 123458902 NO VISTA OFFICE
EHR
000003322 ZZ PATIENT,TEST ONE *SENSITIVE* *SENSITIVE* NO
VISTA OFFICE EHR
303092982P GOOSE,GOOFY 9-29-82 303092982P **Pseudo SSN** NO
VISTA OFFICE EHR
505042365P MOUSE,MINNIE 4-23-65 505042365P **Pseudo SSN** NO
VISTA OFFICE EHR
524111137P LISA,MONA DA 11-11-37 524111137P **Pseudo SSN** N
O VISTA OFFICE EHR
Select PATIENT: ??
Choose from:
123458902 WHITE,SNOW 11-22-33 123458902 NO VISTA OFFICE
EHR
000003322 ZZ PATIENT,TEST ONE *SENSITIVE* *SENSITIVE* NO
VISTA OFFICE EHR
303092982P GOOSE,GOOFY 9-29-82 303092982P **Pseudo SSN** NO
VISTA OFFICE EHR
505042365P MOUSE,MINNIE 4-23-65 505042365P **Pseudo SSN** NO
VISTA OFFICE EHR
524111137P LISA,MONA DA 11-11-37 524111137P **Pseudo SSN** N
O VISTA OFFICE EHR
Select PATIENT: 123458902 WHITE,SNOW 11-22-33 123458902 NO VIST
A OFFICE EHR
GTM>S D="SSN",DIC(0)="AEMQ",DIC=2 D MIX^DIC1
Select PATIENT: MOUSE,MINN ??
Select PATIENT:
GTM>ZWRITE ^DPT("SSN",*)
^DPT("SSN",123458902,11)=""
^DPT("SSN","000003322",1)=""
^DPT("SSN","303092982P",6)=""
^DPT("SSN","505042365P",7)=""
^DPT("SSN","524111137P",8)=""
GTM>S D="ADOB",DIC(0)="AEMQ",DIC=2 D MIX^DIC1
Select PATIENT: ??
Choose from:
NOV 1,1922 POOH,WINNIE THE 11-1-22 NO VISTA OFFICE EHR
NOV 20,1931 MOUSE,MICKEY 11-20-31 NO VISTA OFFICE EHR
JAN 22,1933 MARTIAN,THE 1-22-33 NO VISTA OFFICE EHR
NOV 22,1933 MCDUCK,SCROOGE 11-22-33 NO VISTA OFFICE EHR
NOV 22,1933 RED NOSE,RUDOLPH 11-22-33 NO VISTA OFFICE E
HR
NOV 22,1933 WHITE,SNOW 11-22-33 123458902 NO VISTA OFFIC
E EHR
NOV 22,1933 WILE,COYOTE E 11-22-33 NO VISTA OFFICE EHR
NOV 11,1937 LISA,MONA DA 11-11-37 524111137P **Pseudo SSN**
NO VISTA OFFICE EHR
JAN 24,1945 ZZ PATIENT,TEST ONE *SENSITIVE* *SENSITIVE* NO
VISTA OFFICE EHR
DEC 25,1957 ZZ PATIENT,TEST TWO 12-25-57 NO VISTA OFFIC
E EHR
to exit:
APR 23,1965 MOUSE,MINNIE 4-23-65 505042365P **Pseudo SSN** N
O VISTA OFFICE EHR
JAN 15,1968 ZZ PATIENT,TEST THREE 1-15-68 NO VISTA OFFI
CE EHR
1980 MOON,SAILOR 0-0-80 NO VISTA OFFICE EHR
1980 MOON,PLUTO 0-0-80 NO VISTA OFFICE EHR
JUL 7,1980 THECAT,TOM 7-7-80 NO VISTA OFFICE EHR
NOV 22,1980 RUNNER,ROAD 11-22-80 NO VISTA OFFICE EHR
SEP 29,1982 GOOSE,GOOFY 9-29-82 303092982P **Pseudo SSN** NO
VISTA OFFICE EHR
DEC 3,1983 DUCK,DONALD 12-3-83 NO VISTA OFFICE EHR
NOV 11,1988 MICHIRO,AOI 11-11-88 NO VISTA OFFICE EHR
NOV 22,1988 MOORE,MANDY 11-22-88 NO VISTA OFFICE EHR
DEC 7,1988 BIRD,TWEETIE 12-7-88 NO VISTA OFFICE EHR
1990 MARS,SAILOR 0-0-90 NO VISTA OFFICE EHR
NOV 22,2001 BUNNY,BUGS 11-22-01 NO VISTA OFFICE EHR
to exit:
NOV 11,2007 MAKOPITO,SERENA 11-11-07 NO VISTA OFFICE EH
R
Select PATIENT: ??
Choose from:
NOV 1,1922 POOH,WINNIE THE 11-1-22 NO VISTA OFFICE EHR
NOV 20,1931 MOUSE,MICKEY 11-20-31 NO VISTA OFFICE EHR
JAN 22,1933 MARTIAN,THE 1-22-33 NO VISTA OFFICE EHR
NOV 22,1933 MCDUCK,SCROOGE 11-22-33 NO VISTA OFFICE EHR
NOV 22,1933 RED NOSE,RUDOLPH 11-22-33 NO VISTA OFFICE E
HR
NOV 22,1933 WHITE,SNOW 11-22-33 123458902 NO VISTA OFFIC
E EHR
NOV 22,1933 WILE,COYOTE E 11-22-33 NO VISTA OFFICE EHR
NOV 11,1937 LISA,MONA DA 11-11-37 524111137P **Pseudo SSN**
NO VISTA OFFICE EHR
JAN 24,1945 ZZ PATIENT,TEST ONE *SENSITIVE* *SENSITIVE* NO
VISTA OFFICE EHR
DEC 25,1957 ZZ PATIENT,TEST TWO 12-25-57 NO VISTA OFFIC
E EHR
to exit:
APR 23,1965 MOUSE,MINNIE 4-23-65 505042365P **Pseudo SSN** N
O VISTA OFFICE EHR
JAN 15,1968 ZZ PATIENT,TEST THREE 1-15-68 NO VISTA OFFI
CE EHR
1980 MOON,SAILOR 0-0-80 NO VISTA OFFICE EHR
1980 MOON,PLUTO 0-0-80 NO VISTA OFFICE EHR
JUL 7,1980 THECAT,TOM 7-7-80 NO VISTA OFFICE EHR
NOV 22,1980 RUNNER,ROAD 11-22-80 NO VISTA OFFICE EHR
SEP 29,1982 GOOSE,GOOFY 9-29-82 303092982P **Pseudo SSN** NO
VISTA OFFICE EHR
DEC 3,1983 DUCK,DONALD 12-3-83 NO VISTA OFFICE EHR
NOV 11,1988 MICHIRO,AOI 11-11-88 NO VISTA OFFICE EHR
NOV 22,1988 MOORE,MANDY 11-22-88 NO VISTA OFFICE EHR
DEC 7,1988 BIRD,TWEETIE 12-7-88 NO VISTA OFFICE EHR
1990 MARS,SAILOR 0-0-90 NO VISTA OFFICE EHR
NOV 22,2001 BUNNY,BUGS 11-22-01 NO VISTA OFFICE EHR
to exit: ^
Select PATIENT: MICH ??
Select PATIENT: 11/22/80 NOV 22,1980 RUNNER,ROAD 11-22-80 NO
VISTA OFFICE EHR
GTM>W Y
13^RUNNER,ROAD
GTM>S DIC(0)="AEMQ",DIC=200 D ^DIC
Select NEW PERSON NAME:
GTM>S DIC(0)="EMQ",DIC=200 D ^DIC
GTM>; If you omit the "A", it becomes a non interactive call
GTM>; looks for X, and tries to search on it.
GTM>S X="DOCTOR,TEN"
GTM>S DIC(0)="EMQ",DIC=200
GTM>D ^DIC
Physician
GTM>W Y
23^DOCTOR,TEN
GTM>S DIC(0)="M",DIC=200
GTM>S X="DOCTOR,TEN"
GTM>S DIC(0)="M",DIC=200
GTM>D ^DIC
GTM>W Y
23^DOCTOR,TEN
GTM>
GTM>; Fileman date functions
GTM>; ^%DT
GTM>S %DT="AEQ" D ^%DT
DATE: T-1 (MAY 08, 2011)
GTM>W Y
3110508
GTM>S %DT("A")="Enter lab draw date: "
GTM>d ^%DT
Enter lab draw date:
GTM>W Y
-1
GTM>S %DT("B")="T"
GTM>D ^%DT
Enter lab draw date: T// (MAY 09, 2011)
GTM>W Y
3110509
GTM>S %DT="EQ" D ^%DT
(MAY 09, 2011)
GTM>K
GTM>S %DT="EQ" D ^%DT
%GTM-E-UNDEF, Undefined local variable: X
At M source location NA^%DT
GTM>ZG
GTM>S X="MAR 11 1982"
GTM>K %DT
GTM>D ^%DT
GTM>W Y
2820311
GTM>
GTM>; %DTC - Date Time difference
GTM>; ^%DTCS gives you the # of days between 2 dates X1 and X2
GTM>S X1=3110205,X2=3110130 D ^%DTC
GTM>W X
6
GTM>; C^%DTC - Adds or subtracts number of days
GTM>S X1=3110130,X2=6 D C^%DTC
GTM>W X
3110205
GTM>;
GTM>; Kernel Time APIs
GTM>W $$FMTE^XLFDT(3110105)
Jan 05, 2011
GTM>; Fileman to External
GTM>W $$NOW^XLFDT()
3110509.155943
GTM>; Now's time up to second accuracy
GTM>; we could imagine that we can combine the calls
GTM>W $$FMTE^XLFDT($$NOW^XLFDT())
May 09, 2011@16:00:22
GTM>;
GTM>; Now gives you seconds
GTM>; If you just want the date
GTM>W $$DT^XLFDT()
3110509
GTM>; DOW - Day of Week
GTM>W $$DOW^XLFDT(3100205)
Friday
GTM>; Two modern calls to replace ^%DTC
GTM>W $$FMDIFF^XLFDT(3110205,3100122)
379
GTM>W $$FMDIFF^XLFDT(3110205,3110122)
14
GTM>W $$FMDIFF^XLFDT(3110205,3110122,2)
1209600
GTM>; Between Feb 5 and Jan 22, you have 14 days or 1209600 seconds
GTM>W $$FMADD^XLFDT(3110205,2)
3110207
GTM>W $$FMADD^XLFDT(3110205,30)
3110307
GTM>; 30 days after Feb 5th is March 7th.
GTM>
