PSSHUIDG ;BIR/SAB - builds hl7 drug update message ;06/27/2002
;;1.0;PHARMACY DATA MANAGEMENT;**57,66,70**;9/30/97
;IA: 10054 - ^LAB(60
;IA: 10055 - ^LAB(61
;IA: 2079 - ^PSNDF
;IA: 2221 - ^PS(50.607
;IA: 872 - ^ORD(101
;IA: 10106 - $$HLDATE^HLFNC
;IA: 2161 - INIT^HLFNC2
;IA: 2164 - GENERATE^HLMA
DRG(DRG,NEW) ;entry point
N ACT,CNT,DOS,DOSF,DRG0,DRG2,DRG3,DRG6,DRG60,DRGN,DRGZ,DRGZ1,INT,MEDRT,PSSRESLT,PSSOPTNS,PKG,PROT,SYN,XX
N HL,HLA
S PROT=$O(^ORD(101,"B","PSS HUI DRUG UPDATE",0))
I 'PROT D EN^DDIOL("Drug Update Protocol NOT Installed ","","$C(7),!!") Q
D INIT^HLFNC2(PROT,.HL) I $G(HL) Q ;D EN^DDIOL($P(HL,"^",2)_". Drug Update Message Not Sent.","","$C(7),!!") Q
S HL("ECH")="^~\",CNT=0
S DRG0=$G(^PSDRUG(DRG,0)),DRG2=$G(^(2)),DRG3=$G(^(3)),DRG6=$G(^(6)),DRGN=$G(^("ND")),DRGZ=$G(^("CLOZ")),DRGZ1=$G(^("CLOZ1")),DRG60=$G(^(660))
;msh segment
;S CNT=CNT+1,HLA("HLS",CNT)="MSH|^~\&|PHARMACY DATA MANAGEMENT"
;S $P(HLA("HLS",CNT),HL("FS"),9)="MFN"
;mfi segment
S CNT=CNT+1,HLA("HLS",CNT)="MFI|50^DRUG^99PSD"
S $P(HLA("HLS",CNT),HL("FS"),6)="NE"
;mfa segment
S CNT=CNT+1,HLA("HLS",CNT)="MFA|"_$S($G(NEW):"MAD",1:"MUP")
;mfe segment
S CNT=CNT+1,HLA("HLS",CNT)="MFE|"_$S($G(NEW):"MAD",1:"MUP"),$P(HLA("HLS",CNT),"|",5)=DRG_"^"_$P(DRG0,"^")_"^99PSD"
;zpa segment
S CNT=CNT+1,HLA("HLS",CNT)="ZPA|"_$P(DRG2,"^",4)_"|"_$P(DRG0,"^",9)_"|"_$$HLDATE^HLFNC($G(^PSDRUG(DRG,"I")),"TS")_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$P(DRG2,"^",3)_"|"_$P(DRG0,"^",10)_"|"_$P(DRG0,"^",2)_"|"_$P(DRG0,"^",3)_"|"_$P(DRG0,"^",6)_"|"_$P(DRG0,"^",8)_"|"_$P(DRG0,"^",11)
;zpb segment
S CNT=CNT+1,HLA("HLS",CNT)="ZPB|"_$S($P(DRG2,"^")&($D(^PS(50.7,+$P(DRG2,"^"),0))):$P(DRG2,"^")_"^"_$P($G(^PS(50.7,$P(DRG2,"^"),0)),"^")_"^PSD50.7",1:"")_"|"
S DOSF=$S($P(DRG2,"^")&($P($G(^PS(50.7,+$P(DRG2,"^"),0)),"^",2)):$P(^PS(50.7,+$P(DRG2,"^"),0),"^",2)_"^"_$P($G(^PS(50.606,+$P($G(^PS(50.7,+$P(DRG2,"^"),0)),"^",2),0)),"^")_"^"_"PSD50.606",1:"")
S MEDRT=$S($P(DRG2,"^")&($P($G(^PS(50.7,+$P(DRG2,"^"),0)),"^",6)):$P(^PS(50.7,+$P(DRG2,"^"),0),"^",6)_"^"_$P($G(^PS(51.2,+$P($G(^PS(50.7,+$P(DRG2,"^"),0)),"^",6),0)),"^")_"^"_"PSD51.2",1:"")
S HLA("HLS",CNT)=HLA("HLS",CNT)_DOSF_"|"_MEDRT_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$S($P(DRGN,"^",3)&($P($G(^PSNDF(50.68,+$P(DRGN,"^",3),0)),"^")]""):$P(DRGN,"^",3)_"^"_$P($G(^PSNDF(50.68,$P(DRGN,"^",3),0)),"^")_"^PSD50.68",1:"")_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$P($G(DRG60),"^",8)_"|"_+$P(DRG3,"^")_"|"_+$P(DRG6,"^")_"|"_$$HLDATE^HLFNC($P(DRG60,"^",9),"TS")_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$S($P(DRGZ,"^")&($P($G(^LAB(60,+$P(DRGZ,"^"),0)),"^")]""):$P(DRGZ,"^")_"^"_$P($G(^LAB(60,$P(DRGZ,"^"),0)),"^")_"^LAB60",1:"")
;zpc segment
S CNT=CNT+1,HLA("HLS",CNT)="ZPC|"_$S($P(DRGZ,"^",3)&($P($G(^LAB(61,+$P(DRGZ,"^",3),0)),"^")]""):$P(DRGZ,"^",3)_"^"_$P(^LAB(61,$P(DRGZ,"^",3),0),"^")_"^LAB61",1:"")_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$P(DRGZ1,"^")_"|"_$P(DRGZ1,"^",2)_"|"_$P($G(^PSDRUG(DRG,"DOS")),"^")_"|",DOS=$P($G(^PSDRUG(DRG,"DOS")),"^",2)
S HLA("HLS",CNT)=HLA("HLS",CNT)_$S(DOS&($P($G(^PS(50.607,+DOS,0)),"^")]""):DOS_"^"_$P(^PS(50.607,+DOS,0),"^")_"^PSD50.607",1:"")_"|"
S HLA("HLS",CNT)=HLA("HLS",CNT)_$P(DRG60,"^",3)_"|"_$P(DRG60,"^",6)
;zpd segment
K SYN F XX=0:0 S XX=$O(^PSDRUG(DRG,1,XX)) Q:'XX D
.S SYN=^PSDRUG(DRG,1,XX,0),CNT=CNT+1
.S HLA("HLS",CNT)="ZPD|"_$P(SYN,"^")_"|"_$P(SYN,"^",2)_"|"
.S HLA("HLS",CNT)=HLA("HLS",CNT)_$S($P(SYN,"^",3)]"":$P(SYN,"^",3)_"^"_$S($P(SYN,"^",3)=0:"TRADE NAME",$P(SYN,"^",3)=1:"QUICK CODE",$P(SYN,"^",3)="D":"DRUG ACCOUNTABILITY",$P(SYN,"^",3)="C":"CONTROLLED SUBSTANCE",1:""),1:"")_"|"
.S HLA("HLS",CNT)=HLA("HLS",CNT)_$P(SYN,"^",4)_"|"_$S($P(SYN,"^",5)&($P($G(^DIC(51.5,+$P(SYN,"^",5),0)),"^")]""):$P(SYN,"^",5)_"^"_$P(^DIC(51.5,$P(SYN,"^",5),0),"^")_"^"_$P(^(0),"^",2)_"^PSD51.5",1:"")_"|"
.S HLA("HLS",CNT)=HLA("HLS",CNT)_$P(SYN,"^",6)_"|"_$P(SYN,"^",7)_"|"_$P(SYN,"^",8)_"|"_$P(SYN,"^",9) K SYN
;zpe segment
K ACT,INT F XX=0:0 S XX=$O(^PSDRUG(DRG,4,XX)) Q:'XX S ACT=^PSDRUG(DRG,4,XX,0),CNT=CNT+1 D
.S HLA("HLS",CNT)="ZPE|"_$$HLDATE^HLFNC($P(ACT,"^"),"TS")_"|"_$S($P(ACT,"^",2)]"":"E^EDIT",1:"")_"|"
.S INT=$S($P(ACT,"^",3)&($P($G(^VA(200,$P(ACT,"^",3),0)),"^")]""):$P(ACT,"^",3)_"^"_$P(^VA(200,$P(ACT,"^",3),0),"^")_"^VA200",1:"")
.S HLA("HLS",CNT)=HLA("HLS",CNT)_INT_"|"_$P(ACT,"^",4)_"|"_$P(ACT,"^",5)_"|"_$P(ACT,"^",6)
K INT,ACT,XX
;zpf segment
K ACT,INT F XX=0:0 S XX=$O(^PSDRUG(DRG,"DOS1",XX)) Q:'XX S ACT=^PSDRUG(DRG,"DOS1",XX,0),CNT=CNT+1 D
.S HLA("HLS",CNT)="ZPF|"_$P(ACT,"^")_"|"_$P(ACT,"^",2)_"|"_$S($P(ACT,"^",3)="I":"I^INPATIENT",$P(ACT,"^",3)="O":"O^OUTPATIENT",$P(ACT,"^",3)="IO"!($P(ACT,"^",3)="OI"):"IO^INPATIENT/OUTPATIENT",1:"")_"|"_$P(ACT,"^",4)
K ACT,INT,XX
;zpg segment
K ACT F XX=0:0 S XX=$O(^PSDRUG(DRG,"CLOZ2",XX)) Q:'XX S ACT=^PSDRUG(DRG,"CLOZ2",XX,0),CNT=CNT+1 D
.S HLA("HLS",CNT)="ZPG|"_$S($P(ACT,"^")&($P($G(^LAB(60,$P(ACT,"^"),0)),"^")]""):$P(ACT,"^")_"^"_$P(^LAB(60,$P(ACT,"^"),0),"^")_"^LAB60",1:"")_"|"_$P(ACT,"^",2)_"|"
.S HLA("HLS",CNT)=HLA("HLS",CNT)_$S($P(ACT,"^",3)&($P($G(^LAB(61,$P(ACT,"^",3),0)),"^")]""):$P(ACT,"^",3)_"^"_$P(^LAB(61,$P(ACT,"^",3),0),"^")_"^LAB61",1:"")_"|"_$S($P(ACT,"^",4)=1:"1^WBC",$P(ACT,"^",4)=2:"2^ANC",1:"") K ACT
;zph segment
K ACT,INT F XX=0:0 S XX=$O(^PSDRUG(DRG,"DOS2",XX)) Q:'XX S ACT=^PSDRUG(DRG,"DOS2",XX,0),CNT=CNT+1 D
.S HLA("HLS",CNT)="ZPH|"_$P(ACT,"^")_"|"
.S PKG=$S($P(ACT,"^",2)="O":"O^OUTPATIENT",$P(ACT,"^",2)="I":"I^INPATIENT",$P(ACT,"^",2)="IO":"IO^INPATIENT/OUTPATIENT",$P(ACT,"^",2)="OI":"IO^INPATIENT/OUTPATIENT",1:"")
.S HLA("HLS",CNT)=HLA("HLS",CNT)_PKG_"|"_$P(ACT,"^",3)
K ACT,INT,XX,PKG
;builds hl7 message
D GENERATE^HLMA("PSS HUI DRUG UPDATE","LM",1,.PSSRESLT,"",.PSSOPTNS)
Q
;
PSN ;entry point from NDF data updates
S PROT=$O(^ORD(101,"B","PSS HUI DRUG UPDATE",0)) I 'PROT G PSNX
D INIT^HLFNC2(PROT,.HL) I $G(HL) G PSNX
N PSN
F S PSN=$O(^TMP($J,"^",PSN)) Q:'PSN D DRG(PSN)
PSNX K PSN,^TMP($J),PROT,HL S ZTREQ="@"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSHUIDG 6035 printed Oct 16, 2024@18:32:46 Page 2
PSSHUIDG ;BIR/SAB - builds hl7 drug update message ;06/27/2002
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**57,66,70**;9/30/97
+2 ;IA: 10054 - ^LAB(60
+3 ;IA: 10055 - ^LAB(61
+4 ;IA: 2079 - ^PSNDF
+5 ;IA: 2221 - ^PS(50.607
+6 ;IA: 872 - ^ORD(101
+7 ;IA: 10106 - $$HLDATE^HLFNC
+8 ;IA: 2161 - INIT^HLFNC2
+9 ;IA: 2164 - GENERATE^HLMA
DRG(DRG,NEW) ;entry point
+1 NEW ACT,CNT,DOS,DOSF,DRG0,DRG2,DRG3,DRG6,DRG60,DRGN,DRGZ,DRGZ1,INT,MEDRT,PSSRESLT,PSSOPTNS,PKG,PROT,SYN,XX
+2 NEW HL,HLA
+3 SET PROT=$ORDER(^ORD(101,"B","PSS HUI DRUG UPDATE",0))
+4 IF 'PROT
DO EN^DDIOL("Drug Update Protocol NOT Installed ","","$C(7),!!")
QUIT
+5 ;D EN^DDIOL($P(HL,"^",2)_". Drug Update Message Not Sent.","","$C(7),!!") Q
DO INIT^HLFNC2(PROT,.HL)
IF $GET(HL)
QUIT
+6 SET HL("ECH")="^~\"
SET CNT=0
+7 SET DRG0=$GET(^PSDRUG(DRG,0))
SET DRG2=$GET(^(2))
SET DRG3=$GET(^(3))
SET DRG6=$GET(^(6))
SET DRGN=$GET(^("ND"))
SET DRGZ=$GET(^("CLOZ"))
SET DRGZ1=$GET(^("CLOZ1"))
SET DRG60=$GET(^(660))
+8 ;msh segment
+9 ;S CNT=CNT+1,HLA("HLS",CNT)="MSH|^~\&|PHARMACY DATA MANAGEMENT"
+10 ;S $P(HLA("HLS",CNT),HL("FS"),9)="MFN"
+11 ;mfi segment
+12 SET CNT=CNT+1
SET HLA("HLS",CNT)="MFI|50^DRUG^99PSD"
+13 SET $PIECE(HLA("HLS",CNT),HL("FS"),6)="NE"
+14 ;mfa segment
+15 SET CNT=CNT+1
SET HLA("HLS",CNT)="MFA|"_$SELECT($GET(NEW):"MAD",1:"MUP")
+16 ;mfe segment
+17 SET CNT=CNT+1
SET HLA("HLS",CNT)="MFE|"_$SELECT($GET(NEW):"MAD",1:"MUP")
SET $PIECE(HLA("HLS",CNT),"|",5)=DRG_"^"_$PIECE(DRG0,"^")_"^99PSD"
+18 ;zpa segment
+19 SET CNT=CNT+1
SET HLA("HLS",CNT)="ZPA|"_$PIECE(DRG2,"^",4)_"|"_$PIECE(DRG0,"^",9)_"|"_$$HLDATE^HLFNC($GET(^PSDRUG(DRG,"I")),"TS")_"|"
+20 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE(DRG2,"^",3)_"|"_$PIECE(DRG0,"^",10)_"|"_$PIECE(DRG0,"^",2)_"|"_$PIECE(DRG0,"^",3)_"|"_$PIECE(DRG0,"^",6)_"|"_$PIECE(DRG0,"^",8)_"|"_$PIECE(DRG0,"^",11)
+21 ;zpb segment
+22 SET CNT=CNT+1
SET HLA("HLS",CNT)="ZPB|"_$SELECT($PIECE(DRG2,"^")&($DATA(^PS(50.7,+$PIECE(DRG2,"^"),0))):$PIECE(DRG2,"^")_"^"_$PIECE($GET(^PS(50.7,$PIECE(DRG2,"^"),0)),"^")_"^PSD50.7",1:"")_"|"
+23 SET DOSF=$SELECT($PIECE(DRG2,"^")&($PIECE($GET(^PS(50.7,+$PIECE(DRG2,"^"),0)),"^",2)):$PIECE(^PS(50.7,+$PIECE(DRG2,"^"),0),"^",2)_"^"_$PIECE($GET(^PS(50.606,+$PIECE($GET(^PS(50.7,+$PIECE(DRG2,"^"),0)),"^",2),0)),"^")_"^"_"PSD50.606",1:"")
+24 SET MEDRT=$SELECT($PIECE(DRG2,"^")&($PIECE($GET(^PS(50.7,+$PIECE(DRG2,"^"),0)),"^",6)):$PIECE(^PS(50.7,+$PIECE(DRG2,"^"),0),"^",6)_"^"_$PIECE($GET(^PS(51.2,+$PIECE($GET(^PS(50.7,+$PIECE(DRG2,"^"),0)),"^",6),0)),"^")_"^"_"PSD51.2",1:"")
+25 SET HLA("HLS",CNT)=HLA("HLS",CNT)_DOSF_"|"_MEDRT_"|"
+26 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$SELECT($PIECE(DRGN,"^",3)&($PIECE($GET(^PSNDF(50.68,+$PIECE(DRGN,"^",3),0)),"^")]""):$PIECE(DRGN,"^",3)_"^"_$PIECE($GET(^PSNDF(50.68,$PIECE(DRGN,"^",3),0)),"^")_"^PSD50.68",1:"")_"|"
+27 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE($GET(DRG60),"^",8)_"|"_+$PIECE(DRG3,"^")_"|"_+$PIECE(DRG6,"^")_"|"_$$HLDATE^HLFNC($PIECE(DRG60,"^",9),"TS")_"|"
+28 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$SELECT($PIECE(DRGZ,"^")&($PIECE($GET(^LAB(60,+$PIECE(DRGZ,"^"),0)),"^")]""):$PIECE(DRGZ,"^")_"^"_$PIECE($GET(^LAB(60,$PIECE(DRGZ,"^"),0)),"^")_"^LAB60",1:"")
+29 ;zpc segment
+30 SET CNT=CNT+1
SET HLA("HLS",CNT)="ZPC|"_$SELECT($PIECE(DRGZ,"^",3)&($PIECE($GET(^LAB(61,+$PIECE(DRGZ,"^",3),0)),"^")]""):$PIECE(DRGZ,"^",3)_"^"_$PIECE(^LAB(61,$PIECE(DRGZ,"^",3),0),"^")_"^LAB61",1:"")_"|"
+31 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE(DRGZ1,"^")_"|"_$PIECE(DRGZ1,"^",2)_"|"_$PIECE($GET(^PSDRUG(DRG,"DOS")),"^")_"|"
SET DOS=$PIECE($GET(^PSDRUG(DRG,"DOS")),"^",2)
+32 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$SELECT(DOS&($PIECE($GET(^PS(50.607,+DOS,0)),"^")]""):DOS_"^"_$PIECE(^PS(50.607,+DOS,0),"^")_"^PSD50.607",1:"")_"|"
+33 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE(DRG60,"^",3)_"|"_$PIECE(DRG60,"^",6)
+34 ;zpd segment
+35 KILL SYN
FOR XX=0:0
SET XX=$ORDER(^PSDRUG(DRG,1,XX))
if 'XX
QUIT
Begin DoDot:1
+36 SET SYN=^PSDRUG(DRG,1,XX,0)
SET CNT=CNT+1
+37 SET HLA("HLS",CNT)="ZPD|"_$PIECE(SYN,"^")_"|"_$PIECE(SYN,"^",2)_"|"
+38 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$SELECT($PIECE(SYN,"^",3)]"":$PIECE(SYN,"^",3)_"^"_$SELECT($PIECE(SYN,"^",3)=0:"TRADE NAME",...
... $PIECE(SYN,"^",3)=1:"QUICK CODE",$PIECE(SYN,"^",3)="D":"DRUG ACCOUNTABILITY",$PIECE(SYN,"^",3)="C":"CONTROLLED SUBSTANCE",1:""),1:"")_"|"
+39 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE(SYN,"^",4)_"|"_$SELECT($PIECE(SYN,"^",5)&($PIECE($GET(^DIC(51.5,+$PIECE(SYN,"^",5),0)),"^")]""):$PIECE(SYN,"^",5)_"^"_$PIECE(^DIC(51.5,$PIECE(SYN,"^",5),0),"^")_"^"_$PIECE(^(0),"^",2)_"^PSD51.5",
1:"")_"|"
+40 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$PIECE(SYN,"^",6)_"|"_$PIECE(SYN,"^",7)_"|"_$PIECE(SYN,"^",8)_"|"_$PIECE(SYN,"^",9)
KILL SYN
End DoDot:1
+41 ;zpe segment
+42 KILL ACT,INT
FOR XX=0:0
SET XX=$ORDER(^PSDRUG(DRG,4,XX))
if 'XX
QUIT
SET ACT=^PSDRUG(DRG,4,XX,0)
SET CNT=CNT+1
Begin DoDot:1
+43 SET HLA("HLS",CNT)="ZPE|"_$$HLDATE^HLFNC($PIECE(ACT,"^"),"TS")_"|"_$SELECT($PIECE(ACT,"^",2)]"":"E^EDIT",1:"")_"|"
+44 SET INT=$SELECT($PIECE(ACT,"^",3)&($PIECE($GET(^VA(200,$PIECE(ACT,"^",3),0)),"^")]""):$PIECE(ACT,"^",3)_"^"_$PIECE(^VA(200,$PIECE(ACT,"^",3),0),"^")_"^VA200",1:"")
+45 SET HLA("HLS",CNT)=HLA("HLS",CNT)_INT_"|"_$PIECE(ACT,"^",4)_"|"_$PIECE(ACT,"^",5)_"|"_$PIECE(ACT,"^",6)
End DoDot:1
+46 KILL INT,ACT,XX
+47 ;zpf segment
+48 KILL ACT,INT
FOR XX=0:0
SET XX=$ORDER(^PSDRUG(DRG,"DOS1",XX))
if 'XX
QUIT
SET ACT=^PSDRUG(DRG,"DOS1",XX,0)
SET CNT=CNT+1
Begin DoDot:1
+49 SET HLA("HLS",CNT)="ZPF|"_$PIECE(ACT,"^")_"|"_$PIECE(ACT,"^",2)_"|"_$SELECT($PIECE(ACT,"^",3)="I":"I^INPATIENT",$PIECE(ACT,"^",3)="O":"O^OUTPATIENT",$PIECE(ACT,"^",3)="IO"!($PIECE(ACT,"^",3)="OI"):"IO^INPATIENT/OUTPATIENT",1:"")_"|"_$PI
ECE(ACT,"^",4)
End DoDot:1
+50 KILL ACT,INT,XX
+51 ;zpg segment
+52 KILL ACT
FOR XX=0:0
SET XX=$ORDER(^PSDRUG(DRG,"CLOZ2",XX))
if 'XX
QUIT
SET ACT=^PSDRUG(DRG,"CLOZ2",XX,0)
SET CNT=CNT+1
Begin DoDot:1
+53 SET HLA("HLS",CNT)="ZPG|"_$SELECT($PIECE(ACT,"^")&($PIECE($GET(^LAB(60,$PIECE(ACT,"^"),0)),"^")]""):$PIECE(ACT,"^")_"^"_$PIECE(^LAB(60,$PIECE(ACT,"^"),0),"^")_"^LAB60",1:"")_"|"_$PIECE(ACT,"^",2)_"|"
+54 SET HLA("HLS",CNT)=HLA("HLS",CNT)_$SELECT($PIECE(ACT,"^",3)&($PIECE($GET(^LAB(61,$PIECE(ACT,"^",3),0)),"^")]""):$PIECE(ACT,"^",3)_"^"_$PIECE(^LAB(61,$PIECE(ACT,"^",3),0),"^")_"^LAB61",1:"")_"|"_...
... $SELECT($PIECE(ACT,"^",4)=1:"1^WBC",$PIECE(ACT,"^",4)=2:"2^ANC",1:"")
KILL ACT
End DoDot:1
+55 ;zph segment
+56 KILL ACT,INT
FOR XX=0:0
SET XX=$ORDER(^PSDRUG(DRG,"DOS2",XX))
if 'XX
QUIT
SET ACT=^PSDRUG(DRG,"DOS2",XX,0)
SET CNT=CNT+1
Begin DoDot:1
+57 SET HLA("HLS",CNT)="ZPH|"_$PIECE(ACT,"^")_"|"
+58 SET PKG=$SELECT($PIECE(ACT,"^",2)="O":"O^OUTPATIENT",$PIECE(ACT,"^",2)="I":"I^INPATIENT",$PIECE(ACT,"^",2)="IO":"IO^INPATIENT/OUTPATIENT",$PIECE(ACT,"^",2)="OI":"IO^INPATIENT/OUTPATIENT",1:"")
+59 SET HLA("HLS",CNT)=HLA("HLS",CNT)_PKG_"|"_$PIECE(ACT,"^",3)
End DoDot:1
+60 KILL ACT,INT,XX,PKG
+61 ;builds hl7 message
+62 DO GENERATE^HLMA("PSS HUI DRUG UPDATE","LM",1,.PSSRESLT,"",.PSSOPTNS)
+63 QUIT
+64 ;
PSN ;entry point from NDF data updates
+1 SET PROT=$ORDER(^ORD(101,"B","PSS HUI DRUG UPDATE",0))
IF 'PROT
GOTO PSNX
+2 DO INIT^HLFNC2(PROT,.HL)
IF $GET(HL)
GOTO PSNX
+3 NEW PSN
+4 FOR
SET PSN=$ORDER(^TMP($JOB,"^",PSN))
if 'PSN
QUIT
DO DRG(PSN)
PSNX KILL PSN,^TMP($JOB),PROT,HL
SET ZTREQ="@"
+1 QUIT
