- 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/PSOBPSUT.m
r628 r636 1 1 PSOBPSUT ;BIRM/MFR - BPS (ECME) Utilities ; 07 Jun 2005 8:39 PM 2 ;;7.0;OUTPATIENT PHARMACY;**148,247,260 ,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**148,247,260**;DEC 1997;Build 84 3 3 ;Reference to $$ECMEON^BPSUTIL supported by IA 4410 4 4 ;Reference to IBSEND^BPSECMP2 supported by IA 4411 … … 26 26 ; 27 27 ; - Get the REFILL # (multiple IEN) 28 N STATUS29 28 I '$D(RFL) S RFL=$$LSTRFL^PSOBPSU1(RX) 30 29 ; - Not the latest fill for the prescription 31 30 I RFL'=$$LSTRFL^PSOBPSU1(RX) Q 0 32 ; - Status not ACTIVE, DISCONTINUED, or EXPIRED 33 S STATUS=$$GET1^DIQ(52,RX,100,"I") 34 I STATUS'=0&(STATUS'=11)&(STATUS'=12) Q 0 31 ; - Status not ACTIVE 32 I $$GET1^DIQ(52,RX,100,"I")'=0 Q 0 35 33 ; Will suspend for CMOP 36 34 I '$G(IGCMP),$$CMOP(RX,RFL) Q 0
Note:
See TracChangeset
for help on using the changeset viewer.