IBFBWL4 ;ALB/PAW-IB BILLING Worklist History ;30-SEP-2015
Source file <IBFBWL4.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 |
|---|---|---|
| EN | ; -- main entry point for IB BILLING WORKLIST HISTORY
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
; input - ^TMP("IBFBWH",$J,IBA)=IBHDT^IBHLG^IBHUSR ; output - Worklist History Screen for one Patient / Auth |
|
| RUR | ; Determine RUR Reason Code
|
|
| BLD | ; build data to display
|
|
| SETL(LINE,DATA,LABEL,COL,LNG) | ; Creates a line of data to be set into the body
; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information |
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("IBFBWH" | INIT+6, INIT+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COL | SETL~, SETL+8 |
| DATA | SETL~, SETL+8 |
| >> DFN | HDR+3 |
| IBA | INIT+3~, INIT+5*, INIT+6*, INIT+8 |
| IBHDT | INIT+3~, INIT+9*, BLD+1 |
| IBHLG | INIT+3~, INIT+10*, INIT+11*, BLD+2 |
| IBLN | INIT+3~, INIT+8*, INIT+9, INIT+10, INIT+12, INIT+14 |
| >> IBNAME | HDR+4, HDR+5 |
| IBRUR | INIT+3~, INIT+12*, INIT+13, RUR+1, RUR+3, RUR+5, RUR+7, RUR+9, RUR+11 |
| IBRURT | INIT+3~, INIT+7*, RUR+1*, RUR+2, RUR+3*, RUR+4, RUR+5*, RUR+6, RUR+7*, RUR+8 , RUR+9*, RUR+10, RUR+11*, BLD+3 |
| IBSS | HDR+1~, HDR+4*, HDR+5 |
| IBSSLE | HDR+1~, HDR+3*, HDR+4 |
| IBSSLS | HDR+1~, HDR+3*, HDR+4 |
| IBSSX | HDR+1~, HDR+3*, HDR+4 |
| IBUSR | INIT+3~, INIT+14*, INIT+15*, INIT+16*, BLD+4 |
| LABEL | SETL~, SETL+8 |
| LINE | INIT+3~, INIT+18*, BLD+1*, BLD+2*, BLD+3*, BLD+4*, BLD+6, SETL~, SETL+8*, SETL+9 |
| LNG | SETL~, SETL+8 |
| U | INIT+9, INIT+10, INIT+12, INIT+14 |
| >> VALM("TITLE" | HDR+2* |
| >> VALMBCK | EXIT+2* |
| >> VALMCNT | INIT+4*, BLD+5*, BLD+6 |
| >> VALMHDR(2 | HDR+5* |
| VCNT | INIT+3~, INIT+4*, INIT+17*, INIT+18, BLD+6 |
| X | HELP+1~, HELP+2* |
