IBAUTL10 ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES - ACHDT X-REF; Sep 30, 2020@15:16:44
;;2.0;INTEGRATED BILLING;**630**;21-MAR-94;Build 39
;;Per VA Directive 6402, this routine should not be modified.
;
; Set and Kill logic for the ACHDT x-ref in the INTEGRATED BILLING ACTION (#350) file
Q
;
SACHDT ; Set the ACHDT x-ref
; X(1) = the IEN of the PATIENT (#.02)
; X(2) = The EVENT DATE (#.17) if defined
; X(3) = The DATE BILLED FROM (#.14) if defined
; DA = the IEN of the charge in the INTEGRATED BILLING ACTION (#350) file
; If the EVENT DATE is defined, use it for the index
I X(1),X(2) S ^IB("ACHDT",X(1),X(2),DA)="" Q
; If EVENT DATE is not defined, use the DATE BILLED FROM as the index
I X(1),X(3) S ^IB("ACHDT",X(1),X(3),DA)=""
Q
;
KACHDT ; Delete the ACHDT x-ref
; X(1) = the IEN of the PATIENT (#.02)
; X(2) = The EVENT DATE (#.17) if defined
; X(3) = The DATE BILLED FROM (#.14) if defined
; DA = the IEN of the charge in the INTEGRATED BILLING ACTION (#350) file
; If the EVENT DATE is defined, use it for the index
I X(1),X(2) K ^IB("ACHDT",X(1),X(2),DA) Q
; If EVENT DATE is not defined, use the DATE BILLED FROM as the index
I X(1),X(3) K ^IB("ACHDT",X(1),X(3),DA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBAUTL10 1247 printed Sep 15, 2024@21:32:08 Page 2
IBAUTL10 ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES - ACHDT X-REF; Sep 30, 2020@15:16:44
+1 ;;2.0;INTEGRATED BILLING;**630**;21-MAR-94;Build 39
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Set and Kill logic for the ACHDT x-ref in the INTEGRATED BILLING ACTION (#350) file
+5 QUIT
+6 ;
SACHDT ; Set the ACHDT x-ref
+1 ; X(1) = the IEN of the PATIENT (#.02)
+2 ; X(2) = The EVENT DATE (#.17) if defined
+3 ; X(3) = The DATE BILLED FROM (#.14) if defined
+4 ; DA = the IEN of the charge in the INTEGRATED BILLING ACTION (#350) file
+5 ; If the EVENT DATE is defined, use it for the index
+6 IF X(1)
IF X(2)
SET ^IB("ACHDT",X(1),X(2),DA)=""
QUIT
+7 ; If EVENT DATE is not defined, use the DATE BILLED FROM as the index
+8 IF X(1)
IF X(3)
SET ^IB("ACHDT",X(1),X(3),DA)=""
+9 QUIT
+10 ;
KACHDT ; Delete the ACHDT x-ref
+1 ; X(1) = the IEN of the PATIENT (#.02)
+2 ; X(2) = The EVENT DATE (#.17) if defined
+3 ; X(3) = The DATE BILLED FROM (#.14) if defined
+4 ; DA = the IEN of the charge in the INTEGRATED BILLING ACTION (#350) file
+5 ; If the EVENT DATE is defined, use it for the index
+6 IF X(1)
IF X(2)
KILL ^IB("ACHDT",X(1),X(2),DA)
QUIT
+7 ; If EVENT DATE is not defined, use the DATE BILLED FROM as the index
+8 IF X(1)
IF X(3)
KILL ^IB("ACHDT",X(1),X(3),DA)
+9 QUIT