source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO.m@ 1150

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

revised back to 6/30/08 version

File size: 1.4 KB
Line 
1PSOLMPO ;ISC-BHAM/LC - pending orders ; 11/3/06 9:58pm
2 ;;7.0;OUTPATIENT PHARMACY;**46,208**;DEC 1997;Build 39
3 ; Modified from FOIA VISTA,
4 ; Copyright (C) 2007 WorldVistA
5 ;
6 ; This program is free software; you can redistribute it and/or modify
7 ; it under the terms of the GNU General Public License as published by
8 ; the Free Software Foundation; either version 2 of the License, or
9 ; (at your option) any later version.
10 ;
11 ; This program is distributed in the hope that it will be useful,
12 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ; GNU General Public License for more details.
15 ;
16 ; You should have received a copy of the GNU General Public License
17 ; along with this program; if not, write to the Free Software
18 ; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
19EN ; -- main entry point for PSO LM PENDING ORDER
20 I $G(PSOAFYN)'="Y" S PSOLMC=0 D EN^VALM("PSO LM PENDING ORDER") K PSOLMCP ;vfam
21 I $G(PSOAFYN)="Y" D ACP^PSOORNEW ;vfam
22 Q
23 ;
24HDR ; -- header code
25 D HDR^PSOLMUTL
26 Q
27 ;
28INIT ; -- init variables and list array
29 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
30 S VALMCNT=IEN,VALM("TITLE")="Pending OP Orders ("_$S($P(OR0,"^",14)="S":"STAT",$P(OR0,"^",14)="E":"EMERGENCY",1:"ROUTINE")_")"
31 D RV^PSONFI Q
32 ;
33HELP ; -- help code
34 S X="?" D DISP^XQORM1 W !!
35 Q
36 ;
37EXIT ; -- exit code
38 Q
39 ;
40EXPND ; -- expand code
41 Q
42 ;
Note: See TracBrowser for help on using the repository browser.