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