source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAO.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 575 bytes
Line 
1PSOLMAO ;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 ACTIVE ORDERS")
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 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
15 S VALMCNT=PSOPF
16 Q
17 ;
18HELP ; -- help code
19 S X="?" D DISP^XQORM1 W !!
20 Q
21 ;
22EXIT ; -- exit code
23 S PSOQFLG=1 Q
24 ;
25EXPND ; -- expand code
26 Q
27 ;
Note: See TracBrowser for help on using the repository browser.