source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO2.m@ 1274

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

initial load of FOIAVistA 6/30/08 version

File size: 553 bytes
Line 
1PSOLMPO2 ;ISC-BHAM/SAB - list template to complete backdoor orders ; 13-MAR-1995
2 ;;7.0;OUTPATIENT PHARMACY;**46,71**;DEC 1997
3EN ; -- main entry point for PSO LM BACKDOOR ORDER
4 D EN^VALM("PSO LM BACKDOOR ORDER")
5 Q
6 ;
7HDR ; -- header code
8 D HDR^PSOLMUTL
9 Q
10 ;
11INIT ; -- init variables and list array
12 S VALMCNT=IEN,VALM("TITLE")="New OP Order ("_$S($G(COPY):"COPY",1:"ROUTINE")_")"
13 S VALMCNT=PSOPF
14 D RV^PSONFI Q
15 ;
16HELP ; -- help code
17 S X="?" D DISP^XQORM1 W !!
18 Q
19 ;
20EXIT ; -- exit code
21 K PSOANSQD
22 S PSOQFLG=1 Q
23 ;
24EXPND ; -- expand code
25 Q
26 ;
Note: See TracBrowser for help on using the repository browser.