IBACCWLEEUTIL ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Expand Encounter - Utilities; 12-SEP-2023 ; 12-SEP-2023
;;2.0;INTEGRATED BILLING;**770**;21-MAR-2024;Build 119
;;Per VA Directive 6402, this routine should not be modified.
Q
;
;TPF;IB*2*770v38;EBILL-5353
PRIMDX ;EP - PROCESS PRIMARY DX
N EEDXDISPLAY
S DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$$CONVERT2DEC^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
I $O(EEDXDISPLAY(0)) D DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM) Q
S DATALENGTH=$L($G(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
Q
;
SECDX ;EP - PROCESS SECONDARY DX
N EEDXDISPLAY
S DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$$CONVERT2DEC^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
I $O(EEDXDISPLAY(0)) D DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM) Q
S DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$G(EEDXDISPLAY(1))
S DATALENGTH=$L($G(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
Q
;
CPT ;EP - PROCESS CPT
N EEDXDISPLAY
D HCPCSMANY^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
I $O(EEDXDISPLAY(0)) D DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM) Q
S DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$G(EEDXDISPLAY(1))
S DATALENGTH=$L($G(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
Q
;
DOALINE(EEDXDISPLAY,VALMCNT,RECORDNUM) ;EP - JUST ADD A LINE - CREATED SPEFCICALLY FOR PRIM $ SEC DX FORMATTING
;
Q:'$D(EEDXDISPLAY)
N DATA,LINE,RECORD,TMPDDFWIDTH
S DATA=""
S LINE=0
F S LINE=$O(EEDXDISPLAY(LINE)) Q:'LINE D
.;
.S DATA=""
.S DATALENGTH=$L(CAPTION_" "_EEDXDISPLAY(LINE))
.I DOCAPTION,(LINE=1) S DATA=$$SETSTR^VALM1(CAPTION_EEDXDISPLAY(LINE),DATA,LINEHPOS,DATALENGTH+1)
.E S DATA=$$SETSTR^VALM1(EEDXDISPLAY(LINE),DATA,LINEHPOS,DATALENGTH+1)
.S DATALENGTH=$L(EEDXDISPLAY(LINE))
.S LINEHPOS=HPOS
.;
.S RECORD=""
.S RECORDNUM=RECORDNUM+1
.S INDENTPAD=""
.S $P(INDENTPAD," ",-($F(DATA,":")-COLONPOS))=""
.S DATA=INDENTPAD_DATA
.S TMPDDFWIDTH=$P(VALMDDF("RECORD"),U,3)
.S $P(VALMDDF("RECORD"),U,3)=235 ;TEMP SETTING TO ALLOW LONG DX DESCRIPTION TO DISPLAY. COLUMN WIDTH LONGER THAN 80- NOT ALLOWED
.S RECORD=$$SETFLD^VALM1(DATA,RECORD,"RECORD")
.D SET^IBACCWLEE(RECORD,.VALMCNT,.RECORDNUM,,,1,1) ;,$G(IBENCIENS),$G(IBIFNIENS),1,1
.S $P(VALMDDF("RECORD"),U,3)=TMPDDFWIDTH
.I POSTRETURN'="" D EMPTYLINE^IBACCWLEE(POSTRETURN,.VALMCNT,.RECORDNUM)
.S DATA=""
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBACCWLEEUTIL 2491 printed May 25, 2026@12:10:01 Page 2
IBACCWLEEUTIL ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Expand Encounter - Utilities; 12-SEP-2023 ; 12-SEP-2023
+1 ;;2.0;INTEGRATED BILLING;**770**;21-MAR-2024;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
+5 ;TPF;IB*2*770v38;EBILL-5353
PRIMDX ;EP - PROCESS PRIMARY DX
+1 NEW EEDXDISPLAY
+2 SET DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$$CONVERT2DEC^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
+3 IF $ORDER(EEDXDISPLAY(0))
DO DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM)
QUIT
+4 SET DATALENGTH=$LENGTH($GET(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
+5 QUIT
+6 ;
SECDX ;EP - PROCESS SECONDARY DX
+1 NEW EEDXDISPLAY
+2 SET DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$$CONVERT2DEC^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
+3 IF $ORDER(EEDXDISPLAY(0))
DO DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM)
QUIT
+4 SET DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$GET(EEDXDISPLAY(1))
+5 SET DATALENGTH=$LENGTH($GET(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
+6 QUIT
+7 ;
CPT ;EP - PROCESS CPT
+1 NEW EEDXDISPLAY
+2 DO HCPCSMANY^IBACCWLUTIL1(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE),.EEDXDISPLAY)
+3 IF $ORDER(EEDXDISPLAY(0))
DO DOALINE(.EEDXDISPLAY,.VALMCNT,.RECORDNUM)
QUIT
+4 SET DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)=$GET(EEDXDISPLAY(1))
+5 SET DATALENGTH=$LENGTH($GET(DETRETURN(FILE,IBENCIENS,FIELDNAME,DATATYPE)))
+6 QUIT
+7 ;
DOALINE(EEDXDISPLAY,VALMCNT,RECORDNUM) ;EP - JUST ADD A LINE - CREATED SPEFCICALLY FOR PRIM $ SEC DX FORMATTING
+1 ;
+2 if '$DATA(EEDXDISPLAY)
QUIT
+3 NEW DATA,LINE,RECORD,TMPDDFWIDTH
+4 SET DATA=""
+5 SET LINE=0
+6 FOR
SET LINE=$ORDER(EEDXDISPLAY(LINE))
if 'LINE
QUIT
Begin DoDot:1
+7 ;
+8 SET DATA=""
+9 SET DATALENGTH=$LENGTH(CAPTION_" "_EEDXDISPLAY(LINE))
+10 IF DOCAPTION
IF (LINE=1)
SET DATA=$$SETSTR^VALM1(CAPTION_EEDXDISPLAY(LINE),DATA,LINEHPOS,DATALENGTH+1)
+11 IF '$TEST
SET DATA=$$SETSTR^VALM1(EEDXDISPLAY(LINE),DATA,LINEHPOS,DATALENGTH+1)
+12 SET DATALENGTH=$LENGTH(EEDXDISPLAY(LINE))
+13 SET LINEHPOS=HPOS
+14 ;
+15 SET RECORD=""
+16 SET RECORDNUM=RECORDNUM+1
+17 SET INDENTPAD=""
+18 SET $PIECE(INDENTPAD," ",-($FIND(DATA,":")-COLONPOS))=""
+19 SET DATA=INDENTPAD_DATA
+20 SET TMPDDFWIDTH=$PIECE(VALMDDF("RECORD"),U,3)
+21 ;TEMP SETTING TO ALLOW LONG DX DESCRIPTION TO DISPLAY. COLUMN WIDTH LONGER THAN 80- NOT ALLOWED
SET $PIECE(VALMDDF("RECORD"),U,3)=235
+22 SET RECORD=$$SETFLD^VALM1(DATA,RECORD,"RECORD")
+23 ;,$G(IBENCIENS),$G(IBIFNIENS),1,1
DO SET^IBACCWLEE(RECORD,.VALMCNT,.RECORDNUM,,,1,1)
+24 SET $PIECE(VALMDDF("RECORD"),U,3)=TMPDDFWIDTH
+25 IF POSTRETURN'=""
DO EMPTYLINE^IBACCWLEE(POSTRETURN,.VALMCNT,.RECORDNUM)
+26 SET DATA=""
End DoDot:1
+27 ;
+28 QUIT
