- 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/PSOUTLA1.m
r628 r636 1 PSOUTLA1 ;BHAM ISC/RTR-Pharmacy utility program cont. ; 5/22/07 10:01am2 ;;7.0;OUTPATIENT PHARMACY;**35,186,218,259 ,206**;DEC 1997;Build 391 PSOUTLA1 ;BHAM ISC/RTR-Pharmacy utility program cont. ;10/20/06 3:44pm 2 ;;7.0;OUTPATIENT PHARMACY;**35,186,218,259**;DEC 1997;Build 5 3 3 ;External reference to File ^PS(55 supported by DBIA 2228 4 4 ;External reference to File ^PSDRUG supported by DBIA 221 … … 109 109 ; 110 110 ;no refills if PSDEA = 'A' & not 'B' or 'F', 111 I (PSDEA["A")&(PSDEA'["B")!(PSDEA["F") !(PSDEA[1)!(PSDEA[2)D Q 1111 I (PSDEA["A")&(PSDEA'["B")!(PSDEA["F") D Q 1 112 112 . S PSMAXRF=$$NUMFILLS(PSIRXN) 113 113 ;
Note:
See TracChangeset
for help on using the changeset viewer.