source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSIVORH.m@ 789

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1PSIVORH ;BIR/MLM-MAIN DRIVER FOR IV HYPERALS - OE/RR INTERFACE ;09 FEB 93 / 10:02 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4EN ; Entry point called by IV Hyperal protocol.
5 S X=ORACTION,PSIVAC="O"_$S(X="N":"N",X=1:"E",X=2:"R",X=4:"H",X=6:"D",X="8":"S",1:"") S:X'=5&(X'=7) PSIVUP=+$$GTPCI^PSIVUTL
6 S DFN=+ORVP,X=ORACTION I X=5!(X=7)!(X=8) D @ORACTION Q
7 D ENCPP^PSIVOREN Q:'PSJIVORF!('PSJORF) D EN1,DONE^PSIVORA1
8 Q
9 ;
10EN1 ; Take action on existing order.
11 I ORGY>8 D @ORGY Q
12 I '$G(ORPK) W !,"INSUFFICIENT INFORMATION, CANNOT CONTINUE." S OREND=1 Q
13 I ORPK["V",($P($G(^PS(55,DFN,"IV",+ORPK,0)),U,17)="O") D ONCALL^PSIVORV1 Q
14 S PSJORD=ORPK,PSJORSTS=ORSTS L +@$S(PSJORD["V":"^PS(55,DFN,""IV"",+PSJORD)",1:"^PS(53.1,+PSJORD)"):1 E W $C(7),!!,"This order is being edited by another user." S OREND=1 Q
15 D @ORACTION L -@$S(PSJORD["V":"^PS(55,DFN,""IV"",+PSJORD)",1:"^PS(53.1,+PSJORD)")
16 Q
17 ;
18NEW ; Enter a new IV Hyperal order.
19 W !!,"HYPERAL ORDER ENTRY NOT AVAILABLE",!
20 Q
21 ;
221 ; Edit an existing order.
23 W !!,"EDIT OF HYPERAL ORDERS NOT AVAILABLE",!
24 Q
25 ;
262 ; Renew
27 W !!,"RENEWAL OF HYPERAL ORDERS NOT AVAILABLE",!
28 Q
29 ;
303 ; Flag
31 Q
32 ;
334 ; Hold
34 W !!,"HOLD OF HYPERAL ORDERS NOT AVAILABLE",!
35 Q
36 ;
375 ; Event
38 D 5^PSIVORA
39 Q
40 ;
416 ; Cancel - Delete pending or unreleased orders from Nonverified orders
42 ; (53.1) and Orders (100) files.
43 I ORSTS=1 W $C(7),!,"This order has already been DISCONTINUED." Q
44 W !!,"CANCEL HYPERAL ORDERS NOT AVAILABLE",! Q
45 Q
46 ;
477 ; Purge
48 D 7^PSIVORA
49 Q
50 ;
518 ; Print
52 K DIR S DIR(0)="E" D ^DIR K DIR I $D(DUOUT)!'($D(ORPK)) S OREND=1 Q
53 S:'$G(PSIVUP) PSIVUP=+$$GTPCI^PSIVUTL S:'$D(PSIVAC) PSIVAC="OS" S (ON,ON55)=ORPK,DFN=+ORVP D @$S(ON["V":"GT55^PSIVORFB",1:"GT531^PSIVORFA("_DFN_","""_ON_""")"),ENDT^PSIVORV1
54 Q
55 ;
569 ; release order (status=incomplete in 53.1, pending in 100)
57 S X=ORACTION I X=4!(X=6) D @ORACTION Q
58 G:"36"'[ORSTS 9^PSIVORA
59 Q
60 ;
6110 ; Verify
62 Q
Note: See TracBrowser for help on using the repository browser.