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