Fileman API Class 1

 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  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  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 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 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 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 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 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 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 [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 [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 [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 [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 [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 [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                      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                  F 01-24-1945 000003322      1 ZZ PATIENT,TEST THREE               M 01-15-1968                3 ZZ PATIENT,TEST TWO                  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>