IBACCWLRURREV1 ;EDE/TAZ - ACC (Automated Community Care) Claims - ADDITIONAL REVIEW SCREEN FOR RUR (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
;
DTP ;
N CODE,DATE,DTOFOCC,DTOFOCCFR,TITLE,TYPE,QUALCODE,DTOFOCCTO
S CODE=$P(DATA,D,2),TYPE=$P(DATA,D,3),DATE=$$DATE($P(DATA,D,4),TYPE) D
.I (CODE=434!(CODE=472)),(TYPE="RD8") D Q ;"DTP*434*RD8*20230509-20230509"
..S DTOFOCC=$P($P(DATA,"*",4),"~") ;DTP*434*RD8*20230501-20230510~ # Statement Dates
..S DTOFOCCFR=$P(DTOFOCC,"-")
..S DTOFOCCTO=$P(DTOFOCC,"-",2)
..S DTOFOCCFR=$E(DTOFOCCFR,5,6)_"/"_$E(DTOFOCCFR,7,8)_"/"_$E(DTOFOCCFR,1,4)
..S DTOFOCCTO=$E(DTOFOCCTO,5,6)_"/"_$E(DTOFOCCTO,7,8)_"/"_$E(DTOFOCCTO,1,4)
. I CODE=472 S TITLE="SERVICE DATE 472" D SET(TITLE,DATE) Q
Q
;
DATE(DATE,TYPE) ;Format Date/Time
N D1
S TYPE=$G(TYPE,"D8")
I TYPE="TM" S D1=DATE G DATEQ
I TYPE="D8"!(TYPE="DT") D G DATEQ
. S D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($E(DATE,1,8)),1)
. I TYPE="DT" S D1=D1_" "_$E(DATE,9,12)
S D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($P(DATE,"-",1),1))_"-"_$$FMTE^XLFDT($$HL7TFM^XLFDT($P(DATE,"-",2),1))
DATEQ ;
Q D1
;
SET(TITLE,VALUE,BLANK,HEADER) ;
D SET^IBACCWLRURREV($G(TITLE),$G(VALUE),$G(BLANK),$G(HEADER))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBACCWLRURREV1 1353 printed May 25, 2026@12:10:05 Page 2
IBACCWLRURREV1 ;EDE/TAZ - ACC (Automated Community Care) Claims - ADDITIONAL REVIEW SCREEN FOR RUR (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 ;
DTP ;
+1 NEW CODE,DATE,DTOFOCC,DTOFOCCFR,TITLE,TYPE,QUALCODE,DTOFOCCTO
+2 SET CODE=$PIECE(DATA,D,2)
SET TYPE=$PIECE(DATA,D,3)
SET DATE=$$DATE($PIECE(DATA,D,4),TYPE)
Begin DoDot:1
+3 ;"DTP*434*RD8*20230509-20230509"
IF (CODE=434!(CODE=472))
IF (TYPE="RD8")
Begin DoDot:2
+4 ;DTP*434*RD8*20230501-20230510~ # Statement Dates
SET DTOFOCC=$PIECE($PIECE(DATA,"*",4),"~")
+5 SET DTOFOCCFR=$PIECE(DTOFOCC,"-")
+6 SET DTOFOCCTO=$PIECE(DTOFOCC,"-",2)
+7 SET DTOFOCCFR=$EXTRACT(DTOFOCCFR,5,6)_"/"_$EXTRACT(DTOFOCCFR,7,8)_"/"_$EXTRACT(DTOFOCCFR,1,4)
+8 SET DTOFOCCTO=$EXTRACT(DTOFOCCTO,5,6)_"/"_$EXTRACT(DTOFOCCTO,7,8)_"/"_$EXTRACT(DTOFOCCTO,1,4)
End DoDot:2
QUIT
+9 IF CODE=472
SET TITLE="SERVICE DATE 472"
DO SET(TITLE,DATE)
QUIT
End DoDot:1
+10 QUIT
+11 ;
DATE(DATE,TYPE) ;Format Date/Time
+1 NEW D1
+2 SET TYPE=$GET(TYPE,"D8")
+3 IF TYPE="TM"
SET D1=DATE
GOTO DATEQ
+4 IF TYPE="D8"!(TYPE="DT")
Begin DoDot:1
+5 SET D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($EXTRACT(DATE,1,8)),1)
+6 IF TYPE="DT"
SET D1=D1_" "_$EXTRACT(DATE,9,12)
End DoDot:1
GOTO DATEQ
+7 SET D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($PIECE(DATE,"-",1),1))_"-"_$$FMTE^XLFDT($$HL7TFM^XLFDT($PIECE(DATE,"-",2),1))
DATEQ ;
+1 QUIT D1
+2 ;
SET(TITLE,VALUE,BLANK,HEADER) ;
+1 DO SET^IBACCWLRURREV($GET(TITLE),$GET(VALUE),$GET(BLANK),$GET(HEADER))
+2 QUIT
