IBCNBAC ;ALB/ARH/DAOU/WCW/AWC - Ins Buffer: Individually Accept Insurance Buffer Fields ;28-APR-03
Source file <IBCNBAC.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 2 | SUB^IBCNBCD7 (,FIELDS)^IBCNBMI |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
List Manager | 1 | PAUSE^VALM1 |
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 |
---|---|---|
INS(IBBUFDA,IBINSDA,SKPBLANK) | ; display a buffer entry's insurance company fields and an existing insurance company fields for comparison
|
|
GRP(IBBUFDA,IBGRPDA,SKPBLANK) | ; display a buffer entrys group insurance fields and an existing group/plan's fields for comparison
|
|
POLICY(IBBUFDA,IBPOLDA,SKPBLANK) | ; display a buffer entry's patient policy fields and an existing patient policy's fields for comparison
|
|
ESGHP(SKPBLANK) | ; display employee sponsored group health plan
|
|
SUB(SKPBLANK,IBFNAM,IBHOLD,IBXHOLD) | ; display patient registration
|
|
FIELDS(SET,ESGHP,SKPBLANK) | ; accept each field and set into temp array
|
|
ESGHPFLD(ESGHP,IBBUFFLD) | ; return true if field should be included, if ESGHP then include all 61.* fields, else exclude those fields
|
|
ACCEPT(BUFDATA,EXTDATA) | ; ask user if they want to accept the change, returns true if yes
|
|
ACCEPTG() | ; ask user if they want to accept the entire address change, returns true if yes
|
|
DISPLAY(BFLD,IFILE,IFLD,LABEL) | ; extract, compare, write the two corresponding fields; one from buffer, one from ins files
|
|
WRTLN(LABEL,FLD1,FLD2,OVER,MERG,ATTR) | ; write a line of formatted data with label and two fields
|
|
WRTFLD(STRING,COL,WD,ATTR) | ; write an individual field with display attributes
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
2.312 | GET1^DIQ |
^IBA(355.3 - [#355.3] | GET1^DIQ |
^IBA(355.33 - [#355.33] | GET1^DIQ |
^DIC(36 - [#36] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | INS+6 |
^IBA(355.3 - [#355.3] | GRP+6 |
^IBA(355.33 - [#355.33] | POLICY+3, POLICY+16 |
^TMP($J | FIELDS+20*, FIELDS+34* |
Name | Line Occurrences |
---|---|
$$ACCEPT | FIELDS+19 |
$$ACCEPTG | FIELDS+33 |
$$DISPLAY | FIELDS+14, FIELDS+27 |
$$ESGHPFLD | FIELDS+11, FIELDS+24 |
ESGHP | POLICY+16 |
FIELDS | INS+13, GRP+13, POLICY+14, ESGHP+4 |
WRTFLD | INS+9, GRP+9, POLICY+8, WRTLN+4, WRTLN+5 |
WRTLN | INS+10, INS+11, GRP+10, GRP+11, POLICY+9, POLICY+10, POLICY+11, POLICY+12, DISPLAY+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATTR | WRTLN~, WRTLN+1*, WRTLN+4, WRTLN+5, WRTFLD~, WRTFLD+2, WRTFLD+3 |
ATTRB | WRTFLD+1~, WRTFLD+2*, WRTFLD+6 |
ATTRE | WRTFLD+1~, WRTFLD+3*, WRTFLD+6 |
BFLD | DISPLAY~, DISPLAY+2 |
BUFDATA | ACCEPT~, ACCEPT+2, ACCEPT+3, ACCEPT+4, DISPLAY+1~, DISPLAY+2*, DISPLAY+4, DISPLAY+7, DISPLAY+9, DISPLAY+11 |
CHGCHK | FIELDS+1~, FIELDS+9*, FIELDS+18*, FIELDS+30*, FIELDS+37, FIELDS+38 |
COL | WRTFLD~, WRTFLD+5, WRTFLD+7 |
DFN | POLICY+1~, POLICY+3*, POLICY+5, POLICY+11 |
DIR | POLICY+1~, FIELDS+39! |
DIR("?" | ACCEPT+3*, ACCEPT+4*, ACCEPTG+2* |
DIR("A" | ACCEPT+3*, ACCEPT+4*, ACCEPTG+2* |
DIR("B" | ACCEPT+5*, ACCEPTG+3* |
DIR(0 | ACCEPT+5*, ACCEPTG+3* |
DIRUT | POLICY+1~, ACCEPT+6, ACCEPTG+4 |
>> DTOUT | ACCEPT+6, ACCEPTG+4 |
DX | WRTFLD+1~, WRTFLD+5*, WRTFLD+7* |
DY | WRTFLD+1~, WRTFLD+5*, WRTFLD+7* |
ESGHP | FIELDS~, FIELDS+2*, FIELDS+11, FIELDS+24, FIELDS+38, ESGHPFLD~, ESGHPFLD+2*, ESGHPFLD+4, ESGHPFLD+5 |
EXTDATA | ACCEPT~, ACCEPT+2, ACCEPT+3, ACCEPT+4, DISPLAY+1~*, DISPLAY+3*, DISPLAY+4, DISPLAY+7, DISPLAY+11 |
EXTFILE | FIELDS+1~, FIELDS+6*, FIELDS+14, FIELDS+27 |
FLD1 | WRTLN~, WRTLN+2*, WRTLN+4 |
FLD2 | WRTLN~, WRTLN+2*, WRTLN+5 |
IBADDS | FIELDS+4! |
IBADDS( | FIELDS+10, FIELDS+23 |
IBATTR | DISPLAY+1~, DISPLAY+6*, DISPLAY+7*, DISPLAY+9*, DISPLAY+11 |
IBBUFDA | INS~, INS+1, INS+10, INS+11, GRP~, GRP+1, GRP+10, GRP+11, POLICY~, POLICY+1 , POLICY+3, POLICY+9, POLICY+10, POLICY+11, POLICY+12, POLICY+16, DISPLAY+2 |
IBBUFFLD | FIELDS+10*, FIELDS+11, FIELDS+13, FIELDS+14, FIELDS+20, FIELDS+23*, FIELDS+24, FIELDS+26, FIELDS+27, FIELDS+31 , FIELDS+34*, ESGHPFLD~, ESGHPFLD+3 |
IBDATA | DISPLAY+1~, DISPLAY+4*, DISPLAY+12 |
IBEXTDA | INS+1~, INS+4*, INS+6, INS+10, INS+11, GRP+1~, GRP+4*, GRP+6, GRP+10, GRP+11 , POLICY+1~, POLICY+5*, POLICY+9, POLICY+10, POLICY+11, POLICY+12, POLICY+16, DISPLAY+3 |
IBEXTFLD | FIELDS+1~, FIELDS+13*, FIELDS+14, FIELDS+26*, FIELDS+27 |
IBFLD1 | INS+1~, INS+10*, INS+11*, GRP+1~, GRP+10*, GRP+11*, POLICY+1~, POLICY+9*, POLICY+10*, POLICY+11* , POLICY+12* |
IBFLD2 | INS+1~, INS+10*, INS+11*, GRP+1~, GRP+10*, GRP+11*, POLICY+1~, POLICY+9*, POLICY+10*, POLICY+11* , POLICY+12* |
IBFLDLST | FIELDS+1~, FIELDS+22*, FIELDS+31*, FIELDS+33, FIELDS+34 |
IBFLDS | FIELDS+4! |
IBFLDS( | FIELDS+10, FIELDS+13, FIELDS+23, FIELDS+26 |
IBFLDVAL | FIELDS+1~, FIELDS+14*, FIELDS+15, FIELDS+16, FIELDS+19, FIELDS+27*, FIELDS+28, FIELDS+29 |
IBFNAM | SUB~, SUB+1 |
IBGRPDA | GRP~, GRP+4 |
IBHOLD | SUB~, SUB+1 |
IBINSDA | INS~, INS+4 |
IBLABEL | FIELDS+1~, FIELDS+13*, FIELDS+14, FIELDS+26*, FIELDS+27 |
IBLBLS | FIELDS+4! |
IBLBLS( | FIELDS+13, FIELDS+26 |
IBMERG | DISPLAY+1~, DISPLAY+6*, DISPLAY+7*, DISPLAY+9*, DISPLAY+11 |
IBOVER | DISPLAY+1~, DISPLAY+6*, DISPLAY+7*, DISPLAY+9*, DISPLAY+11 |
IBPOLDA | POLICY~, POLICY+5 |
IBUSER | FIELDS+1~, FIELDS+10, FIELDS+19*, FIELDS+20, FIELDS+33*, FIELDS+34* |
IBX | ESGHPFLD+1~, ESGHPFLD+2*, ESGHPFLD+4*, ESGHPFLD+5*, ESGHPFLD+6, ACCEPT+1~*, ACCEPT+2, ACCEPT+5*, ACCEPT+6*, ACCEPT+8 , ACCEPTG+1~*, ACCEPTG+3*, ACCEPTG+4*, ACCEPTG+6 |
IBXHOLD | SUB~, SUB+1 |
IBY | ESGHPFLD+1~, ESGHPFLD+2*, ESGHPFLD+3*, ESGHPFLD+4, ESGHPFLD+5 |
IFILE | DISPLAY~, DISPLAY+3 |
IFLD | DISPLAY~, DISPLAY+3 |
IOF | INS+8, GRP+8, POLICY+7 |
>> IOINHI | WRTFLD+2 |
>> IOINORM | WRTFLD+3 |
>> IOUOFF | WRTFLD+3 |
>> IOUON | WRTFLD+2 |
>> IOXY | WRTFLD+5, WRTFLD+7 |
LABEL | DISPLAY~, DISPLAY+11, WRTLN~, WRTLN+2*, WRTLN+4 |
MERG | WRTLN~, WRTLN+1*, WRTLN+4 |
OVER | WRTLN~, WRTLN+1*, WRTLN+5 |
SET | FIELDS~, FIELDS+7, FIELDS+38 |
SKPBLANK | INS~, INS+2*, INS+13, GRP~, GRP+2*, GRP+13, POLICY~, POLICY+2*, POLICY+14, POLICY+16 , ESGHP~, ESGHP+1*, ESGHP+4, SUB~, SUB+1, FIELDS~, FIELDS+2*, FIELDS+16, FIELDS+29, DISPLAY+9 |
STRING | WRTFLD~, WRTFLD+6 |
U | INS+6, GRP+6, FIELDS+15, FIELDS+16, FIELDS+19, FIELDS+28, FIELDS+29, FIELDS+31, FIELDS+34, DISPLAY+4 |
WD | WRTFLD~, WRTFLD+6, WRTFLD+7 |
X | INS+1~, GRP+1~, POLICY+1~, WRTFLD+1~ |
Y | POLICY+1~, ACCEPT+5, ACCEPTG+3, WRTFLD+1~ |
Name | Field # of Occurrence |
---|---|
$T(@(3)+1^IBCNBMI | FIELDS+6 |