IBCONS2 ;ALB/CPM - NSC W/INSURANCE OUTPUT (CON'T) ;31-JAN-92
Source file <IBCONS2.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 4 | IBCOMA1 IBCOMC1 IBCOMN1 IBCONS4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
LOOP1 | ; Compilation for both Inpatient Admisssion and Discharge reports.
|
|
LOOP2 | ; Compilation for the Outpatient report
|
|
CALLBCK(IBOE,IBOE0,IBQUERY2) | ; Executed by scan call back logic to process encounters
; IBOE = encounter ien ; IBOE0 = 0-node of the encounter |
|
CHILD(IBOE,IBOE0,IBVAL,IBSTOP,IBQUERY2) | ;Find any child add/edits
; IBSTOP and IBQUERY2 are returned |
|
PROC | ; -process each episode of care
|
|
PROCO | ; Entrypoint for outpatient loop2
|
|
VALID() | ;
|
|
VALIDQ | ||
INS | ||
PTCHK | ||
SET | ||
BILL | ; Add to billed list if is insurance bill, not canceled
; if opt, date is in list, if inpt, admission date = event date ; ** PATCH 66 modified to include check for bill authorized status and add that to the stored TMP array |
|
PTF | ; if all movements are for sc condition then not billable
|
|
DIV | ;adds the requested divisions to the report
|
|
PAT(DFN) | ; true if patient is included in range requested ** PATCH 66
|
|
PATQ | ||
PTINS(DFN) | ; check if patients ins is within selected range ** PATCH 66
|
|
PTINSQ | ||
STGRNG(STRNG) | ; check if the string passed in is contained within the selected ASCII range ** PATCH 66
|
|
ASCII(STRNG) | ; returns string in ASCII ** PATCH 66
|
|
TERMDG(DFN) | ; returns a patients terminal digit ** PATCH 66
|
|
RNBOE(IBOE) | ; return a Reason Not Billable for the encounter if one can be found
|
Name | Field # of Occurrence |
---|---|
$$INSURED^IBCNS1 | INS |
ALL^IBCNS1 | PTINS+5 |
$$PTCOV^IBCNSU3 | INS+1 |
TRACK^IBCONS3 | PROCO+2 |
$$APPTCT^IBEFUNC | PTCHK+5 |
$$DISCT^IBEFUNC | CALLBCK+40 |
$$RPT^IBEFUNC | CALLBCK+24 |
$$BDSRC^IBEFUNC3 | CALLBCK+5 |
$$DISND^IBSDU | CALLBCK+15 |
$$SCE^IBSDU | LOOP2+17, PTCHK+3 |
CLOSE^IBSDU | LOOP2+10 |
SCAN^IBSDU | LOOP2+9, CHILD+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | DIV+5 |
^DGCR(399 - [#399] | BILL+7, BILL+8, BILL+11, BILL+12 |
^DGPM - [#405] | LOOP1+3, LOOP1+4, LOOP1+5, LOOP1+6, LOOP1+8 |
^DGPT - [#45] | PTF+2, PTF+3 |
^DIC(36 - [#36] | PTINS+6 |
^DIC(37 - [#37] | CALLBCK+42 |
^DIC(40.7 - [#40.7] | LOOP2+21 |
^DIC(42 - [#42] | LOOP1+8 |
^DIC(8 - [#8] | PTCHK+4 |
^DPT - [#2] | LOOP2+13, PTCHK, SET, PAT+9, TERMDG+1 |
^IBT(356 - [#356] | RNBOE+1 |
^SC - [#44] | CALLBCK+12, CALLBCK+35 |
^TMP("DIERR" | LOOP2+9!, CHILD+6! |
^TMP("IBOEC" | LOOP2+8!, LOOP2+13, LOOP2+14, LOOP2+17, LOOP2+28!, CALLBCK+29*, CALLBCK+30* |
^TMP($J | LOOP1+1!, LOOP1+9!, LOOP2+2!, LOOP2+28!, VALID+3, SET+4, SET+5*, SET+6, SET+7*, DIV+1* , DIV+3*, DIV+5*, PAT+2, PAT+3, PAT+11*, PAT+12*, PTINS+2, PTINS+3, PTINS+8*, PTINS+9* |
Name | Line Occurrences |
---|---|
$$ASCII | STGRNG+1 |
$$CHILD | CALLBCK+34, CALLBCK+41 |
$$PAT | VALID+4 |
$$PTINS | VALID+9 |
$$RNBOE | CALLBCK+29 |
$$STGRNG | PAT+9, PTINS+6 |
$$TERMDG | SET+3, PAT+5 |
$$VALID | CALLBCK+18, PROC+1 |
BILL | PROCO+4 |
DIV | LOOP1+2, LOOP2+2 |
INS | VALID+8 |
PATQ | PAT+2, PAT+3 |
PROC | LOOP1+4 |
PROCO | LOOP2+26, CALLBCK+36, CALLBCK+43 |
PTCHK | VALID+7 |
PTF | LOOP1+4 |
PTINSQ | PTINS+2, PTINS+3 |
SET | PROCO+4 |
VALIDQ | VALID+3, VALID+4, VALID+5, VALID+6, VALID+7, VALID+8, VALID+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> B | SET+2, SET+5, BILL+4*, BILL+7, BILL+9*, BILL+11, BILL+13*, BILL+14* |
DA | LOOP1+1~, LOOP1+4*, LOOP1+5*, LOOP1+6, LOOP1+7, LOOP1+8 |
DFN | LOOP1+4*, LOOP2+1~, LOOP2+13*, LOOP2+14, LOOP2+17, CALLBCK+4~, CALLBCK+7*, CALLBCK+9, CALLBCK+29, CALLBCK+30 , VALID+3, VALID+4, VALID+9, INS, INS+1, PTCHK, SET, SET+3, SET+4, SET+5 , SET+6, SET+7, BILL+7, BILL+11, PAT~, PAT+2, PAT+3, PAT+5, PAT+9, PAT+11 , PAT+12, PTINS~, PTINS+2, PTINS+3, PTINS+5, PTINS+8, PTINS+9, TERMDG~, TERMDG+1 |
DPT0 | SET~*, SET+3, TERMDG+1~* |
I | LOOP1+3*, LOOP1+4, LOOP2+25*, CALLBCK+4~, CALLBCK+8*, CALLBCK+9, CALLBCK+36*, CALLBCK+43*, INS, INS+1 , SET+4, BILL+4 |
>> I1 | BILL+4*, BILL+9, BILL+11 |
IB0 | BILL+4~, BILL+8*, BILL+9, BILL+12*, BILL+13 |
IBADM | LOOP1+1~, LOOP1+5*, BILL+4 |
IBADMVT | LOOP1+4!, LOOP1+7* |
IBAR | PTINS+1~ |
IBAR( | PTINS+6 |
>> IBAUTH | BILL+4*, BILL+9*, BILL+13*, BILL+14 |
>> IBBEG | LOOP1+3, LOOP2+5, PTINS+5 |
IBCBK | LOOP2+1~, LOOP2+7*, LOOP2+9, CHILD+2~, CHILD+5*, CHILD+6 |
IBCOMB | LOOP2+15!, CHILD+2~ |
IBCOMB( | LOOP2+21*, LOOP2+23, CHILD+7 |
IBDC | CALLBCK+4~, CALLBCK+7*, CALLBCK+11*, CALLBCK+12, CALLBCK+33, CALLBCK+35 |
IBDIV | DIV+1~, DIV+3*, DIV+5* |
IBDS | CALLBCK+4~, CALLBCK+7*, CALLBCK+15*, CALLBCK+16, CALLBCK+42 |
IBDTA | LOOP2+1~, LOOP2+14*, LOOP2+17, LOOP2+25 |
IBDV | LOOP1+4, LOOP1+8*, LOOP2+1~, LOOP2+18*, CALLBCK+4~, CALLBCK+7*, CALLBCK+12*, CALLBCK+16*, CALLBCK+27, CALLBCK+28 , VALID+5, VALID+6, SET+1 |
>> IBEND | LOOP1+3, LOOP2+5, PTINS+5 |
IBFILTER | LOOP2+1~, LOOP2+6*, LOOP2+9, CHILD+2~, CHILD+4*, CHILD+6 |
>> IBFLAG | VALID+7, VALID+8, INS*, INS+1*, PTCHK*, PTCHK+4*, PTCHK+5* |
IBI | PTINS+1~, PTINS+6*, STGRNG+1~, STGRNG+2*, STGRNG+3*, ASCII+1~, ASCII+2* |
>> IBINPT | LOOP1+5, INS+1, PTCHK+2, BILL+4, BILL+7, BILL+11 |
>> IBMOV | PTF+3* |
IBNO | LOOP2+1~, LOOP2+16*, LOOP2+19*, LOOP2+20 |
IBOE | LOOP2+1~, LOOP2+15!, LOOP2+20*, LOOP2+26, CALLBCK~, CALLBCK+15, CALLBCK+29, CALLBCK+30, CALLBCK+34, CALLBCK+40 , CALLBCK+41, CHILD~, PTCHK+3, RNBOE~, RNBOE+1 |
IBOE( | LOOP2+19, LOOP2+20* |
IBOE(1 | LOOP2+20 |
IBOE0 | LOOP2+1~, LOOP2+17*, LOOP2+18, LOOP2+21, CALLBCK~, CALLBCK+5, CALLBCK+7, CALLBCK+8, CALLBCK+11, CALLBCK+15 , CALLBCK+24, CALLBCK+29, CALLBCK+30, CALLBCK+34, CALLBCK+36, CALLBCK+40, CALLBCK+41, CALLBCK+43, CHILD~, CHILD+4 , PTCHK+3~*, PTCHK+5 |
IBOEZ | LOOP2+1~, LOOP2+17*, LOOP2+19, LOOP2+20 |
IBOK | VALID+1~, VALID+2*, VALID+10*, VALIDQ |
IBQUERY2 | LOOP2+1~, LOOP2+4*, LOOP2+10, CALLBCK~, CALLBCK+34, CALLBCK+41, CHILD~, CHILD+6 |
IBR | RNBOE+1~*, RNBOE+2 |
IBRMARK | PROCO+1!, PROCO+3*, SET+7, SET+8! |
IBSB | STGRNG+1~, STGRNG+2* |
>> IBSC | PROCO+2, PROCO+3, PTF+2*, PTF+3*, PTF+4* |
IBSE | STGRNG+1~, STGRNG+3* |
>> IBSELCDV | SET+1, DIV+1 |
>> IBSELRNG | VALID+3, VALID+4, VALID+9, PAT+5, PAT+9, PTINS+5 |
>> IBSELSR1 | PAT+6, STGRNG+2 |
>> IBSELSR2 | PAT+7, STGRNG+3 |
>> IBSELTRM | SET+3 |
IBSTOP | LOOP2+1~, LOOP2+15!, LOOP2+22*, LOOP2+23*, CALLBCK+4~, CALLBCK+34, CALLBCK+35*, CALLBCK+41, CALLBCK+42*, CHILD~ , CHILD+4*, CHILD+7*, CHILD+8, SET+6, SET+8! |
>> IBSUB | LOOP1+3, LOOP1+4 |
IBSUBSC2 | SET~, SET+1*, SET+4, SET+5, SET+6, SET+7 |
IBSUBSC3 | SET~, SET+2*, SET+4, SET+5, SET+6, SET+7 |
IBSUBSC4 | SET~, SET+3*, SET+4, SET+5, SET+6, SET+7 |
IBSUBSC6 | SET~, SET+4*, SET+5, SET+6, SET+7 |
IBT | CALLBCK+4~, CALLBCK+7*, CALLBCK+10, CALLBCK+14, CALLBCK+24, CALLBCK+26, CALLBCK+32, CALLBCK+38 |
IBTEMP | PTCHK+3~*, PTCHK+4 |
IBVAL | LOOP2+1~, LOOP2+9, CALLBCK+34, CALLBCK+41, CHILD~, CHILD+3 |
IBVAL("BDT" | LOOP2+5* |
IBVAL("EDT" | LOOP2+5* |
IBVAL1 | CHILD+2~, CHILD+3*, CHILD+6 |
IBVAL1("DFN" | CHILD+4* |
IBX | PAT+1~*, PAT+2*, PAT+3*, PAT+6*, PAT+7*, PAT+9*, PAT+11, PAT+12, PATQ, PTINS+1~* , PTINS+2*, PTINS+3*, PTINS+5*, PTINS+6*, PTINS+8, PTINS+9, PTINSQ, STGRNG+1~*, STGRNG+2*, STGRNG+3* , STGRNG+4, ASCII+1~*, ASCII+2*, ASCII+3, RNBOE+1~* |
IBY | PAT+1~, PAT+5*, PAT+6, PAT+7, PAT+9*, PTINS+1~, PTINS+6*, STGRNG+1~, STGRNG+2*, STGRNG+3* , ASCII+1~, ASCII+2* |
>> M | BILL+7*, BILL+8, BILL+9, BILL+11*, BILL+12, BILL+13 |
>> PTF | LOOP1+4, LOOP1+6*, PTF+2, PTF+3 |
SSN | TERMDG+1~*, TERMDG+2 |
STRNG | STGRNG~, STGRNG+1*, STGRNG+2, STGRNG+3, ASCII~, ASCII+2 |
TERMD | TERMDG+1~*, TERMDG+2*, TERMDG+3 |
U | LOOP2+18, LOOP2+20, LOOP2+21, LOOP2+23, CALLBCK+5, CALLBCK+7, CALLBCK+11, CALLBCK+12, CALLBCK+16, CALLBCK+24 , CALLBCK+35, CALLBCK+42, CHILD+4, CHILD+7, PTCHK+4, SET+3, PAT+9, PTINS+6, RNBOE+1 |
>> VAUTD | CALLBCK+27, CALLBCK+28, VALID+5, VALID+6, DIV+2, DIV+4 |
>> VAUTD( | CALLBCK+27, VALID+5, DIV+3 |
X | CALLBCK+34*, CALLBCK+35, CALLBCK+39~, CALLBCK+41*, CALLBCK+42 |
Y | LOOP2+1~ |
Y0 | LOOP2+1~ |
Z | LOOP2+21*, LOOP2+23*, CALLBCK+4~, CHILD+2~, CHILD+7* |