Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: IBCNBMI

Package: Integrated Billing

Routine: IBCNBMI


Information

IBCNBMI ;ALB/ARH/AWC - Ins Buffer: move buffer data to insurance files ;09 Mar 2005 11:42 AM

Source Information

Source file <IBCNBMI.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 (,FILE)^DIE  ($$GET1,GETS)^DIQ  
Integrated Billing 1 SUB^IBCNBCD6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCNBAC  IBCNBAR  

Entry Points

Name Comments DBIA/ICR reference
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)
EHANDLE(SET,FMERR,RESULT) ;
REMOVDEL(FMERR) ;
POLA ; auto set fields
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)
GRPFLD ;corresponding fields: Buffer File (355.33) and Insurance Group Plan file (355.3)
INSFLD ; corresponding fields: Buffer File (355.33) & Insurance Company file (36)
GRPA ; auto set fields
INSDR ;
POLDR ;
POLOTH(IBBUFDA,IBPOLDA,RESULT) ; other special cases that can not be transferred using the generic code above, usually because of dependencies
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
INS(IBBUFDA,IBINSDA,TYPE,RESULT) ; move buffer insurance company data (file 355.33) to existing Insurance Company (file 36)
GRPDR ;
FIELDS(SET) ; return array of corresponding fields: IBFLDS(Buffer #)=Ins #
POLFLD ; corresponding fields: Buffer File (355.33) and Insurance Patient Policy file (2.312)
STUFF(SET,IBEXTDA,RESULT) ; update fields in insurance files that
GRP(IBBUFDA,IBGRPDA,TYPE,RESULT) ; move buffer insurance group/plan data (file 355.33) to existing Group/Plan (file 355.3)
PAT(DFN,IBPOLDA) ; Force DOB, SSN & SEX from Patient file (#2) in to Insurance Patient Policy file (2.312)

External References

Name Field # of Occurrence
^DIE PAT+10
FILE^DIE SET+42, SET+46, STUFF+16, STUFF+20, POLOTH+8, POLOTH+12
$$GET1^DIQ PAT+3, PAT+5, PAT+6, PAT+7
GETS^DIQ SET+17, SET+18
SUB^IBCNBCD6 SUB+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.312 GET1^DIQ
^IBA(355.33 - [#355.33] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(355.33 - [#355.33] POLICY+3, POLOTH+1
^TMP($J SET+34

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(@(1)+IBI FIELDS+2
$T(@(3)+1 SET+15, STUFF+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All