Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSJLIPRF

PSJLIPRF.m

Go to the documentation of this file.
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