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

PSIVORH.m

Go to the documentation of this file.
  1. PSIVORH ;BIR/MLM-MAIN DRIVER FOR IV HYPERALS - OE/RR INTERFACE ;09 FEB 93 / 10:02 AM
  1. ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
  1. ;
  1. EN ; Entry point called by IV Hyperal protocol.
  1. 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
  1. S DFN=+ORVP,X=ORACTION I X=5!(X=7)!(X=8) D @ORACTION Q
  1. D ENCPP^PSIVOREN Q:'PSJIVORF!('PSJORF) D EN1,DONE^PSIVORA1
  1. Q
  1. ;
  1. EN1 ; Take action on existing order.
  1. I ORGY>8 D @ORGY Q
  1. I '$G(ORPK) W !,"INSUFFICIENT INFORMATION, CANNOT CONTINUE." S OREND=1 Q
  1. I ORPK["V",($P($G(^PS(55,DFN,"IV",+ORPK,0)),U,17)="O") D ONCALL^PSIVORV1 Q
  1. 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
  1. D @ORACTION L -@$S(PSJORD["V":"^PS(55,DFN,""IV"",+PSJORD)",1:"^PS(53.1,+PSJORD)")
  1. Q
  1. ;
  1. NEW ; Enter a new IV Hyperal order.
  1. W !!,"HYPERAL ORDER ENTRY NOT AVAILABLE",!
  1. Q
  1. ;
  1. 1 ; Edit an existing order.
  1. W !!,"EDIT OF HYPERAL ORDERS NOT AVAILABLE",!
  1. Q
  1. ;
  1. 2 ; Renew
  1. W !!,"RENEWAL OF HYPERAL ORDERS NOT AVAILABLE",!
  1. Q
  1. ;
  1. 3 ; Flag
  1. Q
  1. ;
  1. 4 ; Hold
  1. W !!,"HOLD OF HYPERAL ORDERS NOT AVAILABLE",!
  1. Q
  1. ;
  1. 5 ; Event
  1. D 5^PSIVORA
  1. Q
  1. ;
  1. 6 ; Cancel - Delete pending or unreleased orders from Nonverified orders
  1. ; (53.1) and Orders (100) files.
  1. I ORSTS=1 W $C(7),!,"This order has already been DISCONTINUED." Q
  1. W !!,"CANCEL HYPERAL ORDERS NOT AVAILABLE",! Q
  1. Q
  1. ;
  1. 7 ; Purge
  1. D 7^PSIVORA
  1. Q
  1. ;
  1. 8 ; Print
  1. K DIR S DIR(0)="E" D ^DIR K DIR I $D(DUOUT)!'($D(ORPK)) S OREND=1 Q
  1. 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
  1. Q
  1. ;
  1. 9 ; release order (status=incomplete in 53.1, pending in 100)
  1. S X=ORACTION I X=4!(X=6) D @ORACTION Q
  1. G:"36"'[ORSTS 9^PSIVORA
  1. Q
  1. ;
  1. 10 ; Verify
  1. Q