PSNPPSNP.m

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 ---PSNPPSNP   13666     printed  Apr 23, 2025@18:39:06                                                                                                                                                                                                   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)