PSJLIPRF ;BIR/MV-IV PROFILE ;20 JUN 96 / 3:11 PM
;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
;
EN ; Display IV profile order view.
N ON,ON55,P,PSIVAC,Y,PSGEBN,PSGLI,PSJSTAR,PSIV531
S (PSGEBN,PSGLI)=""
S PSIVAC="C" S (P("PON"),ON)=PSJORD
S PSIVUP=+$$GTPCI^PSIVUTL
I ON'["V" D GT531^PSIVORFA(DFN,ON) S:P(4)="" P(4)="P",(P(2),P(3))="" S PSIV531=1
I ON["V" D GT55^PSIVORFB
S P("OT")=$S(P(4)="A":"F",P(4)="H":"H",1:"I")
NEW PSJL
N PSIVNUM S PSIVNUM=1
I 'P("DTYP")!(P("DTYP")=1) D
. S PSJSTAR="(1)^(4)^(5)^(6)^(7)^(9)^(10)"
I P("DTYP")'=1 D
. S PSJSTAR="(1)^(2)^(3)^(4)^(5)^(6)^(7)^(9)"
. D GTDATA^PSJLIFN
D EN^VALM("PSJ LM IV PROFILE")
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJLIPRF 684 printed Nov 22, 2024@17:17:27 Page 2
PSJLIPRF ;BIR/MV-IV PROFILE ;20 JUN 96 / 3:11 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
+2 ;
EN ; Display IV profile order view.
+1 NEW ON,ON55,P,PSIVAC,Y,PSGEBN,PSGLI,PSJSTAR,PSIV531
+2 SET (PSGEBN,PSGLI)=""
+3 SET PSIVAC="C"
SET (P("PON"),ON)=PSJORD
+4 SET PSIVUP=+$$GTPCI^PSIVUTL
+5 IF ON'["V"
DO GT531^PSIVORFA(DFN,ON)
if P(4)=""
SET P(4)="P"
SET (P(2),P(3))=""
SET PSIV531=1
+6 IF ON["V"
DO GT55^PSIVORFB
+7 SET P("OT")=$SELECT(P(4)="A":"F",P(4)="H":"H",1:"I")
+8 NEW PSJL
+9 NEW PSIVNUM
SET PSIVNUM=1
+10 IF 'P("DTYP")!(P("DTYP")=1)
Begin DoDot:1
+11 SET PSJSTAR="(1)^(4)^(5)^(6)^(7)^(9)^(10)"
End DoDot:1
+12 IF P("DTYP")'=1
Begin DoDot:1
+13 SET PSJSTAR="(1)^(2)^(3)^(4)^(5)^(6)^(7)^(9)"
+14 DO GTDATA^PSJLIFN
End DoDot:1
+15 DO EN^VALM("PSJ LM IV PROFILE")
+16 SET VALMBCK="R"
+17 QUIT
