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

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

@@ -1 @@
-PSOORAL ;BHAM-ISC/SAB - activity log list ; 28-APR-1995
-        ;;7.0;OUTPATIENT PHARMACY;**148,281**;DEC 1997;Build 41
-EN      ; -- main entry point for PSO LM ACTIVITY LOGS
-        D EN^VALM("PSO LM ACTIVITY LOGS")
-        Q
-        ;
-HDR     ; -- header code
-        D HDR^PSOLMUTL
-        Q
-        ;
-INIT    ; -- init variables and list array
-        I $G(PS)="VIEW"!($G(PS)="DELETE")!($G(PS)="REJECT")!($G(PS)="REJECTMP") D
-        .I ST<12,$P(RX2,"^",6)<DT S ST=11
-        .S VALM("TITLE")="Rx View "_"("_$P("Error^Active^Non-Verified^Refill^Hold^Non-Verified^Suspended^^^^^Done^Expired^Discontinued^Deleted^Discontinued^Discontinued (Edit)^Provider Hold^","^",ST+2)_")"
-        S VALMCNT=PSOAL
-        Q
-        ;
-HELP    ; -- help code
-        S X="?" D DISP^XQORM1 W !!
-        Q
-        ;
-EXIT    ; -- exit code
-        S VALMBCK="Q" Q
-        ;
-EXPND   ; -- expand code
-        Q
-        ;
+PSOORAL ;BHAM-ISC/SAB - activity log list ; 28-APR-1995
+ ;;7.0;OUTPATIENT PHARMACY;**148**;DEC 1997
+EN ; -- main entry point for PSO LM ACTIVITY LOGS
+ D EN^VALM("PSO LM ACTIVITY LOGS")
+ Q
+ ;
+HDR ; -- header code
+ D HDR^PSOLMUTL
+ Q
+ ;
+INIT ; -- init variables and list array
+ I $G(PS)="VIEW"!($G(PS)="DELETE")!($G(PS)="REJECT") D
+ .I ST<12,$P(RX2,"^",6)<DT S ST=11
+ .S VALM("TITLE")="Rx View "_"("_$P("Error^Active^Non-Verified^Refill^Hold^Non-Verified^Suspended^^^^^Done^Expired^Discontinued^Deleted^Discontinued^Discontinued (Edit)^Provider Hold^","^",ST+2)_")"
+ S VALMCNT=PSOAL
+ Q
+ ;
+HELP ; -- help code
+ S X="?" D DISP^XQORM1 W !!
+ Q
+ ;
+EXIT ; -- exit code
+ S VALMBCK="Q" Q
+ ;
+EXPND ; -- expand code
+ Q
+ ;