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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCNBAC

Package: Integrated Billing

Routine: IBCNBAC


Information

IBCNBAC ;ALB/ARH/DAOU/WCW/AWC - Ins Buffer: Individually Accept Insurance Buffer Fields ;28-APR-03

Source Information

Source file <IBCNBAC.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 SUB^IBCNBCD7  (,FIELDS)^IBCNBMI  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCNBAA  IBCNBCD7  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ INS+6, INS+10, INS+11, GRP+10, GRP+11, POLICY+9, POLICY+10, POLICY+11, POLICY+12, POLICY+16
, DISPLAY+2, DISPLAY+3
^DIR ACCEPT+5, ACCEPTG+3
SUB^IBCNBCD7 SUB+1
^IBCNBMI FIELDS+6
FIELDS^IBCNBMI FIELDS+7
PAUSE^VALM1 FIELDS+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"Selected Insurance Company "_$$GET1^DIQ(36,IBEXTDA,.01)_" is Inactive!",!
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+9
Function Call: WRITE
  • Prompt: !,?23,"Selected Group/Plan is Inactive!",!
  • Line Location: GRP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GRP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GRP+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: POLICY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: POLICY+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ESGHP+2
Function Call: WRITE
  • Prompt: !!,"There are no changes to be accepted, based on the method of update chosen."
  • Line Location: FIELDS+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCEPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCEPTG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTLN+3
Function Call: WRITE
  • Prompt: ATTRB,$E(STRING,1,WD),ATTRE
  • Line Location: WRTFLD+6
Routine Call
  • DIR
  • Line Location:
    • ACCEPT+5
    • ACCEPTG+3

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T(@(3)+1^IBCNBMI FIELDS+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All