- 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/PSOVER1.m
r628 r636 1 1 PSOVER1 ;BHAM ISC/SAB - verify one rx ;3/9/05 12:53pm 2 ;;7.0;OUTPATIENT PHARMACY;**32,46,90,131,202,207,148,243,268 ,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**32,46,90,131,202,207,148,243,268**;DEC 1997;Build 9 3 3 ;External reference ^PSDRUG( supported by DBIA 221 4 4 ;External reference to PSOUL^PSSLOCK supported by DBIA 2789 … … 78 78 . S ACTION="" D ECMESND^PSOBPSU1(PSONV,,,$S($O(^PSRX(PSONV,1,0)):"RF",1:"OF")) 79 79 . I $$FIND^PSOREJUT(PSONV) D 80 . . S ACTION=$$HDLG^PSOREJU1(PSONV,0,"79,88","OF","IOQ"," Q")80 . . S ACTION=$$HDLG^PSOREJU1(PSONV,0,"79,88","OF","IOQ","I") 81 81 ; 82 82 KILL S DA=PSONV,DIK="^PS(52.4," D ^DIK K DA,DIK D DCORD^PSONEW2
Note:
See TracChangeset
for help on using the changeset viewer.