- 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/IBCNSC.m
r628 r636 1 IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ; 6/1/05 9:42am2 ;;2.0;INTEGRATED BILLING;**46,137,184,276,320 ,371**;21-MAR-94;Build 573 ;;Per VHA Directive 2004-038, this routine should not be modified.1 IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ; 6/1/05 9:42am 2 ;;2.0;INTEGRATED BILLING;**46,137,184,276,320**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 ;also used for IA #4694 … … 47 47 N OFFSET,START,IBCNS14,IBADD 48 48 S IBCNS14=$$ADDRESS^IBCNSC0(IBCNS,.14,7) 49 S START=4 8,OFFSET=249 S START=40,OFFSET=2 50 50 D SET^IBCNSP(START,OFFSET+25," Appeals Office Information ",IORVON,IORVOFF) 51 51 D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS14,"^",7),0)),"^",1)) … … 63 63 N OFFSET,START,IBCNS15,IBADD 64 64 S IBCNS15=$$ADDRESS^IBCNSC0(IBCNS,.15,8) 65 S START= 55,OFFSET=265 S START=47,OFFSET=2 66 66 D SET^IBCNSP(START,OFFSET+25," Inquiry Office Information ",IORVON,IORVOFF) 67 67 D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS15,"^",7),0)),"^",1)) … … 109 109 Q OK 110 110 ; 111 DUPQUAL(IBCNS,QUAL,FIELD) ; input transform to make sure that the sam qualifier is not used twice for112 ; payer secondary IDs. There are two sets of fields in file 36 that can not be duplicated.113 ; 6.01 EDI INST SECONDARY ID QUAL(1) can not be the same as 6.03 EDI INST SECONDARY ID QUAL(2)114 ; 6.05 EDI PROF SECONDARY ID QUAL(1) can not be the same as 6.07 EDI PROF SECONDARY ID QUAL(2)115 ;116 ; Input:117 ; IBCNS is the insurance company internal number118 ; QUAL is the internal code of the value being input.119 ; FIELD is the field it is being compare with.120 ;121 ; Returns:122 ; TRUE/1 if they are the same (duplicate)123 ; FALSE/0 if they are not124 ;125 Q:$G(QUAL)="" 0 ; should not happen because this is invoked as an input transform126 Q:'+$G(IBCNS) 1 ; stop from editing through fileman127 N DUP128 S DUP=$$GET1^DIQ(36,+$G(IBCNS)_",",+$G(FIELD),"I")129 D CLEAN^DILF130 Q QUAL=DUP
Note:
See TracChangeset
for help on using the changeset viewer.