Fileman API Class 2

From VistApedia
Revision as of 13:47, 6 March 2012 by NeilArmstrong (talk | contribs) (Added Glossary Link to Prompt~)
Jump to: navigation, search
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              <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 RECORDS               (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>