IBAUTL10.m

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 ---IBAUTL10   1247     printed  Apr 09, 2024@21:36:43                                                                                                                                                                                                    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