IBVCB2 ;LITS/MRD - VIEW CANCELLED BILL, CONT. ;25-JUN-14
;;2.0;INTEGRATED BILLING;**516**;21-MAR-94;Build 123
;;Per VA Directive 6402, this routine should not be modified.
;
PART3 ; User Data, Payment & Claim History, Insurance, etc.
;
N IBADD1,IBADD2,IBADDTOT,IBDISAPP,IBCITY,IBFIND,IBFIND2,IBLINE,IBNAME,IBPROV,IBPROVID,IBRETURN,IBROLE,IBROLEX,IBSTATE,IBX,IBZIP
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="Procedure Codes (Line Level Data)"
S IBTEXT(3,1)="---------------------------------"
D LINE^IBVCB(.IBTEXT)
;
S IBFIND=0,IBLINE=0
F S IBLINE=$O(^DGCR(399,IBIFN,"CP",IBLINE)) Q:'IBLINE D
. ; Print a blank line if this is not the first procedure.
. I IBFIND S IBTEXT(1,1)="" D LINE^IBVCB(.IBTEXT)
. S IBFIND=1
. ;
. S IBTEXT(1,1)="Procedure: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",.01,"E")
. S IBTEXT(1,2)="Date: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",1,"E")
. S IBX=$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",51,"E")
. I IBX'="" S IBTEXT(2,1)="NOC Description: "_IBX
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Print Order: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",3,"E")
. S IBTEXT(1,2)="Division: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",5,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Clinic: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",6,"E")
. S IBTEXT(1,2)="Place of Service: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",8,"E")
. S IBTEXT(2,1)="Type of Service: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",9,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Assoc DX(1): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",10,"E")
. S IBTEXT(1,2)="Assoc DX(2): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",11,"E")
. S IBTEXT(2,1)="Assoc DX(3): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",12,"E")
. S IBTEXT(2,2)="Assoc DX(4): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",13,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBFIND2=0,IBX=0
. F S IBX=$O(^DGCR(399,IBIFN,"CP",IBLINE,"MOD",IBX)) Q:'IBX D
. . S IBFIND2=1
. . S IBTEXT(1,1)="Modifier Sequence: "_$$GET1^DIQ(399.30416,IBX_","_IBLINE_","_IBIFN_",",.01,"E")
. . S IBTEXT(1,2)="Modifier: "_$$GET1^DIQ(399.30416,IBX_","_IBLINE_","_IBIFN_",",.02,"E")
. . D LINE^IBVCB(.IBTEXT)
. . Q
. I 'IBFIND2 D
. . S IBTEXT(1,1)="*** No Modifier Data Found ***"
. . D LINE^IBVCB(.IBTEXT)
. . Q
. ;
. S IBTEXT(1,1)="Anest Minutes: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",15,"E")
. S IBTEXT(1,2)="Add OB Minutes: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",74,"E")
. S IBTEXT(2,1)="Emergency?: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",17,"E")
. S IBTEXT(2,2)="Encounter: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",20,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Purchased Cost: "_$$DOLLAR^IBVCB($$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",19,"E"))
. S IBTEXT(1,2)="Hours: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",22,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Attending Not Hospice Employee: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.03,"E")
. S IBTEXT(1,2)="EPSDT Flag: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.07,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Comment Qualifier: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.09,"E")
. S IBTEXT(2,1)="Comment: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.08,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="Attachment Report Type: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",71,"E")
. S IBTEXT(2,1)="Attachment Report Transmit Method: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",72,"E")
. S IBTEXT(3,1)="Attachment Control No.: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",70,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. S IBTEXT(1,1)="NDC: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",53,"E")
. S IBTEXT(1,2)="NDC Units: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",54,"E")
. D LINE^IBVCB(.IBTEXT)
. ;
. F IBROLE=4,3,2,9,1,5 D
. . S IBROLEX=$S(IBROLE=1:"Referring",IBROLE=2:"Operating",IBROLE=3:"Rendering",IBROLE=4:"Attending",IBROLE=5:"Supervising",IBROLE=9:"Other Oper.",1:"")
. . S IBPROV=0
. . F S IBPROV=$O(^DGCR(399,IBIFN,"CP",IBLINE,"LNPRV",IBPROV)) Q:'IBPROV D
. . . I IBROLE'=$P(^DGCR(399,IBIFN,"CP",IBLINE,"LNPRV",IBPROV,0),U) Q
. . . ;
. . . S IBTEXT(1,1)=IBROLEX_": "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.02,"E")
. . . S IBTEXT(1,2)="Credentials: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.03,"E")
. . . ;
. . . S IBTEXT(2,1)="Specialty: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.08,"E")
. . . S IBTEXT(2,2)="Taxonomy: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.15,"E")
. . . ;
. . . S IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.12,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.05,"E")
. . . S IBTEXT(3,1)="Prim Payer Qual/ID: "_IBPROVID
. . . S IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.13,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.06,"E")
. . . S IBTEXT(3,2)="Sec Payer Qual/ID: "_IBPROVID
. . . ;
. . . S IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.14,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.07,"E")
. . . S IBTEXT(4,1)="Tert Payer Qual/ID: "_IBPROVID
. . . D LINE^IBVCB(.IBTEXT)
. . . ;
. . . Q
. . Q
. Q
I 'IBFIND D
. S IBTEXT(1,1)="*** No Line Level Data Found ***"
. D LINE^IBVCB(.IBTEXT)
. Q
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="User Data"
S IBTEXT(3,1)="---------"
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Date Entered: "_$$GET1^DIQ(399,IBIFN_",",1,"E")
S IBTEXT(1,2)="Entered/Edited By: "_$$GET1^DIQ(399,IBIFN_",",2,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Initial Review Date: "_$$GET1^DIQ(399,IBIFN_",",4,"E")
S IBTEXT(1,2)="Reviewed By: "_$$GET1^DIQ(399,IBIFN_",",5,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Authorization Date: "_$$GET1^DIQ(399,IBIFN_",",10,"E")
S IBTEXT(1,2)="Authorized By: "_$$GET1^DIQ(399,IBIFN_",",11,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Date Cancelled: "_$$GET1^DIQ(399,IBIFN_",",17,"E")
S IBTEXT(1,2)="Cancelled By: "_$$GET1^DIQ(399,IBIFN_",",18,"E")
S IBTEXT(2,1)="Reason Cancelled: "_$$GET1^DIQ(399,IBIFN_",",19,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="MRA Request Date: "_$$GET1^DIQ(399,IBIFN_",",7,"E")
S IBTEXT(1,2)="Requested By: "_$$GET1^DIQ(399,IBIFN_",",8,"E")
S IBTEXT(2,1)="MRA Request Status: "_$$GET1^DIQ(399,IBIFN_",",24,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Date First Printed: "_$$GET1^DIQ(399,IBIFN_",",12,"E")
S IBTEXT(1,2)="Printed By: "_$$GET1^DIQ(399,IBIFN_",",13,"E")
S IBTEXT(2,1)="Date Last Printed: "_$$GET1^DIQ(399,IBIFN_",",14,"E")
S IBTEXT(2,2)="Printed By: "_$$GET1^DIQ(399,IBIFN_",",15,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="Billing Provider"
S IBTEXT(3,1)="----------------"
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Prim Payer ID: "_$$GET1^DIQ(399,IBIFN_",",122,"E")
S IBTEXT(1,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",128,"E")
S IBTEXT(2,1)="Sec Payer ID: "_$$GET1^DIQ(399,IBIFN_",",123,"E")
S IBTEXT(2,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",129,"E")
S IBTEXT(3,1)="Tert Payer ID: "_$$GET1^DIQ(399,IBIFN_",",124,"E")
S IBTEXT(3,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",130,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Taxonomy: "_$$GET1^DIQ(399,IBIFN_",",252,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Primary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",239,"E")
S IBTEXT(1,2)="Secondary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",240,"E")
S IBTEXT(2,1)="Tertiary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",241,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="Prior Payment Information"
S IBTEXT(3,1)="-------------------------"
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Offset Amount: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",202,"E"))
S IBTEXT(1,2)="Offset Desc: "_$$GET1^DIQ(399,IBIFN_",",203,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Primary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",218,"E"))
S IBTEXT(1,2)="Secondary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",219,"E"))
S IBTEXT(2,1)="Tertiary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",220,"E"))
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="Claim History"
S IBTEXT(3,1)="-------------"
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Bill Cloned To: "_$$GET1^DIQ(399,IBIFN_",",29,"E")
S IBTEXT(1,2)="Bill Cloned From: "_$$GET1^DIQ(399,IBIFN_",",30,"E")
S IBTEXT(2,1)="Date Cloned: "_$$GET1^DIQ(399,IBIFN_",",31,"E")
S IBTEXT(2,2)="Cloned By: "_$$GET1^DIQ(399,IBIFN_",",32,"E")
S IBTEXT(3,1)="Reason Cloned: "_$$GET1^DIQ(399,IBIFN_",",33,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Auto-process From: "_$$GET1^DIQ(399,IBIFN_",",34,"E")
S IBTEXT(1,2)="Auto-process Result: "_$$GET1^DIQ(399,IBIFN_",",35,"E")
S IBTEXT(2,1)="Auto-process Reason: "_$$GET1^DIQ(399,IBIFN_",",36,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Remove Worklist Date:: "_$$GET1^DIQ(399,IBIFN_",",39,"E")
S IBTEXT(1,2)="Remove Worklist By: "_$$GET1^DIQ(399,IBIFN_",",37,"E")
S IBTEXT(2,1)="Remove Worklist How: "_$$GET1^DIQ(399,IBIFN_",",38,"E")
D LINE^IBVCB(.IBTEXT)
;
; List all reasons disapproved beneath both node "D1" and node "D2".
;
S IBFIND=0,IBDISAPP=0
F S IBDISAPP=$O(^DGCR(399,IBIFN,"D1",IBDISAPP)) Q:'IBDISAPP D
. S IBFIND=1
. S IBTEXT(1,1)="Reason(s) Disapproved (1): "_$$GET1^DIQ(399.044,IBDISAPP_","_IBIFN_",",.01,"E")
. D LINE^IBVCB(.IBTEXT)
. Q
I 'IBFIND D
. S IBTEXT(1,1)="Reason(s) Disapproved (1):"
. D LINE^IBVCB(.IBTEXT)
. Q
;
S IBFIND=0,IBDISAPP=0
F S IBDISAPP=$O(^DGCR(399,IBIFN,"D2",IBDISAPP)) Q:'IBDISAPP D
. S IBFIND=1
. S IBTEXT(1,1)="Reason(s) Disapproved (2): "_$$GET1^DIQ(399.045,IBDISAPP_","_IBIFN_",",.01,"E")
. D LINE^IBVCB(.IBTEXT)
. Q
I 'IBFIND D
. S IBTEXT(1,1)="Reason(s) Disapproved (2):"
. D LINE^IBVCB(.IBTEXT)
. Q
;
; List all Returned data.
;
S IBFIND=0,IBRETURN=0
F S IBRETURN=$O(^DGCR(399,IBIFN,"R",IBRETURN)) Q:'IBRETURN D
. S IBTEXT(1,1)="Date Returned: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.01,"E")
. S IBTEXT(1,2)="Returned By: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.02,"E")
. S IBTEXT(2,1)="Return Comments: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.03,"E")
. D LINE^IBVCB(.IBTEXT)
. Q
I 'IBFIND D
. S IBTEXT(1,1)="Date Returned:"
. S IBTEXT(1,2)="Returned By:"
. S IBTEXT(2,1)="Return Comments:"
. D LINE^IBVCB(.IBTEXT)
. Q
;
S IBTEXT(1,1)="Prim Bill No.: "_$$GET1^DIQ(399,IBIFN_",",125,"E")
S IBTEXT(1,2)="Sec Bill No.: "_$$GET1^DIQ(399,IBIFN_",",126,"E")
S IBTEXT(2,1)="Tert Bill No.: "_$$GET1^DIQ(399,IBIFN_",",127,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)="Insurance Company(s)"
S IBTEXT(3,1)="--------------------"
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)="Primary: "_$$GET1^DIQ(399,IBIFN_",",101,"E")
S IBTEXT(2,1)="Secondary: "_$$GET1^DIQ(399,IBIFN_",",102,"E")
S IBTEXT(3,1)="Tertiary: "_$$GET1^DIQ(399,IBIFN_",",103,"E")
D LINE^IBVCB(.IBTEXT)
;
S IBNAME=$$GET1^DIQ(399,IBIFN_",",104,"E")
S IBADD1=$$GET1^DIQ(399,IBIFN_",",105,"E")
S IBADD2=$$GET1^DIQ(399,IBIFN_",",106,"E")
S IBCITY=$$GET1^DIQ(399,IBIFN_",",107,"E")
S IBSTATE=$$GET1^DIQ(399,IBIFN_",",108,"E")
S IBZIP=$$GET1^DIQ(399,IBIFN_",",109,"E")
S IBADDTOT=IBNAME_" "_IBADD1_" "_IBADD2_" "_IBCITY_" "_IBSTATE_" "_IBZIP
S IBTEXT(1,1)="Current Payer Address: "_IBADDTOT
D LINE^IBVCB(.IBTEXT)
;
S IBTEXT(1,1)=""
S IBTEXT(2,1)=""
D LINE^IBVCB(.IBTEXT)
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBVCB2 11589 printed Apr 09, 2024@21:19:55 Page 2
IBVCB2 ;LITS/MRD - VIEW CANCELLED BILL, CONT. ;25-JUN-14
+1 ;;2.0;INTEGRATED BILLING;**516**;21-MAR-94;Build 123
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
PART3 ; User Data, Payment & Claim History, Insurance, etc.
+1 ;
+2 NEW IBADD1,IBADD2,IBADDTOT,IBDISAPP,IBCITY,IBFIND,IBFIND2,IBLINE,IBNAME,IBPROV,IBPROVID,IBRETURN,IBROLE,IBROLEX,IBSTATE,IBX,IBZIP
+3 ;
+4 SET IBTEXT(1,1)=""
+5 SET IBTEXT(2,1)="Procedure Codes (Line Level Data)"
+6 SET IBTEXT(3,1)="---------------------------------"
+7 DO LINE^IBVCB(.IBTEXT)
+8 ;
+9 SET IBFIND=0
SET IBLINE=0
+10 FOR
SET IBLINE=$ORDER(^DGCR(399,IBIFN,"CP",IBLINE))
if 'IBLINE
QUIT
Begin DoDot:1
+11 ; Print a blank line if this is not the first procedure.
+12 IF IBFIND
SET IBTEXT(1,1)=""
DO LINE^IBVCB(.IBTEXT)
+13 SET IBFIND=1
+14 ;
+15 SET IBTEXT(1,1)="Procedure: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",.01,"E")
+16 SET IBTEXT(1,2)="Date: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",1,"E")
+17 SET IBX=$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",51,"E")
+18 IF IBX'=""
SET IBTEXT(2,1)="NOC Description: "_IBX
+19 DO LINE^IBVCB(.IBTEXT)
+20 ;
+21 SET IBTEXT(1,1)="Print Order: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",3,"E")
+22 SET IBTEXT(1,2)="Division: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",5,"E")
+23 DO LINE^IBVCB(.IBTEXT)
+24 ;
+25 SET IBTEXT(1,1)="Clinic: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",6,"E")
+26 SET IBTEXT(1,2)="Place of Service: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",8,"E")
+27 SET IBTEXT(2,1)="Type of Service: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",9,"E")
+28 DO LINE^IBVCB(.IBTEXT)
+29 ;
+30 SET IBTEXT(1,1)="Assoc DX(1): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",10,"E")
+31 SET IBTEXT(1,2)="Assoc DX(2): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",11,"E")
+32 SET IBTEXT(2,1)="Assoc DX(3): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",12,"E")
+33 SET IBTEXT(2,2)="Assoc DX(4): "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",13,"E")
+34 DO LINE^IBVCB(.IBTEXT)
+35 ;
+36 SET IBFIND2=0
SET IBX=0
+37 FOR
SET IBX=$ORDER(^DGCR(399,IBIFN,"CP",IBLINE,"MOD",IBX))
if 'IBX
QUIT
Begin DoDot:2
+38 SET IBFIND2=1
+39 SET IBTEXT(1,1)="Modifier Sequence: "_$$GET1^DIQ(399.30416,IBX_","_IBLINE_","_IBIFN_",",.01,"E")
+40 SET IBTEXT(1,2)="Modifier: "_$$GET1^DIQ(399.30416,IBX_","_IBLINE_","_IBIFN_",",.02,"E")
+41 DO LINE^IBVCB(.IBTEXT)
+42 QUIT
End DoDot:2
+43 IF 'IBFIND2
Begin DoDot:2
+44 SET IBTEXT(1,1)="*** No Modifier Data Found ***"
+45 DO LINE^IBVCB(.IBTEXT)
+46 QUIT
End DoDot:2
+47 ;
+48 SET IBTEXT(1,1)="Anest Minutes: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",15,"E")
+49 SET IBTEXT(1,2)="Add OB Minutes: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",74,"E")
+50 SET IBTEXT(2,1)="Emergency?: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",17,"E")
+51 SET IBTEXT(2,2)="Encounter: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",20,"E")
+52 DO LINE^IBVCB(.IBTEXT)
+53 ;
+54 SET IBTEXT(1,1)="Purchased Cost: "_$$DOLLAR^IBVCB($$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",19,"E"))
+55 SET IBTEXT(1,2)="Hours: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",22,"E")
+56 DO LINE^IBVCB(.IBTEXT)
+57 ;
+58 SET IBTEXT(1,1)="Attending Not Hospice Employee: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.03,"E")
+59 SET IBTEXT(1,2)="EPSDT Flag: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.07,"E")
+60 DO LINE^IBVCB(.IBTEXT)
+61 ;
+62 SET IBTEXT(1,1)="Comment Qualifier: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.09,"E")
+63 SET IBTEXT(2,1)="Comment: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",50.08,"E")
+64 DO LINE^IBVCB(.IBTEXT)
+65 ;
+66 SET IBTEXT(1,1)="Attachment Report Type: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",71,"E")
+67 SET IBTEXT(2,1)="Attachment Report Transmit Method: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",72,"E")
+68 SET IBTEXT(3,1)="Attachment Control No.: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",70,"E")
+69 DO LINE^IBVCB(.IBTEXT)
+70 ;
+71 SET IBTEXT(1,1)="NDC: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",53,"E")
+72 SET IBTEXT(1,2)="NDC Units: "_$$GET1^DIQ(399.0304,IBLINE_","_IBIFN_",",54,"E")
+73 DO LINE^IBVCB(.IBTEXT)
+74 ;
+75 FOR IBROLE=4,3,2,9,1,5
Begin DoDot:2
+76 SET IBROLEX=$SELECT(IBROLE=1:"Referring",IBROLE=2:"Operating",IBROLE=3:"Rendering",IBROLE=4:"Attending",IBROLE=5:"Supervising",IBROLE=9:"Other Oper.",1:"")
+77 SET IBPROV=0
+78 FOR
SET IBPROV=$ORDER(^DGCR(399,IBIFN,"CP",IBLINE,"LNPRV",IBPROV))
if 'IBPROV
QUIT
Begin DoDot:3
+79 IF IBROLE'=$PIECE(^DGCR(399,IBIFN,"CP",IBLINE,"LNPRV",IBPROV,0),U)
QUIT
+80 ;
+81 SET IBTEXT(1,1)=IBROLEX_": "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.02,"E")
+82 SET IBTEXT(1,2)="Credentials: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.03,"E")
+83 ;
+84 SET IBTEXT(2,1)="Specialty: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.08,"E")
+85 SET IBTEXT(2,2)="Taxonomy: "_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.15,"E")
+86 ;
+87 SET IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.12,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.05,"E")
+88 SET IBTEXT(3,1)="Prim Payer Qual/ID: "_IBPROVID
+89 SET IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.13,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.06,"E")
+90 SET IBTEXT(3,2)="Sec Payer Qual/ID: "_IBPROVID
+91 ;
+92 SET IBPROVID=$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.14,"E")_"/"_$$GET1^DIQ(399.0404,IBPROV_","_IBLINE_","_IBIFN_",",.07,"E")
+93 SET IBTEXT(4,1)="Tert Payer Qual/ID: "_IBPROVID
+94 DO LINE^IBVCB(.IBTEXT)
+95 ;
+96 QUIT
End DoDot:3
+97 QUIT
End DoDot:2
+98 QUIT
End DoDot:1
+99 IF 'IBFIND
Begin DoDot:1
+100 SET IBTEXT(1,1)="*** No Line Level Data Found ***"
+101 DO LINE^IBVCB(.IBTEXT)
+102 QUIT
End DoDot:1
+103 ;
+104 SET IBTEXT(1,1)=""
+105 SET IBTEXT(2,1)="User Data"
+106 SET IBTEXT(3,1)="---------"
+107 DO LINE^IBVCB(.IBTEXT)
+108 ;
+109 SET IBTEXT(1,1)="Date Entered: "_$$GET1^DIQ(399,IBIFN_",",1,"E")
+110 SET IBTEXT(1,2)="Entered/Edited By: "_$$GET1^DIQ(399,IBIFN_",",2,"E")
+111 DO LINE^IBVCB(.IBTEXT)
+112 ;
+113 SET IBTEXT(1,1)="Initial Review Date: "_$$GET1^DIQ(399,IBIFN_",",4,"E")
+114 SET IBTEXT(1,2)="Reviewed By: "_$$GET1^DIQ(399,IBIFN_",",5,"E")
+115 DO LINE^IBVCB(.IBTEXT)
+116 ;
+117 SET IBTEXT(1,1)="Authorization Date: "_$$GET1^DIQ(399,IBIFN_",",10,"E")
+118 SET IBTEXT(1,2)="Authorized By: "_$$GET1^DIQ(399,IBIFN_",",11,"E")
+119 DO LINE^IBVCB(.IBTEXT)
+120 ;
+121 SET IBTEXT(1,1)="Date Cancelled: "_$$GET1^DIQ(399,IBIFN_",",17,"E")
+122 SET IBTEXT(1,2)="Cancelled By: "_$$GET1^DIQ(399,IBIFN_",",18,"E")
+123 SET IBTEXT(2,1)="Reason Cancelled: "_$$GET1^DIQ(399,IBIFN_",",19,"E")
+124 DO LINE^IBVCB(.IBTEXT)
+125 ;
+126 SET IBTEXT(1,1)="MRA Request Date: "_$$GET1^DIQ(399,IBIFN_",",7,"E")
+127 SET IBTEXT(1,2)="Requested By: "_$$GET1^DIQ(399,IBIFN_",",8,"E")
+128 SET IBTEXT(2,1)="MRA Request Status: "_$$GET1^DIQ(399,IBIFN_",",24,"E")
+129 DO LINE^IBVCB(.IBTEXT)
+130 ;
+131 SET IBTEXT(1,1)="Date First Printed: "_$$GET1^DIQ(399,IBIFN_",",12,"E")
+132 SET IBTEXT(1,2)="Printed By: "_$$GET1^DIQ(399,IBIFN_",",13,"E")
+133 SET IBTEXT(2,1)="Date Last Printed: "_$$GET1^DIQ(399,IBIFN_",",14,"E")
+134 SET IBTEXT(2,2)="Printed By: "_$$GET1^DIQ(399,IBIFN_",",15,"E")
+135 DO LINE^IBVCB(.IBTEXT)
+136 ;
+137 SET IBTEXT(1,1)=""
+138 SET IBTEXT(2,1)="Billing Provider"
+139 SET IBTEXT(3,1)="----------------"
+140 DO LINE^IBVCB(.IBTEXT)
+141 ;
+142 SET IBTEXT(1,1)="Prim Payer ID: "_$$GET1^DIQ(399,IBIFN_",",122,"E")
+143 SET IBTEXT(1,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",128,"E")
+144 SET IBTEXT(2,1)="Sec Payer ID: "_$$GET1^DIQ(399,IBIFN_",",123,"E")
+145 SET IBTEXT(2,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",129,"E")
+146 SET IBTEXT(3,1)="Tert Payer ID: "_$$GET1^DIQ(399,IBIFN_",",124,"E")
+147 SET IBTEXT(3,2)="ID Qualifier: "_$$GET1^DIQ(399,IBIFN_",",130,"E")
+148 DO LINE^IBVCB(.IBTEXT)
+149 ;
+150 SET IBTEXT(1,1)="Taxonomy: "_$$GET1^DIQ(399,IBIFN_",",252,"E")
+151 DO LINE^IBVCB(.IBTEXT)
+152 ;
+153 SET IBTEXT(1,1)="Primary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",239,"E")
+154 SET IBTEXT(1,2)="Secondary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",240,"E")
+155 SET IBTEXT(2,1)="Tertiary Care Unit: "_$$GET1^DIQ(399,IBIFN_",",241,"E")
+156 DO LINE^IBVCB(.IBTEXT)
+157 ;
+158 SET IBTEXT(1,1)=""
+159 SET IBTEXT(2,1)="Prior Payment Information"
+160 SET IBTEXT(3,1)="-------------------------"
+161 DO LINE^IBVCB(.IBTEXT)
+162 ;
+163 SET IBTEXT(1,1)="Offset Amount: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",202,"E"))
+164 SET IBTEXT(1,2)="Offset Desc: "_$$GET1^DIQ(399,IBIFN_",",203,"E")
+165 DO LINE^IBVCB(.IBTEXT)
+166 ;
+167 SET IBTEXT(1,1)="Primary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",218,"E"))
+168 SET IBTEXT(1,2)="Secondary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",219,"E"))
+169 SET IBTEXT(2,1)="Tertiary Payment: "_$$DOLLAR^IBVCB($$GET1^DIQ(399,IBIFN_",",220,"E"))
+170 DO LINE^IBVCB(.IBTEXT)
+171 ;
+172 SET IBTEXT(1,1)=""
+173 SET IBTEXT(2,1)="Claim History"
+174 SET IBTEXT(3,1)="-------------"
+175 DO LINE^IBVCB(.IBTEXT)
+176 ;
+177 SET IBTEXT(1,1)="Bill Cloned To: "_$$GET1^DIQ(399,IBIFN_",",29,"E")
+178 SET IBTEXT(1,2)="Bill Cloned From: "_$$GET1^DIQ(399,IBIFN_",",30,"E")
+179 SET IBTEXT(2,1)="Date Cloned: "_$$GET1^DIQ(399,IBIFN_",",31,"E")
+180 SET IBTEXT(2,2)="Cloned By: "_$$GET1^DIQ(399,IBIFN_",",32,"E")
+181 SET IBTEXT(3,1)="Reason Cloned: "_$$GET1^DIQ(399,IBIFN_",",33,"E")
+182 DO LINE^IBVCB(.IBTEXT)
+183 ;
+184 SET IBTEXT(1,1)="Auto-process From: "_$$GET1^DIQ(399,IBIFN_",",34,"E")
+185 SET IBTEXT(1,2)="Auto-process Result: "_$$GET1^DIQ(399,IBIFN_",",35,"E")
+186 SET IBTEXT(2,1)="Auto-process Reason: "_$$GET1^DIQ(399,IBIFN_",",36,"E")
+187 DO LINE^IBVCB(.IBTEXT)
+188 ;
+189 SET IBTEXT(1,1)="Remove Worklist Date:: "_$$GET1^DIQ(399,IBIFN_",",39,"E")
+190 SET IBTEXT(1,2)="Remove Worklist By: "_$$GET1^DIQ(399,IBIFN_",",37,"E")
+191 SET IBTEXT(2,1)="Remove Worklist How: "_$$GET1^DIQ(399,IBIFN_",",38,"E")
+192 DO LINE^IBVCB(.IBTEXT)
+193 ;
+194 ; List all reasons disapproved beneath both node "D1" and node "D2".
+195 ;
+196 SET IBFIND=0
SET IBDISAPP=0
+197 FOR
SET IBDISAPP=$ORDER(^DGCR(399,IBIFN,"D1",IBDISAPP))
if 'IBDISAPP
QUIT
Begin DoDot:1
+198 SET IBFIND=1
+199 SET IBTEXT(1,1)="Reason(s) Disapproved (1): "_$$GET1^DIQ(399.044,IBDISAPP_","_IBIFN_",",.01,"E")
+200 DO LINE^IBVCB(.IBTEXT)
+201 QUIT
End DoDot:1
+202 IF 'IBFIND
Begin DoDot:1
+203 SET IBTEXT(1,1)="Reason(s) Disapproved (1):"
+204 DO LINE^IBVCB(.IBTEXT)
+205 QUIT
End DoDot:1
+206 ;
+207 SET IBFIND=0
SET IBDISAPP=0
+208 FOR
SET IBDISAPP=$ORDER(^DGCR(399,IBIFN,"D2",IBDISAPP))
if 'IBDISAPP
QUIT
Begin DoDot:1
+209 SET IBFIND=1
+210 SET IBTEXT(1,1)="Reason(s) Disapproved (2): "_$$GET1^DIQ(399.045,IBDISAPP_","_IBIFN_",",.01,"E")
+211 DO LINE^IBVCB(.IBTEXT)
+212 QUIT
End DoDot:1
+213 IF 'IBFIND
Begin DoDot:1
+214 SET IBTEXT(1,1)="Reason(s) Disapproved (2):"
+215 DO LINE^IBVCB(.IBTEXT)
+216 QUIT
End DoDot:1
+217 ;
+218 ; List all Returned data.
+219 ;
+220 SET IBFIND=0
SET IBRETURN=0
+221 FOR
SET IBRETURN=$ORDER(^DGCR(399,IBIFN,"R",IBRETURN))
if 'IBRETURN
QUIT
Begin DoDot:1
+222 SET IBTEXT(1,1)="Date Returned: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.01,"E")
+223 SET IBTEXT(1,2)="Returned By: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.02,"E")
+224 SET IBTEXT(2,1)="Return Comments: "_$$GET1^DIQ(399.046,IBRETURN_","_IBIFN_",",.03,"E")
+225 DO LINE^IBVCB(.IBTEXT)
+226 QUIT
End DoDot:1
+227 IF 'IBFIND
Begin DoDot:1
+228 SET IBTEXT(1,1)="Date Returned:"
+229 SET IBTEXT(1,2)="Returned By:"
+230 SET IBTEXT(2,1)="Return Comments:"
+231 DO LINE^IBVCB(.IBTEXT)
+232 QUIT
End DoDot:1
+233 ;
+234 SET IBTEXT(1,1)="Prim Bill No.: "_$$GET1^DIQ(399,IBIFN_",",125,"E")
+235 SET IBTEXT(1,2)="Sec Bill No.: "_$$GET1^DIQ(399,IBIFN_",",126,"E")
+236 SET IBTEXT(2,1)="Tert Bill No.: "_$$GET1^DIQ(399,IBIFN_",",127,"E")
+237 DO LINE^IBVCB(.IBTEXT)
+238 ;
+239 SET IBTEXT(1,1)=""
+240 SET IBTEXT(2,1)="Insurance Company(s)"
+241 SET IBTEXT(3,1)="--------------------"
+242 DO LINE^IBVCB(.IBTEXT)
+243 ;
+244 SET IBTEXT(1,1)="Primary: "_$$GET1^DIQ(399,IBIFN_",",101,"E")
+245 SET IBTEXT(2,1)="Secondary: "_$$GET1^DIQ(399,IBIFN_",",102,"E")
+246 SET IBTEXT(3,1)="Tertiary: "_$$GET1^DIQ(399,IBIFN_",",103,"E")
+247 DO LINE^IBVCB(.IBTEXT)
+248 ;
+249 SET IBNAME=$$GET1^DIQ(399,IBIFN_",",104,"E")
+250 SET IBADD1=$$GET1^DIQ(399,IBIFN_",",105,"E")
+251 SET IBADD2=$$GET1^DIQ(399,IBIFN_",",106,"E")
+252 SET IBCITY=$$GET1^DIQ(399,IBIFN_",",107,"E")
+253 SET IBSTATE=$$GET1^DIQ(399,IBIFN_",",108,"E")
+254 SET IBZIP=$$GET1^DIQ(399,IBIFN_",",109,"E")
+255 SET IBADDTOT=IBNAME_" "_IBADD1_" "_IBADD2_" "_IBCITY_" "_IBSTATE_" "_IBZIP
+256 SET IBTEXT(1,1)="Current Payer Address: "_IBADDTOT
+257 DO LINE^IBVCB(.IBTEXT)
+258 ;
+259 SET IBTEXT(1,1)=""
+260 SET IBTEXT(2,1)=""
+261 DO LINE^IBVCB(.IBTEXT)
+262 ;
+263 QUIT
+264 ;
