|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
663 bytes
|
| Line | |
|---|
| 1 | PSJLIPRF ;BIR/MV-IV PROFILE ;20 JUN 96 / 3:11 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; 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.
