IBCNBMI ;ALB/ARH/AWC - Ins Buffer: move buffer data to insurance files ;09 Mar 2005 11:42 AM
Source file <IBCNBMI.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | (,FILE)^DIE ($$GET1,GETS)^DIQ |
Integrated Billing | 1 | SUB^IBCNBCD6 |
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 | 2 | IBCNBAC IBCNBAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
INS(IBBUFDA,IBINSDA,TYPE,RESULT) | ; move buffer insurance company data (file 355.33) to existing Insurance Company (file 36)
|
|
GRP(IBBUFDA,IBGRPDA,TYPE,RESULT) | ; move buffer insurance group/plan data (file 355.33) to existing Group/Plan (file 355.3)
|
|
POLICY(IBBUFDA,IBPOLDA,TYPE,RESULT) | ; called from routine PROCESS^IBCNBAR
; move buffer insurance policy data (file 355.33) to existing Patient Policy (file 2.312) |
|
SUB(IBBUFDA,IBPOLDA,IBRIEN,IBSEL,IBTYPE,IBRESULT,DFN,IBFNAM,IBVAL,IBHOLD,IBXHOLD) | ; move patient data(file #2) <or> income person data(408.13) to existing Patient Policy (file 2.312)
|
|
SET(SET,IBBUFDA,IBEXTDA,TYPE,RESULT) | ; move buffer data to insurance files
; Input: IBBUFDA - ifn of Buffer File entry to move (#355.33) ; IBEXTDA - ifn of insurance entry to update (#36,355.3,2) ; TYPE - 1 = Merge (only buffer data moved to blank fields in ins file, no replace) ; 2 = Overwrite (all buffer data moved to ins file, replace existing data) ; 3 = Replace (all buffer data including null move to ins file) ; 4 = Individually Accept (Skip Blanks) (user accepts ; individual diffs b/w buffer data and existing file data (excl blanks) ; to overwrite flds (or addr grp) in existing file) ; Output: RESULT - Passed array to return FM error message if there are ; errors when filing the buffer data |
|
STUFF(SET,IBEXTDA,RESULT) | ; update fields in insurance files that
|
|
FIELDS(SET) | ; return array of corresponding fields: IBFLDS(Buffer #)=Ins #
|
|
INSDR | ;
|
|
INSFLD | ; corresponding fields: Buffer File (355.33) & Insurance Company file (36)
|
|
GRPDR | ;
|
|
GRPFLD | ;corresponding fields: Buffer File (355.33) and Insurance Group Plan file (355.3)
|
|
GRPA | ; auto set fields
|
|
POLDR | ;
|
|
POLFLD | ; corresponding fields: Buffer File (355.33) and Insurance Patient Policy file (2.312)
|
|
POLA | ; auto set fields
|
|
POLOTH(IBBUFDA,IBPOLDA,RESULT) | ; other special cases that can not be transferred using the generic code above, usually because of dependencies
|
|
PAT(DFN,IBPOLDA) | ; Force DOB, SSN & SEX from Patient file (#2) in to Insurance Patient Policy file (2.312)
|
|
EHANDLE(SET,FMERR,RESULT) | ;
|
|
REMOVDEL(FMERR) | ;
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
2.312 | GET1^DIQ |
^IBA(355.33 - [#355.33] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBA(355.33 - [#355.33] | POLICY+3, POLOTH+1 |
^TMP($J | SET+34 |
Name | Line Occurrences |
---|---|
EHANDLE | SET+44, SET+48, STUFF+18, STUFF+22, POLOTH+10, POLOTH+14 |
FIELDS | SET+14, STUFF+8 |
POLOTH | POLICY+8 |
REMOVDEL | SET+44 |
SET | INS+3, GRP+3, POLICY+6 |
STUFF | GRP+4, POLICY+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BUFARR | SET+12~ |
BUFARR( | SET+20, SET+28 |
DA | PAT+1~, PAT+8* |
DA(1 | PAT+8* |
DFN | POLICY+3~*, POLICY+5, SUB~, SUB+1, PAT~, PAT+2, PAT+5, PAT+6, PAT+7, PAT+8 |
DIE | PAT+1~, PAT+8* |
DOB | PAT+1~, PAT+5* |
DR | PAT+1~, PAT+9* |
DRBUF | SET+12~, SET+15*, SET+17 |
DREXT | SET+12~, SET+15*, SET+18 |
DUZ | STUFF+12 |
ERRNUM | EHANDLE+13~, EHANDLE+19*, EHANDLE+20*, EHANDLE+22, EHANDLE+24, REMOVDEL+9~, REMOVDEL+10*, REMOVDEL+11*, REMOVDEL+12 |
EXTARR | SET+12~ |
EXTARR( | SET+29 |
EXTFILE | SET+12~, SET+15*, SET+18, SET+29, SET+36, SET+40, STUFF+6~, STUFF+9*, STUFF+13, STUFF+14 |
FMERR | EHANDLE~, EHANDLE+12, REMOVDEL~, REMOVDEL+8 |
FMERR("DIERR" | EHANDLE+20, EHANDLE+22, EHANDLE+24, REMOVDEL+11, REMOVDEL+12! |
IB0 | POLOTH+1~*, POLOTH+4, POLOTH+5, POLOTH+6 |
IBADDS | FIELDS+1! |
IBADDS( | FIELDS+6* |
IBB | FIELDS+1~, FIELDS+3*, FIELDS+4, FIELDS+5, FIELDS+6 |
IBBUFDA | INS~, INS+2*, INS+3, GRP~, GRP+2*, GRP+3, POLICY~, POLICY+3, POLICY+5*, POLICY+6 , POLICY+8, SUB~, SUB+1, SET~, SET+17, SET+20, SET+28, POLOTH~, POLOTH+1 |
IBBUFFLD | SET+12~, SET+20*, SET+25, SET+27, SET+28, SET+34 |
IBBUFVAL | SET+12~, SET+28*, SET+31, SET+33, SET+36 |
IBCHNG | SET+12~, SET+46, STUFF+6~, POLOTH+12 |
IBCHNG( | SET+36*, STUFF+13*, POLOTH+5*, POLOTH+6* |
IBCHNGN | SET+12~, SET+42, STUFF+6~, POLOTH+8 |
IBCHNGN( | SET+40*, STUFF+14*, POLOTH+5*, POLOTH+6* |
IBE | FIELDS+1~, FIELDS+3*, FIELDS+4, FIELDS+5, FIELDS+6 |
IBERR | SET+12~, SET+44, SET+45!, SET+48, STUFF+6~, STUFF+18, STUFF+19!, STUFF+22, POLOTH+1~, POLOTH+10 , POLOTH+11!, POLOTH+14 |
IBEXTDA | SET~, SET+18, SET+29, SET+36, SET+40, STUFF~, STUFF+13, STUFF+14 |
IBEXTFLD | SET+12~, SET+27*, SET+29, SET+36, SET+39, SET+40, STUFF+6~, STUFF+11*, STUFF+12, STUFF+13 , STUFF+14 |
IBEXTVAL | SET+12~, SET+29*, SET+31, SET+32, STUFF+6~, STUFF+12*, STUFF+13 |
IBFLDS | SET+12~, STUFF+6~, FIELDS+1! |
IBFLDS( | SET+27, STUFF+11, STUFF+12, FIELDS+5* |
IBFNAM | SUB~, SUB+1 |
IBG | FIELDS+1~, FIELDS+3*, FIELDS+6 |
IBGRPDA | GRP~, GRP+2*, GRP+3, GRP+4 |
IBHOLD | SUB~, SUB+1 |
IBI | FIELDS+1~, FIELDS+2* |
IBINSDA | INS~, INS+2*, INS+3 |
IBLBLS | FIELDS+1! |
IBLBLS( | FIELDS+6* |
IBLN | FIELDS+1~, FIELDS+2*, FIELDS+3, FIELDS+6 |
IBPOLDA | POLICY~, POLICY+5*, POLICY+6, POLICY+7, POLICY+8, SUB~, SUB+1, POLOTH~, POLOTH+5, POLOTH+6 , PAT~, PAT+2, PAT+8 |
IBRESULT | SUB~, SUB+1 |
IBRIEN | SUB~, SUB+1 |
IBSEL | SUB~, SUB+1 |
>> IBSUPRES | SET+25 |
IBTYPE | SUB~, SUB+1 |
IBVAL | SUB~, SUB+1 |
IBX | SET+12~, SET+15*, STUFF+6~, STUFF+9* |
IBXHOLD | SUB~, SUB+1 |
IENS | PAT+1~, PAT+2*, PAT+3 |
LINENUM | EHANDLE+13~, EHANDLE+21*, EHANDLE+22*, EHANDLE+24 |
RESULT | INS~, INS+3, GRP~, GRP+3, GRP+4, POLICY~, POLICY+6, POLICY+7, POLICY+8, SET~ , SET+44, SET+48, STUFF~, STUFF+18, STUFF+22, POLOTH~, POLOTH+10, POLOTH+14, EHANDLE~ |
RESULT( | EHANDLE+19, EHANDLE+24* |
RNUM | EHANDLE+13~, EHANDLE+19*, EHANDLE+23*, EHANDLE+24 |
SET | SET~, SET+14, SET+44, SET+48, STUFF~, STUFF+8, STUFF+18, STUFF+22, FIELDS~, FIELDS+6 , EHANDLE~, EHANDLE+12, EHANDLE+16 |
SEX | PAT+1~, PAT+7* |
SSN | PAT+1~, PAT+6* |
SUB1 | EHANDLE+13~, EHANDLE+16*, EHANDLE+18, EHANDLE+19, EHANDLE+24 |
TYPE | INS~, INS+3, GRP~, GRP+3, POLICY~, POLICY+6, SET~, SET+20, SET+32, SET+33 , SET+34 |
U | SET+15, STUFF+9, FIELDS+3, FIELDS+6, POLOTH+4, POLOTH+5, POLOTH+6 |
WI | PAT+1~, PAT+3*, PAT+4 |
Name | Field # of Occurrence |
---|---|
$T(@(1)+IBI | FIELDS+2 |
$T(@(3)+1 | SET+15, STUFF+9 |