source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 609 bytes
Line 
1PSOLMPO ;ISC-BHAM/LC - pending orders ; 13-MAR-1995
2 ;;7.0;OUTPATIENT PHARMACY;**46**;DEC 1997
3EN ; -- main entry point for PSO LM PENDING ORDER
4 S PSOLMC=0 D EN^VALM("PSO LM PENDING ORDER") K PSOLMC
5 Q
6 ;
7HDR ; -- header code
8 D HDR^PSOLMUTL
9 Q
10 ;
11INIT ; -- init variables and list array
12 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
13 S VALMCNT=IEN,VALM("TITLE")="Pending OP Orders ("_$S($P(OR0,"^",14)="S":"STAT",$P(OR0,"^",14)="E":"EMERGENCY",1:"ROUTINE")_")"
14 D RV^PSONFI Q
15 ;
16HELP ; -- help code
17 S X="?" D DISP^XQORM1 W !!
18 Q
19 ;
20EXIT ; -- exit code
21 Q
22 ;
23EXPND ; -- expand code
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.