22 lines
663 B
Mathematica
22 lines
663 B
Mathematica
|
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
|