Mumps Class 13

 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>