IBACCWLBILLVE1A ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER (cont'd); 12-SEP-2023 ; 12-SEP-2023
;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
;;Per VA Directive 6402, this routine should not be modified.
Q
;THIS ROUTINE CALLED BY IBACCWLBILLVE1 CODE MOVED FOR SAC RTN SIZE
;TPF;IB*2*770v38;EBILL-5482,5483
;
HI ;Display Diagnosis Codes
;
; Returns DIAGPTRARR (Diagnosis Pointer Array) if IBFORM'="UB-04"
;
N AMT,CDE,CNT,CODE,DTP,DTQ,HI,POA,QC,STR,TITLE
S (HI,TITLE)=""
F CNT=2:1:13 D
. S CODE=$P(DATA,D,CNT) I CODE="" Q
. S TITLE="",QC=$P(CODE,D1,1),IC=$P(CODE,D1,2),DTQ=$P(CODE,D1,3),DTP=$P(CODE,D1,4),AMT=$P(CODE,D1,5),POA=$P(CODE,D1,9)
. I QC'=HI D
.. S HI=QC
.. I QC="ABF" S:CNT=3 TITLE="(ICD-10-CM) Additional Code(s)" Q ;TPF;IB*2*770v38;EBILL-5482,5483
.. I QC="ABJ" S TITLE="(ICD-10-CM) Admitting Diagnosis" S IC=$$ICDLKUP(IC) Q
.. I QC="ABK" S TITLE="(ICD-10-CM) Primary Code" Q ;TPF;IB*2*770v38;EBILL-5482,5483
.. I QC="ABN" S TITLE="(ICD-10-CM) External Cause of Injury Code" S IC=$$ICDLKUP(IC) Q
.. I QC="APR" S TITLE="(ICD-10-CM) Patient's Reason for Visit" S IC=$$ICDLKUP(IC) Q
..; I QC="BBQ" S TITLE="(ICD-10-PCS) Other Procedure Code" S IC=$$ICDLKUP(IC) Q ;WCJ;V41;EBILL-5572
..; I QC="BBR" S TITLE="(ICD-10-PCS) Principal Procedure Code" S IC=$$ICDLKUP(IC) Q ;WCJ;V41;EBILL-5572
.. I QC="BBQ" S TITLE="(ICD-10-PCS) Other Procedure Code" S IC=$$PCSLKUP^IBACCWLRURREV1A(IC) Q ;WCJ;V41;EBILL-5572
.. I QC="BBR" S TITLE="(ICD-10-PCS) Principal Procedure Code" S IC=$$PCSLKUP^IBACCWLRURREV1A(IC) Q ;WCJ;V41;EBILL-5572
.. I QC="BE" S TITLE="Value Code" Q
.. I QC="BF" S TITLE="(ICD-9-CM) Additional Code" S IC=$$ICDLKUP(IC) Q
.. I QC="BG" S TITLE="Condition Code" Q
.. I QC="BH" S TITLE="Occurrence Code" Q
.. I QC="BI" S TITLE="Occurrence Span Code" Q
.. I QC="BJ" S TITLE="(ICD-9-CM) Admitting Diagnosis" S IC=$$ICDLKUP(IC) Q
.. I QC="BK" S TITLE="(ICD-9-CM) Primary Code" S IC=$$ICDLKUP(IC) Q
.. I QC="BN" S TITLE="(ICD-9-CM) External Cause of Injury Code" S IC=$$ICDLKUP(IC) Q
.. I QC="BO" S TITLE="Common Procedural Code" Q
.. I QC="BP" S TITLE="Anesthesia Related Surgical Procedure" Q
.. I QC="BQ" S TITLE="(ICD-9-CM) Other Procedure Code" S IC=$$ICDLKUP(IC) Q
.. I QC="BR" S TITLE="(ICD-9-CM) Principal Procedure Code" S IC=$$ICDLKUP(IC) Q
.. I QC="CAH" S TITLE="Advanced Billing Concepts (ABC) Codes" Q
.. I QC="DR" S TITLE="Diagnosis Related Group (DRG)" Q
.. I QC="PR" S TITLE="(ICD-9-CM) Patient's Reason for Visit" S IC=$$ICDLKUP(IC) Q
.. I QC="TC" S TITLE="Treatment Code" Q
.. I QC="TQ" S TITLE="Systemized Nomenclature of Dentistry (SNODENT)" Q
.;
. I HI=QC D
.. I QC="ABK"!(QC="ABF") S IC=$$ICDLKUP(IC) S:$G(IBFORM)'="UB-04" IC=((CNT-1)_" ")_IC,DIAGPTRARR(CNT-1)=IC Q ;TPF;IB*2*770v38;EBILL-5482,5483
.. I QC="BBQ"!(QC="BBR") S IC=$$PCSLKUP^IBACCWLRURREV1A(IC) Q
.;
. D SET^IBACCWLBILLVE1(TITLE,IC)
. I DTP'="" D D SET^IBACCWLBILLVE1(TITLE,$$DATE^IBACCWLBILLVE1(DTP,DTQ))
.. I QC="BH" S TITLE="Occurrence Code Date" Q
.. I QC="BI" S TITLE="Occurrence Span Code Dates" Q
.. S TITLE="Principal Procedure Date"
. I AMT'="" D SET^IBACCWLBILLVE1("Value Code Amount",$$DOL^IBACCWLBILLVE1(AMT))
. I POA'="" D SET^IBACCWLBILLVE1("Present on Admission Indicator",$$YN^IBACCWLBILLVE1(POA))
Q
;
;TAZ;IB*2*770v19;EBILL-4938
ICDLKUP(IC) ;Look up the ICD Code desciption v12
N ICDARY,DESC,RSLT
S IC=$E(IC,1,3)_"."_$E(IC,4,$L(IC))
S RSLT=$$DIAGSRCH^LEX10CS(IC,.ICDARY) ;ICR #5681 (Supported)
S DESC="" D
. I RSLT<0 S DESC="Unknown Code" Q
. I $G(ICDARY(1,"IDS"))]"" S DESC=ICDARY(1,"IDS") Q
. I $G(ICDARY(1,"LEX"))]"" S DESC=ICDARY(1,"LEX") Q
. I $G(ICDARY(1,"MENU"))]"" S DESC=ICDARY(1,"MENU") Q
. S DESC="Unknown Code"
ICDLKUPQ ;Exit lookup
Q IC_" - "_DESC
;
;CALLED FROM IBACCWLBILLVE
DISUSERGROUP(USERGROUP) ;EP - RETURN USER GROUP NAME FOR WL TITLE
;
N RET
S RET=$S(USERGROUP="BILL":"Billing",USERGROUP="FRT":"Facility Revenue",USERGROUP="PTF":"PTF",USERGROUP="IV":"Insurance Verification",USERGROUP="RUR":"Revenue Utilization Review",1:"Uknown Group")
Q RET
;
;K INCLUDE D GETINCLUSIONS^IBACCWLBILLVE1A(.INCLUDE,"BILL","O","CMS-1500")
;TPF;IB*2*770v53;EBILL-6203
;GETINCLUSIONS(INCLUDE,USRGRP,INOUT,FORM) ;EP - SET UP ARRAY HOLDING SECTIONS AND FIELD CAPTIONS TO INCLUDE IN DISPLAY
GETINCLUSIONS(INCLUDE,USRGRP,INOUT,FORM) ;EP - SET UP ARRAY HOLDING SECTIONS AND FIELD CAPTIONS TO INCLUDE IN DISPLAY
;
N ACCAPPROPINCL,ACCDOLLARFRMT,ACCFIELDCAPOVER,ACCFIELDCAP,ACCHEADER,ACCSEGEXCL,LINE,TEXT
N ACCFLDSPCFORMAT,ACCAPPLFORM,ACCSECCAPOVER,INCLUSION
;
;INOUT = I = IN PATIENT OR O = OUTPATEINT
;FORM = 1500, UB OR O_J430D (DENTAL)
;
S INOUT=$G(INOUT)
S FORM=$P($G(FORM),"-") ;CMS, UB , J403D
;
Q:$G(USRGRP)=""
;
S INCLUSION=USRGRP_"INCLUSION"
F LINE=1:1 S TEXT=$P($T(@INCLUSION+LINE),";;",2,9999) Q:TEXT[("END") D
.S ACCAPPROPINCL=$P(TEXT,";",6) ;IF APPROPRIATE THIS PATTYPE_FORM IS IN THIS STRING
.Q:ACCAPPROPINCL'[("|"_INOUT_"_"_FORM_"|")
.S ACCHEADER=$P(TEXT,";") ;STANDARD VE SECTION HEADER - ENTER THE VE SECTION HEADER TO DISPLAY THE SEGMENT HEADER AND ANY FIELDS UNDER IT
.S ACCFIELDCAP=$P(TEXT,";",2) ;STANDARD VE FIELD CAPTION - ENTER THE VE FIELD CAPTION TO DISPLAY THE FIELD CONTENT
.S ACCSECCAPOVER=$P(TEXT,";",3) ;VE SECTION CAPTION OVERRIDE - REPLACE VE SEGMENT CAPTION WITH THIS
.S ACCFIELDCAPOVER=$P(TEXT,";",4) ;VE FIELD CAPTION OVERRIDE - REPLACE VE FIELD CAPTION WITH THIS
.S ACCDOLLARFRMT=$P(TEXT,";",5) ;SHOULD AMOUNT HAVE $ FORMAT
.S ACCAPPLFORM=$P(TEXT,";",6) ;THIS SEGMENT OR FIELD IS DISPLAYED GIVEN A FORM AND INOUT E.G. O_CMS OUTPATIENT CMS
.S ACCSEGEXCL=$P(TEXT,";",7) ;SEGMENT EXCLUSION. EXCLUDE SVD FOR THE SEGMENT OR FIELD
.S ACCFLDSPCFORMAT=$P(TEXT,";",8) ;SPECIAL FIELD FORMATTING E.G. SHOULD THREE LINES BE PRINTED AFTER THE FIELD? MUMPS CODE
.;
.Q:(ACCHEADER="")
.I ACCHEADER'="",(ACCFIELDCAP="") D Q
..S INCLUDE(ACCHEADER)=U_ACCSECCAPOVER_U_ACCAPPROPINCL_U_ACCSEGEXCL
.;
.S INCLUDE(ACCHEADER,ACCFIELDCAP)=ACCHEADER_U_ACCFIELDCAP_U_ACCSECCAPOVER_U_ACCFIELDCAPOVER_U_ACCDOLLARFRMT_U_ACCAPPROPINCL_U_ACCFLDSPCFORMAT_U_ACCSEGEXCL ;IF '$D(INCLUDE(HEADER,FIELDCAP)) DO NOT DISPLAY
.;S INCLUDE(ACCHEADER)=LINENUM ;USE LINENUM TO OVERRIDE VALMCNT SEQUENTAIL INCREMENT
.;IN SET API; S VALMCNT=INCLUDE(ACCHEADER) SETS THE BEGINNING OF A SECTION'S RECORD
.;THEORETICALLY MOVING SECTIONS BELOW UNDER THE INCLUSION TAG WILL MOVE THE SECTIONS
.;IN THE DATA ARRAY
Q
;FORMAT FOR SECTION AND FIELD INCLUSION
;VE SECTION HEADER ; VE FIELD CAPTION ; SECTION HEADER OVERRIDE ; FIELD CAPTION OVERRIDE ; FIELD IS INCLUDED FOR GIVEN PAT TYPE_FORM
;SETTING UP YET ANOTHER PARAMETER WITH A NUMBER COULD BE USED TO OVERRIDE THE STANDARD LM SEQUENTIUAL SETTING
;OF VALMCNT WHICH DETERMINES THE LINE NUMBER USED BY LM SET TO PLACE THE LINE INTO THE VALMAR DATA ARRAY.
;
BILLINCLUSION ;;
;;Billing Provider;Name;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Billing Provider;CMS National Provider Identifier;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Billing Provider;Tax Identification #;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Billing Provider;Contact;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Billing Provider;Phone;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Claim Information;Facility Code;;TOB / POS;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Claim Information;Facility Code Qualifier;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Claim Information;Claim Frequency;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
;;Claim Information;Service Date;;;;|O_J430D|
;;Claim Information;Discharge;;;;|I_UB|
;;Claim Information;Statement;;;;|I_UB|O_UB|
;;Claim Information;Admission;;;;|I_UB|I_CMS|
;;Claim Information;Admission Type Code;;;;|I_UB|O_UB|
;;Claim Information;Admission Source Code;;;;|I_UB|O_UB|
;;Claim Information;Patient Status Code;;;;|O_UB|
;;Claim Information;(ICD-10-CM) Primary Code;;;;|O_CMS|I_UB|O_UB|I_CMS|
;;Claim Information;Present on Admission Indicator;;;;|I_UB|
;;Claim Information;(ICD-10-CM) Patient's Reason for Visit;;;;|O_UB|
;;Claim Information;(ICD-10-CM) Additional Code(s);;;;|O_CMS|I_UB|I_CMS|
;;Claim Information;Diagnosis Related Group (DRG);;;;|I_UB|
;;Claim Information;(ICD-10-PCS) Principal Procedure Code;;;;|I_UB|
;;Claim Information;Principal Procedure Date;;;;|I_UB|
;;Claim Information;(ICD-10-PCS) Other Procedure Code;;;;|I_UB|
;;Claim Information;Occurrence Code;;;;|O_UB|
;;Claim Information;Occurrence Code Date;;;;|O_UB|
;;Claim Information;Occurrence Span;;;;|I_UB|
;;Claim Information;Occurrence Span Dates;;;;|I_UB|
;;Claim Information;Value Code;;;;|I_UB|
;;Claim Information;Value Code Amount;;;;|I_UB|
;;Rendering Provider;Name;;;;|O_CMS|I_CMS|O_J430D|O_UB|
;;Rendering Provider;CMS National Provider Identifier;;;;|O_CMS|I_CMS|O_J430D|O_UB|
;;Rendering Provider;Provider Code;;;;|O_J430D|
;;Rendering Provider;Taxonomy Code;;;;|O_J430D|
;;Attending Physician;Name;;;;|I_UB|O_UB|
;;Attending Physician;CMS National Provider Identifier;;;;|I_UB|O_UB|
;;Referring Provider;Name;;;;|I_CMS|O_CMS|O_UB|
;;Referring Provider;CMS National Provider Identifier;;;;|I_CMS|O_CMS|O_UB|
;;Operatinging Provider;Name;;;;|I_UB|
;;Operating Provider;CMS National Provider Identifier;;;;|I_UB|
;;Service Location;Name;;;;|O_CMS|O_UB|I_CMS|
;;Service Location;CMS National Provider Identifier;;;;|O_CMS|O_UB|I_CMS|
;;Payer;;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~N3~N4~
;;Payer;Assigned Number;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~N3~N4~;I VALUE>1 F X=1:1:3 D SET1("","")
;;Payer;Service Line Revenue Code;;;;|I_UB|O_UB|
;;Payer;Procedure Code;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~SVD~
;;Payer;Procedure Modifier;;;;|I_CMS|O_CMS|;~SVD~
;;Payer;Description;;;;|O_J430D|;
;;Payer;Diagnosis Code Pointer;;;;|O_CMS|I_CMS|
;;Payer;Service Date;;;;|O_CMS|O_UB|I_CMS|
;;Payer;Product or Service ID Qualifier;;;;|O_UB|
;;Payer;National Drug Code or Universal Product Number;;;;|O_UB|
;;Payer;Place of Service Code;;;;|O_J430D|
;;Payer;Oral Cavity Designation Code;;;;|O_J430D|
;;Payer;Diagnosis Code;;;;|O_J430D|
;;Payer;Service Line Paid Amount;;;$;|O_CMS|I_CMS|O_UB|
;;Payer;Paid Service Unit Count;;;;|O_CMS|I_CMS|O_UB|
;;Billing Provider;Name;;;;|I_CMS|
;;Billing Provider;CMS National Provider Identifier;;;;|I_CMS|
;;Billing Provider;Tax Identification #;;;;|I_CMS|
;;Billing Provider;Contact;;;;|I_CMS|
;;Billing Provider;Phone;;;;|I_CMS|
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBACCWLBILLVE1A 10589 printed May 25, 2026@12:09:54 Page 2
IBACCWLBILLVE1A ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER (cont'd); 12-SEP-2023 ; 12-SEP-2023
+1 ;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;THIS ROUTINE CALLED BY IBACCWLBILLVE1 CODE MOVED FOR SAC RTN SIZE
+5 ;TPF;IB*2*770v38;EBILL-5482,5483
+6 ;
HI ;Display Diagnosis Codes
+1 ;
+2 ; Returns DIAGPTRARR (Diagnosis Pointer Array) if IBFORM'="UB-04"
+3 ;
+4 NEW AMT,CDE,CNT,CODE,DTP,DTQ,HI,POA,QC,STR,TITLE
+5 SET (HI,TITLE)=""
+6 FOR CNT=2:1:13
Begin DoDot:1
+7 SET CODE=$PIECE(DATA,D,CNT)
IF CODE=""
QUIT
+8 SET TITLE=""
SET QC=$PIECE(CODE,D1,1)
SET IC=$PIECE(CODE,D1,2)
SET DTQ=$PIECE(CODE,D1,3)
SET DTP=$PIECE(CODE,D1,4)
SET AMT=$PIECE(CODE,D1,5)
SET POA=$PIECE(CODE,D1,9)
+9 IF QC'=HI
Begin DoDot:2
+10 SET HI=QC
+11 ;TPF;IB*2*770v38;EBILL-5482,5483
IF QC="ABF"
if CNT=3
SET TITLE="(ICD-10-CM) Additional Code(s)"
QUIT
+12 IF QC="ABJ"
SET TITLE="(ICD-10-CM) Admitting Diagnosis"
SET IC=$$ICDLKUP(IC)
QUIT
+13 ;TPF;IB*2*770v38;EBILL-5482,5483
IF QC="ABK"
SET TITLE="(ICD-10-CM) Primary Code"
QUIT
+14 IF QC="ABN"
SET TITLE="(ICD-10-CM) External Cause of Injury Code"
SET IC=$$ICDLKUP(IC)
QUIT
+15 IF QC="APR"
SET TITLE="(ICD-10-CM) Patient's Reason for Visit"
SET IC=$$ICDLKUP(IC)
QUIT
+16 ; I QC="BBQ" S TITLE="(ICD-10-PCS) Other Procedure Code" S IC=$$ICDLKUP(IC) Q ;WCJ;V41;EBILL-5572
+17 ; I QC="BBR" S TITLE="(ICD-10-PCS) Principal Procedure Code" S IC=$$ICDLKUP(IC) Q ;WCJ;V41;EBILL-5572
+18 ;WCJ;V41;EBILL-5572
IF QC="BBQ"
SET TITLE="(ICD-10-PCS) Other Procedure Code"
SET IC=$$PCSLKUP^IBACCWLRURREV1A(IC)
QUIT
+19 ;WCJ;V41;EBILL-5572
IF QC="BBR"
SET TITLE="(ICD-10-PCS) Principal Procedure Code"
SET IC=$$PCSLKUP^IBACCWLRURREV1A(IC)
QUIT
+20 IF QC="BE"
SET TITLE="Value Code"
QUIT
+21 IF QC="BF"
SET TITLE="(ICD-9-CM) Additional Code"
SET IC=$$ICDLKUP(IC)
QUIT
+22 IF QC="BG"
SET TITLE="Condition Code"
QUIT
+23 IF QC="BH"
SET TITLE="Occurrence Code"
QUIT
+24 IF QC="BI"
SET TITLE="Occurrence Span Code"
QUIT
+25 IF QC="BJ"
SET TITLE="(ICD-9-CM) Admitting Diagnosis"
SET IC=$$ICDLKUP(IC)
QUIT
+26 IF QC="BK"
SET TITLE="(ICD-9-CM) Primary Code"
SET IC=$$ICDLKUP(IC)
QUIT
+27 IF QC="BN"
SET TITLE="(ICD-9-CM) External Cause of Injury Code"
SET IC=$$ICDLKUP(IC)
QUIT
+28 IF QC="BO"
SET TITLE="Common Procedural Code"
QUIT
+29 IF QC="BP"
SET TITLE="Anesthesia Related Surgical Procedure"
QUIT
+30 IF QC="BQ"
SET TITLE="(ICD-9-CM) Other Procedure Code"
SET IC=$$ICDLKUP(IC)
QUIT
+31 IF QC="BR"
SET TITLE="(ICD-9-CM) Principal Procedure Code"
SET IC=$$ICDLKUP(IC)
QUIT
+32 IF QC="CAH"
SET TITLE="Advanced Billing Concepts (ABC) Codes"
QUIT
+33 IF QC="DR"
SET TITLE="Diagnosis Related Group (DRG)"
QUIT
+34 IF QC="PR"
SET TITLE="(ICD-9-CM) Patient's Reason for Visit"
SET IC=$$ICDLKUP(IC)
QUIT
+35 IF QC="TC"
SET TITLE="Treatment Code"
QUIT
+36 IF QC="TQ"
SET TITLE="Systemized Nomenclature of Dentistry (SNODENT)"
QUIT
End DoDot:2
+37 ;
+38 IF HI=QC
Begin DoDot:2
+39 ;TPF;IB*2*770v38;EBILL-5482,5483
IF QC="ABK"!(QC="ABF")
SET IC=$$ICDLKUP(IC)
if $GET(IBFORM)'="UB-04"
SET IC=((CNT-1)_" ")_IC
SET DIAGPTRARR(CNT-1)=IC
QUIT
+40 IF QC="BBQ"!(QC="BBR")
SET IC=$$PCSLKUP^IBACCWLRURREV1A(IC)
QUIT
End DoDot:2
+41 ;
+42 DO SET^IBACCWLBILLVE1(TITLE,IC)
+43 IF DTP'=""
Begin DoDot:2
+44 IF QC="BH"
SET TITLE="Occurrence Code Date"
QUIT
+45 IF QC="BI"
SET TITLE="Occurrence Span Code Dates"
QUIT
+46 SET TITLE="Principal Procedure Date"
End DoDot:2
DO SET^IBACCWLBILLVE1(TITLE,$$DATE^IBACCWLBILLVE1(DTP,DTQ))
+47 IF AMT'=""
DO SET^IBACCWLBILLVE1("Value Code Amount",$$DOL^IBACCWLBILLVE1(AMT))
+48 IF POA'=""
DO SET^IBACCWLBILLVE1("Present on Admission Indicator",$$YN^IBACCWLBILLVE1(POA))
End DoDot:1
+49 QUIT
+50 ;
+51 ;TAZ;IB*2*770v19;EBILL-4938
ICDLKUP(IC) ;Look up the ICD Code desciption v12
+1 NEW ICDARY,DESC,RSLT
+2 SET IC=$EXTRACT(IC,1,3)_"."_$EXTRACT(IC,4,$LENGTH(IC))
+3 ;ICR #5681 (Supported)
SET RSLT=$$DIAGSRCH^LEX10CS(IC,.ICDARY)
+4 SET DESC=""
Begin DoDot:1
+5 IF RSLT<0
SET DESC="Unknown Code"
QUIT
+6 IF $GET(ICDARY(1,"IDS"))]""
SET DESC=ICDARY(1,"IDS")
QUIT
+7 IF $GET(ICDARY(1,"LEX"))]""
SET DESC=ICDARY(1,"LEX")
QUIT
+8 IF $GET(ICDARY(1,"MENU"))]""
SET DESC=ICDARY(1,"MENU")
QUIT
+9 SET DESC="Unknown Code"
End DoDot:1
ICDLKUPQ ;Exit lookup
+1 QUIT IC_" - "_DESC
+2 ;
+3 ;CALLED FROM IBACCWLBILLVE
DISUSERGROUP(USERGROUP) ;EP - RETURN USER GROUP NAME FOR WL TITLE
+1 ;
+2 NEW RET
+3 SET RET=$SELECT(USERGROUP="BILL":"Billing",USERGROUP="FRT":"Facility Revenue",USERGROUP="PTF":"PTF",USERGROUP="IV":"Insurance Verification",USERGROUP="RUR":"Revenue Utilization Review",1:"Uknown Group")
+4 QUIT RET
+5 ;
+6 ;K INCLUDE D GETINCLUSIONS^IBACCWLBILLVE1A(.INCLUDE,"BILL","O","CMS-1500")
+7 ;TPF;IB*2*770v53;EBILL-6203
+8 ;GETINCLUSIONS(INCLUDE,USRGRP,INOUT,FORM) ;EP - SET UP ARRAY HOLDING SECTIONS AND FIELD CAPTIONS TO INCLUDE IN DISPLAY
GETINCLUSIONS(INCLUDE,USRGRP,INOUT,FORM) ;EP - SET UP ARRAY HOLDING SECTIONS AND FIELD CAPTIONS TO INCLUDE IN DISPLAY
+1 ;
+2 NEW ACCAPPROPINCL,ACCDOLLARFRMT,ACCFIELDCAPOVER,ACCFIELDCAP,ACCHEADER,ACCSEGEXCL,LINE,TEXT
+3 NEW ACCFLDSPCFORMAT,ACCAPPLFORM,ACCSECCAPOVER,INCLUSION
+4 ;
+5 ;INOUT = I = IN PATIENT OR O = OUTPATEINT
+6 ;FORM = 1500, UB OR O_J430D (DENTAL)
+7 ;
+8 SET INOUT=$GET(INOUT)
+9 ;CMS, UB , J403D
SET FORM=$PIECE($GET(FORM),"-")
+10 ;
+11 if $GET(USRGRP)=""
QUIT
+12 ;
+13 SET INCLUSION=USRGRP_"INCLUSION"
+14 FOR LINE=1:1
SET TEXT=$PIECE($TEXT(@INCLUSION+LINE),";;",2,9999)
if TEXT[("END")
QUIT
Begin DoDot:1
+15 ;IF APPROPRIATE THIS PATTYPE_FORM IS IN THIS STRING
SET ACCAPPROPINCL=$PIECE(TEXT,";",6)
+16 if ACCAPPROPINCL'[("|"_INOUT_"_"_FORM_"|")
QUIT
+17 ;STANDARD VE SECTION HEADER - ENTER THE VE SECTION HEADER TO DISPLAY THE SEGMENT HEADER AND ANY FIELDS UNDER IT
SET ACCHEADER=$PIECE(TEXT,";")
+18 ;STANDARD VE FIELD CAPTION - ENTER THE VE FIELD CAPTION TO DISPLAY THE FIELD CONTENT
SET ACCFIELDCAP=$PIECE(TEXT,";",2)
+19 ;VE SECTION CAPTION OVERRIDE - REPLACE VE SEGMENT CAPTION WITH THIS
SET ACCSECCAPOVER=$PIECE(TEXT,";",3)
+20 ;VE FIELD CAPTION OVERRIDE - REPLACE VE FIELD CAPTION WITH THIS
SET ACCFIELDCAPOVER=$PIECE(TEXT,";",4)
+21 ;SHOULD AMOUNT HAVE $ FORMAT
SET ACCDOLLARFRMT=$PIECE(TEXT,";",5)
+22 ;THIS SEGMENT OR FIELD IS DISPLAYED GIVEN A FORM AND INOUT E.G. O_CMS OUTPATIENT CMS
SET ACCAPPLFORM=$PIECE(TEXT,";",6)
+23 ;SEGMENT EXCLUSION. EXCLUDE SVD FOR THE SEGMENT OR FIELD
SET ACCSEGEXCL=$PIECE(TEXT,";",7)
+24 ;SPECIAL FIELD FORMATTING E.G. SHOULD THREE LINES BE PRINTED AFTER THE FIELD? MUMPS CODE
SET ACCFLDSPCFORMAT=$PIECE(TEXT,";",8)
+25 ;
+26 if (ACCHEADER="")
QUIT
+27 IF ACCHEADER'=""
IF (ACCFIELDCAP="")
Begin DoDot:2
+28 SET INCLUDE(ACCHEADER)=U_ACCSECCAPOVER_U_ACCAPPROPINCL_U_ACCSEGEXCL
End DoDot:2
QUIT
+29 ;
+30 ;IF '$D(INCLUDE(HEADER,FIELDCAP)) DO NOT DISPLAY
SET INCLUDE(ACCHEADER,ACCFIELDCAP)=ACCHEADER_U_ACCFIELDCAP_U_ACCSECCAPOVER_U_ACCFIELDCAPOVER_U_ACCDOLLARFRMT_U_ACCAPPROPINCL_U_ACCFLDSPCFORMAT_U_ACCSEGEXCL
+31 ;S INCLUDE(ACCHEADER)=LINENUM ;USE LINENUM TO OVERRIDE VALMCNT SEQUENTAIL INCREMENT
+32 ;IN SET API; S VALMCNT=INCLUDE(ACCHEADER) SETS THE BEGINNING OF A SECTION'S RECORD
+33 ;THEORETICALLY MOVING SECTIONS BELOW UNDER THE INCLUSION TAG WILL MOVE THE SECTIONS
+34 ;IN THE DATA ARRAY
End DoDot:1
+35 QUIT
+36 ;FORMAT FOR SECTION AND FIELD INCLUSION
+37 ;VE SECTION HEADER ; VE FIELD CAPTION ; SECTION HEADER OVERRIDE ; FIELD CAPTION OVERRIDE ; FIELD IS INCLUDED FOR GIVEN PAT TYPE_FORM
+38 ;SETTING UP YET ANOTHER PARAMETER WITH A NUMBER COULD BE USED TO OVERRIDE THE STANDARD LM SEQUENTIUAL SETTING
+39 ;OF VALMCNT WHICH DETERMINES THE LINE NUMBER USED BY LM SET TO PLACE THE LINE INTO THE VALMAR DATA ARRAY.
+40 ;
BILLINCLUSION ;;
+1 ;;Billing Provider;Name;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+2 ;;Billing Provider;CMS National Provider Identifier;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+3 ;;Billing Provider;Tax Identification #;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+4 ;;Billing Provider;Contact;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+5 ;;Billing Provider;Phone;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+6 ;;Claim Information;Facility Code;;TOB / POS;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+7 ;;Claim Information;Facility Code Qualifier;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+8 ;;Claim Information;Claim Frequency;;;;|O_CMS|I_UB|O_UB|I_CMS|O_J430D|
+9 ;;Claim Information;Service Date;;;;|O_J430D|
+10 ;;Claim Information;Discharge;;;;|I_UB|
+11 ;;Claim Information;Statement;;;;|I_UB|O_UB|
+12 ;;Claim Information;Admission;;;;|I_UB|I_CMS|
+13 ;;Claim Information;Admission Type Code;;;;|I_UB|O_UB|
+14 ;;Claim Information;Admission Source Code;;;;|I_UB|O_UB|
+15 ;;Claim Information;Patient Status Code;;;;|O_UB|
+16 ;;Claim Information;(ICD-10-CM) Primary Code;;;;|O_CMS|I_UB|O_UB|I_CMS|
+17 ;;Claim Information;Present on Admission Indicator;;;;|I_UB|
+18 ;;Claim Information;(ICD-10-CM) Patient's Reason for Visit;;;;|O_UB|
+19 ;;Claim Information;(ICD-10-CM) Additional Code(s);;;;|O_CMS|I_UB|I_CMS|
+20 ;;Claim Information;Diagnosis Related Group (DRG);;;;|I_UB|
+21 ;;Claim Information;(ICD-10-PCS) Principal Procedure Code;;;;|I_UB|
+22 ;;Claim Information;Principal Procedure Date;;;;|I_UB|
+23 ;;Claim Information;(ICD-10-PCS) Other Procedure Code;;;;|I_UB|
+24 ;;Claim Information;Occurrence Code;;;;|O_UB|
+25 ;;Claim Information;Occurrence Code Date;;;;|O_UB|
+26 ;;Claim Information;Occurrence Span;;;;|I_UB|
+27 ;;Claim Information;Occurrence Span Dates;;;;|I_UB|
+28 ;;Claim Information;Value Code;;;;|I_UB|
+29 ;;Claim Information;Value Code Amount;;;;|I_UB|
+30 ;;Rendering Provider;Name;;;;|O_CMS|I_CMS|O_J430D|O_UB|
+31 ;;Rendering Provider;CMS National Provider Identifier;;;;|O_CMS|I_CMS|O_J430D|O_UB|
+32 ;;Rendering Provider;Provider Code;;;;|O_J430D|
+33 ;;Rendering Provider;Taxonomy Code;;;;|O_J430D|
+34 ;;Attending Physician;Name;;;;|I_UB|O_UB|
+35 ;;Attending Physician;CMS National Provider Identifier;;;;|I_UB|O_UB|
+36 ;;Referring Provider;Name;;;;|I_CMS|O_CMS|O_UB|
+37 ;;Referring Provider;CMS National Provider Identifier;;;;|I_CMS|O_CMS|O_UB|
+38 ;;Operatinging Provider;Name;;;;|I_UB|
+39 ;;Operating Provider;CMS National Provider Identifier;;;;|I_UB|
+40 ;;Service Location;Name;;;;|O_CMS|O_UB|I_CMS|
+41 ;;Service Location;CMS National Provider Identifier;;;;|O_CMS|O_UB|I_CMS|
+42 ;;Payer;;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~N3~N4~
+43 ;;Payer;Assigned Number;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~N3~N4~;I VALUE>1 F X=1:1:3 D SET1("","")
+44 ;;Payer;Service Line Revenue Code;;;;|I_UB|O_UB|
+45 ;;Payer;Procedure Code;;;;|O_CMS|O_UB|I_CMS|O_J430D|;~SVD~
+46 ;;Payer;Procedure Modifier;;;;|I_CMS|O_CMS|;~SVD~
+47 ;;Payer;Description;;;;|O_J430D|;
+48 ;;Payer;Diagnosis Code Pointer;;;;|O_CMS|I_CMS|
+49 ;;Payer;Service Date;;;;|O_CMS|O_UB|I_CMS|
+50 ;;Payer;Product or Service ID Qualifier;;;;|O_UB|
+51 ;;Payer;National Drug Code or Universal Product Number;;;;|O_UB|
+52 ;;Payer;Place of Service Code;;;;|O_J430D|
+53 ;;Payer;Oral Cavity Designation Code;;;;|O_J430D|
+54 ;;Payer;Diagnosis Code;;;;|O_J430D|
+55 ;;Payer;Service Line Paid Amount;;;$;|O_CMS|I_CMS|O_UB|
+56 ;;Payer;Paid Service Unit Count;;;;|O_CMS|I_CMS|O_UB|
+57 ;;Billing Provider;Name;;;;|I_CMS|
+58 ;;Billing Provider;CMS National Provider Identifier;;;;|I_CMS|
+59 ;;Billing Provider;Tax Identification #;;;;|I_CMS|
+60 ;;Billing Provider;Contact;;;;|I_CMS|
+61 ;;Billing Provider;Phone;;;;|I_CMS|
+62 ;;END
