IBCNBCD5 ;ALB/AWC - MCCF FY14 Subscriber Display Screens ;25 Feb 2015
;;2.0;INTEGRATED BILLING;**528**;21-MAR-94;Build 163
;;Per VA Directive 6402, this routine should not be modified.
;
;Input Parameters:
; See routine SBDISP^IBCNBCD4
;
; -- called from routine SBDISP^IBCNBCD4
PDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
N IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBPRDA,IBXDAT,DIERR
S IBCNT=0
;
; -- get buffer record data (#355.33)
S IBFLDS="90.03;60.05;60.14;60.15;60.16;91.01;60.1;60.11;60.12;62.01",IBBUFDA=IBBUFDA_","
D GETS^DIQ(355.33,IBBUFDA,IBFLDS,,"IBBDAT","DIERR") Q:$D(DIERR)
;
; -- get patient record data (#2)
S IBFLDS=".01;.03;.09;.02;.111;.112;.114;.115;.116;.1173;.131",IBPRDA=IBIEN_","
D GETS^DIQ(2,IBPRDA,IBFLDS,,"IBPDAT","DIERR") Q:$D(DIERR)
;
; -- get patient insurance data (#2.312)
S IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
D GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR") Q:$D(DIERR)
;
S IBTXT=IB1,IBFLD=90.03,IBXFLD=7.02,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB2,IBFLD=60.05,IBXFLD=6,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB3,IBFLD=60.14,IBXFLD=4.03,IBDAT=IBV,IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB4,IBFLD=60.15,IBXFLD=4.05,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB5,IBFLD=60.16,IBXFLD=4.06,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB6,IBFLD=91.01,IBXFLD=7.01,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB7,IBFLD=.03,IBXFLD=3.01,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB8,IBFLD=.09,IBXFLD=3.05,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB9,IBFLD=.02,IBXFLD=3.12,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB10,IBFLD=60.1,IBXFLD=4.01,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB11,IBFLD=60.11,IBXFLD=4.02,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB12,IBFLD=60.12,IBXFLD=.2,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB13,IBFLD=62.01,IBXFLD=5.01,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB14,IBFLD=.111,IBXFLD=3.06,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB15,IBFLD=.112,IBXFLD=3.07,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB16,IBFLD=.114,IBXFLD=3.08,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB17,IBFLD=.115,IBXFLD=3.09,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB18,IBFLD=.116,IBXFLD=3.1,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB19,IBFLD=.1173,IBXFLD=3.13,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB20,IBFLD=.131,IBXFLD=3.11,IBDAT=$G(IBPDAT(2,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
Q
;
IDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
N IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBXDAT
S IBCNT=0
;
; -- get buffer record data (#355.33)
S IBFLDS="90.03;60.05;60.14;60.15;60.16;60.1;60.11;60.12;62.01",IBBUFDA=IBBUFDA_","
D GETS^DIQ(355.33,IBBUFDA,IBFLDS,,"IBBDAT","DIERR") Q:$D(DIERR)
;
; -- get income person record data (#408.13
S IBFLDS=".01;.02;.03;.09;1.2;1.3;1.5;1.6;1.7;1.8",IBPRDA=IBIEN_","
D GETS^DIQ(408.13,IBPRDA,IBFLDS,,"IBPDAT","DIERR") Q:$D(DIERR)
;
; -- get patient insurance data (#2.312)
S IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
D GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR") Q:$D(DIERR)
;
S IBTXT=IB1,IBFLD=90.03,IBXFLD=7.02,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB2,IBFLD=60.05,IBXFLD=6,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB3,IBFLD=60.14,IBXFLD=4.03,IBDAT=IBV,IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB4,IBFLD=60.15,IBXFLD=4.05,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB5,IBFLD=60.16,IBXFLD=4.06,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB6,IBFLD=.01,IBXFLD=7.01,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB7,IBFLD=.03,IBXFLD=3.01,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB8,IBFLD=.09,IBXFLD=3.05,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB9,IBFLD=.02,IBXFLD=3.12,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB10,IBFLD=60.1,IBXFLD=4.01,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB11,IBFLD=60.11,IBXFLD=4.02,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB12,IBFLD=60.12,IBXFLD=.2,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB13,IBFLD=62.01,IBXFLD=5.01,IBDAT=$G(IBBDAT(355.33,IBBUFDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB14,IBFLD=1.2,IBXFLD=3.06,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB15,IBFLD=1.3,IBXFLD=3.07,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB16,IBFLD=1.5,IBXFLD=3.08,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB17,IBFLD=1.6,IBXFLD=3.09,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB18,IBFLD=1.7,IBXFLD=3.1,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB19,IBFLD=1.99,IBXFLD=3.13,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB20,IBFLD=1.8,IBXFLD=3.11,IBDAT=$G(IBPDAT(408.13,IBPRDA,IBFLD)),IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
Q
;
NDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
N IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBXDAT
S IBCNT=0
;
; -- get patient insurance data (#2.312)
S IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
D GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR") Q:$D(DIERR)
;
S IBTXT=IB1,IBFLD=90.03,IBXFLD=7.02,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB2,IBFLD=60.05,IBXFLD=6,IBDAT=IBV,IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB3,IBFLD=60.14,IBXFLD=4.03,IBDAT=IBV,IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB4,IBFLD=60.15,IBXFLD=4.05,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB5,IBFLD=60.16,IBXFLD=4.06,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB6,IBFLD=.01,IBXFLD=7.01,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB7,IBFLD=.03,IBXFLD=3.01,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB8,IBFLD=.09,IBXFLD=3.05,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB9,IBFLD=.02,IBXFLD=3.12,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB10,IBFLD=60.1,IBXFLD=4.01,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB11,IBFLD=60.11,IBXFLD=4.02,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB12,IBFLD=60.12,IBXFLD=.2,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB13,IBFLD=62.01,IBXFLD=5.01,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB14,IBFLD=.111,IBXFLD=3.06,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB15,IBFLD=.112,IBXFLD=3.07,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB16,IBFLD=.114,IBXFLD=3.08,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB17,IBFLD=.115,IBXFLD=3.09,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB18,IBFLD=.116,IBXFLD=3.1,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB19,IBFLD=.1173,IBXFLD=3.13,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
S IBTXT=IB20,IBFLD=.131,IBXFLD=3.11,IBDAT="",IBXDAT=$G(IBIDAT(2.312,IBSIEN,IBXFLD)) D BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNBCD5 14312 printed Mar 13, 2025@21:18:41 Page 2
IBCNBCD5 ;ALB/AWC - MCCF FY14 Subscriber Display Screens ;25 Feb 2015
+1 ;;2.0;INTEGRATED BILLING;**528**;21-MAR-94;Build 163
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;Input Parameters:
+5 ; See routine SBDISP^IBCNBCD4
+6 ;
+7 ; -- called from routine SBDISP^IBCNBCD4
PDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
+1 NEW IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBPRDA,IBXDAT,DIERR
+2 SET IBCNT=0
+3 ;
+4 ; -- get buffer record data (#355.33)
+5 SET IBFLDS="90.03;60.05;60.14;60.15;60.16;91.01;60.1;60.11;60.12;62.01"
SET IBBUFDA=IBBUFDA_","
+6 DO GETS^DIQ(355.33,IBBUFDA,IBFLDS,,"IBBDAT","DIERR")
if $DATA(DIERR)
QUIT
+7 ;
+8 ; -- get patient record data (#2)
+9 SET IBFLDS=".01;.03;.09;.02;.111;.112;.114;.115;.116;.1173;.131"
SET IBPRDA=IBIEN_","
+10 DO GETS^DIQ(2,IBPRDA,IBFLDS,,"IBPDAT","DIERR")
if $DATA(DIERR)
QUIT
+11 ;
+12 ; -- get patient insurance data (#2.312)
+13 SET IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
+14 DO GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR")
if $DATA(DIERR)
QUIT
+15 ;
+16 SET IBTXT=IB1
SET IBFLD=90.03
SET IBXFLD=7.02
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+17 SET IBTXT=IB2
SET IBFLD=60.05
SET IBXFLD=6
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+18 SET IBTXT=IB3
SET IBFLD=60.14
SET IBXFLD=4.03
SET IBDAT=IBV
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+19 SET IBTXT=IB4
SET IBFLD=60.15
SET IBXFLD=4.05
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+20 SET IBTXT=IB5
SET IBFLD=60.16
SET IBXFLD=4.06
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+21 SET IBTXT=IB6
SET IBFLD=91.01
SET IBXFLD=7.01
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+22 SET IBTXT=IB7
SET IBFLD=.03
SET IBXFLD=3.01
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+23 SET IBTXT=IB8
SET IBFLD=.09
SET IBXFLD=3.05
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+24 SET IBTXT=IB9
SET IBFLD=.02
SET IBXFLD=3.12
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+25 SET IBTXT=IB10
SET IBFLD=60.1
SET IBXFLD=4.01
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+26 SET IBTXT=IB11
SET IBFLD=60.11
SET IBXFLD=4.02
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+27 SET IBTXT=IB12
SET IBFLD=60.12
SET IBXFLD=.2
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+28 SET IBTXT=IB13
SET IBFLD=62.01
SET IBXFLD=5.01
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+29 SET IBTXT=IB14
SET IBFLD=.111
SET IBXFLD=3.06
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+30 SET IBTXT=IB15
SET IBFLD=.112
SET IBXFLD=3.07
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+31 SET IBTXT=IB16
SET IBFLD=.114
SET IBXFLD=3.08
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+32 SET IBTXT=IB17
SET IBFLD=.115
SET IBXFLD=3.09
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+33 SET IBTXT=IB18
SET IBFLD=.116
SET IBXFLD=3.1
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+34 SET IBTXT=IB19
SET IBFLD=.1173
SET IBXFLD=3.13
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+35 SET IBTXT=IB20
SET IBFLD=.131
SET IBXFLD=3.11
SET IBDAT=$GET(IBPDAT(2,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+36 QUIT
+37 ;
IDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
+1 NEW IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBXDAT
+2 SET IBCNT=0
+3 ;
+4 ; -- get buffer record data (#355.33)
+5 SET IBFLDS="90.03;60.05;60.14;60.15;60.16;60.1;60.11;60.12;62.01"
SET IBBUFDA=IBBUFDA_","
+6 DO GETS^DIQ(355.33,IBBUFDA,IBFLDS,,"IBBDAT","DIERR")
if $DATA(DIERR)
QUIT
+7 ;
+8 ; -- get income person record data (#408.13
+9 SET IBFLDS=".01;.02;.03;.09;1.2;1.3;1.5;1.6;1.7;1.8"
SET IBPRDA=IBIEN_","
+10 DO GETS^DIQ(408.13,IBPRDA,IBFLDS,,"IBPDAT","DIERR")
if $DATA(DIERR)
QUIT
+11 ;
+12 ; -- get patient insurance data (#2.312)
+13 SET IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
+14 DO GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR")
if $DATA(DIERR)
QUIT
+15 ;
+16 SET IBTXT=IB1
SET IBFLD=90.03
SET IBXFLD=7.02
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+17 SET IBTXT=IB2
SET IBFLD=60.05
SET IBXFLD=6
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+18 SET IBTXT=IB3
SET IBFLD=60.14
SET IBXFLD=4.03
SET IBDAT=IBV
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+19 SET IBTXT=IB4
SET IBFLD=60.15
SET IBXFLD=4.05
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+20 SET IBTXT=IB5
SET IBFLD=60.16
SET IBXFLD=4.06
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+21 SET IBTXT=IB6
SET IBFLD=.01
SET IBXFLD=7.01
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+22 SET IBTXT=IB7
SET IBFLD=.03
SET IBXFLD=3.01
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+23 SET IBTXT=IB8
SET IBFLD=.09
SET IBXFLD=3.05
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+24 SET IBTXT=IB9
SET IBFLD=.02
SET IBXFLD=3.12
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+25 SET IBTXT=IB10
SET IBFLD=60.1
SET IBXFLD=4.01
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+26 SET IBTXT=IB11
SET IBFLD=60.11
SET IBXFLD=4.02
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+27 SET IBTXT=IB12
SET IBFLD=60.12
SET IBXFLD=.2
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+28 SET IBTXT=IB13
SET IBFLD=62.01
SET IBXFLD=5.01
SET IBDAT=$GET(IBBDAT(355.33,IBBUFDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+29 SET IBTXT=IB14
SET IBFLD=1.2
SET IBXFLD=3.06
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+30 SET IBTXT=IB15
SET IBFLD=1.3
SET IBXFLD=3.07
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+31 SET IBTXT=IB16
SET IBFLD=1.5
SET IBXFLD=3.08
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+32 SET IBTXT=IB17
SET IBFLD=1.6
SET IBXFLD=3.09
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+33 SET IBTXT=IB18
SET IBFLD=1.7
SET IBXFLD=3.1
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+34 SET IBTXT=IB19
SET IBFLD=1.99
SET IBXFLD=3.13
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+35 SET IBTXT=IB20
SET IBFLD=1.8
SET IBXFLD=3.11
SET IBDAT=$GET(IBPDAT(408.13,IBPRDA,IBFLD))
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+36 QUIT
+37 ;
NDIS(IBBUFDA,IBIEN,IBSIEN,IBSEL,IBV,IB1,IB2,IB3,IB4,IB5,IB6,IB7,IB8,IB9,IB10,IB11,IB12,IB13,IB14,IB15,IB16,IB17,IB18,IB19,IB20,IBHOLD,IBXHOLD) ;
+1 NEW IBFLD,IBFLDS,IBXFLD,IBTXT,IBDAT,IBBDAT,IBPDAT,IBIDAT,IBCNT,IBXDAT
+2 SET IBCNT=0
+3 ;
+4 ; -- get patient insurance data (#2.312)
+5 SET IBFLDS="7.02;6;4.03;4.05;4.06;7.01;3.01;3.05;3.12;4.01;4.02;.2;5.01;3.06;3.07;3.08;3.09;3.1;3.13;3.11"
+6 DO GETS^DIQ(2.312,IBSIEN,IBFLDS,,"IBIDAT","DIERR")
if $DATA(DIERR)
QUIT
+7 ;
+8 SET IBTXT=IB1
SET IBFLD=90.03
SET IBXFLD=7.02
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+9 SET IBTXT=IB2
SET IBFLD=60.05
SET IBXFLD=6
SET IBDAT=IBV
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+10 SET IBTXT=IB3
SET IBFLD=60.14
SET IBXFLD=4.03
SET IBDAT=IBV
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+11 SET IBTXT=IB4
SET IBFLD=60.15
SET IBXFLD=4.05
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+12 SET IBTXT=IB5
SET IBFLD=60.16
SET IBXFLD=4.06
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+13 SET IBTXT=IB6
SET IBFLD=.01
SET IBXFLD=7.01
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+14 SET IBTXT=IB7
SET IBFLD=.03
SET IBXFLD=3.01
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+15 SET IBTXT=IB8
SET IBFLD=.09
SET IBXFLD=3.05
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+16 SET IBTXT=IB9
SET IBFLD=.02
SET IBXFLD=3.12
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+17 SET IBTXT=IB10
SET IBFLD=60.1
SET IBXFLD=4.01
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+18 SET IBTXT=IB11
SET IBFLD=60.11
SET IBXFLD=4.02
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+19 SET IBTXT=IB12
SET IBFLD=60.12
SET IBXFLD=.2
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+20 SET IBTXT=IB13
SET IBFLD=62.01
SET IBXFLD=5.01
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+21 SET IBTXT=IB14
SET IBFLD=.111
SET IBXFLD=3.06
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+22 SET IBTXT=IB15
SET IBFLD=.112
SET IBXFLD=3.07
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+23 SET IBTXT=IB16
SET IBFLD=.114
SET IBXFLD=3.08
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+24 SET IBTXT=IB17
SET IBFLD=.115
SET IBXFLD=3.09
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+25 SET IBTXT=IB18
SET IBFLD=.116
SET IBXFLD=3.1
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+26 SET IBTXT=IB19
SET IBFLD=.1173
SET IBXFLD=3.13
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+27 SET IBTXT=IB20
SET IBFLD=.131
SET IBXFLD=3.11
SET IBDAT=""
SET IBXDAT=$GET(IBIDAT(2.312,IBSIEN,IBXFLD))
DO BD^IBCNBCD4(IBBUFDA,IBTXT,IBFLD,.IBDAT,IBSEL,IBSIEN,.IBXFLD,.IBXDAT,.IBCNT,.IBHOLD,.IBXHOLD)
+28 QUIT
