- 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/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEM4.m
r628 r636 1 1 IBCEM4 ;ALB/TMP - IB ELECTRONIC MESSAGE SCREEN TEXT MAINT ;19-APR-2001 2 ;;2.0;INTEGRATED BILLING;**137 ,368**;21-MAR-1994;Build 213 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-1994 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 EN ; entry point for maintenance … … 60 60 ; 61 61 N T,Y,Z,Z0 62 S (IBREV,Y)=0,Z="" ,IBTEXT=$$UP^XLFSTR($G(IBTEXT))63 I '$G(IBSKIP) F S Z=$O(^IBE(361.3,"AC",1,Z)) Q:Z="" I IBTEXT[ $$UP^XLFSTR(Z)S IBREV=1 Q ; Always review messages with this text64 I 'IBREV S Z="" F S Z=$O(^IBE(361.3,"AC",0,Z)) Q:Z="" I IBTEXT[ $$UP^XLFSTR(Z)S Y=1,IBNR=Z Q ; Message contains text to make review unnecessary62 S (IBREV,Y)=0,Z="" 63 I '$G(IBSKIP) F S Z=$O(^IBE(361.3,"AC",1,Z)) Q:Z="" I IBTEXT[Z S IBREV=1 Q ; Always review messages with this text 64 I 'IBREV S Z="" F S Z=$O(^IBE(361.3,"AC",0,Z)) Q:Z="" I IBTEXT[Z S Y=1,IBNR=Z Q ; Message contains text to make review unnecessary 65 65 Q Y 66 66 ;
Note:
See TracChangeset
for help on using the changeset viewer.