source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJLIPRF.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 663 bytes
Line 
1PSJLIPRF ;BIR/MV-IV PROFILE ;20 JUN 96 / 3:11 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4EN ; Display IV profile order view.
5 N ON,ON55,P,PSIVAC,Y,PSGEBN,PSGLI,PSJSTAR,PSIV531
6 S (PSGEBN,PSGLI)=""
7 S PSIVAC="C" S (P("PON"),ON)=PSJORD
8 S PSIVUP=+$$GTPCI^PSIVUTL
9 I ON'["V" D GT531^PSIVORFA(DFN,ON) S:P(4)="" P(4)="P",(P(2),P(3))="" S PSIV531=1
10 I ON["V" D GT55^PSIVORFB
11 S P("OT")=$S(P(4)="A":"F",P(4)="H":"H",1:"I")
12 NEW PSJL
13 N PSIVNUM S PSIVNUM=1
14 I 'P("DTYP")!(P("DTYP")=1) D
15 . S PSJSTAR="(1)^(4)^(5)^(6)^(7)^(9)^(10)"
16 I P("DTYP")'=1 D
17 . S PSJSTAR="(1)^(2)^(3)^(4)^(5)^(6)^(7)^(9)"
18 . D GTDATA^PSJLIFN
19 D EN^VALM("PSJ LM IV PROFILE")
20 S VALMBCK="R"
21 Q
Note: See TracBrowser for help on using the repository browser.