Difference between revisions of "Fileman API Class 2"
From VistApedia
(Added glossary link to Record~) |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 319: | Line 319: | ||
GTM>; Expects at least 3 variables | GTM>; Expects at least 3 variables | ||
| − | GTM>; DA array -> Record Number/IEN | + | GTM>; DA array -> [[Record~|Record]] Number/IEN |
GTM>; DIE -> File Root or Number | GTM>; DIE -> File Root or Number | ||
| Line 1,039: | Line 1,039: | ||
2 INCOME RELATION (13 entries) | 2 INCOME RELATION (13 entries) | ||
3 INCOMPLETE PSYCH TEST PATIENT (0 entries) | 3 INCOMPLETE PSYCH TEST PATIENT (0 entries) | ||
| − | 4 INCOMPLETE | + | 4 INCOMPLETE [[RECORD~|Record]]S (0 entries) |
5 INCONSISTENT DATA (42 entries) | 5 INCONSISTENT DATA (42 entries) | ||
Press <Enter> to see more, '^' to exit this list, OR | Press <Enter> to see more, '^' to exit this list, OR | ||
| Line 1,352: | Line 1,352: | ||
T) K X W !,*7,?5,"DUPLICATE VA #",! | T) K X W !,*7,?5,"DUPLICATE VA #",! | ||
LAST EDITED: SEP 24,1993 | LAST EDITED: SEP 24,1993 | ||
| − | HELP-PROMPT: Enter the VA number 3 to 10 characters. | + | HELP-[[PROMPT~|Prompt]]: Enter the VA number 3 to 10 characters. |
DESCRIPTION: | DESCRIPTION: | ||
This field is used to enter the VA number. | This field is used to enter the VA number. | ||
| Line 1,405: | Line 1,405: | ||
'1' FOR YES; | '1' FOR YES; | ||
LAST EDITED: APR 30,1996 | LAST EDITED: APR 30,1996 | ||
| − | HELP-PROMPT: Enter '1' or 'Yes' if provider is authorized to | + | HELP-[[PROMPT~|Prompt]]: Enter '1' or 'Yes' if provider is authorized to |
write orders. | write orders. | ||
DESCRIPTION: This field is used to determin if the provider | DESCRIPTION: This field is used to determin if the provider | ||
| Line 1,419: | Line 1,419: | ||
INPUT TRANSFORM: K:'$$VALDEA^XUSER2(X) X | INPUT TRANSFORM: K:'$$VALDEA^XUSER2(X) X | ||
LAST EDITED: DEC 23,2002 | LAST EDITED: DEC 23,2002 | ||
| − | HELP-PROMPT: Enter the DEA number 2 letters 7 numbers. | + | HELP-[[PROMPT~|Prompt]]: Enter the DEA number 2 letters 7 numbers. |
DESCRIPTION: This field is used to enter the drug | DESCRIPTION: This field is used to enter the drug | ||
enforcement agency (DEA) number. Enter the DEA | enforcement agency (DEA) number. Enter the DEA | ||
| Line 1,475: | Line 1,475: | ||
T) K X W !,*7,?5,"DUPLICATE VA #",! | T) K X W !,*7,?5,"DUPLICATE VA #",! | ||
LAST EDITED: SEP 24,1993 | LAST EDITED: SEP 24,1993 | ||
| − | HELP-PROMPT: Enter the VA number 3 to 10 characters. | + | HELP-[[PROMPT~|Prompt]]: Enter the VA number 3 to 10 characters. |
DESCRIPTION: | DESCRIPTION: | ||
This field is used to enter the VA number. | This field is used to enter the VA number. | ||
| Line 1,497: | Line 1,497: | ||
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X | INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X | ||
LAST EDITED: OCT 20,1993 | LAST EDITED: OCT 20,1993 | ||
| − | HELP-PROMPT: Enter the date after which this person may not | + | HELP-[[PROMPT~|Prompt]]: Enter the date after which this person may not |
write medication orders. | write medication orders. | ||
DESCRIPTION: This field is used to show the inactive date of | DESCRIPTION: This field is used to show the inactive date of | ||
| Line 1,511: | Line 1,511: | ||
LAST EDITED: OCT 18,1999 | LAST EDITED: OCT 18,1999 | ||
| − | HELP-PROMPT: Enter provider class of provider (MD, PA etc). | + | HELP-[[PROMPT~|Prompt]]: Enter provider class of provider (MD, PA etc). |
DESCRIPTION: | DESCRIPTION: | ||
This field is used to show the providers class. | This field is used to show the providers class. | ||
| Line 1,586: | Line 1,586: | ||
'5' FOR HOUSE STAFF; | '5' FOR HOUSE STAFF; | ||
LAST EDITED: DEC 8,1993 | LAST EDITED: DEC 8,1993 | ||
| − | HELP-PROMPT: Enter type of provider. | + | HELP-[[PROMPT~~~~|Prompt]]: Enter type of provider. |
DESCRIPTION: This field is used to show the type of provider | DESCRIPTION: This field is used to show the type of provider | ||
(staff, fee, etc.) | (staff, fee, etc.) | ||
| Line 1,599: | Line 1,599: | ||
'1' FOR YES; | '1' FOR YES; | ||
LAST EDITED: OCT 12,1989 | LAST EDITED: OCT 12,1989 | ||
| − | HELP-PROMPT: Enter yes if medication orders written by this | + | HELP-[[PROMPT~|Prompt]]: Enter yes if medication orders written by this |
person must be cosigned by another provider of | person must be cosigned by another provider of | ||
care. | care. | ||
| Line 1,617: | Line 1,617: | ||
S DIC=DIE,X=+Y K:Y<0 X | S DIC=DIE,X=+Y K:Y<0 X | ||
LAST EDITED: OCT 12,1989 | LAST EDITED: OCT 12,1989 | ||
| − | HELP-PROMPT: Select cosigner. | + | HELP-[[PROMPT~|Prompt]]: Select cosigner. |
DESCRIPTION: This field is used to show the usual cosigner | DESCRIPTION: This field is used to show the usual cosigner | ||
for the provider. | for the provider. | ||
| Line 1,636: | Line 1,636: | ||
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X | INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X | ||
LAST EDITED: OCT 12,1989 | LAST EDITED: OCT 12,1989 | ||
| − | HELP-PROMPT: Enter remarks about this provider to be | + | HELP-[[PROMPT~|Prompt]]: Enter remarks about this provider to be |
displayed when s/he is selected during order | displayed when s/he is selected during order | ||
entry. | entry. | ||
Latest revision as of 12:22, 12 April 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: Sun May 22 19:23:21 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>; ^DIR
GTM>; ^%DT, ^%DTC, ^XLFDT
GTM>; ^DIC
GTM>; D EN^DDIOL -> "Silent Write"
GTM>zwrite ^DD(2,"ID",*)
GTM>zwrite ^DD(2,:,"ID",*)
^DD(2,0,"ID",.02)="W """""
^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),""/"",""-""),,""?$X+2"")"
^DD(2,0,"ID",.09)="D EN^DDIOL($$SSN^DPTLK1(Y),,""?$X+2"")"
^DD(2,0,"ID",.301)="W:$D(^(.3)) "" "",@(""$P($P($C(59)_$S($D(^DD(2,.301,0)):$P
(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(.3),U,1)_"""":"""",2),
$C(59),1)"")"
^DD(2,0,"ID",391)="S %I=Y,Y=$S('$D(^(""TYPE"")):"""",$D(^DG(391,+$P(^(""TYPE""),
U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(391,.01,0),U,2) D Y^DIQ:Y]"""
" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2,0,"ID",994)="I $$GET1^DIQ(2,Y_"","",994,""I"")=""Y"" D EN^DDIOL($$GET1^DIQ
(2,Y_"","",994),"""",""?$X+2"")"
^DD(2,0,"ID",1901)="W """""
^DD(2,0,"ID","AFJX NETWORK ID")="D EN^DDIOL($$GET1^DIQ(2,Y_"","",537025),"""",""
?0"")"
GTM>D EN^DDIOL("HELLO")
%GTM-E-GVNAKED, Illegal naked global reference
At M source location EN+3^DDIOL
GTM>ZG
GTM>D P^DI
MSC FileMan 22.1039
Identity = 9 COORDINATOR,FIVE FC IRM ANALYST
...OK? Yes// (Yes)
Select OPTION:
GTM>D EN^DDIOL("HELLO")
HELLO
GTM>S DIQUIET=1
GTM>D EN^DDIOL("HELLO")
GTM>ZWRITE ^TMP("DIMSG",*)
^TMP("DIMSG",12014,1)="HELLO"
GTM>;
GTM>; ----
GTM>; %RCR
GTM>ZWRITE ^DPT(1:2,*)
^DPT(1,0)="ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3
060511^^^^1"
^DPT(1,.11)="12 WAYLAND AVE^^^BROOKLYN^36^11234^70^^^^^11234^3050223.171822^VAMC
^050^^14"
^DPT(1,.121)="^^^^^^^^N"
^DPT(1,.13)="^"
^DPT(1,.24)="^^FRED,"
^DPT(1,.3)="N^^^^^^^^^^^"
^DPT(1,.31)="^^^^^^^^^^N"
^DPT(1,.311)="^^^^^^^^^^^^^^9"
^DPT(1,.32)="^^98"
^DPT(1,.36)="10^^000-00-3322^3322"
^DPT(1,1010)="3^^^^^^^^3050209.1618^RED^"
^DPT(1,"DIS",0)="^2.101DA^6949789.8382^1"
^DPT(1,"DIS",6949789.8382,0)="3050209.1618^0^3^2^9^^^^^1^5^^10^0^0"
^DPT(1,"DIS",6949789.8382,2)="N^^^N"
^DPT(1,"E",0)="^2.0361P^10^1"
^DPT(1,"E",10,0)="10^^000-00-3322^3322"
^DPT(1,"E","B",10,10)=""
^DPT(1,"LR")=2
^DPT(1,"MPI")="500000000^217407^67^1"
^DPT(1,"MPICMOR",0)="^2.0993A^1^1"
^DPT(1,"MPICMOR",1,0)="1^^^3060403.144632"
^DPT(1,"NAME")="74^^^^^23"
^DPT(1,"S",0)="^2.98P^3110119.094^5"
^DPT(1,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101024.000259"
^DPT(1,"S",3101025.103,0)="2^C^^^^^3^^^^^23^^3101004.2011^2^9^^23^3101004"
^DPT(1,"S",3101027.0845,0)="2^^^^^^3^^^^^^^^^9^^^3101004.201134"
^DPT(1,"S",3110106.0915,0)="4^^^^^^3^^^^^^^^^9^^^3110106.0906"
^DPT(1,"S",3110119.094,0)="3^^^^^^3^^^^^^^^^9^^^3110107.23301"
^DPT(1,"TYPE")=15
^DPT(1,"VET")="N"
^DPT(2,0)="ZZ PATIENT,TEST TWO^M^2571225^^7^^SAILOR^29^^Test patient only, pleas
e use to test, train^BOSTON^25^^^^^^^^1"
^DPT(2,.02,0)="^2.02P^12^1"
^DPT(2,.02,12,0)="12^1"
^DPT(2,.02,"B",12,12)=""
^DPT(2,.06,0)="^2.06PA^4^1"
^DPT(2,.06,4,0)="4^1"
^DPT(2,.06,"B",4,4)=""
^DPT(2,.11)="1234 Somewhere Lane^^^ALTON^20^67623^71^^^^^67623^3060106.110617^VA
MC^1^^63"
^DPT(2,.13)="888-555-1212^888-121-1212"
^DPT(2,.24)="PATIENT,GEORGE^PATIENT,MARTHA^WASHINGTON,"
^DPT(2,.3)="N^^^^^^^^^^^"
^DPT(2,.31)="^^^^^^^^^^N"
^DPT(2,.311)="^^^^^^^^^^^^^^3"
^DPT(2,.32)="^^98"
^DPT(2,.36)="10^^--"
^DPT(2,.38)="0^3050223.104"
^DPT(2,57)="^^^X"
^DPT(2,1010)="3^^^^^^^^3050223.1041^SM^"
^DPT(2,19900)="^^N"
^DPT(2,"DIS",0)="^2.101DA^6949775.8959^1"
^DPT(2,"DIS",6949775.8959,0)="3050223.1041^1^3^2^8^^^^^1^5^^10^0^0"
^DPT(2,"DIS",6949775.8959,2)="N^^^N"
^DPT(2,"E",0)="^2.0361P^10^1"
^DPT(2,"E",10,0)="10^^--^"
^DPT(2,"E","B",10,10)=""
^DPT(2,"LR")=1
^DPT(2,"MPI")="500000001^075322^67^1"
^DPT(2,"NAME")="75^^^21^22"
^DPT(2,"S",0)="^2.98P^3100123.09^1"
^DPT(2,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233412"
^DPT(2,"TYPE")=15
^DPT(2,"VET")="N"
GTM>M SAM=^DPT(1)
GTM>ZWRITE SAM
SAM(0)="ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060
511^^^^1"
SAM(.11)="12 WAYLAND AVE^^^BROOKLYN^36^11234^70^^^^^11234^3050223.171822^VAMC^05
0^^14"
SAM(.121)="^^^^^^^^N"
SAM(.13)="^"
SAM(.24)="^^FRED,"
SAM(.3)="N^^^^^^^^^^^"
SAM(.31)="^^^^^^^^^^N"
SAM(.311)="^^^^^^^^^^^^^^9"
SAM(.32)="^^98"
SAM(.36)="10^^000-00-3322^3322"
SAM(1010)="3^^^^^^^^3050209.1618^RED^"
SAM("DIS",0)="^2.101DA^6949789.8382^1"
SAM("DIS",6949789.8382,0)="3050209.1618^0^3^2^9^^^^^1^5^^10^0^0"
SAM("DIS",6949789.8382,2)="N^^^N"
SAM("E",0)="^2.0361P^10^1"
SAM("E",10,0)="10^^000-00-3322^3322"
SAM("E","B",10,10)=""
SAM("LR")=2
SAM("MPI")="500000000^217407^67^1"
SAM("MPICMOR",0)="^2.0993A^1^1"
SAM("MPICMOR",1,0)="1^^^3060403.144632"
SAM("NAME")="74^^^^^23"
SAM("S",0)="^2.98P^3110119.094^5"
SAM("S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101024.000259"
SAM("S",3101025.103,0)="2^C^^^^^3^^^^^23^^3101004.2011^2^9^^23^3101004"
SAM("S",3101027.0845,0)="2^^^^^^3^^^^^^^^^9^^^3101004.201134"
SAM("S",3110106.0915,0)="4^^^^^^3^^^^^^^^^9^^^3110106.0906"
SAM("S",3110119.094,0)="3^^^^^^3^^^^^^^^^9^^^3110107.23301"
SAM("TYPE")=15
SAM("VET")="N"
GTM>
GTM>; Printing API for Fileman
GTM>; Very powerful... has way way way too many options.
GTM>; EN1^DIP
GTM>S DIC=200,FLDS".01" D EN1^DIP
%GTM-E-EQUAL, Equal sign expected but not found
S DIC=200,FLDS".01" D EN1^DIP
^-----
GTM>S DIC=200,FLDS=".01" D EN1^DIP
Sort by: NAME//
Start with NAME: FIRST//
DEVICE: TELNET
NEW PERSON List MAY 23,2011@00:06 PAGE 1
NAME
--------------------------------------------------------------------------------
ADMINISTRATOR,SYSTEM
ANALYST,ONE
ANALYST,THREE
ANALYST,TWO
AUTHORIZER,IB MRA
CENTRAL,PAID
CLERK,EIGHT
CLERK,ELEVEN
CLERK,FIFTEEN
CLERK,FIVE
CLERK,FOUR
CLERK,FOURTEEN
CLERK,NINE
CLERK,ONE
CLERK,SEVEN
CLERK,SIX
NEW PERSON List MAY 23,2011@00:06 PAGE 2
NAME
--------------------------------------------------------------------------------
CLERK,TEN
CLERK,THIRTEEN
CLERK,THREE
CLERK,TWELVE
CLERK,TWO
COORDINATOR,CLINICAL
COORDINATOR,EIGHT
COORDINATOR,FIVE
COORDINATOR,FOUR
COORDINATOR,NINE
COORDINATOR,ONE
COORDINATOR,SEVEN
COORDINATOR,SIX
COORDINATOR,THREE
COORDINATOR,TWO
DOCTOR,EIGHT
^
GTM>S DIC=200,FLDS=".01" D EN1^DIP
Sort by: NAME// ^
GTM>S DIC=200,FLDS=".01",BY=".01" D EN1^DIP
Start with NAME: FIRST//
DEVICE: TELNET
NEW PERSON List MAY 23,2011@00:06 PAGE 1
NAME
--------------------------------------------------------------------------------
ADMINISTRATOR,SYSTEM
ANALYST,ONE
ANALYST,THREE
ANALYST,TWO
AUTHORIZER,IB MRA
CENTRAL,PAID
CLERK,EIGHT
CLERK,ELEVEN
CLERK,FIFTEEN
CLERK,FIVE
CLERK,FOUR
CLERK,FOURTEEN
CLERK,NINE
CLERK,ONE
CLERK,SEVEN
CLERK,SIX
^
GTM>S DIC=200,FLDS=".01",BY=".01",FR="C" D EN1^DIP
Go to NAME: LAST// ^
GTM>S DIC=200,FLDS=".01",BY=".01",FR="C",TO"ZZZ" D EN1^DIP
%GTM-E-EQUAL, Equal sign expected but not found
S DIC=200,FLDS=".01",BY=".01",FR="C",TO"ZZZ" D EN1^DIP
^-----
GTM>S DIC=200,FLDS=".01",BY=".01",FR="C",TO="ZZZ" D EN1^DIP
DEVICE: TELNET
NEW PERSON List MAY 23,2011@00:07 PAGE 1
NAME
--------------------------------------------------------------------------------
CENTRAL,PAID
CLERK,EIGHT
CLERK,ELEVEN
CLERK,FIFTEEN
CLERK,FIVE
CLERK,FOUR
CLERK,FOURTEEN
CLERK,NINE
CLERK,ONE
CLERK,SEVEN
CLERK,SIX
CLERK,TEN
CLERK,THIRTEEN
CLERK,THREE
CLERK,TWELVE
CLERK,TWO
^
GTM>S DIC=200,FLDS=".01",BY=".01",FR="C",TO="ZZZ",IOP=0 D EN1^DIP
NEW PERSON List MAY 23,2011@00:07 PAGE 1
NAME
--------------------------------------------------------------------------------
CENTRAL,PAID
CLERK,EIGHT
CLERK,ELEVEN
CLERK,FIFTEEN
CLERK,FIVE
CLERK,FOUR
CLERK,FOURTEEN
CLERK,NINE
GTM>;
GTM>; ^DIE -> Edit File Entries
GTM>; ^DIC -> Looks up or ADDS new entries.
GTM>; Expects at least 3 variables
GTM>; DA array -> [[Record~|Record]] Number/IEN
GTM>; DIE -> File Root or Number
GTM>; DR -> Fields to Edit
GTM>S DA=9
GTM>S DIE="^VA(200,"
GTM>S DR="53.1"
GTM>D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES// NO??
Enter '1' or 'Yes' if provider is authorized to write orders.
Choose from:
1 YES
AUTHORIZED TO WRITE MED ORDERS: YES// @
SURE YOU WANT TO DELETE? Y (Yes)
GTM>S DR="53.1;53.2"
GTM>D ^DIE
AUTHORIZED TO WRITE MED ORDERS: Y YES
DEA#: DD1234563//
GTM>S DR="53.1:999999"
GTM>D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
DEA#: DD1234563//
VA#: 5387//
INACTIVE DATE:
PROVIDER CLASS: PHYSICIAN//
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
USUAL COSIGNER: ^
GTM>;
GTM>; Using ^DIE from the API does NOT do any locking.
GTM>D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
DEA#: DD1234563//
%GTM-I-CTRLC, CTRL_C encountered
GTM>zshow "L"
MLG:0,MLT:0
GTM>zc
^
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: ENTER OR EDIT FILE ENTRIES
Input to what File: NEW PERSON// (81 entries)
EDIT WHICH FIELD: ALL// 53.1:99999??
EDIT WHICH FIELD: ALL// 53.1 AUTHORIZED TO WRITE MED ORDERS
THEN EDIT FIELD:
Select NEW PERSON NAME: DOCTOR,TEN Physician
AUTHORIZED TO WRITE MED ORDERS: YES//
%GTM-I-CTRLC, CTRL_C encountered
GTM>ZSHOW "L"
MLG:1,MLT:0
LOCK ^VA(200,23) LEVEL=1
GTM>ZC
Select NEW PERSON NAME:
Select OPTION:
GTM>; ^DIE with Subfiles...
GTM>; DIE has to specify the exact location of the subfile you are editing.
GTM>; DA has to specify the subfile entry plus the parent entry (IENs) of the fi
le
GTM>zwrite ^DPT(3,"S",*)
^DPT(3,"S",0)="^2.98P^3110316.0108^73"
^DPT(3,"S",3100111.0815,0)="2^^^^^^3^^^^^^^^^9^^^3100114.092542"
^DPT(3,"S",3100111.09,0)="2^C^^^^^3^^^^^23^^3100114.0925^10^9^^23^3100113"
^DPT(3,"S",3100111.1,0)="2^^^^^^3^^^^^^^^^9^^^3100113.084626"
^DPT(3,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233802"
^DPT(3,"S",3100919.09,0)="1^^^^^^3^^^^^^^^^9^^^3100916.102431"
^DPT(3,"S",3100920.0845,0)="2^C^^^^^3^^^^^23^^3100915.1814^10^9^^23^3100915"
^DPT(3,"S",3100920.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202231"
^DPT(3,"S",3100920.093,0)="2^^^^^^3^^^^^^^^^9^^^3100915.184746"
^DPT(3,"S",3100920.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195028"
^DPT(3,"S",3100920.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202222"
^DPT(3,"S",3100920.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202305"
^DPT(3,"S",3100920.1045,0)="2^C^^^^^3^^^^^23^^3100915.2024^11^9^^23^3100915"
^DPT(3,"S",3100921.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.20241"
^DPT(3,"S",3100922.0845,0)="2^^^^^^3^^^^^^^^^9^^^3100915.185524"
^DPT(3,"S",3100922.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195408"
^DPT(3,"S",3100922.093,0)="2^C^^^^^3^^^^^23^^3100915.1817^10^9^^23^3100915"
^DPT(3,"S",3100922.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195343"
^DPT(3,"S",3100922.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202448"
^DPT(3,"S",3100922.1015,0)="2^C^^^^^3^^^^^23^^3100915.2021^11^9^^23^3100915"
^DPT(3,"S",3100922.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202156"
^DPT(3,"S",3101206.0256,0)="2^^^^^^3^^^^^^^^^9^^^3101206.025656"
^DPT(3,"S",3101206.0304,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030416"
^DPT(3,"S",3101206.0305,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030527"
^DPT(3,"S",3101206.0307,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030706"
^DPT(3,"S",3101206.0647,0)="2^N^^^^^3^^^^^23^^3101206.064737^^9^^^3101206.064737
"
^DPT(3,"S",3101206.0728,0)="2^N^^^^^3^^^^^9^^3101206.07283^^9^^^3101206.07283"
^DPT(3,"S",3101206.0731,0)="2^N^^^^^3^^^^^9^^3101206.073128^^9^^^3101206.073128"
^DPT(3,"S",3101206.0737,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073703"
^DPT(3,"S",3101206.0739,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073955"
^DPT(3,"S",3101206.074,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074"
^DPT(3,"S",3101206.0741,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074104"
^DPT(3,"S",3101206.0742,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074205"
^DPT(3,"S",3101206.0744,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074408"
^DPT(3,"S",3101206.0802,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080222"
^DPT(3,"S",3101206.0803,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080332"
^DPT(3,"S",3101206.0814,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081415"
^DPT(3,"S",3101206.0816,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081658"
^DPT(3,"S",3101206.0817,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081704"
^DPT(3,"S",3101206.0818,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081816"
^DPT(3,"S",3101206.1156,0)="2^^^^^^3^^^^^^^^^9^^^3101206.11562"
^DPT(3,"S",3101206.1219,0)="2^N^^^^^3^^^^^11^^3101206.121901^^9^^^3101206.121901
"
^DPT(3,"S",3101206.1221,0)="2^^^^^^3^^^^^^^^^9^^^3101206.12211"
^DPT(3,"S",3101206.1227,0)="2^N^^^^^3^^^^^11^^3101206.122759^^9^^^3101206.122759
"
^DPT(3,"S",3101206.1248,0)="2^N^^^^^3^^^^^11^^3101206.124839^^9^^^3101206.124839
"
^DPT(3,"S",3110106.093,0)="4^^^^^^4^^^^^^^^^9^^^3110106.090646"
^DPT(3,"S",3110117.09,0)="4^^^^^^3^^^^^^^^^9^^^3110107.21535"
^DPT(3,"S",3110123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101031.093646"
^DPT(3,"S",3110123.093,0)="2^^^^^^3^^^^^^^^^9^^^3101031.101933"
^DPT(3,"S",3110123.094,0)="2^PC^^^^^3^^^^^9^^3101031.1043^1^9^^9^3101031"
^DPT(3,"S",3110123.094,"R")="Sam's Reason"
^DPT(3,"S",3110315.2237,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22374"
^DPT(3,"S",3110315.2239,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22393"
^DPT(3,"S",3110315.2255,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225509"
^DPT(3,"S",3110315.2257,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225708"
^DPT(3,"S",3110315.2301,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230147"
^DPT(3,"S",3110315.2304,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230434"
^DPT(3,"S",3110315.2306,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230605"
^DPT(3,"S",3110315.2311,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231109"
^DPT(3,"S",3110315.2313,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231309"
^DPT(3,"S",3110315.2314,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231404"
^DPT(3,"S",3110315.2316,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231619"
^DPT(3,"S",3110315.2318,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231855"
^DPT(3,"S",3110315.2319,0)="2^^^^^^3^^^^^^^^^9^^^3110315.23194"
^DPT(3,"S",3110315.2323,0)="2^^^^^^3^^^^^^^^^9^^^3110315.232313"
^DPT(3,"S",3110316.0024,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002426"
^DPT(3,"S",3110316.0026,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002607"
^DPT(3,"S",3110316.0028,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002807"
^DPT(3,"S",3110316.0047,0)="2^^^^^^3^^^^^^^^^9^^^3110316.004734"
^DPT(3,"S",3110316.0052,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005214"
^DPT(3,"S",3110316.0054,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005402"
^DPT(3,"S",3110316.0059,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005944"
^DPT(3,"S",3110316.0102,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010238"
^DPT(3,"S",3110316.0106,0)="2^^^^^^3^^^^^^^^^9^^^3110316.01063"
^DPT(3,"S",3110316.0108,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010813"
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: INQUIRE TO FILE ENTRIES
Output from what File: NEW PERSON// 2 PATIENT (24 entries)
Select PATIENT NAME: `3
ZZ PATIENT,TEST THREE <CA> M 01-15-1968 3
Another one:
Standard Captioned Output? Yes// N (No)
First Print FIELD: APPOIN
1 APPOINTMENT (multiple)
2 APPOINTMENT REQUEST DATE
3 APPOINTMENT REQUEST ON 1010EZ
CHOOSE 1-3: 1 APPOINTMENT (multiple)
First Print APPOINTMENT SUB-FIELD: .01 CLINIC
Then Print APPOINTMENT SUB-FIELD: .02 TELEPHONE OF CLINIC
Then Print APPOINTMENT SUB-FIELD:
Then Print FIELD:
Heading (S/C): PATIENT List//
STORE PRINT LOGIC IN TEMPLATE:
DEVICE: ;;99 TELNET
PATIENT List MAY 23,2011@00:24 PAGE 1
TELEPHONE OF
CLINIC CLINIC
--------------------------------------------------------------------------------
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
LAB DIV 050 OOS ID 108
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
EXAMPLE CLINIC 888999999
EXAMPLE CLINIC 888999999
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
DR OFFICE
Select OPTION:
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: INQUIRE TO FILE ENTRIES
Output from what File: PATIENT// (24 entries)
Select PATIENT NAME:
ZZ PATIENT,TEST THREE <CA> M 01-15-1968 3
Another one:
Standard Captioned Output? Yes// N (No)
First Print FIELD: APP
1 APPOINTMENT (multiple)
2 APPOINTMENT REQUEST DATE
3 APPOINTMENT REQUEST ON 1010EZ
CHOOSE 1-3: 1 APPOINTMENT (multiple)
First Print APPOINTMENT SUB-FIELD: .001 APPOINTMENT DATE/TIME
Then Print APPOINTMENT SUB-FIELD: .01 CLINIC
Then Print APPOINTMENT SUB-FIELD:
Then Print FIELD:
Heading (S/C): PATIENT List//
STORE PRINT LOGIC IN TEMPLATE:
DEVICE: ;;99 TELNET
PATIENT List MAY 23,2011@00:25 PAGE 1
APPOINTMENT
DATE/TIME CLINIC
--------------------------------------------------------------------------------
JAN 11,2010@08:15 DR OFFICE
JAN 11,2010@09:00 DR OFFICE
JAN 11,2010@10:00 DR OFFICE
JAN 23,2010@09:00 DR OFFICE
SEP 19,2010@09:00 LAB DIV 050 OOS ID 108
SEP 20,2010@08:45 DR OFFICE
SEP 20,2010@09:15 DR OFFICE
SEP 20,2010@09:30 DR OFFICE
SEP 20,2010@09:45 DR OFFICE
SEP 20,2010@10:00 DR OFFICE
SEP 20,2010@10:30 DR OFFICE
SEP 20,2010@10:45 DR OFFICE
SEP 21,2010@10:30 DR OFFICE
SEP 22,2010@08:45 DR OFFICE
SEP 22,2010@09:15 DR OFFICE
SEP 22,2010@09:30 DR OFFICE
SEP 22,2010@09:45 DR OFFICE
SEP 22,2010@10:00 DR OFFICE
SEP 22,2010@10:15 DR OFFICE
SEP 22,2010@10:45 DR OFFICE
DEC 6,2010@02:56 DR OFFICE
DEC 6,2010@03:04 DR OFFICE
DEC 6,2010@03:05 DR OFFICE
DEC 6,2010@03:07 DR OFFICE
DEC 6,2010@06:47 DR OFFICE
DEC 6,2010@07:28 DR OFFICE
DEC 6,2010@07:31 DR OFFICE
DEC 6,2010@07:37 DR OFFICE
DEC 6,2010@07:39 DR OFFICE
DEC 6,2010@07:40 DR OFFICE
DEC 6,2010@07:41 DR OFFICE
DEC 6,2010@07:42 DR OFFICE
DEC 6,2010@07:44 DR OFFICE
DEC 6,2010@08:02 DR OFFICE
DEC 6,2010@08:03 DR OFFICE
DEC 6,2010@08:14 DR OFFICE
DEC 6,2010@08:16 DR OFFICE
DEC 6,2010@08:17 DR OFFICE
DEC 6,2010@08:18 DR OFFICE
DEC 6,2010@11:56 DR OFFICE
DEC 6,2010@12:19 DR OFFICE
DEC 6,2010@12:21 DR OFFICE
DEC 6,2010@12:27 DR OFFICE
DEC 6,2010@12:48 DR OFFICE
JAN 6,2011@09:30 EXAMPLE CLINIC
JAN 17,2011@09:00 EXAMPLE CLINIC
JAN 23,2011@09:00 DR OFFICE
JAN 23,2011@09:30 DR OFFICE
JAN 23,2011@09:40 DR OFFICE
MAR 15,2011@22:37 DR OFFICE
MAR 15,2011@22:39 DR OFFICE
MAR 15,2011@22:55 DR OFFICE
MAR 15,2011@22:57 DR OFFICE
MAR 15,2011@23:01 DR OFFICE
MAR 15,2011@23:04 DR OFFICE
MAR 15,2011@23:06 DR OFFICE
MAR 15,2011@23:11 DR OFFICE
MAR 15,2011@23:13 DR OFFICE
MAR 15,2011@23:14 DR OFFICE
MAR 15,2011@23:16 DR OFFICE
MAR 15,2011@23:18 DR OFFICE
MAR 15,2011@23:19 DR OFFICE
MAR 15,2011@23:23 DR OFFICE
MAR 16,2011@00:24 DR OFFICE
MAR 16,2011@00:26 DR OFFICE
MAR 16,2011@00:28 DR OFFICE
MAR 16,2011@00:47 DR OFFICE
MAR 16,2011@00:52 DR OFFICE
MAR 16,2011@00:54 DR OFFICE
MAR 16,2011@00:59 DR OFFICE
MAR 16,2011@01:02 DR OFFICE
MAR 16,2011@01:06 DR OFFICE
MAR 16,2011@01:08 DR OFFICE
Select OPTION:
GTM>zwrite ^DPT(3,"S",*)
^DPT(3,"S",0)="^2.98P^3110316.0108^73"
^DPT(3,"S",3100111.0815,0)="2^^^^^^3^^^^^^^^^9^^^3100114.092542"
^DPT(3,"S",3100111.09,0)="2^C^^^^^3^^^^^23^^3100114.0925^10^9^^23^3100113"
^DPT(3,"S",3100111.1,0)="2^^^^^^3^^^^^^^^^9^^^3100113.084626"
^DPT(3,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233802"
^DPT(3,"S",3100919.09,0)="1^^^^^^3^^^^^^^^^9^^^3100916.102431"
^DPT(3,"S",3100920.0845,0)="2^C^^^^^3^^^^^23^^3100915.1814^10^9^^23^3100915"
^DPT(3,"S",3100920.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202231"
^DPT(3,"S",3100920.093,0)="2^^^^^^3^^^^^^^^^9^^^3100915.184746"
^DPT(3,"S",3100920.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195028"
^DPT(3,"S",3100920.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202222"
^DPT(3,"S",3100920.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202305"
^DPT(3,"S",3100920.1045,0)="2^C^^^^^3^^^^^23^^3100915.2024^11^9^^23^3100915"
^DPT(3,"S",3100921.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.20241"
^DPT(3,"S",3100922.0845,0)="2^^^^^^3^^^^^^^^^9^^^3100915.185524"
^DPT(3,"S",3100922.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195408"
^DPT(3,"S",3100922.093,0)="2^C^^^^^3^^^^^23^^3100915.1817^10^9^^23^3100915"
^DPT(3,"S",3100922.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195343"
^DPT(3,"S",3100922.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202448"
^DPT(3,"S",3100922.1015,0)="2^C^^^^^3^^^^^23^^3100915.2021^11^9^^23^3100915"
^DPT(3,"S",3100922.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202156"
^DPT(3,"S",3101206.0256,0)="2^^^^^^3^^^^^^^^^9^^^3101206.025656"
^DPT(3,"S",3101206.0304,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030416"
^DPT(3,"S",3101206.0305,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030527"
^DPT(3,"S",3101206.0307,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030706"
^DPT(3,"S",3101206.0647,0)="2^N^^^^^3^^^^^23^^3101206.064737^^9^^^3101206.064737
"
^DPT(3,"S",3101206.0728,0)="2^N^^^^^3^^^^^9^^3101206.07283^^9^^^3101206.07283"
^DPT(3,"S",3101206.0731,0)="2^N^^^^^3^^^^^9^^3101206.073128^^9^^^3101206.073128"
^DPT(3,"S",3101206.0737,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073703"
^DPT(3,"S",3101206.0739,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073955"
^DPT(3,"S",3101206.074,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074"
^DPT(3,"S",3101206.0741,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074104"
^DPT(3,"S",3101206.0742,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074205"
^DPT(3,"S",3101206.0744,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074408"
^DPT(3,"S",3101206.0802,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080222"
^DPT(3,"S",3101206.0803,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080332"
^DPT(3,"S",3101206.0814,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081415"
^DPT(3,"S",3101206.0816,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081658"
^DPT(3,"S",3101206.0817,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081704"
^DPT(3,"S",3101206.0818,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081816"
^DPT(3,"S",3101206.1156,0)="2^^^^^^3^^^^^^^^^9^^^3101206.11562"
^DPT(3,"S",3101206.1219,0)="2^N^^^^^3^^^^^11^^3101206.121901^^9^^^3101206.121901
"
^DPT(3,"S",3101206.1221,0)="2^^^^^^3^^^^^^^^^9^^^3101206.12211"
^DPT(3,"S",3101206.1227,0)="2^N^^^^^3^^^^^11^^3101206.122759^^9^^^3101206.122759
"
^DPT(3,"S",3101206.1248,0)="2^N^^^^^3^^^^^11^^3101206.124839^^9^^^3101206.124839
"
^DPT(3,"S",3110106.093,0)="4^^^^^^4^^^^^^^^^9^^^3110106.090646"
^DPT(3,"S",3110117.09,0)="4^^^^^^3^^^^^^^^^9^^^3110107.21535"
^DPT(3,"S",3110123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101031.093646"
^DPT(3,"S",3110123.093,0)="2^^^^^^3^^^^^^^^^9^^^3101031.101933"
^DPT(3,"S",3110123.094,0)="2^PC^^^^^3^^^^^9^^3101031.1043^1^9^^9^3101031"
^DPT(3,"S",3110123.094,"R")="Sam's Reason"
^DPT(3,"S",3110315.2237,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22374"
^DPT(3,"S",3110315.2239,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22393"
^DPT(3,"S",3110315.2255,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225509"
^DPT(3,"S",3110315.2257,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225708"
^DPT(3,"S",3110315.2301,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230147"
^DPT(3,"S",3110315.2304,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230434"
^DPT(3,"S",3110315.2306,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230605"
^DPT(3,"S",3110315.2311,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231109"
^DPT(3,"S",3110315.2313,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231309"
^DPT(3,"S",3110315.2314,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231404"
^DPT(3,"S",3110315.2316,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231619"
^DPT(3,"S",3110315.2318,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231855"
^DPT(3,"S",3110315.2319,0)="2^^^^^^3^^^^^^^^^9^^^3110315.23194"
^DPT(3,"S",3110315.2323,0)="2^^^^^^3^^^^^^^^^9^^^3110315.232313"
^DPT(3,"S",3110316.0024,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002426"
^DPT(3,"S",3110316.0026,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002607"
^DPT(3,"S",3110316.0028,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002807"
^DPT(3,"S",3110316.0047,0)="2^^^^^^3^^^^^^^^^9^^^3110316.004734"
^DPT(3,"S",3110316.0052,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005214"
^DPT(3,"S",3110316.0054,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005402"
^DPT(3,"S",3110316.0059,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005944"
^DPT(3,"S",3110316.0102,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010238"
^DPT(3,"S",3110316.0106,0)="2^^^^^^3^^^^^^^^^9^^^3110316.01063"
^DPT(3,"S",3110316.0108,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010813"
GTM>S DA(1)=3,DA=3110316.0108
GTM>S DIE="^DPT("_DA(1)_",""S"",3110316.0108,"
GTM>W DIE
^DPT(3,"S",3110316.0108,
GTM>S DR=".01"
GTM>D ^DIE
LABEL: ??
LABEL: ??
LABEL: ?
LABEL: TEST
GTM>zwrite ^DPT(3,"S",*)
^DPT(3,"S",0)="^2.98P^3110316.0108^73"
^DPT(3,"S",3100111.0815,0)="2^^^^^^3^^^^^^^^^9^^^3100114.092542"
^DPT(3,"S",3100111.09,0)="2^C^^^^^3^^^^^23^^3100114.0925^10^9^^23^3100113"
^DPT(3,"S",3100111.1,0)="2^^^^^^3^^^^^^^^^9^^^3100113.084626"
^DPT(3,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233802"
^DPT(3,"S",3100919.09,0)="1^^^^^^3^^^^^^^^^9^^^3100916.102431"
^DPT(3,"S",3100920.0845,0)="2^C^^^^^3^^^^^23^^3100915.1814^10^9^^23^3100915"
^DPT(3,"S",3100920.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202231"
^DPT(3,"S",3100920.093,0)="2^^^^^^3^^^^^^^^^9^^^3100915.184746"
^DPT(3,"S",3100920.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195028"
^DPT(3,"S",3100920.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202222"
^DPT(3,"S",3100920.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202305"
^DPT(3,"S",3100920.1045,0)="2^C^^^^^3^^^^^23^^3100915.2024^11^9^^23^3100915"
^DPT(3,"S",3100921.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.20241"
^DPT(3,"S",3100922.0845,0)="2^^^^^^3^^^^^^^^^9^^^3100915.185524"
^DPT(3,"S",3100922.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195408"
^DPT(3,"S",3100922.093,0)="2^C^^^^^3^^^^^23^^3100915.1817^10^9^^23^3100915"
^DPT(3,"S",3100922.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195343"
^DPT(3,"S",3100922.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202448"
^DPT(3,"S",3100922.1015,0)="2^C^^^^^3^^^^^23^^3100915.2021^11^9^^23^3100915"
^DPT(3,"S",3100922.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202156"
^DPT(3,"S",3101206.0256,0)="2^^^^^^3^^^^^^^^^9^^^3101206.025656"
^DPT(3,"S",3101206.0304,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030416"
^DPT(3,"S",3101206.0305,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030527"
^DPT(3,"S",3101206.0307,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030706"
^DPT(3,"S",3101206.0647,0)="2^N^^^^^3^^^^^23^^3101206.064737^^9^^^3101206.064737
"
^DPT(3,"S",3101206.0728,0)="2^N^^^^^3^^^^^9^^3101206.07283^^9^^^3101206.07283"
^DPT(3,"S",3101206.0731,0)="2^N^^^^^3^^^^^9^^3101206.073128^^9^^^3101206.073128"
^DPT(3,"S",3101206.0737,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073703"
^DPT(3,"S",3101206.0739,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073955"
^DPT(3,"S",3101206.074,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074"
^DPT(3,"S",3101206.0741,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074104"
^DPT(3,"S",3101206.0742,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074205"
^DPT(3,"S",3101206.0744,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074408"
^DPT(3,"S",3101206.0802,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080222"
^DPT(3,"S",3101206.0803,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080332"
^DPT(3,"S",3101206.0814,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081415"
^DPT(3,"S",3101206.0816,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081658"
^DPT(3,"S",3101206.0817,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081704"
^DPT(3,"S",3101206.0818,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081816"
^DPT(3,"S",3101206.1156,0)="2^^^^^^3^^^^^^^^^9^^^3101206.11562"
^DPT(3,"S",3101206.1219,0)="2^N^^^^^3^^^^^11^^3101206.121901^^9^^^3101206.121901
"
^DPT(3,"S",3101206.1221,0)="2^^^^^^3^^^^^^^^^9^^^3101206.12211"
^DPT(3,"S",3101206.1227,0)="2^N^^^^^3^^^^^11^^3101206.122759^^9^^^3101206.122759
"
^DPT(3,"S",3101206.1248,0)="2^N^^^^^3^^^^^11^^3101206.124839^^9^^^3101206.124839
"
^DPT(3,"S",3110106.093,0)="4^^^^^^4^^^^^^^^^9^^^3110106.090646"
^DPT(3,"S",3110117.09,0)="4^^^^^^3^^^^^^^^^9^^^3110107.21535"
^DPT(3,"S",3110123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101031.093646"
^DPT(3,"S",3110123.093,0)="2^^^^^^3^^^^^^^^^9^^^3101031.101933"
^DPT(3,"S",3110123.094,0)="2^PC^^^^^3^^^^^9^^3101031.1043^1^9^^9^3101031"
^DPT(3,"S",3110123.094,"R")="Sam's Reason"
^DPT(3,"S",3110315.2237,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22374"
^DPT(3,"S",3110315.2239,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22393"
^DPT(3,"S",3110315.2255,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225509"
^DPT(3,"S",3110315.2257,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225708"
^DPT(3,"S",3110315.2301,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230147"
^DPT(3,"S",3110315.2304,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230434"
^DPT(3,"S",3110315.2306,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230605"
^DPT(3,"S",3110315.2311,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231109"
^DPT(3,"S",3110315.2313,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231309"
^DPT(3,"S",3110315.2314,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231404"
^DPT(3,"S",3110315.2316,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231619"
^DPT(3,"S",3110315.2318,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231855"
^DPT(3,"S",3110315.2319,0)="2^^^^^^3^^^^^^^^^9^^^3110315.23194"
^DPT(3,"S",3110315.2323,0)="2^^^^^^3^^^^^^^^^9^^^3110315.232313"
^DPT(3,"S",3110316.0024,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002426"
^DPT(3,"S",3110316.0026,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002607"
^DPT(3,"S",3110316.0028,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002807"
^DPT(3,"S",3110316.0047,0)="2^^^^^^3^^^^^^^^^9^^^3110316.004734"
^DPT(3,"S",3110316.0052,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005214"
^DPT(3,"S",3110316.0054,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005402"
^DPT(3,"S",3110316.0059,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005944"
^DPT(3,"S",3110316.0102,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010238"
^DPT(3,"S",3110316.0106,0)="2^^^^^^3^^^^^^^^^9^^^3110316.01063"
^DPT(3,"S",3110316.0108,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010813"
^DPT(3,"S",3110316.0108,3110316.0108,0)="TEST"
^DPT(3,"S",3110316.0108,"B","TEST",3110316.0108)=""
GTM>S DIE="^DPT("_DA(1)_",""S"","
GTM>S DA(1)=3,DA=3110316.0108
GTM>S DR=".01"
GTM>D ^DIE
CLINIC: DR OFFICE// EXAMPLE CLINIC DOCTOR,TEN
GTM>zwrite ^DPT(3,"S",*)
^DPT(3,"S",0)="^2.98P^3110316.0108^73"
^DPT(3,"S",3100111.0815,0)="2^^^^^^3^^^^^^^^^9^^^3100114.092542"
^DPT(3,"S",3100111.09,0)="2^C^^^^^3^^^^^23^^3100114.0925^10^9^^23^3100113"
^DPT(3,"S",3100111.1,0)="2^^^^^^3^^^^^^^^^9^^^3100113.084626"
^DPT(3,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233802"
^DPT(3,"S",3100919.09,0)="1^^^^^^3^^^^^^^^^9^^^3100916.102431"
^DPT(3,"S",3100920.0845,0)="2^C^^^^^3^^^^^23^^3100915.1814^10^9^^23^3100915"
^DPT(3,"S",3100920.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202231"
^DPT(3,"S",3100920.093,0)="2^^^^^^3^^^^^^^^^9^^^3100915.184746"
^DPT(3,"S",3100920.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195028"
^DPT(3,"S",3100920.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202222"
^DPT(3,"S",3100920.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202305"
^DPT(3,"S",3100920.1045,0)="2^C^^^^^3^^^^^23^^3100915.2024^11^9^^23^3100915"
^DPT(3,"S",3100921.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.20241"
^DPT(3,"S",3100922.0845,0)="2^^^^^^3^^^^^^^^^9^^^3100915.185524"
^DPT(3,"S",3100922.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195408"
^DPT(3,"S",3100922.093,0)="2^C^^^^^3^^^^^23^^3100915.1817^10^9^^23^3100915"
^DPT(3,"S",3100922.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195343"
^DPT(3,"S",3100922.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202448"
^DPT(3,"S",3100922.1015,0)="2^C^^^^^3^^^^^23^^3100915.2021^11^9^^23^3100915"
^DPT(3,"S",3100922.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202156"
^DPT(3,"S",3101206.0256,0)="2^^^^^^3^^^^^^^^^9^^^3101206.025656"
^DPT(3,"S",3101206.0304,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030416"
^DPT(3,"S",3101206.0305,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030527"
^DPT(3,"S",3101206.0307,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030706"
^DPT(3,"S",3101206.0647,0)="2^N^^^^^3^^^^^23^^3101206.064737^^9^^^3101206.064737
"
^DPT(3,"S",3101206.0728,0)="2^N^^^^^3^^^^^9^^3101206.07283^^9^^^3101206.07283"
^DPT(3,"S",3101206.0731,0)="2^N^^^^^3^^^^^9^^3101206.073128^^9^^^3101206.073128"
^DPT(3,"S",3101206.0737,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073703"
^DPT(3,"S",3101206.0739,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073955"
^DPT(3,"S",3101206.074,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074"
^DPT(3,"S",3101206.0741,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074104"
^DPT(3,"S",3101206.0742,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074205"
^DPT(3,"S",3101206.0744,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074408"
^DPT(3,"S",3101206.0802,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080222"
^DPT(3,"S",3101206.0803,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080332"
^DPT(3,"S",3101206.0814,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081415"
^DPT(3,"S",3101206.0816,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081658"
^DPT(3,"S",3101206.0817,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081704"
^DPT(3,"S",3101206.0818,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081816"
^DPT(3,"S",3101206.1156,0)="2^^^^^^3^^^^^^^^^9^^^3101206.11562"
^DPT(3,"S",3101206.1219,0)="2^N^^^^^3^^^^^11^^3101206.121901^^9^^^3101206.121901
"
^DPT(3,"S",3101206.1221,0)="2^^^^^^3^^^^^^^^^9^^^3101206.12211"
^DPT(3,"S",3101206.1227,0)="2^N^^^^^3^^^^^11^^3101206.122759^^9^^^3101206.122759
"
^DPT(3,"S",3101206.1248,0)="2^N^^^^^3^^^^^11^^3101206.124839^^9^^^3101206.124839
"
^DPT(3,"S",3110106.093,0)="4^^^^^^4^^^^^^^^^9^^^3110106.090646"
^DPT(3,"S",3110117.09,0)="4^^^^^^3^^^^^^^^^9^^^3110107.21535"
^DPT(3,"S",3110123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101031.093646"
^DPT(3,"S",3110123.093,0)="2^^^^^^3^^^^^^^^^9^^^3101031.101933"
^DPT(3,"S",3110123.094,0)="2^PC^^^^^3^^^^^9^^3101031.1043^1^9^^9^3101031"
^DPT(3,"S",3110123.094,"R")="Sam's Reason"
^DPT(3,"S",3110315.2237,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22374"
^DPT(3,"S",3110315.2239,0)="2^^^^^^3^^^^^^^^^9^^^3110315.22393"
^DPT(3,"S",3110315.2255,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225509"
^DPT(3,"S",3110315.2257,0)="2^^^^^^3^^^^^^^^^9^^^3110315.225708"
^DPT(3,"S",3110315.2301,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230147"
^DPT(3,"S",3110315.2304,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230434"
^DPT(3,"S",3110315.2306,0)="2^^^^^^3^^^^^^^^^9^^^3110315.230605"
^DPT(3,"S",3110315.2311,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231109"
^DPT(3,"S",3110315.2313,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231309"
^DPT(3,"S",3110315.2314,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231404"
^DPT(3,"S",3110315.2316,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231619"
^DPT(3,"S",3110315.2318,0)="2^^^^^^3^^^^^^^^^9^^^3110315.231855"
^DPT(3,"S",3110315.2319,0)="2^^^^^^3^^^^^^^^^9^^^3110315.23194"
^DPT(3,"S",3110315.2323,0)="2^^^^^^3^^^^^^^^^9^^^3110315.232313"
^DPT(3,"S",3110316.0024,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002426"
^DPT(3,"S",3110316.0026,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002607"
^DPT(3,"S",3110316.0028,0)="2^^^^^^3^^^^^^^^^9^^^3110316.002807"
^DPT(3,"S",3110316.0047,0)="2^^^^^^3^^^^^^^^^9^^^3110316.004734"
^DPT(3,"S",3110316.0052,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005214"
^DPT(3,"S",3110316.0054,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005402"
^DPT(3,"S",3110316.0059,0)="2^^^^^^3^^^^^^^^^9^^^3110316.005944"
^DPT(3,"S",3110316.0102,0)="2^^^^^^3^^^^^^^^^9^^^3110316.010238"
^DPT(3,"S",3110316.0106,0)="2^^^^^^3^^^^^^^^^9^^^3110316.01063"
^DPT(3,"S",3110316.0108,0)="4^^^^^^3^^^^^^^^^9^^^3110316.010813"
^DPT(3,"S",3110316.0108,3110316.0108,0)="TEST"
^DPT(3,"S",3110316.0108,"B","TEST",3110316.0108)=""
GTM>ZED "BSDXAPI"
GTM>S ^DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
GTM>W ^DUE
%GTM-E-GVUNDEF, Global variable undefined: ^DUE
GTM>W ^DIE
^VA(200,
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: ?
Answer with OPTION NUMBER, or NAME
Choose from:
1 ENTER OR EDIT FILE ENTRIES
2 PRINT FILE ENTRIES
3 SEARCH FILE ENTRIES
4 MODIFY FILE ATTRIBUTES
5 INQUIRE TO FILE ENTRIES
6 UTILITY FUNCTIONS
7 OTHER OPTIONS
8 DATA DICTIONARY UTILITIES
9 TRANSFER ENTRIES
Select OPTION: 8 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: 3 CHECK/FIX DD STRUCTURE
Check the Data Dictionary.
Note: Messages that begin with an asterisk(*) can NOT be corrected and
will need careful evaluation by software development!
START WITH What File: PATIENT// INPUT ??
START WITH What File: PATIENT// IN
1 INCOME PERSON (1 entry)
2 INCOME RELATION (13 entries)
3 INCOMPLETE PSYCH TEST PATIENT (0 entries)
4 INCOMPLETE [[RECORD~|Record]]S (0 entries)
5 INCONSISTENT DATA (42 entries)
Press <Enter> to see more, '^' to exit this list, OR
CHOOSE 1-5:
6 INCONSISTENT DATA ELEMENTS (141 entries)
7 INDEXING SOURCES (79 entries)
8 INDICATION (60 entries)
9 INDICATOR (245 entries)
10 INDIVIDUAL ANNUAL INCOME (13 entries)
Press <Enter> to see more, '^' to exit this list, OR
CHOOSE 1-10:
11 INDIVIDUAL DONOR (0 entries)
12 INGREDIENT (1012 entries)
13 INPATIENT BACKGROUND JOB (0 entries)
14 INPATIENT CPT CODE (0 entries)
15 INPATIENT DIAGNOSIS (0 entries)
Press <Enter> to see more, '^' to exit this list, OR
CHOOSE 1-15: ^
Select DATA DICTIONARY UTILITY OPTION: CHECK/FIX DD STRUCTURE
Check the Data Dictionary.
Note: Messages that begin with an asterisk(*) can NOT be corrected and
will need careful evaluation by software development!
START WITH What File: PATIENT// INPUT TEM ??
START WITH What File: PATIENT// INPUT ??
START WITH What File: PATIENT// ^
Select DATA DICTIONARY UTILITY OPTION:
Select OPTION:
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
GTM>S DIE="^VA(200,",DA=9,DR="53.1///@" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS:
GTM>S DIE="^VA(200,",DA=9,DR="53.1///YES" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES// ?
Enter '1' or 'Yes' if provider is authorized to write orders.
Choose from:
1 YES
AUTHORIZED TO WRITE MED ORDERS: YES//
GTM>S DIE="^VA(200,",DA=9,DR="53.3" D ^DIE
VA#: 5387// ??
Enter the VA number. VA number must be unique among active providers.
This field is used to enter the VA number.
VA#: 5387//
GTM>S DIE="^VA(200,",DA=9,DR="53.4" D ^DIE
INACTIVE DATE: T-1 (MAY 22, 2011)
GTM>S DIE="^VA(200,",DA=9,DR="53.4" D ^DIE
INACTIVE DATE: MAY 22,2011//
GTM>S DIE="^VA(200,",DA=9,DR="53.4///T-2" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.4" D ^DIE
INACTIVE DATE: MAY 21,2011//
GTM>S DIE="^VA(200,",DA=9,DR="53.4////T-2" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.4" D ^DIE
INACTIVE DATE: T-2//
GTM>
GTM>ZWRITE ^VA(200,9,*)
^VA(200,9,0)="COORDINATOR,FIVE^FC^5782677968^@^n^n^^1^1^^"
^VA(200,9,.1)="61663,66055^51461031007311010511151^^^RED^^^^^^"
^VA(200,9,.2,0)="^200.01^^0"
^VA(200,9,1)="^M^^^2^^3041201^0^"
^VA(200,9,1.1)="3110510.054728^0^0^3090320^"
^VA(200,9,1.2)=9
^VA(200,9,2,0)="^200.02P^67^1"
^VA(200,9,2,67,0)="67^1"
^VA(200,9,2,"AX1",1,67)=""
^VA(200,9,2,"B",67,67)=""
^VA(200,9,3.1)="11^^^^^"
^VA(200,9,5)="1^IRM"
^VA(200,9,12)="^^"
^VA(200,9,20)="62149^FIVE COORDINATOR^Mr DeWayne^ABCDEF.11"
^VA(200,9,51,0)="^200.051PA^11^57"
^VA(200,9,51,1,0)="1^9^3050201"
^VA(200,9,51,2,0)="2^9^3050201"
^VA(200,9,51,3,0)="3^9^3050201"
^VA(200,9,51,4,0)="4^9^3050201"
^VA(200,9,51,6,0)="6^59^3050719"
^VA(200,9,51,7,0)="7^9^3050214^3050719"
^VA(200,9,51,8,0)="8^59^3050719"
^VA(200,9,51,9,0)="9^59^3050719"
^VA(200,9,51,11,0)="11^9^3100627"
^VA(200,9,51,12,0)="12^59^3050719"
^VA(200,9,51,13,0)="13^59^3050719"
^VA(200,9,51,14,0)="14^9^3050201"
^VA(200,9,51,15,0)="15^9^3050201"
^VA(200,9,51,25,0)="25^0^3050209"
^VA(200,9,51,27,0)="27^9^3050722"
^VA(200,9,51,28,0)="28^9^3050722"
^VA(200,9,51,29,0)="29^9^3050727"
^VA(200,9,51,30,0)="30^9^3050629^3050629"
^VA(200,9,51,31,0)="31^9^3100121"
^VA(200,9,51,32,0)="32^9^3100121"
^VA(200,9,51,33,0)="33^59^3050727"
^VA(200,9,51,34,0)="34^9^3100121"
^VA(200,9,51,36,0)="36^9^3050727"
^VA(200,9,51,37,0)="37^9^3050727"
^VA(200,9,51,41,0)="41^9^3050727"
^VA(200,9,51,43,0)="43^59^3050719"
^VA(200,9,51,44,0)="44^59^3050719"
^VA(200,9,51,58,0)="58^59^3050719"
^VA(200,9,51,67,0)="67^8^3050223"
^VA(200,9,51,71,0)="71^59^3050719^3050719"
^VA(200,9,51,73,0)="73^8^3050223"
^VA(200,9,51,74,0)="74^9^3050214"
^VA(200,9,51,75,0)="75^9^3050214"
^VA(200,9,51,77,0)="77^8^3050223"
^VA(200,9,51,94,0)="94^9^3100121"
^VA(200,9,51,95,0)="95^9^3050606"
^VA(200,9,51,117,0)="117^9^3100201"
^VA(200,9,51,118,0)="118^59^3050719"
^VA(200,9,51,119,0)="119^59^3050718^3050718"
^VA(200,9,51,125,0)="125^9^3100121"
^VA(200,9,51,153,0)="153^9^3100124"
^VA(200,9,51,271,0)="271^9^3100121"
^VA(200,9,51,289,0)="289^59^3050719"
^VA(200,9,51,290,0)="290^59^3050719"
^VA(200,9,51,294,0)="294^9^3100124"
^VA(200,9,51,300,0)="300^9^3050727"
^VA(200,9,51,310,0)="310^59^3050719"
^VA(200,9,51,314,0)="314^8^3050223"
^VA(200,9,51,319,0)="319^59^3050719"
^VA(200,9,51,325,0)="325^59^3050719"
^VA(200,9,51,366,0)="366^59^3050719"
^VA(200,9,51,370,0)="370^9^3100207"
^VA(200,9,51,389,0)="389^59^3050719"
^VA(200,9,51,390,0)="390^59^3050719"
^VA(200,9,51,404,0)="404^9^3050727"
^VA(200,9,51,418,0)="418^59^3050719"
^VA(200,9,51,421,0)="421^9^3100121"
^VA(200,9,51,"B",1,1)=""
^VA(200,9,51,"B",2,2)=""
^VA(200,9,51,"B",3,3)=""
^VA(200,9,51,"B",4,4)=""
^VA(200,9,51,"B",6,6)=""
^VA(200,9,51,"B",7,7)=""
^VA(200,9,51,"B",8,8)=""
^VA(200,9,51,"B",9,9)=""
^VA(200,9,51,"B",11,11)=""
^VA(200,9,51,"B",12,12)=""
^VA(200,9,51,"B",13,13)=""
^VA(200,9,51,"B",14,14)=""
^VA(200,9,51,"B",15,15)=""
^VA(200,9,51,"B",25,25)=""
^VA(200,9,51,"B",27,27)=""
^VA(200,9,51,"B",28,28)=""
^VA(200,9,51,"B",29,29)=""
^VA(200,9,51,"B",30,30)=""
^VA(200,9,51,"B",31,31)=""
^VA(200,9,51,"B",32,32)=""
^VA(200,9,51,"B",33,33)=""
^VA(200,9,51,"B",34,34)=""
^VA(200,9,51,"B",36,36)=""
^VA(200,9,51,"B",37,37)=""
^VA(200,9,51,"B",41,41)=""
^VA(200,9,51,"B",43,43)=""
^VA(200,9,51,"B",44,44)=""
^VA(200,9,51,"B",58,58)=""
^VA(200,9,51,"B",67,67)=""
^VA(200,9,51,"B",71,71)=""
^VA(200,9,51,"B",73,73)=""
^VA(200,9,51,"B",74,74)=""
^VA(200,9,51,"B",75,75)=""
^VA(200,9,51,"B",77,77)=""
^VA(200,9,51,"B",94,94)=""
^VA(200,9,51,"B",95,95)=""
^VA(200,9,51,"B",117,117)=""
^VA(200,9,51,"B",118,118)=""
^VA(200,9,51,"B",119,119)=""
^VA(200,9,51,"B",125,125)=""
^VA(200,9,51,"B",153,153)=""
^VA(200,9,51,"B",271,271)=""
^VA(200,9,51,"B",289,289)=""
^VA(200,9,51,"B",290,290)=""
^VA(200,9,51,"B",294,294)=""
^VA(200,9,51,"B",300,300)=""
^VA(200,9,51,"B",310,310)=""
^VA(200,9,51,"B",314,314)=""
^VA(200,9,51,"B",319,319)=""
^VA(200,9,51,"B",325,325)=""
^VA(200,9,51,"B",366,366)=""
^VA(200,9,51,"B",370,370)=""
^VA(200,9,51,"B",389,389)=""
^VA(200,9,51,"B",390,390)=""
^VA(200,9,51,"B",404,404)=""
^VA(200,9,51,"B",418,418)=""
^VA(200,9,51,"B",421,421)=""
^VA(200,9,101)=0
^VA(200,9,200)="^^^1^0^1^^^^9999^^^^^^^^0"
^VA(200,9,201)=9
^VA(200,9,203,0)="^200.03IP^2^2"
^VA(200,9,203,1,0)=8552
^VA(200,9,203,2,0)=8997
^VA(200,9,203,"B",8552,1)=""
^VA(200,9,203,"B",8997,2)=""
^VA(200,9,203.1)="61353,70166"
^VA(200,9,"NPI")="^N"
^VA(200,9,"ORD",0)="^200.010113POI^1^1"
^VA(200,9,"ORD",1,0)="1^3050201"
^VA(200,9,"ORD","B",1,1)=""
^VA(200,9,"PS")="1^DD1234563^5387^T-2^1^1"
^VA(200,9,"QAR")=24
^VA(200,9,"QAR12")=1
^VA(200,9,"RA")="^y"
^VA(200,9,"SPL")="y^^y"
^VA(200,9,"TPB")="0^11-9878987^1^3041123^0^9"
^VA(200,9,"USC1",0)="^200.05P^1^1"
^VA(200,9,"USC1",1,0)="766^3050209"
^VA(200,9,"USC1","AD",3050209,1)=""
^VA(200,9,"USC1","B",766,1)=""
^VA(200,9,"USC3",0)="^200.07P^1^1"
^VA(200,9,"USC3",1,0)=7
^VA(200,9,"USC3","B",7,1)=""
^VA(200,9,"VOLD",514679846765687151)=61663
GTM>; WHEN DOES FILEMAN SAVE DATA IN AN EDITING SESSION???
GTM>; Field is cross-referenced --> Fileman will save data right away
GTM>; When you are done editing
GTM>S DIE="^VA(200,",DA=9,DR="53.1:53.9" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
DEA#: DD1234563//
VA#: 5387//
INACTIVE DATE: T-2//
PROVIDER CLASS: PHYSICIAN//
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
USUAL COSIGNER:
REMARKS:
GTM>
GTM>; ^ out or ^ to another field -> Fileman will save data
GTM>; If you navigate to another file while editing --> Fileman will save data
GTM>; If you move from a subfile to a parent or vice versa
GTM>; If Mumps code is encountered when editing (^DIE lets you put in Mumps code
to set the value of the field
GTM>; If Mumps code is encountered when editing (^DIE lets you put in Mumps code
GTM>; If Mumps code is encountered when editing (^DIE lets you put in Mumps code
GTM>; If Mumps code is encountered when editing (^DIE lets you put in Mumps code
GTM>; If Mumps code is encountered when editing (^DIE lets you put in Mumps code
GTM>S DIE="^VA(200,",DA=9,DR="53.1////^S X=1"
GTM>S DIE="^VA(200,",DA=9,DR="53.1///@"
GTM>S DIE="^VA(200,",DA=9,DR="53.1///@" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS:
GTM>S DIE="^VA(200,",DA=9,DR="53.1////^S X=1" D ^DIE
GTM>S DIE="^VA(200,",DA=9,DR="53.1" D ^DIE
AUTHORIZED TO WRITE MED ORDERS: YES//
GTM>D ^DID
START WITH What File: PATIENT// 200 NEW PERSON (81 entries)
GO TO What File: NEW PERSON// (81 entries)
Select SUB-FILE:
Select LISTING FORMAT: STANDARD//
Start with field: FIRST// VA#
Go to field: VA#
DEVICE: TELNET
STANDARD DATA DICTIONARY #200 -- NEW PERSON FILE 5/23/11 PAGE 1
STORED IN ^VA(200, (81 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSIO
N 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-------------------------------------------------------------------------------
200,53.3 VA# PS;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)
<3) X I $D(X),$D(^VA(200,"PS2",X)),$O(^(X,0))'=
DA,$S('$D(^VA(200,+$O(^VA(200,"PS2",X,0)),"PS")
):0,'$P(^("PS"),"^",4):1,1:$P(^("PS"),"^",4)'<D
T) K X W !,*7,?5,"DUPLICATE VA #",!
LAST EDITED: SEP 24,1993
HELP-[[PROMPT~|Prompt]]: Enter the VA number 3 to 10 characters.
DESCRIPTION:
This field is used to enter the VA number.
EXECUTABLE HELP: W !,?5,"Enter the VA number. VA number must be
unique among active providers.",!
STANDARD DATA DICTIONARY #200 -- NEW PERSON FILE 5/23/11 PAGE 2
STORED IN ^VA(200, (81 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSIO
N 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-------------------------------------------------------------------------------
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200^PS2
1)= S ^VA(200,"PS2",$E(X,1,30),DA)=""
2)= K ^VA(200,"PS2",$E(X,1,30),DA)
3)= Lookup providers by their VA number
This was 'APS2' before. Also used to stop
duplicate numbers.
GTM>D ^DID
START WITH What File: NEW PERSON// (81 entries)
GO TO What File: NEW PERSON// (81 entries)
Select SUB-FILE:
Select LISTING FORMAT: STANDARD//
Start with field: FIRST// 50.1 KEY DELEGATION LEVEL
Go to field: ^
GTM>D ^DID
START WITH What File: NEW PERSON// (81 entries)
GO TO What File: NEW PERSON// (81 entries)
Select SUB-FILE:
Select LISTING FORMAT: STANDARD//
Start with field: FIRST// 53.1 AUTHORIZED TO WRITE MED ORDERS
Go to field: 53.9 REMARKS
DEVICE: ;;99 TELNET
STANDARD DATA DICTIONARY #200 -- NEW PERSON FILE 5/23/11 PAGE 1
STORED IN ^VA(200, (81 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSIO
N 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-------------------------------------------------------------------------------
200,53.1 AUTHORIZED TO WRITE MED ORDERS PS;1 SET
'1' FOR YES;
LAST EDITED: APR 30,1996
HELP-[[PROMPT~|Prompt]]: Enter '1' or 'Yes' if provider is authorized to
write orders.
DESCRIPTION: This field is used to determin if the provider
is authorized to write orders.
TECHNICAL DESCR:
set of codes
GROUP: PSO
200,53.2 DEA# PS;2 FREE TEXT
INPUT TRANSFORM: K:'$$VALDEA^XUSER2(X) X
LAST EDITED: DEC 23,2002
HELP-[[PROMPT~|Prompt]]: Enter the DEA number 2 letters 7 numbers.
DESCRIPTION: This field is used to enter the drug
enforcement agency (DEA) number. Enter the DEA
number as two upper case letters followed by 7
digits. e.g. AA1234567. Each provider must
have a unique number.
TECHNICAL DESCR: This is the algorithm for DEA # checking.
The first letter for practitioners (physicians,
dentists, veterinarians, pharmacies etc.) is
either an "A" or "B"
The second letter should be the first letter of
the practitioner's last name. Sometimes this
does not match if the registrant changed their
name or the DEA did not get it correct the
first time.
The check digit algorithm is as follows:
AS1234563
1 + 3 + 5 = 9 2 + 4 + 6 = 12 x 2 = 24
9 + 24 = 33
The last digit of the total must equal the
check digit (the last digit of the DEA number).
(33#10)=$E("AS1234563",9)
EXECUTABLE HELP: W:$X>5 ! W ?5,"Enter the DEA number as two uppe
r case letters followed by 7 digits",!,?5,"e.g.
AA1234567. Each provider must have a unique n
umber.",!
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200^PS1
1)= S ^VA(200,"PS1",$E(X,1,30),DA)=""
2)= K ^VA(200,"PS1",$E(X,1,30),DA)
3)= Lookup providers by their DEA number
This was 'APS1' before. Also used to stop
duplicate numbers.
200,53.3 VA# PS;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)
<3) X I $D(X),$D(^VA(200,"PS2",X)),$O(^(X,0))'=
DA,$S('$D(^VA(200,+$O(^VA(200,"PS2",X,0)),"PS")
):0,'$P(^("PS"),"^",4):1,1:$P(^("PS"),"^",4)'<D
T) K X W !,*7,?5,"DUPLICATE VA #",!
LAST EDITED: SEP 24,1993
HELP-[[PROMPT~|Prompt]]: Enter the VA number 3 to 10 characters.
DESCRIPTION:
This field is used to enter the VA number.
EXECUTABLE HELP: W !,?5,"Enter the VA number. VA number must be
unique among active providers.",!
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200^PS2
1)= S ^VA(200,"PS2",$E(X,1,30),DA)=""
2)= K ^VA(200,"PS2",$E(X,1,30),DA)
3)= Lookup providers by their VA number
This was 'APS2' before. Also used to stop
duplicate numbers.
200,53.4 INACTIVE DATE PS;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 20,1993
HELP-[[PROMPT~|Prompt]]: Enter the date after which this person may not
write medication orders.
DESCRIPTION: This field is used to show the inactive date of
a provider whereas they can no longer write
orders.
TECHNICAL DESCR:
date
GROUP: PSO
200,53.5 PROVIDER CLASS PS;5 POINTER TO PROVIDER CLASS FILE (#7)
LAST EDITED: OCT 18,1999
HELP-[[PROMPT~|Prompt]]: Enter provider class of provider (MD, PA etc).
DESCRIPTION:
This field is used to show the providers class.
GROUP: PSO
CROSS-REFERENCE: ^^TRIGGER^46.11^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=
$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD
(200,53.5,1,2,89.2) S Y(101)=$S($D(^DGRU(46.11,
D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0
) S DIU=X K Y S X=DIV S X=200 X ^DD(200,53.5,1,
2,1.4)
1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1
:""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46
.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^
VA(200,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S
X=X K DIC S DIC="^DGRU(46.11,",DIC(0)="NMFL" D
^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U
,4)=1
CREATE VALUE)= S X=200
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= NAME:RAI MDS MONITOR:#.03
Trigger the New Person file number (#200) into
the RAI MDS MONITOR file whenever the New
Person Provider Class is changed or added.
CROSS-REFERENCE: ^^TRIGGER^46.11^.04
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=
$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD
(200,53.5,1,3,89.2) S Y(101)=$S($D(^DGRU(46.11,
D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0
) S DIU=X K Y S X=DIV S X=DA X ^DD(200,53.5,1,3
,1.4)
1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1
:""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46
.11,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^
VA(200,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S
X=X K DIC S DIC="^DGRU(46.11,",DIC(0)="NMF" D
^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U
,4)=1
CREATE VALUE)= S X=DA
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= NAME:RAI MDS MONITOR:#.04
Trigger the internal entry number of the entry
changed or added into the New Person file, into
the RAI MDS MONITOR file.
200,53.6 PROVIDER TYPE PS;6 SET
'1' FOR FULL TIME;
'2' FOR PART TIME;
'3' FOR C & A;
'4' FOR FEE BASIS;
'5' FOR HOUSE STAFF;
LAST EDITED: DEC 8,1993
HELP-[[PROMPT~~~~|Prompt]]: Enter type of provider.
DESCRIPTION: This field is used to show the type of provider
(staff, fee, etc.)
TECHNICAL DESCR:
set of codes.
GROUP: PSO
200,53.7 REQUIRES COSIGNER PS;7 SET
'1' FOR YES;
LAST EDITED: OCT 12,1989
HELP-[[PROMPT~|Prompt]]: Enter yes if medication orders written by this
person must be cosigned by another provider of
care.
DESCRIPTION: This field is used to determine if the provider
needs a cosigner.
TECHNICAL DESCR:
set of codes.
GROUP: PSO
200,53.8 USUAL COSIGNER PS;8 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^(""PS"")),$P(^(""PS""),""^"")
,'$P(^(""PS""),""^"",7),$S('$P(^(""PS""),""^"",
4):1,1:$P(^(""PS""),""^"",4)'<DT)" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 12,1989
HELP-[[PROMPT~|Prompt]]: Select cosigner.
DESCRIPTION: This field is used to show the usual cosigner
for the provider.
TECHNICAL DESCR:
pointer.
SCREEN: S DIC("S")="I $D(^(""PS"")),$P(^(""PS""),""^"")
,'$P(^(""PS""),""^"",7),$S('$P(^(""PS""),""^"",
4):1,1:$P(^(""PS""),""^"",4)'<DT)"
EXPLANATION: Only active providers of care who do not themse
lves require a cosigner
GROUP: PSO
200,53.9 REMARKS PS;9 FREE TEXT
REMARKS
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: OCT 12,1989
HELP-[[PROMPT~|Prompt]]: Enter remarks about this provider to be
displayed when s/he is selected during order
entry.
DESCRIPTION: This field is used to enter remarks and or
comments about the provider.
TECHNICAL DESCR:
free text
GROUP: PSO
FILES POINTED TO FIELDS
NEW PERSON (#200) USUAL COSIGNER (#53.8)
PROVIDER CLASS (#7) PROVIDER CLASS (#53.5)
RAI MDS MONITOR (#46.11) PROVIDER CLASS (#53.5)
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: T-2//
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
REMARKS:
GTM>
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: T-2//
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
REMARKS:
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: T-2// ??
This field is used to show the inactive date of a provider whereas they
can no longer write orders.
Examples of Valid Dates:
JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057 (omitting punctuation)
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 uses CURRENT YEAR.
A 2-digit year means no more than 20 years in the future, or 80 years in
the past.
INACTIVE DATE: T-2//
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
REMARKS:
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: T-2// T-1 (MAY 22, 2011)
PROVIDER TYPE: FULL TIME//
REQUIRES COSIGNER:
REMARKS: TEST
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: MAY 22,2011// T-3 (MAY 20, 2011)
PROVIDER TYPE: FULL TIME// PAR PART TIME
REQUIRES COSIGNER: Y YES
REMARKS: TEST//
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: MAY 20,2011// @
SURE YOU WANT TO DELETE? T??
Answer with 'Yes' or 'No': Y (Yes)
PROVIDER TYPE: PART TIME//
REQUIRES COSIGNER: YES// @
SURE YOU WANT TO DELETE? Y (Yes)
REMARKS: TEST//
GTM>S DTIME=10
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE:
PROVIDER TYPE: PART TIME//
REQUIRES COSIGNER: Y YES
REMARKS: TEST//
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE:
PROVIDER TYPE: PART TIME//
REQUIRES COSIGNER: Y YES
REMARKS: TEST// BLAH
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: T (MAY 23, 2011)
PROVIDER TYPE: PART TIME// 3 C & A
REQUIRES COSIGNER: Y YES
REMARKS: TEST//
GTM>S DIE="^VA(200,",DA=9,DR="53.4;53.6;53.7;53.9" D ^DIE
INACTIVE DATE: MAY 23,2011//
PROVIDER TYPE: C & A//
REQUIRES COSIGNER: Y YES
REMARKS: TEST//
GTM>;
GTM>; ^DIB - Interactive Enter/Edit
GTM>D ^DIB
Input to what File: NEW PERSON// 2
GTM>
GTM>D ^DIB
Input to what File: NEW PERSON// 2 PATIENT (24 entries)
EDIT WHICH FIELD: ALL//
Select PATIENT NAME: ^
GTM>S DIE=50 D ^DIB
Input to what File: PATIENT// ^
GTM>S DIE=50 D EN^DIB
EDIT WHICH FIELD: ALL//
Select DRUG GENERIC NAME:
GTM>;
GTM>; ^DIK and friends
GTM>; ^DIK should really have no friends though
GTM>zwrite ^VA(200,:,0)
^VA(200,.5,0)="POSTMASTER^^;^^^^^^^^^^^^^.5"
^VA(200,.6,0)="SHARED,MAIL^^;^^^^^"
^VA(200,1,0)="WVEHR,PATCH INSTALLER^PIW^80755149508373^@^^^0^1^^^^^^^^1"
^VA(200,2,0)="COORDINATOR,NINE^NC^79657382794678787369677968788482^@^^^^^^^^^^^^
2"
^VA(200,3,0)="COORDINATOR,FOUR^FC^79657382794685707982677968788482^@^^^^"
^VA(200,4,0)="INTERFACE,IB IIV^IIV"
^VA(200,5,0)="CENTRAL,PAID"
^VA(200,6,0)="EDILOCKBOX,AUTOMATIC^EDI"
^VA(200,7,0)="PRCA,AUTOAUDIT^EDI"
^VA(200,8,0)="MANAGER,SYSTEM^SM^53486882695048^@^^^^1^5"
^VA(200,9,0)="COORDINATOR,FIVE^FC^5782677968^@^n^n^^1^1^^"
^VA(200,10,0)="USER,TEST^TU^ACCESS#1^#[]SsDd^^^0^1^1^^"
^VA(200,11,0)="DOCTOR,ONE^DO^49796768798482^P^^^^^2"
^VA(200,12,0)="NURSE,ONE^NO^^#dD^^^^^3"
^VA(200,13,0)="CLERK,ONE^CO^^dDsS#^^^^^4"
^VA(200,14,0)="ADMINISTRATOR,SYSTEM^WCJ^787765838389466873^^^^^1"
^VA(200,15,0)="DOCTOR,TWO^DT^504679676879848248^#^^^^1^2^^"
^VA(200,16,0)="DOCTOR,THREE^^5267YSQ^#^^^^^2^^"
^VA(200,17,0)="DOCTOR,FOUR^^52796768798482^#^^^^^2^^"
^VA(200,18,0)="DOCTOR,FIVE^^53796768798482^#^^^^^2^^"
^VA(200,19,0)="DOCTOR,SIX^^54796768798482^#^^^^^2^^"
^VA(200,20,0)="DOCTOR,SEVEN^^55796768798482^#^^^^^2^^"
^VA(200,21,0)="DOCTOR,EIGHT^^56796768798482^#^^^^1^2^^"
^VA(200,22,0)="DOCTOR,NINE^^57796768798482^#^^^^^2^^"
^VA(200,23,0)="DOCTOR,TEN^^507673658372666949^#^^^^1^2^^"
^VA(200,24,0)="DOCTOR,ELEVEN^^4730WQD^#^^^^^2^^"
^VA(200,26,0)="DOCTOR,TWELVE^^6565KQL^#^^^^^2^^"
^VA(200,27,0)="NURSE,TWO^^UOMO251^#dD^^^^^3^^"
^VA(200,28,0)="NURSE,THREE^^3986ICX^#dD^^^^^3^^"
^VA(200,29,0)="NURSE,FOUR^^KHVG351^#dD^^^^^3^^"
^VA(200,30,0)="NURSE,FIVE^^SOKH491^#dD^^^^^3^^"
^VA(200,31,0)="NURSE,SIX^^9521GRK^#dD^^^^^3^^"
^VA(200,32,0)="NURSE,SEVEN^^1649WEN^#dD^^^^^3^^"
^VA(200,33,0)="NURSE,EIGHT^^0053HQG^#dD^^^^^3^^"
^VA(200,34,0)="NURSE,NINE^^GTQC759^#dD^^^^^3^^"
^VA(200,35,0)="NURSE,TEN^^1252UND^#dD^^^^^3^^"
^VA(200,36,0)="NURSE,ELEVEN^^5176AOR^#dD^^^^^3^^"
^VA(200,37,0)="NURSE,TWELVE^^9977HOD^#dD^^^^^3^^"
^VA(200,38,0)="NURSE,THIRTEEN^^VQAI233^#dD^^^^^3^^"
^VA(200,39,0)="NURSE,FOURTEEN^^RBEI851^#dD^^^^^3^^"
^VA(200,40,0)="NURSE,FIFTEEN^^2503DVU^#dD^^^^^3^^"
^VA(200,41,0)="CLERK,TWO^^SGDM245^dDsS#^^^^^4^^"
^VA(200,42,0)="CLERK,THREE^^GPRB828^dDsS#^^^^^4^^"
^VA(200,43,0)="CLERK,FOUR^^QRQN033^dDsS#^^^^^4^^"
^VA(200,44,0)="CLERK,FIVE^^6497QKB^dDsS#^^^^^4^^"
^VA(200,45,0)="CLERK,SIX^^5786JDX^dDsS#^^^^^4^^"
^VA(200,46,0)="CLERK,SEVEN^^1405ADI^dDsS#^^^^^4^^"
^VA(200,47,0)="CLERK,EIGHT^^8675WQX^dDsS#^^^^^4^^"
^VA(200,48,0)="CLERK,NINE^^1916SLD^dDsS#^^^^^4^^"
^VA(200,49,0)="CLERK,TEN^^0658NGN^dDsS#^^^^^4^^"
^VA(200,50,0)="CLERK,ELEVEN^^8944FHI^dDsS#^^^^^4^^"
^VA(200,51,0)="CLERK,TWELVE^^QSMQ549^dDsS#^^^^^4^^"
^VA(200,52,0)="CLERK,THIRTEEN^^QGSF814^dDsS#^^^^^4^^"
^VA(200,53,0)="CLERK,FOURTEEN^^QVGC484^dDsS#^^^^^4^^"
^VA(200,54,0)="CLERK,FIFTEEN^^9747LGM^dDsS#^^^^^4^^"
^VA(200,55,0)="ZZ IT,MANAGER^^7389FOJ^^^^1^^1^^3050812^^NOT NEEDED"
^VA(200,56,0)="USER,PATCH^UP^PATCH1^@^^^^^5^^"
^VA(200,57,0)="AUTHORIZER,IB MRA^MRA"
^VA(200,58,0)="COORDINATOR,CLINICAL^CC^DLAN897^#^^^^^6^^"
^VA(200,59,0)="STARTUP,SYSTEM^SS^5084658384824951^@^^^^1"
^VA(200,60,0)="COORDINATOR,SIX^SC^828478687967888373467982736579^#^^^^^6^^"
^VA(200,61,0)="COORDINATOR,EIGHT^EC^8284786879678471697372467982736579^^^^1"
^VA(200,62,0)="LAB,SUPERUSER^LS^498367656@6983^^^^^^1^^"
^VA(200,63,0)="COORDINATOR,ONE^OC^828478687967697978467982736579^@^^^^^1^^"
^VA(200,64,0)="COORDINATOR,SEVEN^SC^8284786879677886836969467982736579"
^VA(200,65,0)="ANALYST,ONE^OA^8489656569797846787683^@^^^^^1^^"
^VA(200,66,0)="ANALYST,THREE^TA^84896565698284726946787683^#^^^^^1^^"
^VA(200,67,0)="COORDINATOR,THREE^TC^8284786879676982847269467982736579^#^^^^^1^^
"
^VA(200,68,0)="COORDINATOR,TWO^TC^828478687967798487467982736579^@^^^^^1^^"
^VA(200,69,0)="ANALYST,TWO^^8489656579848746787683^#^^^^^1^^"
^VA(200,70,0)="PATCHES,ALL D^ADP^496572848065677778"
^VA(200,71,0)="LRLAB,POC"
^VA(200,72,0)="LRLAB,HL"
^VA(200,73,0)="XOBVTESTER,APPLICATION PROXY"
^VA(200,74,0)="VPFS,APPLICATION PROXY"
^VA(200,75,0)="RADIOLOGY,OUTSIDE SERVICE"
^VA(200,76,0)="USER,OVID^OVU^514979865052^^^^^1"
^VA(200,77,0)="HABIEL,SAM^SH^^^^^^^^^"
^VA(200,78,0)="SHDIFAT,HANEEN^HS"
^VA(200,79,0)="SAM,YOSEMEDIE"
^VA(200,80,0)="RUNNER,ROAD^^514982825052"
GTM>S DA=78,DIK="^VA(200," D ^DIK
GTM>zwrite ^VA(200,:,0)
^VA(200,.5,0)="POSTMASTER^^;^^^^^^^^^^^^^.5"
^VA(200,.6,0)="SHARED,MAIL^^;^^^^^"
^VA(200,1,0)="WVEHR,PATCH INSTALLER^PIW^80755149508373^@^^^0^1^^^^^^^^1"
^VA(200,2,0)="COORDINATOR,NINE^NC^79657382794678787369677968788482^@^^^^^^^^^^^^
2"
^VA(200,3,0)="COORDINATOR,FOUR^FC^79657382794685707982677968788482^@^^^^"
^VA(200,4,0)="INTERFACE,IB IIV^IIV"
^VA(200,5,0)="CENTRAL,PAID"
^VA(200,6,0)="EDILOCKBOX,AUTOMATIC^EDI"
^VA(200,7,0)="PRCA,AUTOAUDIT^EDI"
^VA(200,8,0)="MANAGER,SYSTEM^SM^53486882695048^@^^^^1^5"
^VA(200,9,0)="COORDINATOR,FIVE^FC^5782677968^@^n^n^^1^1^^"
^VA(200,10,0)="USER,TEST^TU^ACCESS#1^#[]SsDd^^^0^1^1^^"
^VA(200,11,0)="DOCTOR,ONE^DO^49796768798482^P^^^^^2"
^VA(200,12,0)="NURSE,ONE^NO^^#dD^^^^^3"
^VA(200,13,0)="CLERK,ONE^CO^^dDsS#^^^^^4"
^VA(200,14,0)="ADMINISTRATOR,SYSTEM^WCJ^787765838389466873^^^^^1"
^VA(200,15,0)="DOCTOR,TWO^DT^504679676879848248^#^^^^1^2^^"
^VA(200,16,0)="DOCTOR,THREE^^5267YSQ^#^^^^^2^^"
^VA(200,17,0)="DOCTOR,FOUR^^52796768798482^#^^^^^2^^"
^VA(200,18,0)="DOCTOR,FIVE^^53796768798482^#^^^^^2^^"
^VA(200,19,0)="DOCTOR,SIX^^54796768798482^#^^^^^2^^"
^VA(200,20,0)="DOCTOR,SEVEN^^55796768798482^#^^^^^2^^"
^VA(200,21,0)="DOCTOR,EIGHT^^56796768798482^#^^^^1^2^^"
^VA(200,22,0)="DOCTOR,NINE^^57796768798482^#^^^^^2^^"
^VA(200,23,0)="DOCTOR,TEN^^507673658372666949^#^^^^1^2^^"
^VA(200,24,0)="DOCTOR,ELEVEN^^4730WQD^#^^^^^2^^"
^VA(200,26,0)="DOCTOR,TWELVE^^6565KQL^#^^^^^2^^"
^VA(200,27,0)="NURSE,TWO^^UOMO251^#dD^^^^^3^^"
^VA(200,28,0)="NURSE,THREE^^3986ICX^#dD^^^^^3^^"
^VA(200,29,0)="NURSE,FOUR^^KHVG351^#dD^^^^^3^^"
^VA(200,30,0)="NURSE,FIVE^^SOKH491^#dD^^^^^3^^"
^VA(200,31,0)="NURSE,SIX^^9521GRK^#dD^^^^^3^^"
^VA(200,32,0)="NURSE,SEVEN^^1649WEN^#dD^^^^^3^^"
^VA(200,33,0)="NURSE,EIGHT^^0053HQG^#dD^^^^^3^^"
^VA(200,34,0)="NURSE,NINE^^GTQC759^#dD^^^^^3^^"
^VA(200,35,0)="NURSE,TEN^^1252UND^#dD^^^^^3^^"
^VA(200,36,0)="NURSE,ELEVEN^^5176AOR^#dD^^^^^3^^"
^VA(200,37,0)="NURSE,TWELVE^^9977HOD^#dD^^^^^3^^"
^VA(200,38,0)="NURSE,THIRTEEN^^VQAI233^#dD^^^^^3^^"
^VA(200,39,0)="NURSE,FOURTEEN^^RBEI851^#dD^^^^^3^^"
^VA(200,40,0)="NURSE,FIFTEEN^^2503DVU^#dD^^^^^3^^"
^VA(200,41,0)="CLERK,TWO^^SGDM245^dDsS#^^^^^4^^"
^VA(200,42,0)="CLERK,THREE^^GPRB828^dDsS#^^^^^4^^"
^VA(200,43,0)="CLERK,FOUR^^QRQN033^dDsS#^^^^^4^^"
^VA(200,44,0)="CLERK,FIVE^^6497QKB^dDsS#^^^^^4^^"
^VA(200,45,0)="CLERK,SIX^^5786JDX^dDsS#^^^^^4^^"
^VA(200,46,0)="CLERK,SEVEN^^1405ADI^dDsS#^^^^^4^^"
^VA(200,47,0)="CLERK,EIGHT^^8675WQX^dDsS#^^^^^4^^"
^VA(200,48,0)="CLERK,NINE^^1916SLD^dDsS#^^^^^4^^"
^VA(200,49,0)="CLERK,TEN^^0658NGN^dDsS#^^^^^4^^"
^VA(200,50,0)="CLERK,ELEVEN^^8944FHI^dDsS#^^^^^4^^"
^VA(200,51,0)="CLERK,TWELVE^^QSMQ549^dDsS#^^^^^4^^"
^VA(200,52,0)="CLERK,THIRTEEN^^QGSF814^dDsS#^^^^^4^^"
^VA(200,53,0)="CLERK,FOURTEEN^^QVGC484^dDsS#^^^^^4^^"
^VA(200,54,0)="CLERK,FIFTEEN^^9747LGM^dDsS#^^^^^4^^"
^VA(200,55,0)="ZZ IT,MANAGER^^7389FOJ^^^^1^^1^^3050812^^NOT NEEDED"
^VA(200,56,0)="USER,PATCH^UP^PATCH1^@^^^^^5^^"
^VA(200,57,0)="AUTHORIZER,IB MRA^MRA"
^VA(200,58,0)="COORDINATOR,CLINICAL^CC^DLAN897^#^^^^^6^^"
^VA(200,59,0)="STARTUP,SYSTEM^SS^5084658384824951^@^^^^1"
^VA(200,60,0)="COORDINATOR,SIX^SC^828478687967888373467982736579^#^^^^^6^^"
^VA(200,61,0)="COORDINATOR,EIGHT^EC^8284786879678471697372467982736579^^^^1"
^VA(200,62,0)="LAB,SUPERUSER^LS^498367656@6983^^^^^^1^^"
^VA(200,63,0)="COORDINATOR,ONE^OC^828478687967697978467982736579^@^^^^^1^^"
^VA(200,64,0)="COORDINATOR,SEVEN^SC^8284786879677886836969467982736579"
^VA(200,65,0)="ANALYST,ONE^OA^8489656569797846787683^@^^^^^1^^"
^VA(200,66,0)="ANALYST,THREE^TA^84896565698284726946787683^#^^^^^1^^"
^VA(200,67,0)="COORDINATOR,THREE^TC^8284786879676982847269467982736579^#^^^^^1^^
"
^VA(200,68,0)="COORDINATOR,TWO^TC^828478687967798487467982736579^@^^^^^1^^"
^VA(200,69,0)="ANALYST,TWO^^8489656579848746787683^#^^^^^1^^"
^VA(200,70,0)="PATCHES,ALL D^ADP^496572848065677778"
^VA(200,71,0)="LRLAB,POC"
^VA(200,72,0)="LRLAB,HL"
^VA(200,73,0)="XOBVTESTER,APPLICATION PROXY"
^VA(200,74,0)="VPFS,APPLICATION PROXY"
^VA(200,75,0)="RADIOLOGY,OUTSIDE SERVICE"
^VA(200,76,0)="USER,OVID^OVU^514979865052^^^^^1"
^VA(200,77,0)="HABIEL,SAM^SH^^^^^^^^^"
^VA(200,79,0)="SAM,YOSEMEDIE"
^VA(200,80,0)="RUNNER,ROAD^^514982825052"
GTM>ZWRITE ^VA(200,80,*)
^VA(200,80,0)="RUNNER,ROAD^^514982825052"
^VA(200,80,.1)="61904,69778^5149828282465052"
^VA(200,80,.13)="^^^^^888-888-8888"
^VA(200,80,1)="^^^^2^^3100627^9"
^VA(200,80,1.1)="3100627.194115^0^0^3100627^"
^VA(200,80,1.2)=9
^VA(200,80,2,0)="^200.02P^^"
^VA(200,80,3.1)=112
^VA(200,80,5)=2
^VA(200,80,20)="62149^ROAD RUNNER^^ABCDEF.11"
^VA(200,80,51,0)="^200.051PA^58^2"
^VA(200,80,51,7,0)="7^9^3100627"
^VA(200,80,51,58,0)="58^9^3100627"
^VA(200,80,51,"B",7,7)=""
^VA(200,80,51,"B",58,58)=""
^VA(200,80,101)=0
^VA(200,80,200)="^^^^^1"
^VA(200,80,201)=9
^VA(200,80,202.1)="^"
^VA(200,80,203,0)="^200.03IP^1^1"
^VA(200,80,203,1,0)=8552
^VA(200,80,203,"B",8552,1)=""
^VA(200,80,203.1)="61904,70697"
^VA(200,80,"ORD",0)="^200.010113POI^1^1"
^VA(200,80,"ORD",1,0)="1^3100627"
^VA(200,80,"ORD","B",1,1)=""
^VA(200,80,"PS")="^^7265"
^VA(200,80,"USC1",0)="^200.05P^1^1"
^VA(200,80,"USC1",1,0)="203^3100627"
^VA(200,80,"USC1","AD",3100627,1)=""
^VA(200,80,"USC1","B",203,1)=""
^VA(200,80,"VOLD",525046828282824951)=61904
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: INQUIRE TO FILE ENTRIES
Output from what File: PATIENT// SECURITY KEY (455 entries)
Select SECURITY KEY NAME: `7 PROVIDER
Another one: `58 ORES
Another one: ^
Select OPTION:
GTM>S DPT=8
GTM>; rm /path/to/file
GTM>S ^DIK="^VA(200,80,51,"
GTM>S DIK="^VA(200,80,51,"
GTM>S DA(1)=200,DA=7
GTM>D ^DIK
%GTM-E-NULSUBSC, Null subscripts are not allowed for region: DEFAULT,%GTM-I-GVIS, Global variable: ^VA(200,"AK.PROVIDER","",200)
At M source location FE51K+3^XUA4A7
GTM>S DA(1)=200,DA=7
GTM>S DA(1)=200,DA=58
GTM>S DIK="^VA(200,80,51,"
GTM>D ^DIK
%GTM-E-NULSUBSC, Null subscripts are not allowed for region: DEFAULT,%GTM-I-GVIS, Global variable: ^VA(200,"AK.ORES","",200)
At M source location FE51K+3^XUA4A7
GTM>ZG
GTM>ZWRITE ^VA(200,80,*)
^VA(200,80,0)="RUNNER,ROAD^^514982825052"
^VA(200,80,.1)="61904,69778^5149828282465052"
^VA(200,80,.13)="^^^^^888-888-8888"
^VA(200,80,1)="^^^^2^^3100627^9"
^VA(200,80,1.1)="3100627.194115^0^0^3100627^"
^VA(200,80,1.2)=9
^VA(200,80,2,0)="^200.02P^^"
^VA(200,80,3.1)=112
^VA(200,80,5)=2
^VA(200,80,20)="62149^ROAD RUNNER^^ABCDEF.11"
^VA(200,80,51,0)="^200.051PA^58^2"
^VA(200,80,51,7,0)="7^9^3100627"
^VA(200,80,51,58,0)="58^9^3100627"
^VA(200,80,51,"B",7,7)=""
^VA(200,80,51,"B",58,58)=""
^VA(200,80,101)=0
^VA(200,80,200)="^^^^^1"
^VA(200,80,201)=9
^VA(200,80,202.1)="^"
^VA(200,80,203,0)="^200.03IP^1^1"
^VA(200,80,203,1,0)=8552
^VA(200,80,203,"B",8552,1)=""
^VA(200,80,203.1)="61904,70697"
^VA(200,80,"ORD",0)="^200.010113POI^1^1"
^VA(200,80,"ORD",1,0)="1^3100627"
^VA(200,80,"ORD","B",1,1)=""
^VA(200,80,"PS")="^^7265"
^VA(200,80,"USC1",0)="^200.05P^1^1"
^VA(200,80,"USC1",1,0)="203^3100627"
^VA(200,80,"USC1","AD",3100627,1)=""
^VA(200,80,"USC1","B",203,1)=""
^VA(200,80,"VOLD",525046828282824951)=61904
GTM>ZED "PSOSTART"
GTM>zed "DIK"
GTM>
