Difference between revisions of "Fileman API Class 1"

From VistApedia
Jump to: navigation, search
(Added glossary link to Record~)
(Added Glossary link to Verification~)
 
Line 818: Line 818:
 
                 ==>[6S] ^ (#747.18) CLIN PRIVILEGES CHALLENGES ? [7S] ^
 
                 ==>[6S] ^ (#747.18) CLIN PRIVILEGES CHALLENGES ? [7S] ^
 
                 ==>(#747.19) LICENSE CHECK [8S] ^ (#747.21) LICENSE
 
                 ==>(#747.19) LICENSE CHECK [8S] ^ (#747.21) LICENSE
                 ==>VERIFICATION [9S] ^ (#747.22) SERVICE COMPUTATION DATE
+
                 ==>[[VERIFICATION~|Verification]] [9S] ^ (#747.22) SERVICE COMPUTATION DATE
 
                 ==>[10D] ^ (#747.23) END OF PROBATIONARY PERIOD [11D] ^
 
                 ==>[10D] ^ (#747.23) END OF PROBATIONARY PERIOD [11D] ^
 
                 ==>(#747.24) ECFMG COMPLETED [12D] ^ (#747.25) TIMEFRAME TO
 
                 ==>(#747.24) ECFMG COMPLETED [12D] ^ (#747.25) TIMEFRAME TO
 
                 ==>RENEW PRIVILEGES? [13S] ^ (#747.26) HEALTH STATEMENT,
 
                 ==>RENEW PRIVILEGES? [13S] ^ (#747.26) HEALTH STATEMENT,
 
                 ==>APPLICANT [14D] ^ (#747.29) BYLAWS AGREEMENT DATE [15D] ^
 
                 ==>APPLICANT [14D] ^ (#747.29) BYLAWS AGREEMENT DATE [15D] ^
                 ==>(#747.241) ECFMG VERIFICATION [16S] ^
+
                 ==>(#747.241) ECFMG [[[VERIFICATION~|Verification]] [16S] ^
 
^VA(200,D0,QAR14,0)=^200.074727D^^  (#747.27) HEALTH STATEMENT, COLLEAGUE
 
^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,QAR14,D1,0)= (#.01) HEALTH STATEMENT, COLLEAGUE [1D] ^
Line 839: Line 839:
 
^VA(200,D0,QAR19,D1,0)= (#.01) RES. INSTITUTION [1F] ^ (#1) ADDRESS [2F] ^
 
^VA(200,D0,QAR19,D1,0)= (#.01) RES. INSTITUTION [1F] ^ (#1) ADDRESS [2F] ^
 
                     ==>(#2) SPECIALTY [3P:747.9] ^ (#3) COMPLETION DATE [4D]
 
                     ==>(#2) SPECIALTY [3P:747.9] ^ (#3) COMPLETION DATE [4D]
                     ==>^ (#4) # OF MONTHS [5N] ^ (#5) VERIFICATION [6S] ^
+
                     ==>^ (#4) # OF MONTHS [5N] ^ (#5) [[VERIFICATION~|Verification]] [6S] ^
 
                     ==>(#1.1) ADDRESS 2 [7F] ^ (#1.2) CITY [8F] ^ (#1.3)
 
                     ==>(#1.1) ADDRESS 2 [7F] ^ (#1.2) CITY [8F] ^ (#1.3)
 
                     ==>STATE [9P:5] ^ (#1.4) ZIP [10F] ^
 
                     ==>STATE [9P:5] ^ (#1.4) ZIP [10F] ^
 
^VA(200,D0,QAR2,0)=^200.07475P^^  (#747.5) CERTIFICATION
 
^VA(200,D0,QAR2,0)=^200.07475P^^  (#747.5) CERTIFICATION
 
^VA(200,D0,QAR2,D1,0)= (#.01) CERTIFICATION [1P:747.9] ^ (#1) DATE [2D] ^
 
^VA(200,D0,QAR2,D1,0)= (#.01) CERTIFICATION [1P:747.9] ^ (#1) DATE [2D] ^
                     ==>(#2) VERIFICATION [3S] ^ (#1.1) EXPIRATION DATE [4D] ^
+
                     ==>(#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,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
 
^VA(200,D0,QAR20,D1,0)= (#.01) CONTROL/SUBSTANCE CERT (Y/N) [1S] ^ (#1) STATE
Line 850: Line 850:
 
^VA(200,D0,QAR4,0)=^200.07476PA^^  (#747.6) BOARD ELIGIBLE
 
^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
 
^VA(200,D0,QAR4,D1,0)= (#.01) BOARD ELIGIBLE [1P:747.9] ^ (#1) EXPIRATION
                     ==>DATE [2D] ^ (#2) VERIFICATION [3S] ^
+
                     ==>DATE [2D] ^ (#2) [[VERIFICATION~|Verification]] [3S] ^
 
^VA(200,D0,QAR5,0)=^200.07477A^^  (#747.7) PROFESSIONAL ORGANIZATION
 
^VA(200,D0,QAR5,0)=^200.07477A^^  (#747.7) PROFESSIONAL ORGANIZATION
 
^VA(200,D0,QAR5,D1,0)= (#.01) PROFESSIONAL ORGANIZATION [1F] ^
 
^VA(200,D0,QAR5,D1,0)= (#.01) PROFESSIONAL ORGANIZATION [1F] ^
Line 867: Line 867:
 
                     ==>ADDRESS 2 [3F] ^ (#3) CITY [4F] ^ (#4) STATE [5P:5] ^
 
                     ==>ADDRESS 2 [3F] ^ (#3) CITY [4F] ^ (#4) STATE [5P:5] ^
 
                     ==>(#5) ZIP CODE [6F] ^ (#6) DATE COMPLETED [7D] ^ (#7)
 
                     ==>(#5) ZIP CODE [6F] ^ (#6) DATE COMPLETED [7D] ^ (#7)
                     ==>VERIFICATION [8S] ^ (#4.5) COUNTRY [9P:747.5] ^
+
                     ==>[[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,0)=^200.0747348P^^  (#8) EDUCATION LEVEL
 
^VA(200,D0,QAR9,D1,1,D2,0)= (#.01) EDUCATION LEVEL [1P:747.7] ^
 
^VA(200,D0,QAR9,D1,1,D2,0)= (#.01) EDUCATION LEVEL [1P:747.7] ^

Latest revision as of 16:13, 6 July 2012

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>