- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLMAL 538 printed Feb 18, 2025@23:57:13 Page 2
- PSOLMAL ;BHAM ISC/LC - ACTIVE ORDERS ; 14-MAR-1995
- +1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
- EN ; -- main entry point for PSO LM ACTION ORDER
- +1 DO EN^VALM("PSO LM ALLERGY DISPLAY")
- +2 QUIT
- +3 ;
- HDR ; -- header code
- +1 ;S VALMHDR(1)="This is a test header for PSO LM ACTION ORDER."
- +2 ;S VALMHDR(2)="This is the second line"
- +3 DO HDR^PSOLMUTL
- +4 QUIT
- +5 ;
- INIT ; -- init variables and list array
- +1 SET VALMCNT=PSOAL
- +2 QUIT
- +3 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 SET PSOQFLG=1
- QUIT
- +2 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;