IBAPDX ;ALB/CPM - EXTRACT MEANS TEST BILLING DATA FOR PDX ; 09-APR-93
Source file <IBAPDX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EXTR(TRAN,DFN,ARR) | ; PDX Entry Point for the data extraction.
; Input: TRAN -- Pointer to transaction in file #394.61 ; DFN -- Pointer to the patient in file #2 ; ARR -- Root for the output extract array ; Output: 0 -- Extraction was successful, or ; -1^err -- if an error was encountered during the extract. |
|
CLOCK | ; - get active billing clock data
|
|
EXTRQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | EXTR+20 |
^IB - [#350] | CLOCK+15 |
^IB("AF" | CLOCK+14 |
^IB("AFDT" | CLOCK+12, CLOCK+13 |
^IBE(351 - [#351] | CLOCK+1 |
^IBE(351.1 - [#351.1] | EXTR+29 |
^VAT(394.61 - [#394.61] | EXTR+18, EXTR+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR | EXTR~, EXTR+23, EXTR+29, EXTR+31*, EXTR+33, CLOCK+1, CLOCK+4*, CLOCK+6, CLOCK+9, CLOCK+20 |
C | EXTR+22~ |
DFN | EXTR~, EXTR+16*, EXTR+17, EXTR+19*, EXTR+20, EXTR+29, CLOCK+1, CLOCK+12, CLOCK+13 |
ERR | EXTR+22~*, EXTR+23*, EXTR+26, EXTRQ |
IBARR | EXTR+22~, CLOCK+20 |
IBARR( | CLOCK+17* |
IBATYP | EXTR+22~ |
IBCRYP | EXTR+22~, EXTR+30, EXTR+32, CLOCK+2, CLOCK+3, CLOCK+5, CLOCK+8 |
IBD | EXTR+22~, CLOCK+12*, CLOCK+13 |
IBDF | EXTR+22~, CLOCK+13*, CLOCK+14 |
IBEFDT | EXTR+22~, CLOCK+3*, CLOCK+5, CLOCK+17 |
IBENC | EXTR+22~, EXTR+30*, EXTR+31, EXTR+32*, EXTR+33, CLOCK+2*, CLOCK+3*, CLOCK+4, CLOCK+5*, CLOCK+6 , CLOCK+8*, CLOCK+9 |
IBENCPT | EXTR+22~ |
IBI | EXTR+22~, CLOCK+7*, CLOCK+8, CLOCK+9 |
IBID | EXTR+22~, EXTR+31*, EXTR+33, CLOCK+2*, CLOCK+4 |
IBN | EXTR+22~, CLOCK+14*, CLOCK+15, CLOCK+17 |
IBND | EXTR+22~, CLOCK+15*, CLOCK+16, CLOCK+17 |
IBREF | EXTR+22~, CLOCK+4*, CLOCK+6, CLOCK+9 |
IBSEQ | EXTR+22~ |
IBSNDR | EXTR+22~ |
IBSTR | EXTR+22~, EXTR+29*, EXTR+30, EXTR+32, CLOCK+1*, CLOCK+2, CLOCK+3, CLOCK+8 |
KEY1 | EXTR+22~ |
KEY2 | EXTR+22~ |
STRING | EXTR+22~, EXTR+30*, EXTR+32*, CLOCK+2*, CLOCK+3*, CLOCK+5*, CLOCK+8* |
TRAN | EXTR~, EXTR+15*, EXTR+17, EXTR+18, EXTR+19 |
Y | EXTR+22~ |