PSJLIPRF.m

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

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