source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAO.m@ 1801

PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ; 14-MAR-1995
 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
EN ; -- main entry point for PSO LM ACTION ORDER
 D EN^VALM("PSO LM ACTIVE ORDERS")
 Q
 ;
HDR ; -- header code
 ;S VALMHDR(1)="This is a test header for PSO LM ACTION ORDER."
 ;S VALMHDR(2)="This is the second line"
 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=PSOPF
 Q
 ;
HELP ; -- help code
 S X="?" D DISP^XQORM1 W !!
 Q
 ;
EXIT ; -- exit code
 S PSOQFLG=1 Q
 ;
EXPND ; -- expand code
 Q
 ;