Changeset 623 for WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO.m (modified) (1 diff)

WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO.m

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