IBCNBMI ;ALB/ARH/AWC - Ins Buffer: move buffer data to insurance files ;09 Mar 2005 11:42 AM
Source file <IBCNBMI.m>
| 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 |
