- 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 Feb 18, 2025@23:57:14 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