Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBAUTL9

Package: Integrated Billing

Routine: IBAUTL9


Information

IBAUTL9 ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES - MESSAGING ; Sep 30, 2020@15:16:44

Source Information

Source file <IBAUTL9.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call