- 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/IBCNADD.m
r628 r636 1 1 IBCNADD ;ALB/AAS - ADDRESS RETRIEVAL ENGINE FOR FILE 399 ; 29-AUG-93 2 ;;2.0;INTEGRATED BILLING;**52,80 ,377**;21-MAR-94;Build 233 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**52,80**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 ADD(DA ,IBCOB) ; -- Retrieve correct billing address for a bill, mailing address of Bill Payer5 ADD(DA) ; -- Retrive correct billing address for a bill, mailing address of Bill Payer 6 6 ; assumes that new policy field points to valid ins. policy 7 ; DA = ien to file 3998 ; IBCOB = payer sequence PST or 123 (optional)9 ;10 7 N X,Y,I,J,IB01,IB02,IBTYP,DFN,IBCNS,IBCDFN,IBCNT,IBAGAIN,IBFND,IBBILLTY,IBCHRGTY 11 8 S IB02="" 12 9 S DFN=$P($G(^DGCR(399,DA,0)),"^",2) 10 S IBCNS=+$P($G(^DGCR(399,DA,"MP")),U,1) G:'IBCNS MAINQ 11 S IBCDFN=$P($G(^DGCR(399,DA,"MP")),"^",2) I IBCDFN S IBCNS=+$G(^DPT(+DFN,.312,+IBCDFN,0)) 13 12 S IBBILLTY=$P($G(^DGCR(399,DA,0)),"^",5),IBCHRGTY=$P($$CHGTYPE^IBCU(DA),"^;",1) 14 ;15 S IBCNS=+$P($G(^DGCR(399,DA,"MP")),U,1)16 S IBCDFN=$P($G(^DGCR(399,DA,"MP")),U,2)17 ;18 ; If a specific payer sequence was passed in, get the ins. company and the policy ptr19 ; No address returned for Medicare20 I $G(IBCOB)'="" D I $$MCRWNR^IBEFUNC(IBCNS) G MAINQ21 . S IBCOB=$TR(IBCOB,"PST","123")22 . S IBCNS=+$P($G(^DGCR(399,DA,"I"_IBCOB)),U,1)23 . S IBCDFN=+$P($G(^DGCR(399,DA,"M")),U,IBCOB+11)24 . Q25 ;26 I 'IBCNS G MAINQ27 I IBCDFN S IBCNS=+$G(^DPT(+DFN,.312,+IBCDFN,0))28 13 I '$D(^DIC(36,+IBCNS,0)) G MAINQ 29 14 ;
Note:
See TracChangeset
for help on using the changeset viewer.