- 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/PSOSUPOE.m
r628 r636 1 1 PSOSUPOE ;BIR/RTR - Suspense pull via Listman ;3/1/96 2 ;;7.0;OUTPATIENT PHARMACY;**8,21,27,34,130,148 ,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**8,21,27,34,130,148**;DEC 1997 3 3 ;External references PSOL and PSOUL^PSSLOCK supported by DBIA 2789 4 4 SEL I '$G(PSOCNT) S VALMSG="This patient has no Prescriptions!" S VALMBCK="" Q … … 41 41 . D ECMESND^PSOBPSU1(RXREC,RFL,,"PP") 42 42 . I $$FIND^PSOREJUT(RXREC,RFL) D 43 . . S ACTION=$$HDLG^PSOREJU1(RXREC,RFL,"79,88","PP","IOQ"," Q")43 . . S ACTION=$$HDLG^PSOREJU1(RXREC,RFL,"79,88","PP","IOQ","I") 44 44 ; 45 45 D ULRX K PSOGET,PSOGETF
Note:
See TracChangeset
for help on using the changeset viewer.