source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAL.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 512 bytes
Line 
1PSOLMAL ;BHAM ISC/LC - ACTIVE ORDERS ; 14-MAR-1995
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3EN ; -- main entry point for PSO LM ACTION ORDER
4 D EN^VALM("PSO LM ALLERGY DISPLAY")
5 Q
6 ;
7HDR ; -- header code
8 ;S VALMHDR(1)="This is a test header for PSO LM ACTION ORDER."
9 ;S VALMHDR(2)="This is the second line"
10 D HDR^PSOLMUTL
11 Q
12 ;
13INIT ; -- init variables and list array
14 S VALMCNT=PSOAL
15 Q
16 ;
17HELP ; -- help code
18 S X="?" D DISP^XQORM1 W !!
19 Q
20 ;
21EXIT ; -- exit code
22 S PSOQFLG=1 Q
23 ;
24EXPND ; -- expand code
25 Q
26 ;
Note: See TracBrowser for help on using the repository browser.