- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOORAL.m
r628 r636 1 1 PSOORAL ;BHAM-ISC/SAB - activity log list ; 28-APR-1995 2 ;;7.0;OUTPATIENT PHARMACY;**148 ,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**148**;DEC 1997 3 3 EN ; -- main entry point for PSO LM ACTIVITY LOGS 4 4 D EN^VALM("PSO LM ACTIVITY LOGS") … … 10 10 ; 11 11 INIT ; -- init variables and list array 12 I $G(PS)="VIEW"!($G(PS)="DELETE")!($G(PS)="REJECT") !($G(PS)="REJECTMP")D12 I $G(PS)="VIEW"!($G(PS)="DELETE")!($G(PS)="REJECT") D 13 13 .I ST<12,$P(RX2,"^",6)<DT S ST=11 14 14 .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)_")"
Note:
See TracChangeset
for help on using the changeset viewer.