source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO1.m@ 767

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

revised back to 6/30/08 version

File size: 560 bytes
Line 
1PSOLMPO1 ;ISC-BHAM/SAB - complete pending orders ; 13-MAR-1995
2 ;;7.0;OUTPATIENT PHARMACY;**46,71**;DEC 1997
3EN ; -- main entry point for PSO LM COMPLETE ORDER
4 D EN^VALM("PSO LM COMPLETE ORDER")
5 K PSOANSQD
6 Q
7 ;
8HDR ; -- header code
9 D HDR^PSOLMUTL
10 Q
11 ;
12INIT ; -- init variables and list array
13 S VALMCNT=IEN,VALM("TITLE")="Pending OP Orders ("_$S($P($G(OR0),"^",14)="S":"STAT",$P($G(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.