IBCNSU1 ;ALB/AAS - INSURANCE UTILITY ROUTINE ;19-MAY-93
Source file <IBCNSU1.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 | 1 | IBCNSD |
Registration | 1 | DGRUUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
RCHK(X) | ; -- Input transform for different revenue codes in file 36
; Returns 1 if passes, 0 if not pass input transform |
|
RCHKQ | ||
BU(DFN,IBCPOL,IBYR,IBCDFN,IBASK) | ; -- Return entry in Benefits Used file
; Input: IBCDFN = pointer to patient file policy (2.312) ; DFN = patient pointer ; IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, year will be calendar ; year of the internal date, Default = dt ; IBASK = 1 if want to ask okay to add new entry |
|
BUQ | ||
ADDBU(DFN,IBCPOL,IBYR,IBCDFN) | ; -- add entries to Benefits Used file
; Input: DFN = pointer to patient file ; IBCDFN = point to patient policy (2.312) ; IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, year will be calendar ; year of the internal date, Default = dt |
|
ADDBUQ | ||
VET() | ; -- Input Transform for sub-file 2.312, Name of Insured (#17)
; Quit 1 to stuff Patient Name ; Quit 0 to not stuff and allow editing |
|
VETQ | ||
SUBID | ; -- Input Transform for sub-file #2.312, Subscriber ID (#1)
|
|
HICN(DFN) | ; -- return Patient's Medicare HIC number
; Return HICN of Medicare WNR Part A or Part B ; Return -1 if none exits |
|
HICNQ | ||
CHKQUAL(DFN,IEN,QUAL,PC1,PC2) | ; check for duplicate qualifiers for patient
; and subscriber secondary ID's. All parameters required. |
|
CHKQUALX | ;
|
|
CQ1 | ; specific error message#1
|
|
CQ2 | ; specific error message#2
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBA(355.5 - [#355.5] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | VET+6, SUBID+2, SUBID+9, HICN+6, HICN+7, HICN+8, CHKQUAL+17, CHKQUAL+22 |
^IBA(355.4 - [#355.4] | BU+17 |
^IBA(355.5 - [#355.5] | BU+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | ADDBU+10~ |
DA | ADDBU+10~, ADDBU+19*, ADDBU+20!, VET+6, SUBID+2 |
DA(1 | VET+6, SUBID+2, SUBID+9 |
DATA | CHKQUAL+14~, CHKQUAL+17*, CHKQUAL+18, CHKQUAL+19 |
DD | ADDBU+10~, ADDBU+15! |
DFN | BU~, BU+20, BU+25, ADDBU~, ADDBU+19, HICN~, HICN+6, HICN+7, HICN+8, CHKQUAL~ , CHKQUAL+17, CHKQUAL+22 |
DIC | ADDBU+10~, ADDBU+15!*, ADDBU+20! |
DIC(0 | ADDBU+15* |
DIE | ADDBU+10~, ADDBU+19*, ADDBU+20! |
DIR | BU+11~ |
DIR("A" | BU+24* |
DIR("B" | BU+24* |
DIR(0 | BU+24* |
>> DIRUT | BU+24 |
DLAYGO | ADDBU+10~, ADDBU+15* |
DO | ADDBU+10~, ADDBU+15! |
DR | ADDBU+10~, ADDBU+15!, ADDBU+19*, ADDBU+20! |
DT | BU+14, ADDBU+14 |
DUZ | ADDBU+19 |
I | RCHK+3~, RCHK+5* |
IB0 | VET+4~, VET+6*, VET+7, VET+8, VET+9, HICN+4~, HICN+8*, HICN+9, HICN+11 |
IBASK | BU~, BU+24 |
IBCBU | BU+11~, BU+12*, BU+20*, BU+23, BU+25*, BUQ, ADDBU+10~, ADDBU+11*, ADDBU+19*, ADDBUQ |
IBCDFN | BU~, BU+20, BU+25, ADDBU~, ADDBU+12, ADDBU+19 |
IBCPOL | BU~, BU+13, BU+17, BU+20, BU+25, ADDBU~, ADDBU+13, ADDBU+18 |
IBN1 | ADDBU+10~ |
IBWNR | HICN+4~, HICN+5*, HICN+6, HICN+7, HICN+9 |
IBX | HICN+4~, HICN+7*, HICN+8 |
IBY | VET+4~*, VET+8*, VET+9*, VETQ, HICN+4~, HICN+5*, HICN+6*, HICN+7, HICN+11*, HICN+12* , HICNQ |
IBYR | BU~, BU+14*, BU+17, BU+20, BU+25, ADDBU~, ADDBU+14*, ADDBU+19 |
IEN | CHKQUAL~, CHKQUAL+17, CHKQUAL+22 |
INS | CHKQUAL+14~, CHKQUAL+22*, CHKQUAL+23 |
L | SUBID+1~, SUBID+9*, SUBID+11 |
NO | RCHK+3~, RCHK+5*, RCHK+6 |
NODE | SUBID+1~, SUBID+2*, SUBID+6 |
OK | CHKQUAL+14~, CHKQUAL+15*, CHKQUALX+1, CQ1+1*, CQ2+1* |
PC1 | CHKQUAL~, CHKQUAL+18 |
PC2 | CHKQUAL~, CHKQUAL+19 |
QUAL | CHKQUAL~, CHKQUAL+16, CHKQUAL+18, CHKQUAL+19, CHKQUAL+23 |
RC | RCHK+3~, RCHK+5* |
U | SUBID+6, SUBID+9, HICN+9, HICN+11, CHKQUAL+18, CHKQUAL+19 |
>> VALMQUIT | BU+24* |
X | RCHK~, RCHK+4, RCHK+5, ADDBU+18*, VET+9, SUBID+6*!, SUBID+10, SUBID+11*, SUBID+13! |
X1 | SUBID+1~, SUBID+10*, SUBID+11 |
Y | RCHK+3~*, RCHK+6*, RCHKQ, BU+24, ADDBU+18, ADDBU+19 |