IBCNBAC ;ALB/ARH/DAOU/WCW/AWC - Ins Buffer: Individually Accept Insurance Buffer Fields ;28-APR-03
Source file <IBCNBAC.m>
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 |
|
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 |