Mumps Class 13

From VistApedia
Revision as of 15:06, 2 April 2011 by Shabiel (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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 Feb 27 09:58:46 2011 from 192.168.56.22
worldvistaEHR@cassandra:~$ gtm

GTM>; $ORDER

GTM>; But before: Mumps Arrays

GTM>; Sparse Arrays. Elements can be filled in, without the intervening elements


GTM>S SAM(1)="Hello"

GTM>S SAM(3)="Hello2"

GTM>zwrite SAM
SAM(1)="Hello"
SAM(3)="Hello2"

GTM>; There is no SAM(2).

GTM>WRITE SAM(2)
%GTM-E-UNDEF, Undefined local variable: SAM(2)

GTM>; Subscripts are auto-sorting.

GTM>S SAM(9)="Hello9"

GTM>S SAM(8)="8"

GTM>S SAM("A")="A"

GTM>S SAM("E")="E"

GTM>S SAM("B")="B"

GTM>ZWRITE SAM
SAM(1)="Hello"
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("B")="B"
SAM("E")="E"

GTM>; Sorted automatically.

GTM>; For example, the B subscript in the patient file autosorts the patient nam
es

GTM>zwrite ^DPT("B",*)
^DPT("B","BIRD,TWEETIE",20)=""
^DPT("B","BUNNY,BUGS",12)=""
^DPT("B","DUCK,DONALD",5)=""
^DPT("B","GOOSE,GOOFY",6)=""
^DPT("B","LISA,MONA DA",8)=""
^DPT("B","MAKOPITO,SERENA",24)=""
^DPT("B","MARS,SAILOR",19)=""
^DPT("B","MARTIAN,THE",16)=""
^DPT("B","MCDUCK,SCROOGE",9)=""
^DPT("B","MICHIRO,AOI",23)=""
^DPT("B","MOON,PLUTO",18)=""
^DPT("B","MOON,SAILOR",17)=""
^DPT("B","MOORE,MANDY",15)=""
^DPT("B","MOUSE,MICKEY",4)=""
^DPT("B","MOUSE,MINNIE",7)=""
^DPT("B","POOH,WINNIE THE",22)=""
^DPT("B","RED NOSE,RUDOLPH",10)=""
^DPT("B","RUNNER,ROAD",13)=""
^DPT("B","THECAT,TOM",21)=""
^DPT("B","WHITE,SNOW",11)=""
^DPT("B","WILE,COYOTE E",14)=""
^DPT("B","ZZ PATIENT,TEST ONE",1)=""
^DPT("B","ZZ PATIENT,TEST THREE",3)=""
^DPT("B","ZZ PATIENT,TEST TWO",2)=""

GTM>; Arrays can be stored either in local variables or globals

GTM>; If you store them in globals, they are stored on disk

GTM>; tata... that's a Mumps database

GTM>; Arrays can be heirarchical (like a tree)

GTM>zwrite SAM
SAM(1)="Hello"
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("B")="B"
SAM("E")="E"

GTM>S SAM(1,"FIRST")="F"

GTM>S SAM(1,"SECOND")="S"

GTM>S SAM("A","ABCD")=""

GTM>ZWRITE SAM
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>S SAM(2,"FIRST")=""

GTM>S SAM(2,"SECOND")=""

GTM>ZWRITE SAM
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>ZWRITE (1,"SECOND")
%GTM-E-VAREXPECTED, Variable expected in this context
        ZWRITE (1,"SECOND")
               ^-----

GTM>ZWRITE SAM(1,"SECOND")
SAM(1,"SECOND")="S"

GTM>ZWRITE SAM(1)
SAM(1)="Hello"

GTM>ZWRITE SAM(1,*)
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"

GTM>ZWRITE SAM(:)
SAM(1)="Hello"
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("B")="B"
SAM("E")="E"

GTM>ZWRITE SAM
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>; You can have as many subscripts as you like... as long as the combined len
gth of all subscripts and commas is 255 or less.

GTM>; $data

GTM>; Tells you where there is data at a given subscript node

GTM>; Even tells you whether a variable exists

GTM>; Simplest usage

GTM>WRITE $DATA(BLAHBLAH)
0
GTM>; BLAHBLAH does not exist

GTM>S BLAH2=1

GTM>WRITE $DATA(BLAH2)
1
GTM>; A value of 1 means that the variable exists

GTM>zwrite SAM
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>WRITE $DATA(SAM)
10
GTM>WRITE SAM
%GTM-E-UNDEF, Undefined local variable: SAM

GTM>SET SAM=1

GTM>WRITE $DATA(SAM)
11
GTM>; $DATA value of 10 means that the node you are testing doesn't exists

GTM>; but it has descendants

GTM>; $DATA value of 11 means that the node you are testing exists

GTM>; and it has descendants

GTM>; $data of 0 means no node and no descendants

GTM>; $data of 1 means a node and no descendants

GTM>zwrite SAM
SAM=1
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>W $DATA(SAM("A"))
11
GTM>W $DATA(SAM("C"))
0
GTM>W $DATA(SAM("B"))
1
GTM>W $DATA(SAM(2))
10
GTM>W $DATA(SAM(1))
11
GTM>SET SAM(1,"FIRST","FIRST",3)
%GTM-E-EQUAL, Equal sign expected but not found
        SET SAM(1,"FIRST","FIRST",3)
                                    ^-----

GTM>SET SAM(1,"FIRST","FIRST",3)=""

GTM>ZWRITE SAM
SAM=1
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"FIRST","FIRST",3)=""
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>W $DATA(SAM(1))
11
GTM>W $DATA(SAM(1,"FIRST"))
11
GTM>W $DATA(SAM(1,"FIRST","FIRST"))
10
GTM>W $DATA(SAM(1,"FIRST","FIRST",3))
1
GTM>; $DATA(X)#2

GTM>; What does this mean?

GTM>WRITE 1#2
1
GTM>WRITE 0#2
0
GTM>WRITE 10#2
0
GTM>WRITE 11#2
1
GTM>; Checks if the node has a value, not whether it has decendants

GTM>zwrite SAM
SAM=1
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"FIRST","FIRST",3)=""
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>; Finally, everybody's favorite (sorry, favourite) $Order

GTM>; Simplest form of $Order: Get the next subscript at a specific location

GTM>WRITE $ORDER(SAM(1))
2
GTM>; Next subscript at the same level

GTM>WRITE $ORDER(SAM(2))
3
GTM>WRITE $ORDER(SAM(3))
8
GTM>WRITE $ORDER(SAM("C"))
E
GTM>WRITE $ORDER(SAM("E"))

GTM>; What did it return??????

GTM>; It returned an empty string ("")

GTM>WRITE $ORDER(SAM("E"))=""
1
GTM>; $ORDER past the last element is the same as an empty string.

GTM>; Funny thing about the empty string:

GTM>WRITE $ORDER(SAM(""))
1
GTM>ZWRITE SAM
SAM=1
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"FIRST","FIRST",3)=""
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>; Empty string can be used both to start and end a $Order!!!

GTM>ZED "RAORD"

GTM>ZED "RAORDS"

GTM>; How to use $Order in a for loop

GTM>; choose an iteration variable; and initialize it to "" or 0, depending on t
he data you are querying.

GTM>S ORDERVAR=""

%GTM-I-CTRLC, CTRL_C encountered

GTM>S ORDERVAR=""

GTM>FOR  SET ORDERVAR=$ORDER(SAM(ORDERVAR)) QUIT:ORDERVAR=""  WRITE ORDERVAR
12389ABE
GTM>FOR  SET ORDERVAR=$ORDER(SAM(ORDERVAR)) QUIT:ORDERVAR=""  WRITE ORDERVAR,!
1
2
3
8
9
A
B
E

GTM>ZWRITE SAM
SAM=1
SAM(1)="Hello"
SAM(1,"FIRST")="F"
SAM(1,"FIRST","FIRST",3)=""
SAM(1,"SECOND")="S"
SAM(2,"FIRST")=""
SAM(2,"SECOND")=""
SAM(3)="Hello2"
SAM(8)=8
SAM(9)="Hello9"
SAM("A")="A"
SAM("A","ABCD")=""
SAM("B")="B"
SAM("E")="E"

GTM>ZED "KBANORD"

GTM>zl

GTM>zp ^KBANORD
KBANORD ; Demonstrate a practical use of $Order ; 2/27/11 6:04pm
 ;
GETPAT
 NEW X SET X=""
 FOR  SET X=$ORDER(^DPT(X)) QUIT:X=""  DO
 . WRITE ^DPT(X,0),!
 QUIT


GTM>D GETPAT^KBANORD
%GTM-E-GVUNDEF, Global variable undefined: ^DPT(0,0)
                At M source location GETPAT+3^KBANORD

GTM>X ^%ZVEMS
%GTM-E-GVUNDEF, Global variable undefined: ^%ZVEMS

GTM>ZWRITE ^DPT(0:2,*)
^DPT(0)="PATIENT^2I^24^24"
^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>ZED

GTM>zl
%GTM-E-LOADRUNNING, Cannot ZLINK an active routine KBANORD

GTM>zg

GTM>zl

GTM>zp ^KBANORD
KBANORD ; Demonstrate a practical use of $Order ; 2/27/11 6:06pm
 ;
GETPAT
 NEW X SET X=0
 FOR  SET X=$ORDER(^DPT(X)) QUIT:X=""  DO
 . WRITE ^DPT(X,0),!
 QUIT


GTM>D GETPAT^KBANORD
ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060511^^^^1
ZZ PATIENT,TEST TWO^M^2571225^^7^^SAILOR^29^^Test patient only, please use to te
st, train^BOSTON^25^^^^^^^^1
ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1
MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^12^^^^^^^^1
DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1
GOOSE,GOOFY^M^2820929^^2^^^104^303092982P^^NESPELEM^53^^^23^3100214^^^^1
MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100214^^^^1
LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^3100214^^^^
1
MCDUCK,SCROOGE^M^2331122^^^^^^^^^^^^^^^^^1
RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1
WHITE,SNOW^F^2331122^^^^^^123458902^^^^^^9^3100318^^^^1
BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1
RUNNER,ROAD^F^2801122^^^^^^^^^^^^^^^^^1
WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1
MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1
MARTIAN,THE^M^2330122^^^^^^^^^^^^^^^^^1
MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1
MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^^^1
MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1
BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1
THECAT,TOM^M^2800707^^^^^^^^^^^^^^^^^1
POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1
MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^^1
MAKOPITO,SERENA^F^3071111^^^^^^^^^^^^^^^^^1
%GTM-E-GVUNDEF, Global variable undefined: ^DPT("AAP",0)
                At M source location GETPAT+3^KBANORD

GTM>ZWRITE ^DPT(0:"AAP",*)
^DPT(0)="PATIENT^2I^24^24"
^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"
^DPT(3,0)="ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1"
^DPT(3,.11)="123 ANYWHERE^^^AVON^18^46123^7^^^^^46123^3050724.173752^VAMC^050^^5
          9"
^DPT(3,.21)="CLAUSE,SANTA^FRIEND^^^^^^^^N"
^DPT(3,.24)="^^NITWIT,"
^DPT(3,.3)="N^^^^^^^^^^^"
^DPT(3,.31)="^^^^^^^^^^N"
^DPT(3,.311)="^^^^^^^^^^^^^^9"
^DPT(3,.32)="^^98"
^DPT(3,.36)="10^^--"
^DPT(3,1010)="3^^^^^^^^3050509.0907^RED^"
^DPT(3,"DIS",0)="^2.101DA^6949489.9093^1"
^DPT(3,"DIS",6949489.9093,0)="3050509.0907^1^3^2^9^^^^^1^5^^10^0^0"
^DPT(3,"DIS",6949489.9093,2)="N^^^N"
^DPT(3,"E",0)="^2.0361P^10^1"
^DPT(3,"E",10,0)="10^^--^"
^DPT(3,"E","B",10,10)=""
^DPT(3,"LR")=3
^DPT(3,"MPI")="500000002^140241^24^1"
^DPT(3,"NAME")="76^68"
^DPT(3,"S",0)="^2.98P^3110117.09^49"
^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,"TYPE")=15
^DPT(3,"VET")="N"
^DPT(4,0)="MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^12^^^^^^^^1"
^DPT(4,.01,0)="^2.01"
^DPT(4,.11)="111 DISNEY LANE^^^SCHENECTADY^36^12345^4^^^^^12345^3100214.101454^V
          AMC^^^9"
^DPT(4,.13)="88992233^89823748"
^DPT(4,.24)="^^STANGER,"
^DPT(4,.29)="^^^^^^^^^^^"
^DPT(4,.3)="N^^^^^^^^^^^^^"
^DPT(4,.31)="^^^^^^^^^^N"
^DPT(4,.311)="DISNEY CORPORATION^^111 FLANE AVE^^^ORLANDO^12^^^^^^^^1^"
^DPT(4,.36)="23^^4^0004^^^^^^^^^"
^DPT(4,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(4,.52)="^^^^^^^"
^DPT(4,1010)="1^^^^^^^^3100128.0347^FC^"
^DPT(4,"DIS",0)="^2.101DA^6899870.9653^1"
^DPT(4,"DIS",6899870.9653,0)="3100128.0347^0^1^2^9^^^^^1^5^^23^0^0"
^DPT(4,"DIS",6899870.9653,2)="N^^^N"
^DPT(4,"E",0)="^2.0361P^23^1"
^DPT(4,"E",23,0)="23^^4^0004"
^DPT(4,"E","B",23,23)=""
^DPT(4,"MPIMB")="N"
^DPT(4,"NAME")="90^^^^^91"
^DPT(4,"S",0)="^2.98P^3110128.2^21"
^DPT(4,"S",3071010.09,0)="2^^^^^^3^^^^^^^^^9^^^3100701.125349"
^DPT(4,"S",3071010.093,0)="2^^^^^^4^^^^^^^^^9^^^3100701.125418"
^DPT(4,"S",3071010.1,0)="2^^^^^^4^^^^^^^^^9^^^3100701.1256"
^DPT(4,"S",3071010.103,0)="2^^^^^^3^^^^^^^^^9^^^3100701.130041"
^DPT(4,"S",3071010.1045,0)="2^^^^^^4^^^^^^^^^9^^^3100701.130115"
^DPT(4,"S",3100214.11,0)="2^^^^^^3^^^^^^^^^9^^^3100214^^^^^0^O^2"
^DPT(4,"S",3100214.11,1)="3100214^0"
^DPT(4,"S",3100518.1,0)="2^^^^^^3^^^^^^^^^9^^^3100512.205704"
^DPT(4,"S",3100607.1015,0)="2^C^^^^^3^^^^^23^^3100606.1312^10^9^^23^3100606"
^DPT(4,"S",3100607.113,0)="2^C^^^^^3^^^^^23^^3100606.131^13^9^^23^3100606"
^DPT(4,"S",3100607.113,"R")="hello"
^DPT(4,"S",3100608.11,0)="2^N^^^^^3^^^^^23^^3100606.142827^^9^^^3100606.131144"
^DPT(4,"S",3100611.082,0)="3^^^^^^3^^^^^^^^^9^^^3100611.022414"
^DPT(4,"S",3100612.09,0)="1^^^^^^3^^^^^^^^^9^^^3100610.23535"
^DPT(4,"S",3100619.084,0)="3^^^^^^3^^^^^^^^^9^^^3100618.18263"
^DPT(4,"S",3100619.1115,0)="2^^^^^^3^^^^^^^^^9^^^3100618.214803"
^DPT(4,"S",3110123.095,0)="2^PC^^^^^3^^^^^9^^3101031.1056^1^9^^9^3101031"
^DPT(4,"S",3110123.095,"R")="Sam's Cancel Note"
^DPT(4,"S",3110123.1,0)="2^PC^^^^^3^^^^^9^^3101031.11^1^9^^9^3101031"
^DPT(4,"S",3110123.1,"R")="Sam's Cancel Note"
^DPT(4,"S",3110123.2,0)="2^PC^^^^^3^^^^^23^^3101116.0622^1^9^^23^3101116"
^DPT(4,"S",3110123.2,"R")="Sam's Cancel Note"
^DPT(4,"S",3110124.2,0)="2^^^^^^3^^^^^^^^^9^^^3101113.145726"
^DPT(4,"S",3110124.2,"R")="Sam's Cancel Note"
^DPT(4,"S",3110125.2,0)="2^^^^^^3^^^^^^^^^9^^^3101116.052925"
^DPT(4,"S",3110125.2,"R")="Sam's Cancel Note"
^DPT(4,"S",3110127.2,0)="2^PC^^^^^3^^^^^23^^3101116.0618^1^9^^23^3101116"
^DPT(4,"S",3110127.2,"R")="Reasons"
^DPT(4,"S",3110128.2,0)="2^PC^^^^^3^^^^^23^^3101116.0622^1^9^^23^3101116"
^DPT(4,"S",3110128.2,"R")="Reasons"
^DPT(4,"TYPE")=15
^DPT(4,"VET")="N"
^DPT(5,0)="DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1"
^DPT(5,.11)="11 DISNEY LANE^^^SELAH^53^98942^2^^^^^98942^3100214.164836^VAMC^^^2
          3"
^DPT(5,.24)="^^JANE,"
^DPT(5,.29)="^^^^^^^^^^^"
^DPT(5,.3)="N^^^^^^^^^^^^^"
^DPT(5,.31)="^^^^^^^^^^N"
^DPT(5,.311)="DISNEY^^^^^^^^^^^^^^1^"
^DPT(5,.32)="^^123"
^DPT(5,.321)="N^N^N^^^^^^^^"
^DPT(5,.36)="23^^678567^678567^^^^^^^^^"
^DPT(5,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(5,.52)="^^^^N^^^"
^DPT(5,"E",0)="^2.0361P^23^1"
^DPT(5,"E",23,0)="23^^5^0005"
^DPT(5,"E","B",23,23)=""
^DPT(5,"MPI")="500000004^486589^67^1"
^DPT(5,"MPIMB")="N"
^DPT(5,"NAME")="92^^^^^99"
^DPT(5,"S",0)="^2.98P^3110302.085^32"
^DPT(5,"S",3100221.09,0)="2^I^^^^^3^^^^^^^^^9^^^3100214^^^^^0^O^0"
^DPT(5,"S",3100221.09,1)="3100214^0"
^DPT(5,"S",3100511.11,0)="2^^^^^^4^^^^^^^^^9^^^3100511.141304"
^DPT(5,"S",3100608.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100607.163001"
^DPT(5,"S",3100608.103,0)="2^^^^^^3^^^^^^^^^9^^^3100608.004204"
^DPT(5,"S",3100608.12,0)="2^C^^^^^3^^^^^23^^3100606.1313^10^9^^23^3100606"
^DPT(5,"S",3100611.1,0)="2^^^^^^3^^^^^^^^^9^^^3100607.210419"
^DPT(5,"S",3100611.11,0)="2^^^^^^3^^^^^^^^^9^^^3100607.144628"
^DPT(5,"S",3100611.1215,0)="2^^^^^^3^^^^^^^^^9^^^3100606.141637"
^DPT(5,"S",3100611.13,0)="2^PC^^^^^3^^^^^23^^3100606.1417^6^9^^23^3100606"
^DPT(5,"S",3100612.092,0)="1^^^^^^3^^^^^^^^^9^^^3100611.023803"
^DPT(5,"S",3100619.091,0)="3^^^^^^4^^^^^^^^^9^^^3100618.212224"
^DPT(5,"S",3100619.1,0)="3^^^^^^3^^^^^^^^^9^^^3100618.212103"
^DPT(5,"S",3100624.151,0)="2^^^^^^4^^^^^^^^^9^^^3100624.084159"
^DPT(5,"S",3101004.1,0)="3^^^^^^3^^^^^^^^^9^^^3101004^^^^^0^N^3"
^DPT(5,"S",3101004.1,1)="3101004^0"
^DPT(5,"S",3101025.093,0)="2^PC^^^^^3^^^^^23^^3101004.1926^6^9^^23^3101004"
^DPT(5,"S",3101030.09,0)="1^^^^^^4^^^^^^^^^9^^^3101024.001427"
^DPT(5,"S",3101207.092,0)="3^C^^^^^3^^^^^23^^3101206.084^10^9^^23^3101206"
^DPT(5,"S",3110106.11,0)="4^^^^^^3^^^^^^^^^9^^^3110106.080515"
^DPT(5,"S",3110214.092,0)="1^^^^^^3^^^^^^^^^9^^^3110125.203824"
^DPT(5,"S",3110214.11,0)="1^^^^^^3^^^^^^^^^9^^^3110125.203034"
^DPT(5,"S",3110214.112,0)="1^^^^^^3^^^^^^^^^9^^^3110125.203628"
^DPT(5,"S",3110217.09,0)="1^^^^^^3^^^^^^^^^9^^^3110125.204318"
^DPT(5,"S",3110217.092,0)="1^^^^^^3^^^^^^^^^9^^^3110125.204327"
^DPT(5,"S",3110217.094,0)="1^^^^^^3^^^^^^^^^9^^^3110125.204331"
^DPT(5,"S",3110222.09,0)="1^^^^^^3^^^^^^^^^9^^^3110221.072611"
^DPT(5,"S",3110222.091,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090704"
^DPT(5,"S",3110222.093,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090643"
^DPT(5,"S",3110222.095,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090655"
^DPT(5,"S",3110222.104,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090712"
^DPT(5,"S",3110222.11,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090719"
^DPT(5,"S",3110222.111,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090735"
^DPT(5,"S",3110302.085,0)="3^C^^^^^3^^^^^23^^3110227.1556^11^9^^23^3110227"
^DPT(5,"S",3110303.085,0)="3^^^^^^3^^^^^^^^^9^^^3110227.155611"
^DPT(5,"TYPE")=15
^DPT(5,"VET")="N"
^DPT(5,"VW",0)="^2.1131^8^1"
^DPT(5,"VW",8,0)="8^678567^6"
^DPT(5,"VW","B",8,8)=""
^DPT(5,"VW","C",8,678567,6,8)=""
^DPT(6,0)="GOOSE,GOOFY^M^2820929^^2^^^104^303092982P^^NESPELEM^53^^^23^3100214^^
          ^^1"
^DPT(6,.11)="80 MEADOW LANE^^^GRAND COULEE^53^99133^38^^^^^99133^3100214.155647^
          VAMC^^^23"
^DPT(6,.13)="888-888-8888^"
^DPT(6,.24)="^^MAIDEN GOOSE,"
^DPT(6,.29)="^^^^^^^^^^^"
^DPT(6,.3)="N^^^^^^^^^^^^^"
^DPT(6,.31)="^^^^^^^^^^N"
^DPT(6,.36)="23^^6^0006^^^^^^^^^"
^DPT(6,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(6,.52)="^^^^^^^"
^DPT(6,57)="^^^X"
^DPT(6,1010)="1^^^^^^^^3100214.1558^0^"
^DPT(6,"DIS",0)="^2.101DA^6899784.8442^1"
^DPT(6,"DIS",6899784.8442,0)="3100214.1558^2^1^2^23^^^^^1^5^^23^0^0"
^DPT(6,"DIS",6899784.8442,2)="N^^^N"
^DPT(6,"E",0)="^2.0361P^23^1"
^DPT(6,"E",23,0)="23^^6^0006"
^DPT(6,"E","B",23,23)=""
^DPT(6,"LR")=6
^DPT(6,"NAME")="93^^^^^94"
^DPT(6,"S",0)="^2.98P^3100511.12^1"
^DPT(6,"S",3100511.12,0)="2^^^^^^3^^^^^^^^^9^^^3100511.14351"
^DPT(6,"SSN")="N"
^DPT(6,"TYPE")=15
^DPT(6,"VET")="N"
^DPT(7,0)="MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100214
          ^^^^1"
^DPT(7,.11)="85 MEADOW LNAE^^^ALBANY^36^12233^1^^^^^12233^3100214.160724^VAMC^^^
          23"
^DPT(7,.24)="^^HELLO,"
^DPT(7,.29)="^^^^^^^^^^^"
^DPT(7,.3)="N^^^^^^^^^^^^^"
^DPT(7,.31)="^^^^^^^^^^N"
^DPT(7,.311)="DISNEY^^^^^^^^^^^^^^1^"
^DPT(7,.36)="23^^7^0007^^^^^^^^^"
^DPT(7,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(7,.52)="^^^^^^^"
^DPT(7,1010)="1^^^^^^^^3100214.1608^0^"
^DPT(7,"DIS",0)="^2.101DA^6899784.8392^1"
^DPT(7,"DIS",6899784.8392,0)="3100214.1608^2^1^2^23^^^^^1^5^^23^0^0"
^DPT(7,"DIS",6899784.8392,2)="N^^^N"
^DPT(7,"E",0)="^2.0361P^23^1"
^DPT(7,"E",23,0)="23^^7^0007"
^DPT(7,"E","B",23,23)=""
^DPT(7,"MPI")="500000006^723866^67^1"
^DPT(7,"NAME")="95^^^^^96"
^DPT(7,"S",0)="^2.98P^3071010.09^19"
^DPT(7,"S",3071010.09,0)="1^^^^^^3^^^^^^^^^9^^^3100701.09324"
^DPT(7,"S",3100411.08,0)="2^^^^^^3^^^^^^^^^9^^^3100506^5^^^^0^^0"
^DPT(7,"S",3100411.08,1)="3100406^0"
^DPT(7,"S",3100418.09,0)="2^^^^^^3^^^^^^^^^9^^^3100506^6^^^^0^N^0"
^DPT(7,"S",3100418.09,1)="3100411^1"
^DPT(7,"S",3100503.1,0)="1^^^^^^3^^^^^^^^^9^^^3100429.195015"
^DPT(7,"S",3100513.0945,0)="1^^^^^^3^^^^^^^^^9^^^3100511.140937"
^DPT(7,"S",3100518.08,0)="2^^^^^^3^^^^^^^^^9^^^3100512.205614"
^DPT(7,"S",3100524.1,0)="1^^^^^^3^^^^^^^^^9^^^3100522.2038"
^DPT(7,"S",3100527.1,0)="1^C^^^^^3^^^^^23^^3100522.2038^10^9^^23^3100522"
^DPT(7,"S",3100606.0815,0)="2^PC^^^^^3^^^^^23^^3100606.125^10^9^^23^3100606"
^DPT(7,"S",3100606.0815,"R")="lksjf"
^DPT(7,"S",3100608.1,0)="2^^^^^^3^^^^^^^^^9^^^3100607.141548"
^DPT(7,"S",3100608.12,0)="2^^^^^^4^^^^^^^^^9^^^3100607.2056"
^DPT(7,"S",3100612.081,0)="3^^^^^^3^^^^^^^^^9^^^3100611.021635"
^DPT(7,"S",3100612.09,0)="2^^^^^^3^^^^^^^^^9^^^3100611.024249"
^DPT(7,"S",3100613.091,0)="3^^^^^^3^^^^^^^^^9^^^3100611.022041"
^DPT(7,"S",3100613.11,0)="2^^^^^^3^^^^^^^^^9^^^3100506^^^^^0^N^1"
^DPT(7,"S",3100613.11,1)="3100506^1"
^DPT(7,"S",3100615.082,0)="3^C^^^^^3^^^^^23^^3100611.022^10^9^^23^3100611"
^DPT(7,"S",3100619.09,0)="3^^^^^^3^^^^^^^^^9^^^3100618.201101"
^DPT(7,"S",3100619.092,0)="3^^^^^^3^^^^^^^^^9^^^3100618.201708"
^DPT(7,"S",3100619.093,0)="3^^^^^^3^^^^^^^^^9^^^3100618.204001"
^DPT(7,"S",3100619.095,0)="3^^^^^^3^^^^^^^^^9^^^3100618.203739"
^DPT(7,"S",3100619.1,0)="2^^^^^^3^^^^^^^^^9^^^3100618.213308"
^DPT(7,"S",3100619.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100618.183155"
^DPT(7,"S",3101122.09,0)="3^I^^^^^3^^^^^^^^^9^^^3101023^^^^^0^N^1"
^DPT(7,"S",3101122.09,1)="3101023^0"
^DPT(7,"TYPE")=15
^DPT(7,"VET")="N"
^DPT(8,0)="LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^
          3100214^^^^1"
^DPT(8,.06,0)="^2.06PA"
^DPT(8,.11)="89 VIA DE LA ROSA^ROMA^^SCHENECTADY^36^12345^4^^^^^12345^3100214.16
          1426^VAMC^^^23"
^DPT(8,.13)="^"
^DPT(8,.24)="^^LKSJDFKJ,"
^DPT(8,.29)="^^^^^^^^^^^"
^DPT(8,.3)="N^^^^^^^^^^^^^"
^DPT(8,.31)="^^^^^^^^^^N"
^DPT(8,.311)="LEONARDO DA VINCI^^ANOTHER VIA^^^FLOENCE^93^^^^^^^^1^"
^DPT(8,.32)="^^123"
^DPT(8,.36)="23^^8^0008^^^^^^^^^"
^DPT(8,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(8,.52)="^^^^^^^"
^DPT(8,1010)="1^^^^^^^^3100223.1122^0^"
^DPT(8,"DIS",0)="^2.101DA^6899775.8878^2"
^DPT(8,"DIS",6899775.8878,0)="3100223.1122^2^1^2^23^^^^^1^5^^23^0^0"
^DPT(8,"DIS",6899775.8878,2)="N^^^N"
^DPT(8,"DIS",6899784.8389,0)="3100214.1611^0^3^2^23^3100214.1639^4^^23^^5^^23^0^
          0"
^DPT(8,"DIS",6899784.8389,2)="N^^^N"
^DPT(8,"E",0)="^2.0361P^23^1"
^DPT(8,"E",23,0)="23^^8^0008"
^DPT(8,"E","B",23,23)=""
^DPT(8,"LR")=4
^DPT(8,"NAME")="97^^^^^98"
^DPT(8,"S",0)="^2.98P^^"
^DPT(8,"S",3100502.08,0)="2^^^^^^3^^^^^^^^^9^^^3100430^^^^^0^N^3"
^DPT(8,"S",3100502.08,1)="3100430^0"
^DPT(8,"SSN")="R"
^DPT(8,"TYPE")=15
^DPT(8,"VET")="N"
^DPT(9,0)="MCDUCK,SCROOGE^M^2331122^^^^^^^^^^^^^^^^^1"
^DPT(9,.29)="^^^^^^^^^^^"
^DPT(9,.3)="N^^^^^^^^^^^^^"
^DPT(9,.36)="23^^9^0009^^^^^^^^^"
^DPT(9,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(9,.52)="^^^^^^^"
^DPT(9,1010)="1^^^^^^^^3100223.0539^FC^"
^DPT(9,"DIS",0)="^2.101DA^6899775.9461^1"
^DPT(9,"DIS",6899775.9461,0)="3100223.0539^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(9,"DIS",6899775.9461,2)="N^^^N"
^DPT(9,"E",0)="^2.0361P^23^1"
^DPT(9,"E",23,0)="23^^9^0009"
^DPT(9,"E","B",23,23)=""
^DPT(9,"LR")=7
^DPT(9,"NAME")=100
^DPT(9,"S",0)="^2.98P^3100706.09^1"
^DPT(9,"S",3100706.09,0)="3^^^^^^4^^^^^^^^^9^^^3101206.061214"
^DPT(9,"TYPE")=15
^DPT(9,"VET")="N"
^DPT(10,0)="RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1"
^DPT(10,.29)="^^^^^^^^^^^"
^DPT(10,.3)="N^^^^^^^^^^^^^"
^DPT(10,.36)="23^^--^^^^^^^^^^"
^DPT(10,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(10,.52)="^^^^^^^"
^DPT(10,1010)="1^^^^^^^^3100223.0602^FC^"
^DPT(10,"DIS",0)="^2.101DA^6899775.9398^1"
^DPT(10,"DIS",6899775.9398,0)="3100223.0602^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(10,"DIS",6899775.9398,2)="N^^^N"
^DPT(10,"E",0)="^2.0361P^23^1"
^DPT(10,"E",23,0)="23^^10^0010"
^DPT(10,"E","B",23,23)=""
^DPT(10,"NAME")=101
^DPT(10,"S",0)="^2.98P^3100706.093^5"
^DPT(10,"S",3100608.0845,0)="2^C^^^^^3^^^^^23^^3100610.1752^12^9^^23^3100607"
^DPT(10,"S",3100608.093,0)="2^^^^^^3^^^^^^^^^9^^^3100610.175207"
^DPT(10,"S",3100706.093,0)="3^^^^^^3^^^^^^^^^9^^^3101206.061224"
^DPT(10,"S",3101024.0945,0)="2^C^^^^^3^^^^^23^^3101004.1926^7^9^^23^3101004"
^DPT(10,"S",3101031.083,0)="2^^^^^^3^^^^^^^^^9^^^3101004.192643"
^DPT(10,"TYPE")=15
^DPT(10,"VET")="N"
^DPT(10,"VW",0)="^2.1131^10^1"
^DPT(10,"VW",10,0)="10^666777888^5^^^23423"
^DPT(10,"VW","B",10,10)=""
^DPT(10,"VW","C",10,666777888,5,10)=""
^DPT(11,0)="WHITE,SNOW^F^2331122^^^^^^123458902^^^^^^9^3100318^^^^1"
^DPT(11,.29)="^^^^^^^^^^^"
^DPT(11,.3)="N^^^^^^^^^^^^^"
^DPT(11,.36)="23^^11^0011^^^^^^^^^"
^DPT(11,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(11,.52)="^^^^^^^"
^DPT(11,1010)="1^^^^^^^^3100223.0606^FC^"
^DPT(11,"DIS",0)="^2.101DA^6899775.9394^1"
^DPT(11,"DIS",6899775.9394,0)="3100223.0606^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(11,"DIS",6899775.9394,2)="N^^^N"
^DPT(11,"E",0)="^2.0361P^23^1"
^DPT(11,"E",23,0)="23^^11^0011"
^DPT(11,"E","B",23,23)=""
^DPT(11,"NAME")=102
^DPT(11,"S",0)="^2.98P^3100706.1^7"
^DPT(11,"S",3100321.083,0)="2^^^^^^3^^^^^^^^^9^^^3100318^^^^^0^N^3"
^DPT(11,"S",3100321.083,1)="3100318^0"
^DPT(11,"S",3100613.09,0)="3^^^^^^3^^^^^^^^^9^^^3101206.055546"
^DPT(11,"S",3100706.1,0)="3^N^^^^^3^^^^^23^^3101206.063536^^9^^^3101206.061236"
^DPT(11,"S",3101023.0915,0)="2^N^^^^^3^^^^^23^^3101004.192952^^9^^^3101004.19294
          1"
^DPT(11,"S",3101025.103,0)="2^C^^^^^3^^^^^23^^3101004.1926^11^9^^23^3101004"
^DPT(11,"S",3101026.1015,0)="2^C^^^^^3^^^^^23^^3101004.2009^7^9^^23^3101004"
^DPT(11,"S",3101027.083,0)="2^^^^^^3^^^^^^^^^9^^^3101004.200917"
^DPT(11,"SSN")=""
^DPT(11,"TYPE")=15
^DPT(11,"VET")="N"
^DPT(12,0)="BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1"
^DPT(12,.06,0)="^2.06PA"
^DPT(12,.29)="^^^^^^^^^^^"
^DPT(12,.3)="N^^^^^^^^^^^^^"
^DPT(12,.36)="23^^12^0012^^^^^^^^^"
^DPT(12,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(12,.52)="^^^^^^^"
^DPT(12,1010)="1^^^^^^^^3100223.0611^FC^"
^DPT(12,"DIS",0)="^2.101DA^6899775.9389^1"
^DPT(12,"DIS",6899775.9389,0)="3100223.0611^0^1^2^9^^^^^1^5^^23^0^0"
^DPT(12,"DIS",6899775.9389,2)="N^^^N"
^DPT(12,"E",0)="^2.0361P^23^1"
^DPT(12,"E",23,0)="23^^12^0012"
^DPT(12,"E","B",23,23)=""
^DPT(12,"MPI")="500000005^694934^67^1"
^DPT(12,"NAME")=103
^DPT(12,"S",0)="^2.98P^3110214.09^11"
^DPT(12,"S",3100321.09,0)="2^^^^^^3^^^^^^^^^9^^^3100318^^^^^^M^0"
^DPT(12,"S",3100328.09,0)="2^^^^^^3^^^^^^^^^9^^^3100318^^^^^^M^0"
^DPT(12,"S",3100328.093,0)="2^^^^^^3^^^^^^^^^9^^^3100318^^^^^0^O^0"
^DPT(12,"S",3100328.093,1)="3100318^0"
^DPT(12,"S",3100511.11,0)="1^^^^^^3^^^^^^^^^9^^^3100511.141237"
^DPT(12,"S",3100613.093,0)="3^^^^^^3^^^^^^^^^9^^^3101206.055619"
^DPT(12,"S",3101206.09,0)="3^C^^^^^3^^^^^23^^3101206.0844^10^9^^23^3101206"
^DPT(12,"S",3101213.09,0)="2^^^^^^3^^^^^^^^^9^^^3101206.033623"
^DPT(12,"S",3101213.09,"R")="jhg"
^DPT(12,"S",3101213.0915,0)="2^^^^^^3^^^^^^^^^9^^^3101206.033404"
^DPT(12,"S",3110106.113,0)="4^^^^^^3^^^^^^^^^9^^^3110106.082203"
^DPT(12,"S",3110214.09,0)="1^C^^^^^3^^^^^23^^3110125.2237^10^9^^23^3110125"
^DPT(12,"S",3110214.11,0)="1^^^^^^3^^^^^^^^^9^^^3110125.203211"
^DPT(12,"TYPE")=15
^DPT(12,"VET")="N"
^DPT(13,0)="RUNNER,ROAD^F^2801122^^^^^^^^^^^^^^^^^1"
^DPT(13,.29)="^^^^^^^^^^^"
^DPT(13,.3)="N^^^^^^^^^^^^^"
^DPT(13,.36)="23^^13^0013^^^^^^^^^"
^DPT(13,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(13,.52)="^^^^^^^"
^DPT(13,1010)="1^^^^^^^^3100223.0634^FC^"
^DPT(13,"DIS",0)="^2.101DA^6899775.9366^1"
^DPT(13,"DIS",6899775.9366,0)="3100223.0634^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(13,"DIS",6899775.9366,2)="N^^^N"
^DPT(13,"E",0)="^2.0361P^23^1"
^DPT(13,"E",23,0)="23^^13^0013"
^DPT(13,"E","B",23,23)=""
^DPT(13,"NAME")=104
^DPT(13,"S",0)="^2.98P^3110119.09^33"
^DPT(13,"S",3100321.08,0)="2^^^^^^3^^^^^^^^^9^^^3100318^^^^^0^N^3"
^DPT(13,"S",3100321.08,1)="3100318^0"
^DPT(13,"S",3100511.0945,0)="1^^^^^^4^^^^^^^^^9^^^3100511.141114"
^DPT(13,"S",3100608.1345,0)="2^C^^^^^3^^^^^23^^3100607.2053^3^9^^23^3100607"
^DPT(13,"S",3100610.09,0)="2^C^^^^^3^^^^^23^^3100606.1253^13^9^^23^3100606"
^DPT(13,"S",3100611.091,0)="3^^^^^^3^^^^^^^^^9^^^3100611.022833"
^DPT(13,"S",3100613.01,0)="3^^^^^^3^^^^^^^^^9^^^3101206.055649"
^DPT(13,"S",3100619.085,0)="3^^^^^^3^^^^^^^^^9^^^3100618.215456"
^DPT(13,"S",3100619.094,0)="3^^^^^^3^^^^^^^^^9^^^3100618.203656"
^DPT(13,"S",3100624.15,0)="2^^^^^^3^^^^^^^^^9^^^3100624.083831"
^DPT(13,"S",3101023.12,0)="2^N^^^^^3^^^^^23^^3101023.082851^^9^^^3101023.082836"
^DPT(13,"S",3101024.093,0)="2^N^^^^^3^^^^^23^^3101004.192723^^9^^^3101004.181154
          "
^DPT(13,"S",3101024.123,0)="2^N^^^^^3^^^^^23^^3101023.082949^^9^^^3101023.082926
          "
^DPT(13,"S",3101030.094,0)="1^C^^^^^3^^^^^23^^3101024.0016^11^9^^23^3101024"
^DPT(13,"S",3101030.0945,0)="2^C^^^^^3^^^^^23^^3101024.0015^11^9^^23^3101023"
^DPT(13,"S",3101030.095,0)="1^^^^^^3^^^^^^^^^9^^^3101024.001606"
^DPT(13,"S",3101030.1145,0)="2^^^^^^4^^^^^^^^^9^^^3101024.001131"
^DPT(13,"S",3101031.083,0)="2^^^^^^3^^^^^^^^^9^^^3101023.08295"
^DPT(13,"S",3101031.09,0)="2^^^^^^3^^^^^^^^^9^^^3101024.001048"
^DPT(13,"S",3101101.1,0)="3^^^^^^3^^^^^^^^^9^^^3101004^^^^^0^N^1"
^DPT(13,"S",3101101.1,1)="3101004^0"
^DPT(13,"S",3101118.09,0)="1^C^^^^^3^^^^^23^^3101116.0708^11^9^^23^3101116"
^DPT(13,"S",3101118.092,0)="1^C^^^^^3^^^^^23^^3101116.0708^11^9^^23^3101116"
^DPT(13,"S",3101118.093,0)="2^C^^^^^3^^^^^23^^3101116.0709^11^9^^23^3101116"
^DPT(13,"S",3101118.095,0)="2^C^^^^^3^^^^^23^^3101116.0709^11^9^^23^3101116"
^DPT(13,"S",3101118.101,0)="2^C^^^^^3^^^^^23^^3101116.0709^11^9^^23^3101116"
^DPT(13,"S",3101118.124,0)="2^^^^^^3^^^^^^^^^9^^^3101116.071007"
^DPT(13,"S",3101118.132,0)="3^C^^^^^3^^^^^23^^3101116.071^11^9^^23^3101116"
^DPT(13,"S",3101205.083,0)="1^^^^^^3^^^^^^^^^9^^^3101206.170705"
^DPT(13,"S",3101207.09,0)="3^C^^^^^3^^^^^23^^3101206.084^10^9^^23^3101206"
^DPT(13,"S",3101207.094,0)="3^^^^^^3^^^^^^^^^9^^^3101206.130528"
^DPT(13,"S",3101208.081,0)="3^C^^^^^3^^^^^23^^3101206.1452^6^9^^23^3101206"
^DPT(13,"S",3101208.093,0)="3^C^^^^^3^^^^^23^^3101206.0838^10^9^^23^3101206"
^DPT(13,"S",3110106.1115,0)="4^^^^^^3^^^^^^^^^9^^^3110106.08114"
^DPT(13,"S",3110117.0945,0)="4^^^^^^3^^^^^^^^^9^^^3110107.215418"
^DPT(13,"S",3110119.09,0)="3^^^^^^3^^^^^^^^^9^^^3110107.232947"
^DPT(13,"TYPE")=15
^DPT(13,"VET")="N"
^DPT(14,0)="WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1"
^DPT(14,.29)="^^^^^^^^^^^"
^DPT(14,.3)="N^^^^^^^^^^^^^"
^DPT(14,.36)="23^^14^0014^^^^^^^^^"
^DPT(14,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(14,.52)="^^^^^^^"
^DPT(14,1010)="1^^^^^^^^3100223.0655^FC^"
^DPT(14,"DIS",0)="^2.101DA^6899775.9345^1"
^DPT(14,"DIS",6899775.9345,0)="3100223.0655^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(14,"DIS",6899775.9345,2)="N^^^N"
^DPT(14,"E",0)="^2.0361P^23^1"
^DPT(14,"E",23,0)="23^^14^0014"
^DPT(14,"E","B",23,23)=""
^DPT(14,"LR")=5
^DPT(14,"NAME")=105
^DPT(14,"S",0)="^2.98P^3100613.01^1"
^DPT(14,"S",3100613.01,0)="3^^^^^^3^^^^^^^^^9^^^3101206.06011"
^DPT(14,"TYPE")=15
^DPT(14,"VET")="N"
^DPT(15,0)="MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1"
^DPT(15,.1)="3F"
^DPT(15,.102)=5
^DPT(15,.103)=23
^DPT(15,.104)=27
^DPT(15,.1041)=27
^DPT(15,.105)=3
^DPT(15,.109)=0
^DPT(15,.29)="^^^^^^^^^^^"
^DPT(15,.3)="N^^^^^^^^^^^^^"
^DPT(15,.36)="23^^15^0015^^^^^^^^^"
^DPT(15,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(15,.52)="^^^^^^^"
^DPT(15,1010)="1^^^^^^^^3100223.1022^FC^"
^DPT(15,"DIS",0)="^2.101DA^6899775.8978^1"
^DPT(15,"DIS",6899775.8978,0)="3100223.1022^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(15,"DIS",6899775.8978,2)="N^^^N"
^DPT(15,"E",0)="^2.0361P^23^1"
^DPT(15,"E",23,0)="23^^15^0015"
^DPT(15,"E","B",23,23)=""
^DPT(15,"MPI")="500000003^302090^67^1"
^DPT(15,"NAME")=106
^DPT(15,"TYPE")=15
^DPT(15,"VET")="N"
^DPT(16,0)="MARTIAN,THE^M^2330122^^^^^^^^^^^^^^^^^1"
^DPT(16,.29)="^^^^^^^^^^^"
^DPT(16,.3)="N^^^^^^^^^^^^^"
^DPT(16,.36)="23^^16^0016^^^^^^^^^"
^DPT(16,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(16,.52)="^^^^^^^"
^DPT(16,1010)="1^^^^^^^^3100223.1135^0^"
^DPT(16,"DIS",0)="^2.101DA^6899775.8865^1"
^DPT(16,"DIS",6899775.8865,0)="3100223.1135^2^1^2^23^^^^^1^5^^23^0^0"
^DPT(16,"DIS",6899775.8865,2)="N^^^N"
^DPT(16,"E",0)="^2.0361P^23^1"
^DPT(16,"E",23,0)="23^^16^0016"
^DPT(16,"E","B",23,23)=""
^DPT(16,"NAME")=107
^DPT(16,"S",0)="^2.98P^3100511.1015^1"
^DPT(16,"S",3100511.1015,0)="1^^^^^^3^^^^^^^^^9^^^3100511.141202"
^DPT(16,"S",3101123.08,0)="3^^^^^^3^^^^^^^^^9^^^3101023^^^^^0^O^0"
^DPT(16,"S",3101123.08,1)="3101102^0"
^DPT(16,"S",3110125.1,0)="3^^^^^^3^^^^^^^^^9^^^3110125^^^^^0^O^2"
^DPT(16,"S",3110125.1,1)="3110125^0"
^DPT(16,"TYPE")=15
^DPT(16,"VET")="N"
^DPT(17,0)="MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1"
^DPT(17,.29)="^^^^^^^^^^^"
^DPT(17,.3)="N^^^^^^^^^^^^^"
^DPT(17,.36)="23^^123458903^8903^^^^^^^^^"
^DPT(17,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(17,.52)="^^^^^^^"
^DPT(17,1010)="3^^^^^^^^3100512.2201^FC^"
^DPT(17,"DIS",0)="^2.101DA^6899486.7799^1"
^DPT(17,"DIS",6899486.7799,0)="3100512.2201^1^3^2^9^^^^^1^5^^23^0^0"
^DPT(17,"DIS",6899486.7799,2)="N^^^N"
^DPT(17,"E",0)="^2.0361P^23^1"
^DPT(17,"E",23,0)="23^^123458903^8903"
^DPT(17,"E","B",23,23)=""
^DPT(17,"NAME")=108
^DPT(17,"S",0)="^2.98P^^"
^DPT(17,"S",3100618.09,0)="3^^^^^Y^3^^^^^^3100618^^^9^^^3100618^^^^^0^O^2"
^DPT(17,"S",3100618.09,1)="3100618^0"
^DPT(17,"S",3100618.1934,0)="3^^^^^Y^4^^^^^^3100618^^^9^^^3100618^^^^^0^W^0"
^DPT(17,"S",3110106.1,0)="3^^^^^^3^^^^^^^^^9^^^3110106^^^^^0^O^2"
^DPT(17,"S",3110106.1,1)="3110106^0"
^DPT(17,"TYPE")=15
^DPT(17,"VET")="N"
^DPT(18,0)="MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^^^1"
^DPT(18,.29)="^^^^^^^^^^^"
^DPT(18,.3)="N^^^^^^^^^^^^^"
^DPT(18,.36)="^^^^^^^^^^^^"
^DPT(18,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(18,.52)="^^^^^^^"
^DPT(18,1010)="1^^^^^^^^3100512.2227^FC^"
^DPT(18,"DIS",0)="^2.101DA^6899486.7773^1"
^DPT(18,"DIS",6899486.7773,0)="3100512.2227^0^1^2^9^^^^^1^5^^8^0^0"
^DPT(18,"DIS",6899486.7773,2)="N^^^Y"
^DPT(18,"MPIMB")="N"
^DPT(18,"NAME")=109
^DPT(18,"TYPE")=15
^DPT(18,"VET")="N"
^DPT(19,0)="MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1"
^DPT(19,.29)="^^^^^^^^^^^"
^DPT(19,.3)="N^^^^^^^^^^^^^"
^DPT(19,.36)="23^^123458905^8905^^^^^^^^^"
^DPT(19,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(19,.52)="^^^^^^^"
^DPT(19,"E",0)="^2.0361P^23^1"
^DPT(19,"E",23,0)="23^^123458905^8905"
^DPT(19,"E","B",23,23)=""
^DPT(19,"NAME")=110
^DPT(19,"S",0)="^2.98P^3101030.1135^1"
^DPT(19,"S",3101030.1135,0)="2^^^^^^4^^^^^^^^^9^^^3101023.225055"
^DPT(19,"TYPE")=15
^DPT(19,"VET")="N"
^DPT(20,0)="BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1"
^DPT(20,.29)="^^^^^^^^^^^"
^DPT(20,.3)="N^^^^^^^^^^^^^"
^DPT(20,.36)="^^8888^8888^^^^^^^^^"
^DPT(20,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(20,.52)="^^^^^^^"
^DPT(20,"MPI")="500000007^959758^67^1"
^DPT(20,"MPIMB")="N"
^DPT(20,"NAME")=113
^DPT(20,"S",0)="^2.98P^3110106.1145^19"
^DPT(20,"S",3100627.1,0)="2^^^^^^4^^^^^^^^^9^^^3100701^7^^^^0^W^0"
^DPT(20,"S",3100704.09,0)="2^^^^^^3^^^^^^^^^9^^^3100701^^^^^0^N^3"
^DPT(20,"S",3100704.09,1)="3100701^0"
^DPT(20,"S",3101023.0945,0)="2^N^^^^^3^^^^^23^^3101004.193353^^9^^^3101004.19333
          6"
^DPT(20,"S",3101023.1015,0)="2^N^^^^^3^^^^^23^^3101004.193446^^9^^^3101004.19342
          5"
^DPT(20,"S",3101023.1045,0)="2^N^^^^^3^^^^^23^^3101004.193516^^9^^^3101004.19350
          3"
^DPT(20,"S",3101023.1115,0)="2^N^^^^^3^^^^^23^^3101004.194302^^9^^^3101004.19422
          7"
^DPT(20,"S",3101023.113,0)="2^N^^^^^3^^^^^23^^3101004.194743^^9^^^3101004.19472"
^DPT(20,"S",3101024.113,0)="2^N^^^^^3^^^^^23^^3101004.200732^^9^^^3101004.200716
          "
^DPT(20,"S",3101024.12,0)="2^N^^^^^3^^^^^23^^3101004.200823^^9^^^3101004.200814"
^DPT(20,"S",3101024.1215,0)="2^C^^^^^3^^^^^23^^3101004.2008^11^9^^23^3101004"
^DPT(20,"S",3101027.083,0)="2^^^^^^3^^^^^^^^^9^^^3101004.200618"
^DPT(20,"S",3101027.0945,0)="2^^^^^^3^^^^^^^^^9^^^3101004.201052"
^DPT(20,"S",3101027.11,0)="2^^^^^^3^^^^^^^^^9^^^3101004.200849"
^DPT(20,"S",3101028.083,0)="2^C^^^^^3^^^^^23^^3101004.201^11^9^^23^3101004"
^DPT(20,"S",3101031.0945,0)="2^^^^^^3^^^^^^^^^9^^^3101030.13475"
^DPT(20,"S",3101101.1045,0)="2^^^^^^3^^^^^^^^^9^^^3101101.085025"
^DPT(20,"S",3101102.1045,0)="2^C^^^^^3^^^^^23^^3101101.085^10^9^^23^3101101"
^DPT(20,"S",3101208.09,0)="3^C^^^^^3^^^^^23^^3101206.084^10^9^^23^3101206"
^DPT(20,"S",3110106.11,0)="3^^^^^^3^^^^^^^^^9^^^3110106^^^^^0^O^2"
^DPT(20,"S",3110106.11,1)="3110106^0"
^DPT(20,"S",3110106.1145,0)="4^^^^^^3^^^^^^^^^9^^^3110106.085316"
^DPT(20,"TYPE")=15
^DPT(20,"VET")="N"
^DPT(20,"VW",0)="^2.1131^2^2"
^DPT(20,"VW",2,0)="2^8888^6"
^DPT(20,"VW",5,0)="5^888999^6"
^DPT(20,"VW","B",2,2)=""
^DPT(20,"VW","B",5,5)=""
^DPT(20,"VW","C",2,8888,6,2)=""
^DPT(20,"VW","C",5,888999,6,5)=""
^DPT(21,0)="THECAT,TOM^M^2800707^^^^^^^^^^^^^^^^^1"
^DPT(21,.29)="^^^^^^^^^^^"
^DPT(21,.3)="N^^^^^^^^^^^^^"
^DPT(21,.36)="^^--^^^^^^^^^^"
^DPT(21,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(21,.52)="^^^^^^^"
^DPT(21,"NAME")=114
^DPT(21,"S",0)="^2.98P^3110106.093^5"
^DPT(21,"S",3101024.103,0)="2^N^^^^^3^^^^^23^^3101004.192836^^9^^^3101004.192822
          "
^DPT(21,"S",3101025.1,0)="2^C^^^^^3^^^^^23^^3101004.1926^11^9^^23^3101004"
^DPT(21,"S",3101026.0945,0)="2^C^^^^^3^^^^^23^^3101004.1928^11^9^^23^3101004"
^DPT(21,"S",3110104.091,0)="3^^^^^^4^^^^^^^^^9^^^3110106.04504"
^DPT(21,"S",3110106.093,0)="3^^^^^^4^^^^^^^^^9^^^3110106.04512"
^DPT(21,"TYPE")=15
^DPT(21,"VET")="N"
^DPT(21,"VW",0)="^2.1131^1^1"
^DPT(21,"VW",1,0)="1^898989777^5^1^1"
^DPT(21,"VW","B",1,1)=""
^DPT(21,"VW","C",1,898989777,5,1)=""
^DPT(22,0)="POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1"
^DPT(22,.29)="^^^^^^^^^^^"
^DPT(22,.3)="N^^^^^^^^^^^^^"
^DPT(22,.36)="23^^123458908^8908^^^^^^^^^"
^DPT(22,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(22,.52)="^^^^^^^"
^DPT(22,1010)="1^^^^^^^^3101023.1945^FC^"
^DPT(22,"DIS",0)="^2.101DA^6898975.8055^1"
^DPT(22,"DIS",6898975.8055,0)="3101023.1945^2^1^2^9^^^^^1^5^^23^0^0"
^DPT(22,"DIS",6898975.8055,2)="N^^^N"
^DPT(22,"E",0)="^2.0361P^23^1"
^DPT(22,"E",23,0)="23^^123458908^8908"
^DPT(22,"E","B",23,23)=""
^DPT(22,"NAME")=115
^DPT(22,"S",0)="^2.98P^3110106.103^22"
^DPT(22,"S",3101030.09,0)="2^C^^^^^4^^^^^23^^3101024.0017^11^9^^23^3101023"
^DPT(22,"S",3101030.095,0)="2^^^^^^3^^^^^^^^^9^^^3101024.001721"
^DPT(22,"S",3101030.11,0)="2^^^^^^4^^^^^^^^^9^^^3101023.220924"
^DPT(22,"S",3101030.113,0)="2^^^^^^4^^^^^^^^^9^^^3101023.224814"
^DPT(22,"S",3101030.1135,0)="2^^^^^^4^^^^^^^^^9^^^3101023.224834"
^DPT(22,"S",3101102.13,0)="2^^^^^^3^^^^^^^^^9^^^3101101.085218"
^DPT(22,"S",3101114.084,0)="3^^^^^^3^^^^^^^^^9^^^3101116.070645"
^DPT(22,"S",3101117.1115,0)="2^C^^^^^3^^^^^23^^3101116.0705^11^9^^23^3101116"
^DPT(22,"S",3101118.093,0)="2^PC^^^^^3^^^^^23^^3101116.0705^4^9^^23^3101116"
^DPT(22,"S",3101118.1015,0)="2^C^^^^^3^^^^^23^^3101116.0703^1^9^^23^3101116"
^DPT(22,"S",3101118.103,0)="2^C^^^^^3^^^^^23^^3101116.0704^11^9^^23^3101116"
^DPT(22,"S",3101118.1045,0)="2^C^^^^^3^^^^^23^^3101116.0705^11^9^^23^3101116"
^DPT(22,"S",3101118.1115,0)="2^C^^^^^3^^^^^23^^3101116.0705^11^9^^23^3101116"
^DPT(22,"S",3101121.083,0)="2^^^^^^3^^^^^^^^^9^^^3101116.070549"
^DPT(22,"S",3101205.0845,0)="1^^^^^^3^^^^^^^^^9^^^3101206.171303"
^DPT(22,"S",3101206.0913,0)="3^^^^^Y^4^^^^^^3101206^^^9^^^3101206^^^^^0^W^0"
^DPT(22,"S",3101206.0921,0)="3^^^^^Y^4^^^^^^3101206^^^9^^^3101206^^^^^0^W^0"
^DPT(22,"S",3101207.083,0)="1^^^^^^3^^^^^^^^^9^^^3101206.173948"
^DPT(22,"S",3101207.091,0)="3^C^^^^^3^^^^^23^^3101206.084^10^9^^23^3101206"
^DPT(22,"S",3101208.083,0)="1^C^^^^^3^^^^^23^^3101206.1745^10^9^^23^3101206"
^DPT(22,"S",3101221.08,0)="3^^^^^^3^^^^^^^^^9^^^3101206^^^^^0^O^0"
^DPT(22,"S",3101221.08,1)="3101206^0"
^DPT(22,"S",3110104.09,0)="2^^^^^^3^^^^^^^^^9^^^3110102.171746"
^DPT(22,"S",3110106.085,0)="3^^^^^^3^^^^^^^^^9^^^3110106.045244"
^DPT(22,"S",3110106.0945,0)="4^^^^^^4^^^^^^^^^9^^^3110106.050622"
^DPT(22,"S",3110106.103,0)="4^^^^^^4^^^^^^^^^9^^^3110106.051604"
^DPT(22,"TYPE")=15
^DPT(22,"VET")="N"
^DPT(23,0)="MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^^1"
^DPT(23,.29)="^^^^^^^^^^^"
^DPT(23,.3)="N^^^^^^^^^^^^^"
^DPT(23,.36)="23^^123458909^8909^^^^^^^^^"
^DPT(23,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(23,.52)="^^^^^^^"
^DPT(23,1010)="1^^^^^^^^3101206.141^DO^"
^DPT(23,"DIS",0)="^2.101DA^6898792.859^1"
^DPT(23,"DIS",6898792.859,0)="3101206.141^2^1^2^11^^^^^1^5^^23^0^0"
^DPT(23,"DIS",6898792.859,2)="N^^^N"
^DPT(23,"E",0)="^2.0361P^23^1"
^DPT(23,"E",23,0)="23^^123458909^8909"
^DPT(23,"E","B",23,23)=""
^DPT(23,"MPI")="500000008^838613^67^1"
^DPT(23,"NAME")=116
^DPT(23,"S",0)="^2.98P^3110222.095^11"
^DPT(23,"S",3101205.083,0)="1^^^^^^4^^^^^^^^^9^^^3101206.170742"
^DPT(23,"S",3101208.085,0)="3^^^^^^3^^^^^^^^^9^^^3101206.163201"
^DPT(23,"S",3110124.0507,0)="3^^^^^^4^^^^^^^^^9^^^3110124^9^^^^0^W^0"
^DPT(23,"S",3110214.11,0)="1^C^^^^^3^^^^^23^^3110125.2037^11^9^^23^3110125"
^DPT(23,"S",3110214.114,0)="1^^^^^^3^^^^^^^^^9^^^3110125.203734"
^DPT(23,"S",3110222.09,0)="1^^^^^^3^^^^^^^^^9^^^3110221.072711"
^DPT(23,"S",3110222.0945,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090435"
^DPT(23,"S",3110222.095,0)="3^^^^^^3^^^^^^^^^9^^^3110222.091549"
^DPT(23,"S",3110222.1,0)="1^C^^^^^3^^^^^23^^3110222.0915^11^9^^23^3110222"
^DPT(23,"S",3110224.09,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090327"
^DPT(23,"S",3110224.0915,0)="1^^^^^^3^^^^^^^^^9^^^3110222.09035"
^DPT(23,"S",3110224.093,0)="1^^^^^^3^^^^^^^^^9^^^3110222.090527"
^DPT(23,"TYPE")=15
^DPT(23,"VET")="N"
^DPT(24,0)="MAKOPITO,SERENA^F^3071111^^^^^^^^^^^^^^^^^1"
^DPT(24,.1)="3F"
^DPT(24,.101)="3F-1"
^DPT(24,.102)=8
^DPT(24,.103)=26
^DPT(24,.104)=9
^DPT(24,.1041)=9
^DPT(24,.105)=8
^DPT(24,.108)=1
^DPT(24,.109)=0
^DPT(24,.29)="^^^^^^^^^^^"
^DPT(24,.3)="N^^^^^^^^^^^^^"
^DPT(24,.36)="23^^123458910^8910^^^^^^^^^"
^DPT(24,.362)="^^^^^^^^^^^^^^^^^^^"
^DPT(24,.52)="^^^^^^^"
^DPT(24,1010)="1^^^^^^^^3110126.0816^FC^"
^DPT(24,"DIS",0)="^2.101DA^6889872.9184^1"
^DPT(24,"DIS",6889872.9184,0)="3110126.0816^0^1^2^9^^^^^1^5^^23^0^0"
^DPT(24,"DIS",6889872.9184,2)="N^^^N"
^DPT(24,"E",0)="^2.0361P^23^1"
^DPT(24,"E",23,0)="23^^123458910^8910"
^DPT(24,"E","B",23,23)=""
^DPT(24,"MPI")="500000009^561175^67^1"
^DPT(24,"NAME")=117
^DPT(24,"TYPE")=15
^DPT(24,"VET")="N"
^DPT("AAP",9,24)=""
^DPT("AAP",27,15)=""

GTM>ZED

GTM>zl
%GTM-E-LOADRUNNING, Cannot ZLINK an active routine KBANORD

GTM>zg

GTM>zp ^KBANORD
KBANORD ; Demonstrate a practical use of $Order ; 2/27/11 6:06pm
 ;
GETPAT
 NEW X SET X=0
 FOR  SET X=$ORDER(^DPT(X)) QUIT:X=""  DO
 . WRITE ^DPT(X,0),!
 QUIT


GTM>zl

GTM>zp ^KBANORD
KBANORD ; Demonstrate a practical use of $Order ; 2/27/11 6:09pm
 ;
GETPAT
 NEW X SET X=0
 FOR  SET X=$ORDER(^DPT(X)) QUIT:+X=0  DO
 . WRITE ^DPT(X,0),!
 QUIT


GTM>d GETPAT^KBANORD
ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060511^^^^1
ZZ PATIENT,TEST TWO^M^2571225^^7^^SAILOR^29^^Test patient only, please use to te
st, train^BOSTON^25^^^^^^^^1
ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1
MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^12^^^^^^^^1
DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1
GOOSE,GOOFY^M^2820929^^2^^^104^303092982P^^NESPELEM^53^^^23^3100214^^^^1
MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100214^^^^1
LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^3100214^^^^
1
MCDUCK,SCROOGE^M^2331122^^^^^^^^^^^^^^^^^1
RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1
WHITE,SNOW^F^2331122^^^^^^123458902^^^^^^9^3100318^^^^1
BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1
RUNNER,ROAD^F^2801122^^^^^^^^^^^^^^^^^1
WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1
MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1
MARTIAN,THE^M^2330122^^^^^^^^^^^^^^^^^1
MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1
MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^^^1
MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1
BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1
THECAT,TOM^M^2800707^^^^^^^^^^^^^^^^^1
POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1
MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^^1
MAKOPITO,SERENA^F^3071111^^^^^^^^^^^^^^^^^1

GTM>; Further simplification

GTM>zed

GTM>zl

GTM>zp ^KBANORD
KBANORD ; Demonstrate a practical use of $Order ; 2/27/11 6:11pm
 ;
GETPAT
 NEW X SET X=0
 FOR  SET X=$ORDER(^DPT(X)) QUIT:'X  DO
 . WRITE ^DPT(X,0),!
 QUIT


GTM>d GETPAT^KBANORD
ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060511^^^^1
ZZ PATIENT,TEST TWO^M^2571225^^7^^SAILOR^29^^Test patient only, please use to te
st, train^BOSTON^25^^^^^^^^1
ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1
MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^12^^^^^^^^1
DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1
GOOSE,GOOFY^M^2820929^^2^^^104^303092982P^^NESPELEM^53^^^23^3100214^^^^1
MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100214^^^^1
LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^3100214^^^^
1
MCDUCK,SCROOGE^M^2331122^^^^^^^^^^^^^^^^^1
RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1
WHITE,SNOW^F^2331122^^^^^^123458902^^^^^^9^3100318^^^^1
BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1
RUNNER,ROAD^F^2801122^^^^^^^^^^^^^^^^^1
WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1
MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1
MARTIAN,THE^M^2330122^^^^^^^^^^^^^^^^^1
MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1
MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^^^1
MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1
BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1
THECAT,TOM^M^2800707^^^^^^^^^^^^^^^^^1
POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1
MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^^1
MAKOPITO,SERENA^F^3071111^^^^^^^^^^^^^^^^^1

GTM>ZED

GTM>ZED

GTM>zl

GTM>; HW

GTM>; Write a program which prompts the user for a series of numbers (any number
 of numbers)

GTM>; then average those numbers and return to the user the average

GTM>