PSOLMPO1 ;ISC-BHAM/SAB - complete pending orders ;03/13/1995
;;7.0;OUTPATIENT PHARMACY;**46,71,225,700**;DEC 1997;Build 261
;
EN ; -- main entry point for PSO LM COMPLETE ORDER
D EN^VALM("PSO LM COMPLETE ORDER")
K PSOANSQD
Q
;
HDR ; -- header code
D HDR^PSOLMUTL
Q
;
INIT ; -- init variables and list array
S VALMCNT=IEN,VALM("TITLE")=$S($P(OR0,"^",23):"FL-",1:"")_"Pending OP Orders ("_$S($P($G(OR0),"^",14)="S":"STAT",$P($G(OR0),"^",14)="E":"EMERGENCY",1:"ROUTINE")_")"
I $G(PSOVLMBG)>3 S VALMBG=PSOVLMBG-2
D RV^PSONFI
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K FLAGLINE,PSOVLMBG D CLEAN^VALM10
; Variables used for formatting eRx Display
K UNDERLN,REVLN,HIGHLN,BLINKLN,HIGUNDLN
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLMPO1 802 printed Dec 13, 2024@02:30:55 Page 2
PSOLMPO1 ;ISC-BHAM/SAB - complete pending orders ;03/13/1995
+1 ;;7.0;OUTPATIENT PHARMACY;**46,71,225,700**;DEC 1997;Build 261
+2 ;
EN ; -- main entry point for PSO LM COMPLETE ORDER
+1 DO EN^VALM("PSO LM COMPLETE ORDER")
+2 KILL PSOANSQD
+3 QUIT
+4 ;
HDR ; -- header code
+1 DO HDR^PSOLMUTL
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 SET VALMCNT=IEN
SET VALM("TITLE")=$SELECT($PIECE(OR0,"^",23):"FL-",1:"")_"Pending OP Orders ("_$SELECT($PIECE($GET(OR0),"^",14)="S":"STAT",$PIECE($GET(OR0),"^",14)="E":"EMERGENCY",1:"ROUTINE")_")"
+2 IF $GET(PSOVLMBG)>3
SET VALMBG=PSOVLMBG-2
+3 DO RV^PSONFI
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL FLAGLINE,PSOVLMBG
DO CLEAN^VALM10
+2 ; Variables used for formatting eRx Display
+3 KILL UNDERLN,REVLN,HIGHLN,BLINKLN,HIGUNDLN
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
