IBJTEP1 ;ALB/TJB - TP ERA/835 INFORMATION SCREEN ;01-MAY-2015
Source file <IBJTEP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EEOB(ARRAY,IENERA,KBILL,SPLIT) | ; Return all of the EEOBs with this KBILL for the ERA IEN in 344.4
|
|
| BILLN(IEN,CODE,CPT) | ; Get the line item information from the Bill
|
|
| ADJU(TYPE,ARR1,END) | ; Get the Deduction information from the line level
; TYPE = "DEDUCT" or "COINS", pass array by reference, END - quit condition |
|
| RESORT(ZAR,ZIDX) | ; Resort the subscripts from GETS so items collate correctly while walking the array
; Pass ZAR through indirection ; Take the second subscript and reverse the pieces, put them in right order |
|
| RECEIPT | ; Go to Receipt profile
; Build the ^TMP(RCDPDPLM,$J,"IDX",#,#)=# array if we have a receipt on this ERA ; ERALST, IBIFN is passed in by IBJTEP and will be cleaned up there |
|
| RC1 | ;
|
|
| RC2 | ;
|
|
| RCQ | ;
; If RCDPFXIT is set, exit option entirely was selected so quit back to the menu |
|
| GETRCPT(ARRAY) | ; If only one receipt return with the single receipt, otherwise user selects receipt
|
|
| GETRX(IBIEN,IBARRY) | ;return pharmacy data to about EEOB items
; input - IBIEN = ien to record in 361.1 ; IBARRY = Array name that will be used to store and return pharmacy data elements ; output - IBARRY = holds pharmacy data ; IA 6033 (controlled subscription) - read access of file 362.4. status is pending ; ICR 1878 (supported) - usage of EN^PSOORDER |
|
| EOBREM(RCEOB,LINE) | ; EP from IBJTEP - Show EOB removal details if EOB removed
; Input: RCEOB - Internal entry number from file 361.1 ; LINE - Line counter for ListMan storage ; Output: To screen ; Get last move/copy history record |
|
| DLN(ZIN,ZARR,FLN,SLN) | ;
; ZIN - array to get lines of text ; ZRARR - array for display passed by indirection ; FLN - First line length; SLN - Second and subsequent line lengths |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GETS^DIQ |
| 361.1101 | GET1^DIQ |
| ^DGCR(399 - [#399] | FIND1^DIC |
| 399.042 | FIND^DIC |
