PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ;14-MAR-1995
;;7.0;OUTPATIENT PHARMACY;**225,251,387,372**;DEC 1997;Build 54
;External reference to TERM^VALM0 supported by DBIA 2615
EN ; -- main entry point for PSO LM ACTION ORDER
D EN^VALM("PSO LM ACTIVE ORDERS")
Q
;
HDR ; -- header code
D HDR^PSOLMUTL
Q
;
INIT ; -- init variables and list array
S VALMCNT=PSOPF D RV^PSOORFL
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
D KILL^VALM10() K PSODCREV,PSOONOFC S PSOQFLG=1
Q
;
EXPND ; -- expand code
Q
;
PENTRY ;
D KILL^VALM10()
N PSORVIEN
I $O(PSODCREV(0)) F PSORVIEN=0:0 S PSORVIEN=$O(PSODCREV(PSORVIEN)) Q:'PSORVIEN D
.I '$D(IORVON),$D(IOST(0)) D ENS^%ZISS,TERM^VALM0
.D CNTRL^VALM10(PSORVIEN,1,80,IORVON,IORVOFF,0)
K PSORVIEN
S VALMCNT=$G(PSOPF)
Q:'$G(VALMCNT)
N PSLIST S PSLIST=0 F PSLIST=1:1:VALMCNT I $D(^TMP("PSOPF",$J,PSLIST,"RV")) D
. D CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLMAO 977 printed Dec 13, 2024@02:30:49 Page 2
PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ;14-MAR-1995
+1 ;;7.0;OUTPATIENT PHARMACY;**225,251,387,372**;DEC 1997;Build 54
+2 ;External reference to TERM^VALM0 supported by DBIA 2615
EN ; -- main entry point for PSO LM ACTION ORDER
+1 DO EN^VALM("PSO LM ACTIVE ORDERS")
+2 QUIT
+3 ;
HDR ; -- header code
+1 DO HDR^PSOLMUTL
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 SET VALMCNT=PSOPF
DO RV^PSOORFL
+2 QUIT
+3 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 DO KILL^VALM10()
KILL PSODCREV,PSOONOFC
SET PSOQFLG=1
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
PENTRY ;
+1 DO KILL^VALM10()
+2 NEW PSORVIEN
+3 IF $ORDER(PSODCREV(0))
FOR PSORVIEN=0:0
SET PSORVIEN=$ORDER(PSODCREV(PSORVIEN))
if 'PSORVIEN
QUIT
Begin DoDot:1
+4 IF '$DATA(IORVON)
IF $DATA(IOST(0))
DO ENS^%ZISS
DO TERM^VALM0
+5 DO CNTRL^VALM10(PSORVIEN,1,80,IORVON,IORVOFF,0)
End DoDot:1
+6 KILL PSORVIEN
+7 SET VALMCNT=$GET(PSOPF)
+8 if '$GET(VALMCNT)
QUIT
+9 NEW PSLIST
SET PSLIST=0
FOR PSLIST=1:1:VALMCNT
IF $DATA(^TMP("PSOPF",$JOB,PSLIST,"RV"))
Begin DoDot:1
+10 DO CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0)
End DoDot:1
+11 QUIT
