Fileman API Class 2

 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 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                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                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 RecordS               (0 entries) 5  INCONSISTENT DATA                (42 entries) Press  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  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  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:     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:     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:     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:     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:     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:     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:     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:     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:     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)'60!($L(X)<1) X              LAST EDITED:      OCT 12,1989 HELP-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>