- PSJLMAL ;BIR/LC-ACTIVE ORDERS ;14 JAN 97 / 10:39 AM
- ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
- EN ; -- main entry point
- D EN^VALM("PSJ LM ALLERGY DISPLAY")
- Q
- ;
- HDR ; -- header code
- D HDR^PSJLMHED(DFN)
- Q
- ;
- INIT ; -- init variables and list array
- S VALMCNT=PSJAL
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- Q
- ;
- EXPND ; -- expand code
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJLMAL 406 printed Feb 18, 2025@23:33:49 Page 2
- PSJLMAL ;BIR/LC-ACTIVE ORDERS ;14 JAN 97 / 10:39 AM
- +1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
- EN ; -- main entry point
- +1 DO EN^VALM("PSJ LM ALLERGY DISPLAY")
- +2 QUIT
- +3 ;
- HDR ; -- header code
- +1 DO HDR^PSJLMHED(DFN)
- +2 QUIT
- +3 ;
- INIT ; -- init variables and list array
- +1 SET VALMCNT=PSJAL
- +2 QUIT
- +3 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 QUIT
- +2 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;