source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJLMAL.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 382 bytes
Line 
1PSJLMAL ;BIR/LC-ACTIVE ORDERS ;14 JAN 97 / 10:39 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3EN ; -- main entry point
4 D EN^VALM("PSJ LM ALLERGY DISPLAY")
5 Q
6 ;
7HDR ; -- header code
8 D HDR^PSJLMHED(DFN)
9 Q
10 ;
11INIT ; -- init variables and list array
12 S VALMCNT=PSJAL
13 Q
14 ;
15HELP ; -- help code
16 S X="?" D DISP^XQORM1 W !!
17 Q
18 ;
19EXIT ; -- exit code
20 Q
21 ;
22EXPND ; -- expand code
23 Q
24 ;
Note: See TracBrowser for help on using the repository browser.