IBCEF84 ;ALB/BI - GET PROVIDER FUNCTIONS ;26-OCT-2010
;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
;
CREATE(DA) ; CREATE CONDITION ENTRY POINT.
; CALLED FROM DICT 399, FIELDS .21 & 101 TRIGGERS FOR FIELD 27.
N TEST,X,INSDA,IBP
S TEST=0
;
; Test for Medicare Secondary and CURRENT BILL PAYER SEQUENCE ="T"
I $$GET1^DIQ(399,DA_",",.21,"I")="T",$$WNRBILL^IBEFUNC(DA,2) S TEST=1 Q TEST
;
; Test the CURRENT BILL PAYER SEQUENCE for "SECONDARY"
I $$GET1^DIQ(399,DA_",",.21,"I")'="S" Q TEST
;
; Test the PRIMARY INSURANCE CARRIER for "MEDICARE (WNR)"
I '$$WNRBILL^IBEFUNC(DA,1) Q TEST
;
; Set Primary Claim/Bill number.
S IBP=$$GET1^DIQ(399,DA_",",125,"I")
; Test if the Primary Claim/Bill contains a MRA REQUESTED DATE.
I IBP'="",$$GET1^DIQ(399,IBP_",",7,"I")'="" Q TEST
;
; Test the PRINT SEC MED CLAIMS W/O MRA flag in dictionary 36 for YES.
S INSDA=$$GET1^DIQ(399,DA_",",102,"I")
I $$GET1^DIQ(36,INSDA_",",6.1,"I")'=1 Q TEST
;
S TEST=1
Q TEST
;
DELETE(DA) ; DELETE CONDITION ENTRY POINT.
; CALLED FROM DICT 399, FIELDS .21 & 101 TRIGGERS FOR FIELD 27.
N TEST,X,INSDA
S TEST=0
;
; Test for Medicare Secondary and CURRENT BILL PAYER SEQUENCE ="T"
I $$GET1^DIQ(399,DA_",",.21,"I")="T",$$WNRBILL^IBEFUNC(DA,2) Q TEST
;
; Test the current value of FORCE CLAIM TO PRINT for "1"
I $$GET1^DIQ(399,DA_",",27,"I")'="1" Q TEST
;
S TEST=1
;
; Test the CURRENT BILL PAYER SEQUENCE for "SECONDARY"
I $$GET1^DIQ(399,DA_",",.21,"I")'="S" Q TEST
;
; Test the PRIMARY INSURANCE CARRIER for "MEDICARE (WNR)"
I '$$WNRBILL^IBEFUNC(DA,1) Q TEST
;
; Set Primary Claim/Bill number.
S IBP=$$GET1^DIQ(399,DA_",",125,"I")
; Test if the Primary Claim/Bill contains a MRA REQUESTED DATE.
I IBP'="",$$GET1^DIQ(399,IBP_",",7,"I")'="" Q TEST
;
; Test the PRINT SEC MED CLAIMS W/O MRA flag in dictionary 36 for YES.
S INSDA=$$GET1^DIQ(399,DA_",",102,"I")
I $$GET1^DIQ(36,INSDA_",",6.1,"I")'=1 Q TEST
;
S TEST=0
Q TEST
;
TEST(DA) ; Tag to be called by the input template.
Q $$CREATE(DA)
;
MESSAGE ; IF THE ABOVE TEST IS TRUE, THE FOLLOWING MESSAGE WILL BE DISPLAYED.
N X,Y,DIR
S DIR(0)="EA"
S DIR("A",1)="THIS FIELD CAN'T BE CHANGE"
S DIR("A")="PRESS RETURN TO CONTINUE: "
D ^DIR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEF84 2374 printed Oct 16, 2024@18:11:06 Page 2
IBCEF84 ;ALB/BI - GET PROVIDER FUNCTIONS ;26-OCT-2010
+1 ;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
CREATE(DA) ; CREATE CONDITION ENTRY POINT.
+1 ; CALLED FROM DICT 399, FIELDS .21 & 101 TRIGGERS FOR FIELD 27.
+2 NEW TEST,X,INSDA,IBP
+3 SET TEST=0
+4 ;
+5 ; Test for Medicare Secondary and CURRENT BILL PAYER SEQUENCE ="T"
+6 IF $$GET1^DIQ(399,DA_",",.21,"I")="T"
IF $$WNRBILL^IBEFUNC(DA,2)
SET TEST=1
QUIT TEST
+7 ;
+8 ; Test the CURRENT BILL PAYER SEQUENCE for "SECONDARY"
+9 IF $$GET1^DIQ(399,DA_",",.21,"I")'="S"
QUIT TEST
+10 ;
+11 ; Test the PRIMARY INSURANCE CARRIER for "MEDICARE (WNR)"
+12 IF '$$WNRBILL^IBEFUNC(DA,1)
QUIT TEST
+13 ;
+14 ; Set Primary Claim/Bill number.
+15 SET IBP=$$GET1^DIQ(399,DA_",",125,"I")
+16 ; Test if the Primary Claim/Bill contains a MRA REQUESTED DATE.
+17 IF IBP'=""
IF $$GET1^DIQ(399,IBP_",",7,"I")'=""
QUIT TEST
+18 ;
+19 ; Test the PRINT SEC MED CLAIMS W/O MRA flag in dictionary 36 for YES.
+20 SET INSDA=$$GET1^DIQ(399,DA_",",102,"I")
+21 IF $$GET1^DIQ(36,INSDA_",",6.1,"I")'=1
QUIT TEST
+22 ;
+23 SET TEST=1
+24 QUIT TEST
+25 ;
DELETE(DA) ; DELETE CONDITION ENTRY POINT.
+1 ; CALLED FROM DICT 399, FIELDS .21 & 101 TRIGGERS FOR FIELD 27.
+2 NEW TEST,X,INSDA
+3 SET TEST=0
+4 ;
+5 ; Test for Medicare Secondary and CURRENT BILL PAYER SEQUENCE ="T"
+6 IF $$GET1^DIQ(399,DA_",",.21,"I")="T"
IF $$WNRBILL^IBEFUNC(DA,2)
QUIT TEST
+7 ;
+8 ; Test the current value of FORCE CLAIM TO PRINT for "1"
+9 IF $$GET1^DIQ(399,DA_",",27,"I")'="1"
QUIT TEST
+10 ;
+11 SET TEST=1
+12 ;
+13 ; Test the CURRENT BILL PAYER SEQUENCE for "SECONDARY"
+14 IF $$GET1^DIQ(399,DA_",",.21,"I")'="S"
QUIT TEST
+15 ;
+16 ; Test the PRIMARY INSURANCE CARRIER for "MEDICARE (WNR)"
+17 IF '$$WNRBILL^IBEFUNC(DA,1)
QUIT TEST
+18 ;
+19 ; Set Primary Claim/Bill number.
+20 SET IBP=$$GET1^DIQ(399,DA_",",125,"I")
+21 ; Test if the Primary Claim/Bill contains a MRA REQUESTED DATE.
+22 IF IBP'=""
IF $$GET1^DIQ(399,IBP_",",7,"I")'=""
QUIT TEST
+23 ;
+24 ; Test the PRINT SEC MED CLAIMS W/O MRA flag in dictionary 36 for YES.
+25 SET INSDA=$$GET1^DIQ(399,DA_",",102,"I")
+26 IF $$GET1^DIQ(36,INSDA_",",6.1,"I")'=1
QUIT TEST
+27 ;
+28 SET TEST=0
+29 QUIT TEST
+30 ;
TEST(DA) ; Tag to be called by the input template.
+1 QUIT $$CREATE(DA)
+2 ;
MESSAGE ; IF THE ABOVE TEST IS TRUE, THE FOLLOWING MESSAGE WILL BE DISPLAYED.
+1 NEW X,Y,DIR
+2 SET DIR(0)="EA"
+3 SET DIR("A",1)="THIS FIELD CAN'T BE CHANGE"
+4 SET DIR("A")="PRESS RETURN TO CONTINUE: "
+5 DO ^DIR
+6 QUIT
