Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call