IBAUTL9 ;ALB/MGD - DUPLICATE COPAY TRANSACTION UTILITIES - MESSAGING ; Sep 30, 2020@15:16:44
Source file <IBAUTL9.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | STORE3+14, XMIT+27 |
| C^%DTC | COUNTER+9 |
| NOW^%DTC | STORE3+13 |
| HOME^%ZIS | XMIT+36 |
| $$GET1^DIQ | STORE1+32, STORE1+33, STORE1+34, STORE1+35, STORE1+36, STORE1+37, STORE1+38, STORE1+47, STORE1+48, STORE1+49 , STORE1+50, STORE2+32, STORE2+33, STORE2+34, STORE2+35, STORE2+36, STORE2+37, STORE2+38, STORE2+47, STORE2+48 , STORE2+49, STORE2+50, STANUM+3 |
| $$STANUM^IBAUTL9 | XMIT+24 |
| SENDMSG^XMXAPI | XMIT+35 |
| $$KSP^XUPARAM | STANUM+2 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP("IB TRANS" | STORE1+28, STORE1+30, STORE1+61*, STORE1+63*, STORE1+67*, STORE1+69*, STORE1+73*, STORE1+76*, STORE1+78*, STORE2+28 , STORE2+30, STORE2+61*, STORE2+63*, STORE2+67*, STORE2+69*, STORE2+73*, STORE2+76*, STORE2+78*, STORE3+16, STORE3+18* , STORE3+22*, STORE3+28*, INTRO+5*, INTRO+6*, INTRO+7*, INTRO+8*, INTRO+9*, HEADER1+6*, HEADER1+7*, HEADER1+8* , HEADER1+9*, HEADER1+10*, HEADER1+11*, HEADER1+12*, HEADER1+13*, HEADER1+14*, HEADER1+15*, HEADER1+16*, HEADER1+17*, HEADER2+5* , HEADER2+6*, HEADER2+7*, HEADER2+8*, HEADER2+9*, HEADER2+10*, HEADER2+11*, HEADER2+12*, HEADER2+13*, HEADER2+14*, HEADER2+15* , HEADER2+16*, HEADER3+5*, HEADER3+6*, HEADER3+7*, HEADER3+8*, XMIT+4, XMIT+37!, COUNTER+3, COUNTER+10*, COUNTER+12* |
| ^XTMP("IB TRANS1" | XMIT+10*, XMIT+12*, XMIT+16*, XMIT+20*, XMIT+37! |
| Name | Line Occurrences |
|---|---|
| $$COUNTER | STORE1+26, STORE2+26, STORE3+15 |
| HEADER1 | STORE1+28, STORE1+30 |
| HEADER2 | STORE2+28, STORE2+30 |
| HEADER3 | STORE3+16 |
| INTRO | STORE1+28, STORE2+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | STORE3+12~, STORE3+13 |
| DT | STORE3+18, XMIT+26, COUNTER+8, COUNTER+10 |
| DUZ | STORE3+18, XMIT+31 |
| IBATYP1 | STORE1+24~, STORE1+33*, STORE1+41*, STORE1+66, STORE2+24~, STORE2+33*, STORE2+41*, STORE2+66 |
| IBATYP2 | STORE1+24~, STORE1+47*, STORE1+52*, STORE1+72, STORE2+24~, STORE2+47*, STORE2+52*, STORE2+72 |
| IBBBA | STORE3+12~, STORE3+20*, STORE3+22 |
| IBBIL1 | STORE1+24~, STORE1+35*, STORE1+43*, STORE1+65, STORE2+24~, STORE2+35*, STORE2+43*, STORE2+65 |
| IBBIL2 | STORE1+24~, STORE1+49*, STORE1+54*, STORE1+71, STORE2+24~, STORE2+49*, STORE2+54*, STORE2+71 |
| IBCNT | STORE1+24~, STORE1+26*, STORE1+28, STORE1+30, STORE1+60, STORE1+61, STORE1+63, STORE1+67, STORE1+69, STORE1+73 , STORE1+76, STORE1+78, STORE2+24~, STORE2+26*, STORE2+28, STORE2+30, STORE2+60, STORE2+61, STORE2+63, STORE2+67 , STORE2+69, STORE2+73, STORE2+76, STORE2+78, STORE3~, STORE3+15*, STORE3+16, STORE3+18, STORE3+22, STORE3+24 , STORE3+28, INTRO~, INTRO+5, INTRO+6, INTRO+7, INTRO+8, INTRO+9, HEADER1~, HEADER1+5, HEADER1+6 , HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+11, HEADER1+12, HEADER1+13, HEADER1+14, HEADER1+15, HEADER1+16 , HEADER1+17, HEADER2~, HEADER2+5, HEADER2+6, HEADER2+7, HEADER2+8, HEADER2+9, HEADER2+10, HEADER2+11, HEADER2+12 , HEADER2+13, HEADER2+14, HEADER2+15, HEADER2+16, HEADER3~, HEADER3+5, HEADER3+6, HEADER3+7, HEADER3+8, XMIT+2~ , XMIT+6*, XMIT+10, XMIT+12, XMIT+16, XMIT+20, XMIT+21*, COUNTER+2~, COUNTER+3*, COUNTER+5, COUNTER+10 , COUNTER+12, COUNTER+14 |
| IBCNT1 | STORE3+12~, STORE3+22* |
| IBCNT2 | STORE3+12~, STORE3+22* |
| IBCT | XMIT+2~, XMIT+9* |
| IBDATA | XMIT+2~, XMIT+14*, XMIT+15*, XMIT+16, XMIT+18*, XMIT+19*, XMIT+20 |
| IBDATE | STORE1+24~, STORE1+37*, STORE1+38*, STORE1+45*, STORE1+60, STORE2+24~, STORE2+37*, STORE2+38*, STORE2+45*, STORE2+60 , STORE3~, STORE3+11, STORE3+14*, XMIT+22~, XMIT+28*, XMIT+30 |
| IBIEN | STORE1~, STORE1+21, STORE1+47, STORE1+48, STORE1+49, STORE1+50, STORE2~, STORE2+21, STORE2+32, STORE2+33 , STORE2+34, STORE2+35, STORE2+36, STORE2+37 |
| IBN | STORE1~, STORE1+21, STORE1+32, STORE1+33, STORE1+34, STORE1+35, STORE1+36, STORE1+37, STORE1+38, STORE2~ , STORE2+21, STORE2+38, STORE2+47, STORE2+48, STORE2+49, STORE2+50 |
| IBPAT | STORE1+24~, STORE1+32*, STORE1+40*, STORE1+60, STORE2+24~, STORE2+32*, STORE2+40*, STORE2+60, STORE3~, STORE3+10* |
| IBREF | XMIT+2~, XMIT+6*, XMIT+8*, XMIT+9*, XMIT+10, XMIT+11, XMIT+12, XMIT+13, XMIT+14, XMIT+15 , XMIT+17, XMIT+18, XMIT+19 |
| IBRSN | STORE1~, STORE1+23*, STORE1+57*, STORE1+75, STORE2~, STORE2+23*, STORE2+57*, STORE2+75 |
| IBSTAT | XMIT+22~, XMIT+24*, XMIT+30, STANUM+2*, STANUM+3*, STANUM+4 |
| IBTCH1 | STORE1+24~, STORE1+34*, STORE1+42*, STORE1+66, STORE2+24~, STORE2+34*, STORE2+42*, STORE2+66 |
| IBTCH2 | STORE1+24~, STORE1+48*, STORE1+53*, STORE1+72, STORE2+24~, STORE2+48*, STORE2+53*, STORE2+72 |
| IBTEXT | STORE1+24~, STORE1+60*, STORE1+61, STORE1+65*, STORE1+66*, STORE1+67, STORE1+71*, STORE1+72*, STORE1+73, STORE1+75* , STORE1+76, STORE2+24~, STORE2+60*, STORE2+61, STORE2+65*, STORE2+66*, STORE2+67, STORE2+71*, STORE2+72*, STORE2+73 , STORE2+75*, STORE2+76 |
| IBTRN1 | STORE1+24~, STORE1+36*, STORE1+44*, STORE1+65, STORE2+24~, STORE2+36*, STORE2+44*, STORE2+65 |
| IBTRN2 | STORE1+24~, STORE1+50*, STORE1+55*, STORE1+71, STORE2+24~, STORE2+50*, STORE2+55*, STORE2+71 |
| IBX | STORE3+12~, STORE3+24*, STORE3+26 |
| IBY | STORE3+12~, STORE3+26* |
| U | STORE3+18, COUNTER+3, COUNTER+10, COUNTER+12 |
| X | COUNTER+6~, COUNTER+10 |
| X1 | COUNTER+6~, COUNTER+8* |
| X2 | COUNTER+6~, COUNTER+8* |
| XMBODY | XMIT+22~, XMIT+33*, XMIT+35 |
| XMDUZ | XMIT+22~, XMIT+31*, XMIT+35 |
| XMINSTR | XMIT+22~, XMIT+35 |
| XMINSTR("FLAGS" | XMIT+34* |
| XMSUBJ | XMIT+22~, XMIT+30*, XMIT+35 |
| XMTO | XMIT+22~, XMIT+35 |
| XMTO("G.IB DU | PLICATE TRANSACTIONS" , XMIT+32* |
| Y | STORE3+12~, STORE3+13*, STORE3+14, XMIT+22~, XMIT+26*, XMIT+28 |
