PSNPPSNP ;HP/MJE-PPSN Parse PPS-N Update file ; 05 Mar 2014 1:20 PM
;;4.0;NATIONAL DRUG FILE;**513**; 30 Oct 98;Build 53
;
Q
PARSE ;
N PSNA,PSNB
F II=0:0 S II=$O(^TMP("PSN PPSN READ",$J,II)) Q:'II D
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.416) D
..S Z11=Z11+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z11)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.6) D
..S Z12=Z12+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z12)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.605) D
..S Z13=Z13+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z13)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.606) D
..S Z14=Z14+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z14)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.607) D
..S Z15=Z15+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z15)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.608) D
..S Z16=Z16+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z16)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.609) D
..S Z17=Z17+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z17)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.64) D
..S Z18=Z18+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z18)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.67) D
..S Z19=Z19+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z19)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.68) D
..S Z191=Z191+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z191)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=51.2) D
..S Z192=Z192+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z192)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=55.95) D
..S Z193=Z193+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z193)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATANT"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=56) D
..S Z194=Z194+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z194)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.416) D
..S Z21=Z21+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z21)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.6) D
..S Z22=Z22+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z22)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.605) D
..S Z23=Z23+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z23)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.606) D
..S Z24=Z24+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z24)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.607) D
..S Z25=Z25+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z25)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.608) D
..S Z26=Z26+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z26)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.609) D
..S Z27=Z27+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z27)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.64) D
..S Z28=Z28+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z28)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.67) D
..S Z29=Z29+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z29)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.68) D
..S Z291=Z291+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z291)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=51.2) D
..S Z292=Z292+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z292)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=55.95) D
..S Z293=Z293+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z293)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAN"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=56) D
..S Z294=Z294+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z294)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.416) D
..S Z31=Z31+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z31)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.6) D
..S Z32=Z32+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z32)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.605) D
..S Z33=Z33+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z33)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.606) D
..S Z34=Z34+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z34)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.607) D
..S Z35=Z35+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z35)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.608) D
..S Z36=Z36+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z36)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.609) D
..S Z37=Z37+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z37)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.64) D
..S Z38=Z38+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z38)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.67) D
..S Z39=Z39+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z39)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=50.68) D
..S Z391=Z391+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z391)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=51.2) D
..S Z392=Z392+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z392)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=55.95) D
..S Z393=Z393+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z393)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATAO"&($P(^TMP("PSN PPSN READ",$J,II),"^",2)=56) D
..S Z394=Z394+1,^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),Z394)=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="PRODUCT" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="GENERIC" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="DATA" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="TEXT" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="POE" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="CMOP" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="NFI" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="CLASS" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="WORD" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="REM" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="POST" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="MESSAGE" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="MESSAGE2" S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2))=^TMP("PSN PPSN READ",$J,II+1)
.I $P(^TMP("PSN PPSN READ",$J,II),"^")="PMIDATA" D
..F I1=1:1:$L(^TMP("PSN PPSN READ",$J,II),"^") D
...S PSNHLD1(I1)=$P(^TMP("PSN PPSN READ",$J,II),"^",I1)
..I $L(^TMP("PSN PPSN READ",$J,II),"^")=3 S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),$P(^TMP("PSN PPSN READ",$J,II),"^",3))=^TMP("PSN PPSN READ",$J,II+1)
..I $L(^TMP("PSN PPSN READ",$J,II),"^")=4 D
...S ^TMP("PSN PPSN PARSED",$J,$P(^TMP("PSN PPSN READ",$J,II),"^"),$P(^TMP("PSN PPSN READ",$J,II),"^",2),$P(^TMP("PSN PPSN READ",$J,II),"^",3),$P(^TMP("PSN PPSN READ",$J,II),"^",4))=^TMP("PSN PPSN READ",$J,II+1)
..I $L(^TMP("PSN PPSN READ",$J,II),"^")=5 D
...S PSNA="",PSNA=$P(^TMP("PSN PPSN READ",$J,II),"^")
...S ^TMP("PSN PPSN PARSED",$J,PSNA,$P(^TMP("PSN PPSN READ",$J,II),"^",2),$P(^TMP("PSN PPSN READ",$J,II),"^",3),$P(^TMP("PSN PPSN READ",$J,II),"^",4),$P(^TMP("PSN PPSN READ",$J,II),"^",5))=^TMP("PSN PPSN READ",$J,II+1)
..I $L(^TMP("PSN PPSN READ",$J,II),"^")=6 D
...S (PSNA,PSNB)="",PSNA=$P(^TMP("PSN PPSN READ",$J,II),"^"),PSNB=$P(^TMP("PSN PPSN READ",$J,II),"^",2),PSNC=$P(^TMP("PSN PPSN READ",$J,II),"^",3)
...S ^TMP("PSN PPSN PARSED",$J,PSNA,PSNB,PSNC,$P(^TMP("PSN PPSN READ",$J,II),"^",4),$P(^TMP("PSN PPSN READ",$J,II),"^",5),$P(^TMP("PSN PPSN READ",$J,II),"^",6))=^TMP("PSN PPSN READ",$J,II+1)
.S II=II+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNPPSNP 13666 printed Apr 09, 2024@21:21:27 Page 2
PSNPPSNP ;HP/MJE-PPSN Parse PPS-N Update file ; 05 Mar 2014 1:20 PM
+1 ;;4.0;NATIONAL DRUG FILE;**513**; 30 Oct 98;Build 53
+2 ;
+3 QUIT
PARSE ;
+1 NEW PSNA,PSNB
+2 FOR II=0:0
SET II=$ORDER(^TMP("PSN PPSN READ",$JOB,II))
if 'II
QUIT
Begin DoDot:1
+3 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.416)
Begin DoDot:2
+4 SET Z11=Z11+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z11)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+5 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.6)
Begin DoDot:2
+6 SET Z12=Z12+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z12)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+7 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.605)
Begin DoDot:2
+8 SET Z13=Z13+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z13)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+9 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.606)
Begin DoDot:2
+10 SET Z14=Z14+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z14)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+11 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.607)
Begin DoDot:2
+12 SET Z15=Z15+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z15)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+13 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.608)
Begin DoDot:2
+14 SET Z16=Z16+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z16)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+15 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.609)
Begin DoDot:2
+16 SET Z17=Z17+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z17)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+17 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.64)
Begin DoDot:2
+18 SET Z18=Z18+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z18)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+19 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.67)
Begin DoDot:2
+20 SET Z19=Z19+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z19)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+21 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.68)
Begin DoDot:2
+22 SET Z191=Z191+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z191)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+23 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=51.2)
Begin DoDot:2
+24 SET Z192=Z192+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z192)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+25 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=55.95)
Begin DoDot:2
+26 SET Z193=Z193+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z193)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+27 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATANT"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=56)
Begin DoDot:2
+28 SET Z194=Z194+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z194)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+29 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.416)
Begin DoDot:2
+30 SET Z21=Z21+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z21)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+31 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.6)
Begin DoDot:2
+32 SET Z22=Z22+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z22)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+33 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.605)
Begin DoDot:2
+34 SET Z23=Z23+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z23)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+35 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.606)
Begin DoDot:2
+36 SET Z24=Z24+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z24)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+37 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.607)
Begin DoDot:2
+38 SET Z25=Z25+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z25)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+39 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.608)
Begin DoDot:2
+40 SET Z26=Z26+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z26)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+41 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.609)
Begin DoDot:2
+42 SET Z27=Z27+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z27)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+43 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.64)
Begin DoDot:2
+44 SET Z28=Z28+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z28)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+45 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.67)
Begin DoDot:2
+46 SET Z29=Z29+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z29)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+47 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.68)
Begin DoDot:2
+48 SET Z291=Z291+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z291)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+49 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=51.2)
Begin DoDot:2
+50 SET Z292=Z292+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z292)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+51 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=55.95)
Begin DoDot:2
+52 SET Z293=Z293+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z293)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+53 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAN"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=56)
Begin DoDot:2
+54 SET Z294=Z294+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z294)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+55 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.416)
Begin DoDot:2
+56 SET Z31=Z31+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z31)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+57 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.6)
Begin DoDot:2
+58 SET Z32=Z32+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z32)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+59 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.605)
Begin DoDot:2
+60 SET Z33=Z33+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z33)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+61 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.606)
Begin DoDot:2
+62 SET Z34=Z34+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z34)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+63 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.607)
Begin DoDot:2
+64 SET Z35=Z35+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z35)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+65 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.608)
Begin DoDot:2
+66 SET Z36=Z36+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z36)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+67 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.609)
Begin DoDot:2
+68 SET Z37=Z37+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z37)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+69 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.64)
Begin DoDot:2
+70 SET Z38=Z38+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z38)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+71 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.67)
Begin DoDot:2
+72 SET Z39=Z39+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z39)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+73 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=50.68)
Begin DoDot:2
+74 SET Z391=Z391+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z391)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+75 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=51.2)
Begin DoDot:2
+76 SET Z392=Z392+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z392)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+77 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=55.95)
Begin DoDot:2
+78 SET Z393=Z393+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z393)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+79 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATAO"&($PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)=56)
Begin DoDot:2
+80 SET Z394=Z394+1
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),Z394)=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:2
+81 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="PRODUCT"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+82 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="GENERIC"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+83 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="DATA"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+84 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="TEXT"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+85 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="POE"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+86 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="CMOP"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+87 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="NFI"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+88 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="CLASS"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+89 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="WORD"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+90 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="REM"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+91 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="POST"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+92 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="MESSAGE"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+93 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="MESSAGE2"
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2))=^TMP("PSN PPSN READ",$JOB,II+1)
+94 IF $PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")="PMIDATA"
Begin DoDot:2
+95 FOR I1=1:1:$LENGTH(^TMP("PSN PPSN READ",$JOB,II),"^")
Begin DoDot:3
+96 SET PSNHLD1(I1)=$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",I1)
End DoDot:3
+97 IF $LENGTH(^TMP("PSN PPSN READ",$JOB,II),"^")=3
SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",3))=^TMP("PSN PPSN READ",$JOB,II+1)
+98 IF $LENGTH(^TMP("PSN PPSN READ",$JOB,II),"^")=4
Begin DoDot:3
+99 SET ^TMP("PSN PPSN PARSED",$JOB,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^"),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",3),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",4))=^TMP("PSN PPS
N READ",$JOB,II+1)
End DoDot:3
+100 IF $LENGTH(^TMP("PSN PPSN READ",$JOB,II),"^")=5
Begin DoDot:3
+101 SET PSNA=""
SET PSNA=$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")
+102 SET ^TMP("PSN PPSN PARSED",$JOB,PSNA,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",3),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",4),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",5))=^TMP("
PSN PPSN READ",$JOB,II+1)
End DoDot:3
+103 IF $LENGTH(^TMP("PSN PPSN READ",$JOB,II),"^")=6
Begin DoDot:3
+104 SET (PSNA,PSNB)=""
SET PSNA=$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^")
SET PSNB=$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",2)
SET PSNC=$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",3)
+105 SET ^TMP("PSN PPSN PARSED",$JOB,PSNA,PSNB,PSNC,$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",4),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",5),$PIECE(^TMP("PSN PPSN READ",$JOB,II),"^",6))=^TMP("PSN PPSN READ",$JOB,II+1)
End DoDot:3
End DoDot:2
+106 SET II=II+1
End DoDot:1
+107 QUIT
