IBAUTL9 ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES - MESSAGING ; Sep 30, 2020@15:16:44
Source file <IBAUTL9.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
STORE1(IBN,IBIEN,IBRSN) | ;
; Input: IBN = IEN of charge in the INTEGRATED BILLING ACTION (#350) file ; that will be cancelled and NOT sent over to AR ; IBIEN = IEN of the existing charge which has a higher precedence ; IBRSN = Text describing why the charge was not passed from IB to AR ; Output: 7 lines of data will be added to ^XTMP("IB TRANS") ; The data will have the following format: ; PATIENT EVENT DATE ; CANCELLED CHARGE IN IB: ; BILL NO. TRANSACTION CHARGE TYPE TOTAL CHARGE ; EXISTING CHARGE IN AR: ; BILL NO. TRANSACTION CHARGE TYPE TOTAL CHARGE ; REASON - REASON WHY CHARGE WAS CANCELLED ; <blank line> |
|
STORE2(IBN,IBIEN,IBRSN) | ;
; Input: IBN = IEN of charge in the INTEGRATED BILLING ACTION (#350) file ; that will be sent over to AR ; IBIEN = IEN of the existing charge in AR which will be Cancelled ; IBRSN = Text describing why the charge in AR was Cancelled ; Output: 7 lines of data will be added to ^XTMP("IB TRANS") ; The data will have the following format: ; PATIENT EVENT DATE ; CANCELLED CHARGE IN AR: ; BILL NO. TRANSACTION CHARGE TYPE TOTAL CHARGE ; IB CHARGE PASSED TO AR: ; BILL NO. TRANSACTION CHARGE TYPE TOTAL CHARGE ; REASON - REASON WHY CHARGE WAS CANCELLED ; <blank line> |
|
STORE3(IBPAT,IBDATE,IBCNT) | ;
; Called from STORE1 or STORE2 so header and transaction data should already ; be stored. ; Input: IBPAT = Patient's name in external format ; IBDAT = Event Date in external format ; IBCNT = The IEN to store the data under ; Output: The contents of the stack and symbol table when the action was taken ; on the transaction(s). |
|
INTRO(IBCNT) | ;
; Input: IBCNT = IEN to store this header record ; Output: This API will set the 0 node in ^XTMP("IB TRANS") and will then store ; the introductory paragraph into ^XTMP("IB TRANS"). |
|
HEADER1(IBCNT) | ;
; Input: IBCNT = IEN to store this header record ; Output: This API will set the header info for charges in IB that were NOT ; passed over to AR. |
|
HEADER2(IBCNT) | ;
; Input: IBCNT = IEN to store this header record ; Output: This API will set the header info for charges in IB that were ; passed over to AR. |
|
HEADER3(IBCNT) | ;
; Input: IBCNT = IEN to store this header record ; Output: This API will set the header info for charges in IB that were ; passed over to AR. |
|
XMIT | ; Transmit Duplicate Transaction Info
|
|
STANUM() | ; Get Station Number
|
|
COUNTER() | ; Determine index to use for storing a record in ^XTMP(""IB TRANS"")
; Get current IEN and increment by 1 |
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |