Changeset 623 for WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMRN.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/PSOLMRN.m (modified) (1 diff)

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

@@ -1 @@
-PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ;04/21/1995
-        ;;7.0;OUTPATIENT PHARMACY;**11,46,84,225**;DEC 1997;Build 29
-EN      ; -- main entry point for PSO LM RENEW LIST
-        S VALMCNT=PSOPF,PSOLM=1
-        D EN^VALM("PSO LM RENEW LIST")
-        Q
-        ;
-HDR     ; -- header code
-        K ^TMP("PSOHDR",$J) 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=PSOPF,PSOLM=1
-        D RV^PSONFI Q
-        ;
-HELP    ; -- help code
-        S X="?" D DISP^XQORM1 W !!
-        Q
-        ;
-EXIT    ; -- exit code
-        I $G(Y)=-1!($G(Y)="Q") S PSOQUIT=1
-        I $G(Y)="Q",$P($G(Y(1)),"^",3)="QU" S PSOQQ=1
-        K FLAGLINE D CLEAN^VALM10
-        Q
-        ;
-EXPND   ; -- expand code
-        Q
-        ;
+PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ; 21-APR-1995
+ ;;7.0;OUTPATIENT PHARMACY;**11,46,84**;DEC 1997
+EN ; -- main entry point for PSO LM RENEW LIST
+ S VALMCNT=PSOPF,PSOLM=1
+ D EN^VALM("PSO LM RENEW LIST")
+ Q
+ ;
+HDR ; -- header code
+ K ^TMP("PSOHDR",$J) 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=PSOPF,PSOLM=1
+ D RV^PSONFI Q
+ ;
+HELP ; -- help code
+ S X="?" D DISP^XQORM1 W !!
+ Q
+ ;
+EXIT ; -- exit code
+ I $G(Y)=-1!($G(Y)="Q") S PSOQUIT=1
+ I $G(Y)="Q",$P($G(Y(1)),"^",3)="QU" S PSOQQ=1
+ Q
+ ;
+EXPND ; -- expand code
+ Q
+ ;