- 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/IBCNSU.m
r628 r636 1 IBCNSU ;ALB/AAS - INSURANCE UTILITY ROUTINE ; 19-MAY-932 ;;2.0;INTEGRATED BILLING;**28,103 ,371**; 21-MAR-94;Build 573 ;;Per VHA Directive 2004-038, this routine should not be modified.1 IBCNSU ;ALB/AAS - INSURANCE UTILITY ROUTINE ; 19-MAY-93 2 ;;2.0;INTEGRATED BILLING;**28,103**; 21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 AB(IBCPOL,IBYR,IBASK) ; -- Return entry in Annual Benefits file … … 186 186 ; 187 187 DELPQ Q X 188 ;189 DUPADDRL(DATA,IBCNS,FLD1,FLD2) ; Insurance address lines can not be duplicated190 ; DATA - Value being compared191 ; FLD1 - First field to check against192 ; FLD2 - Second field to check against (OPTIONAL)193 ;194 ; Returns 1 if this field is a duplicate of another field.195 ;196 N Z1,Z2197 Q:$G(DATA)="" 0 ; should not happen because this is invoked as an input transform198 Q:'$G(IBCNS) 1 ; stop from editing through fileman199 S DATA=$$UP^XLFSTR($G(DATA)),DATA=$$TRIM^XLFSTR(DATA)200 S Z1=$$GET1^DIQ(36,+$G(IBCNS),+$G(FLD1),"I")201 S Z1=$$UP^XLFSTR(Z1),Z1=$$TRIM^XLFSTR(Z1)202 S Z2=$$GET1^DIQ(36,+$G(IBCNS),+$G(FLD2),"I")203 S Z2=$$UP^XLFSTR(Z2),Z2=$$TRIM^XLFSTR(Z2)204 I DATA=Z1 D CLEAN^DILF Q 1205 I DATA=Z2 D CLEAN^DILF Q 1206 D CLEAN^DILF207 Q 0208 ;
Note:
See TracChangeset
for help on using the changeset viewer.