source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAL.m@ 1015

PSOLMAL ;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 ALLERGY DISPLAY")
 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
 S VALMCNT=PSOAL
 Q
 ;
HELP ; -- help code
 S X="?" D DISP^XQORM1 W !!
 Q
 ;
EXIT ; -- exit code
 S PSOQFLG=1 Q
 ;
EXPND ; -- expand code
 Q
 ;