source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJLMDA.m@ 1297

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

initial load of WorldVistAEHR

File size: 484 bytes
RevLine 
[613]1PSJLMDA ;BIR/LC-DETAILED ALLERGY LIST ;14 JAN 97 / 10:40 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3EN ; -- main entry point for PSO LM DETAILED ALLERGY
4 D EN^VALM("PSJ LM DETAILED ALLERGY")
5 Q
6 ;
7HDR ; -- header code
8 D HDR^PSJLMHED(DFN)
9 Q
10 ;
11INIT ; -- init variables and list array
12 S:'$G(DFN) DFN=PSGP D BEG^PSJORDA
13 S VALMCNT=PSJDA
14 Q
15HELP ; -- help code
16 S X="?" D DISP^XQORM1 W !!
17 Q
18 ;
19EXIT ; -- exit code
20 K AGN,PSJAL,PSJALL,PSJDA,VALMSG
21 Q
22 ;
23EXPND ; -- expand code
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.