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  | All
Print Page as PDF
Routine: IBCNBAA

Package: Integrated Billing

Routine: IBCNBAA


Information

IBCNBAA ;ALB/ARH/AWC - Ins Buffer: process Accept set-up ;1 Jun 97

Source Information

Source file <IBCNBAA.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 7 (GRP,INS,POLICY,SUB)^IBCNBAC  ACCEPT^IBCNBAR  (ELIG,GRP,INS,POLICY)^IBCNBCD  ANNBEN^IBCNBCD1  COVLIM^IBCNBCD2  SBDISP^IBCNBCD4  $$PTGRP^IBCNBU1  
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Integrated Billing 5 IBCNBCD1  IBCNBCD2  IBCNBLA1  IBCNBUH  IBCNSJ3  

Entry Points

Name Comments DBIA/ICR reference
ACCEPT(IBBUFDA,IBINSDA,IBGRPDA,IBPOLDA) ; process a buffer entry for acceptance then save in Insurance files
; 1) for Insurance Company, Group/Plan and Policy sets of data:
; a) display the set of buffer data and corresponding existing selected ins data
; b) if ins record exists confirm with user that it is the correct one to use
; c) if ins record exists user selects method of saving to ins record: Merge/Overwrite/Replace/No Change/Individually Accept(skip blanks)
; d) if new record needs to be created get user confirmation
; 2) display the actions that will be taken
; 3) user confirms that is correct
; 4) data moved into insurance files, new records created if needed or edit existing ones
; 5) complete some general functions that are executed whenever insurance is entered/edited
; 6) allow user to view buffer entry and new/updated insurance records
; 7) buffer ins/group/policy data deleted
; 8) buffer entry status updated
ACINS ;
ACGRP ;
ACANB ; -- Annual Benefits /awc
ACCOV ; -- Coverage Limitations /awc
ACPOL ;
ACSUB ; -- Subscriber screens
ACEB ;
CHECK ; display changes that will be made and ask user for confirmation
PROCESS ; process all changes selected by user, add/edit insurance files based on buffer data, cleanup, ...
ACCPTQ ;
LKPYR(IBGRPDA,ABYR) ; Look up year
MATCH(IBDESC) ; ask the user if the buffer entry is a match with the selected insurance file entry
; returns 1 if there is a match, 0 otherwise
SBMATCH(IBDESC) ; ask the user if the Patient Registration entry is a match with the selected insurance file entry
; returns 1 if there is a match, 0 otherwise
MOVE(IBDESC,IBHELP) ; ask the user what method they want to use to transfer buffer data to the insurance files
; returns 1^merge, 2^overwrite, 3^replace, 4^individually accept (skip blanks),
; 0^no change,
; or "" if none of the methods was chosen
SBMOVE(IBDESC) ; ask the user what method they want to use to transfer buffer data to the insurance files
; returns 1^merge, 2^overwrite, 3^replace, 4^individually accept (skip blanks),
; 0^no change,
; or "" if none of the methods was chosen
NEW(IBDESC) ; ask user if they want to add a new entry to the insurance files (36, 355.3, or 2.312)
; returns 1 if Yes create a new entry, 0 otherwise
NEWQ
REPL() ; ask user if they want to replace eligibility/benefits data in pt. insuarance
OK() ; ask the user if the buffer data should be moved to the insurance files
; returns 1 if yes, 0 otherwise
WAIT
SUASK(IBVAL) ; ask user to select Pt. Relationship to Insured
READ(IBRTYP,IBPROM,IBDFLT,IBHELP,IBSCRN) ; Reader that will returns a response to user input
; Input:
; IBRTYP : Read Type and Input modifiers^Input Parameters^Input Transform (Required)
; IBPROM : Prompt text that user will see
; IBDFLT : Default response
; IBHELP : Help text to display
; IBSCRN : Screen for pointer, set-of-code, and list/range reads

External References

Name Field # of Occurrence
^DIC LKPYR+3
^DIR MATCH+10, SBMATCH+10, MOVE+8, SBMOVE+9, NEW+9, REPL+5, OK+10, WAIT, SUASK+9, READ+17
GRP^IBCNBAC ACGRP+11
INS^IBCNBAC ACINS+9
POLICY^IBCNBAC ACPOL+8
SUB^IBCNBAC ACSUB+19
ACCEPT^IBCNBAR PROCESS+3
ELIG^IBCNBCD ACEB+2
GRP^IBCNBCD ACGRP+3
INS^IBCNBCD ACINS+2
POLICY^IBCNBCD ACPOL+3
ANNBEN^IBCNBCD1 ACANB+1
COVLIM^IBCNBCD2 ACCOV+1
SBDISP^IBCNBCD4 ACSUB+13
$$PTGRP^IBCNBU1 ACCEPT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACINS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACGRP+1
Function Call: WRITE
  • Prompt: !,?14,"Patient is "_$S(+IBPOLDA:"",1:"NOT ")_"a member of this Insurance Group/Plan",!
  • Line Location: ACGRP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACPOL+1
Function Call: WRITE
  • Prompt: !,"This will be a New policy for this group and patient.",!
  • Line Location: ACPOL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACSUB+1
Function Call: WRITE
  • Prompt: !,!,"*** Warning - Please Complete Subscriber Update Fields Manually via the Patient Insurance File."
  • Line Location: ACSUB+7
Function Call: WRITE
  • Prompt: !,"A NEW Subscriber Insurance policy must be created for this group/patient before Subscriber updates.",!
  • Line Location: ACSUB+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACEB+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 1: Insurance Company"_$J("",55)_$G(IORVOFF)
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 2: Group/Plan"_$J("",62)_$G(IORVOFF)
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 3: Annual Benefits"_$J("",57)_$G(IORVOFF)
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 4: Coverage Limitation"_$J("",53)_$G(IORVOFF)
  • Line Location: CHECK+25
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+25
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 5: Patient Policy"_$J("",58)_$G(IORVOFF)
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 6: Subscriber Update"_$J("",55)_$G(IORVOFF)
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+38
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 7: Eligibility/Benefits"_$J("",52)_$G(IORVOFF)
  • Line Location: CHECK+42
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+42
Function Call: WRITE
  • Prompt: !!!,"This would result in No Change to the existing Insurance data. Process aborted."
  • Line Location: CHECK+44
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SBMATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MOVE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SBMOVE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+9
Function Call: WRITE
  • Prompt: !!,"Sorry, but you do not have the required privileges to add",!,"new Insurance Companies."
  • Line Location: NEW+11
Function Call: WRITE
  • Prompt: !!,"A Supervisor will need to add the "_IBDESC_" before processing can",!,"continue."
  • Line Location: NEW+14
Function Call: WRITE
  • Prompt: !!,"You must create an "_IBDESC_" first."
  • Line Location: NEW+15
Function Call: WRITE
  • Prompt: !!,"A Supervisor will need to add the "_IBDESC_" before processing can continue."
  • Line Location: NEW+17
Function Call: WRITE
  • Prompt: !!,"You must create a "_IBDESC_" first."
  • Line Location: NEW+18
Function Call: WRITE
  • Prompt: !
  • Line Location: REPL+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+10
Routine Call
  • DIC
  • Line Location:
    • LKPYR+3
Routine Call
  • DIR
  • Line Location:
    • MATCH+10
    • SBMATCH+10
    • MOVE+8
    • SBMOVE+9
    • NEW+9
    • REPL+5
    • OK+10
    • WAIT
    • SUASK+9
    • READ+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.4 - [#355.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2.312 SUASK+3
^DIC(36 - [#36] ACCEPT+24
^DPT - [#2] ACCEPT+27, ACCEPT+28
^IBA(355.3 - [#355.3] ACCEPT+25, ACCEPT+26
^IBA(355.33 - [#355.33] ACCEPT+20, ACCEPT+23, CHECK+5
^TMP($J ACCEPT+18!
^XUSEC("IB GROUP PLAN EDIT" ACGRP+7, NEW+17
^XUSEC("IB INSURANCE COMPANY EDIT" ACINS+5, NEW+14

Label References

Name Line Occurrences
$$MATCH ACINS+3, ACGRP+5, ACPOL+4
$$MOVE ACINS+6, ACGRP+8, ACPOL+5
$$NEW ACINS+7, ACGRP+9, ACPOL+6
$$OK CHECK+46
$$REPL ACEB+2
$$SBMATCH ACSUB+16
$$SBMOVE ACSUB+17
$$SUASK ACSUB+5
ACCPTQ ACCEPT+20, ACCEPT+23, ACCEPT+24, ACCEPT+25, ACCEPT+26, ACCEPT+27, ACCEPT+28, ACINS+3, ACINS+4, ACINS+7
, ACGRP+5, ACGRP+6, ACGRP+9, ACANB+1, ACCOV+1, ACPOL+4, ACPOL+5, ACPOL+6, ACSUB+5, ACSUB+8
, ACEB+2, CHECK+44, CHECK+46
ACEB ACSUB+7
NEWQ NEW+12
WAIT ACSUB+7, ACSUB+10, CHECK+44, NEW+14, NEW+15, NEW+17, NEW+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABYR LKPYR~, LKPYR+2
DA LKPYR+1~, LKPYR+2*
DFN ACCEPT+14~, ACCEPT+20*, ACCEPT+21, ACCEPT+26, ACCEPT+27, ACCEPT+28, ACSUB+3, ACSUB+13, PROCESS+3
DIC LKPYR+1~, LKPYR+2*
DIC(0 LKPYR+2*
DIERR ACCEPT+16~, ACSUB+13
DIR ACCEPT+15~, MATCH+2~, SBMATCH+2~, MOVE+4~, SBMOVE+4~, NEW+2~, REPL+1~, OK+2~, WAIT~, SUASK+1~
, READ+8~
DIR("?" MATCH+3*, MATCH+4*, MATCH+5*, MATCH+6*, MATCH+7*, MATCH+8*, SBMATCH+3*, SBMATCH+4*, SBMATCH+5*, SBMATCH+6*
, SBMATCH+7*, SBMATCH+8*, MOVE+5*, SBMOVE+5*, NEW+5*, NEW+6*, NEW+7*, NEW+8*, REPL+4*, OK+3*
, OK+4*, OK+5*, OK+6*, OK+7*, OK+8*, OK+9*, SUASK+7*, SUASK+8*, READ+15*
DIR("??" MOVE+5*, SBMOVE+6*
DIR("A" MATCH+10*, SBMATCH+10*, MOVE+6*, SBMOVE+7*, NEW+9*, REPL+3*, OK+10*, WAIT*, SUASK+6*, READ+13*
DIR("B" REPL+3*, READ+14*
DIR("S" READ+16*
DIR(0 MATCH+10*, SBMATCH+10*, MOVE+8*, SBMOVE+9*, NEW+9*, REPL+3*, OK+10*, WAIT*, SUASK+5*, READ+12*
DIRUT ACCEPT+15~, ACINS+3, ACINS+4, ACGRP+5, ACGRP+6, ACPOL+4, ACPOL+5, ACSUB+16, ACSUB+17, ACEB+2
, WAIT~
DR LKPYR+1~
DTOUT ACANB+1, ACCOV+1, ACSUB+5, ACSUB+8, WAIT~
DUOUT ACSUB+5, WAIT~
DUZ ACINS+5, ACGRP+7, NEW+14, NEW+17
IBACCPT ACCEPT+14~, ACINS+3*, ACGRP+5*, ACPOL+4*, ACSUB+16*
IBASAV ACCEPT+15~, ACCEPT+19*, ACANB+1, CHECK+16
>> IBBUFABORT PROCESS+4
IBBUFDA ACCEPT~, ACCEPT+20, ACCEPT+23, ACINS+1, ACINS+2, ACINS+9, ACGRP+1, ACGRP+3, ACGRP+11, ACANB+1
, ACCOV+1, ACPOL+1, ACPOL+3, ACPOL+8, ACSUB+13, ACEB+2, CHECK+5, PROCESS+3
IBCSAV ACCEPT+15~, ACCEPT+19*, ACCOV+1, CHECK+23
IBDA ACCEPT+15~
IBDESC MATCH~, MATCH+3, MATCH+4, MATCH+5, MATCH+6, MATCH+7, MATCH+8, MATCH+10, SBMATCH~, SBMATCH+3
, SBMATCH+4, SBMATCH+5, SBMATCH+6, SBMATCH+7, SBMATCH+8, SBMATCH+10, MOVE~, MOVE+6, SBMOVE~, SBMOVE+7
, NEW~, NEW+5, NEW+6, NEW+7, NEW+9, NEW+13, NEW+14, NEW+15, NEW+16, NEW+17
, NEW+18
IBDFLT READ~, READ+14
IBDONE ACCEPT+15~, ACCEPT+17*, PROCESS+4*, ACCPTQ+1
IBEAB ACCEPT+15~
IBELIG ACCEPT+14~, ACEB+2*, CHECK+41, CHECK+44, PROCESS+3
IBERR ACCEPT+15~, ACANB+1, ACCOV+1
IBF SUASK+1~, SUASK+3*, SUASK+5, SUASK+9
IBFNAM ACCEPT+15~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBGRPDA ACCEPT~, ACCEPT+19*, ACCEPT+21, ACCEPT+25, ACCEPT+26, ACCEPT+28, ACINS+3*, ACINS+7*, ACGRP+1, ACGRP+2
, ACGRP+3, ACGRP+5*, ACGRP+6, ACGRP+9, ACGRP+11, ACANB+1, ACCOV+1, CHECK+8, CHECK+9, CHECK+10
, CHECK+44, PROCESS+3, LKPYR~, LKPYR+2
IBHELP ACCEPT+14~, ACINS+1*, ACINS+6, ACGRP+1*, ACGRP+8, ACPOL+1*, ACPOL+5, MOVE~, MOVE+5, READ~
, READ+15
IBHOLD ACCEPT+15~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBIEN ACCEPT+15~, ACCEPT+17*
IBIIU ACCEPT+15~
IBINSDA ACCEPT~, ACCEPT+19*, ACCEPT+21, ACCEPT+24, ACCEPT+25, ACCEPT+27, ACINS+1, ACINS+2, ACINS+3*, ACINS+4
, ACINS+7, ACINS+9, CHECK+3, CHECK+4, CHECK+5, CHECK+44, PROCESS+3
IBISEL ACCEPT+15~
IBMVGRP ACCEPT+14~, ACCEPT+19*, ACGRP+6, ACGRP+7*, ACGRP+8*, ACGRP+9*, ACGRP+11, CHECK+8, CHECK+9, CHECK+44
, PROCESS+3
IBMVINS ACCEPT+14~, ACCEPT+19*, ACINS+4, ACINS+5*, ACINS+6*, ACINS+7*, ACINS+9, CHECK+3, CHECK+4, CHECK+44
, PROCESS+3
IBMVPOL ACCEPT+14~, ACCEPT+19*, ACPOL+5*, ACPOL+6*, ACPOL+8, CHECK+28, CHECK+29, CHECK+44, PROCESS+3
IBMVSUB ACCEPT+14~, ACCEPT+19*, ACSUB+2*, ACSUB+10*, ACSUB+17*, ACSUB+19, CHECK+34, CHECK+35, CHECK+44, PROCESS+3
IBNEWGRP ACCEPT+14~, ACCEPT+19*, ACGRP+9*, PROCESS+3
IBNEWINS ACCEPT+14~, ACCEPT+19*, ACINS+7*, PROCESS+3
IBNEWPOL ACCEPT+14~, ACCEPT+19*, ACPOL+6*, PROCESS+3
IBNEWSUB ACCEPT+14~, ACCEPT+19*
IBO ACCEPT+15~
IBOUT ACCEPT+15~, ACCEPT+19*, ACSUB+8, ACSUB+13*, ACSUB+16*, ACSUB+17*
IBPOLDA ACCEPT~, ACCEPT+19*, ACCEPT+21*, ACCEPT+27, ACCEPT+28, ACINS+3*, ACINS+7*, ACGRP+2, ACGRP+5*, ACGRP+9*
, ACPOL+1, ACPOL+2, ACPOL+3, ACPOL+4*, ACPOL+5, ACPOL+6, ACPOL+8, ACSUB+3, ACSUB+10, ACSUB+13
, ACSUB+16*, ACSUB+17, ACEB+2, CHECK+14, CHECK+15, CHECK+21, CHECK+22, CHECK+28, CHECK+29, CHECK+30
, CHECK+34, CHECK+35, CHECK+36, CHECK+44, PROCESS+3
IBPROM READ~, READ+13
IBQ ACCEPT+15~, ACANB+1, ACCOV+1
IBRIEN ACCEPT+15~, ACSUB+2*, ACSUB+13, PROCESS+3
IBRTYP READ~, READ+12
IBSCRN READ~, READ+16
IBSEL ACCEPT+15~, ACSUB+5*, ACSUB+7, ACSUB+13, CHECK+38, PROCESS+3
IBSIEN ACCEPT+15~, ACSUB+3*, ACSUB+13, PROCESS+3
IBSOURCE ACCEPT+15~
IBVAL ACCEPT+14~, ACSUB+2*, ACSUB+5, ACSUB+13, PROCESS+3, SUASK~, SUASK+9*
IBX ACCEPT+14~, ACCEPT+26*, CHECK+3*, CHECK+4*, CHECK+5*, CHECK+6, CHECK+8*, CHECK+9*, CHECK+10*, CHECK+11
, CHECK+14*, CHECK+16*, CHECK+17*, CHECK+18, CHECK+21*, CHECK+23*, CHECK+24*, CHECK+25, CHECK+28*, CHECK+29*
, CHECK+30*, CHECK+31, CHECK+34*, CHECK+35*, CHECK+36*, CHECK+37, CHECK+38*, CHECK+41*, CHECK+42, MATCH+2~*
, MATCH+10*, MATCH+11, SBMATCH+2~*, SBMATCH+10*, SBMATCH+11, MOVE+4~*, MOVE+9*, MOVE+10, SBMOVE+4~*, SBMOVE+10*
, SBMOVE+11, NEW+2~*, NEW+9*, NEW+12, NEW+14*, NEW+15*, NEW+17*, NEW+18*, NEWQ, REPL+1~
, REPL+2*, REPL+5*, REPL+6, OK+2~*, OK+10*, OK+11
IBXHOLD ACCEPT+15~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBXREF ACCEPT+15~
IBYR ACCEPT+15~
IOF ACINS+1, ACGRP+1, ACPOL+1, ACSUB+1, ACEB+1, CHECK+1
>> IORVOFF CHECK+6, CHECK+11, CHECK+18, CHECK+25, CHECK+31, CHECK+37, CHECK+42
>> IORVON CHECK+6, CHECK+11, CHECK+18, CHECK+25, CHECK+31, CHECK+37, CHECK+42
U ACCEPT+23, ACCEPT+26, ACCEPT+28, ACANB+1, ACCOV+1, CHECK+3, CHECK+4, CHECK+5, CHECK+8, CHECK+9
, CHECK+28, CHECK+29, CHECK+34, CHECK+35, CHECK+44, LKPYR+2, MOVE+9, SBMOVE+10, SUASK+3, SUASK+9
, READ+22
X ACCEPT+15~, LKPYR+1~, LKPYR+2*, MATCH+2~, SBMATCH+2~, MOVE+4~, SBMOVE+4~, NEW+2~, REPL+1~, OK+2~
, WAIT~, SUASK+1~, READ+8~, READ+22
Y ACCEPT+15~, LKPYR+1~, LKPYR+4, MATCH+2~, MATCH+10, SBMATCH+2~, SBMATCH+10, MOVE+4~, MOVE+9, SBMOVE+4~
, SBMOVE+10, NEW+2~, NEW+9, REPL+1~, REPL+5, OK+2~, OK+10, WAIT~, SUASK+1~, SUASK+9
, SUASK+10, READ+8~, READ+22
Y(0 MOVE+9, SBMOVE+10, READ+22
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  | All