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

PSOLMPO.m

Go to the documentation of this file.
PSOLMPO ;ISC-BHAM/LC - pending orders ;03/13/95
 ;;7.0;OUTPATIENT PHARMACY;**46,225,436**;DEC 1997;Build 5
 ;
EN ; -- main entry point for PSO LM PENDING ORDER
 S PSOLMC=0 D EN^VALM("PSO LM PENDING ORDER") K PSOLMC
 Q
 ;
HDR ; -- header code
 D HDR^PSOLMUTL
 Q
 ;
INIT ; -- init variables and list array
 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)
 S VALMCNT=IEN,VALM("TITLE")=$S($P(OR0,"^",23):"FL-",1:"")_"Pending OP Orders ("_$S($P(OR0,"^",14)="S":"STAT",$P(OR0,"^",14)="E":"EMERGENCY",1:"ROUTINE")_")"
 D RV^PSONFI
 Q
 ;
HELP ; -- help code
 S X="?" D DISP^XQORM1 W !!
 Q
 ;
EXIT ; -- exit code
 I $D(^TMP("PSORXDC",$J)) D FULL^VALM1,CLEAN^PSOVER1
 K FLAGLINE D CLEAN^VALM10
 Q
 ;
EXPND ; -- expand code
 Q
 ;