Routine: IBCNBAA

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	3	^DIC $$GET1^DIQ ^DIR

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	; -- Eligibility Benefits
ACE1	; -- E1 payer response ;IB*822/CKB
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
REPLE1()	;IB*822/ckb - ask user if they want to replace E1 Pharmacy eligibility data in pt. insurance
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
$$GET1^DIQ	ACE1+4
^DIR	MATCH+10, SBMATCH+10, MOVE+8, SBMOVE+9, NEW+9, REPL+5, REPLE1+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+4
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+24

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: ACE1+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+44
Function Call: WRITE	Prompt: !,IBX Line Location: CHECK+44
Function Call: WRITE	Prompt: !!,$G(IORVON)_"STEP 8: E1 Pharmacy Eligibility"_$J("",49)_$G(IORVOFF) Line Location: CHECK+50
Function Call: WRITE	Prompt: !,IBX Line Location: CHECK+50
Function Call: WRITE	Prompt: !!!,"This would result in No Change to the existing Insurance data. Process aborted." Line Location: CHECK+53
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: REPLE1+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 REPLE1+5 OK+10 WAIT SUASK+9 READ+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSR - [#9002313.03]	ACE1+5
^DD(2.312	SUASK+3
^DIC(36 - [#36]	ACCEPT+27
^DPT - [#2]	ACCEPT+30, ACCEPT+31
^IBA(355.3 - [#355.3]	ACCEPT+28, ACCEPT+29
^IBA(355.33 - [#355.33]	ACCEPT+23, ACCEPT+26, CHECK+5
^IBCN(365 - [#365]	ACEB+6, ACEB+7
^TMP($J	ACCEPT+19!
^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+55
$$REPL	ACEB+8
$$REPLE1	ACE1+5
$$SBMATCH	ACSUB+16
$$SBMOVE	ACSUB+17
$$SUASK	ACSUB+5
ACCPTQ	ACCEPT+23, ACCEPT+26, ACCEPT+27, ACCEPT+28, ACCEPT+29, ACCEPT+30, ACCEPT+31, 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+8, ACE1+5, CHECK+53, CHECK+55
ACEB	ACSUB+7
NEWQ	NEW+12
WAIT	ACSUB+7, ACSUB+10, CHECK+53, 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
ASKEB	ACCEPT+15~, ACCEPT+22, ACEB+7, ACEB+8, CHECK+43
BPSRIEN	ACE1+2~, ACE1+4*, ACE1+5, CHECK+49
DA	LKPYR+1~, LKPYR+2*
DFN	ACCEPT+15~, ACCEPT+23*, ACCEPT+24, ACCEPT+29, ACCEPT+30, ACCEPT+31, ACSUB+3, ACSUB+13, PROCESS+3
DIC	LKPYR+1~, LKPYR+2*
DIC(0	LKPYR+2*
DIERR	ACCEPT+17~, ACSUB+13
DIR	ACCEPT+16~, MATCH+2~, SBMATCH+2~, MOVE+4~, SBMOVE+4~, NEW+2~, REPL+1~, REPLE1+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, REPLE1+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, REPLE1+3, OK+10, WAIT, SUASK+6 , READ+13*
DIR("B"	REPL+3, REPLE1+3, READ+14*
DIR("S"	READ+16*
DIR(0	MATCH+10, SBMATCH+10, MOVE+8, SBMOVE+9, NEW+9, REPL+3, REPLE1+3, OK+10, WAIT, SUASK+5 , READ+12*
DIRUT	ACCEPT+16~, ACINS+3, ACINS+4, ACGRP+5, ACGRP+6, ACPOL+4, ACPOL+5, ACSUB+16, ACSUB+17, ACEB+8 , ACE1+5, 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+15~, ACINS+3, ACGRP+5, ACPOL+4, ACSUB+16
IBASAV	ACCEPT+16~, ACCEPT+22*, ACANB+1, CHECK+16
>> IBBUFABORT	PROCESS+4
IBBUFDA	ACCEPT~, ACCEPT+23, ACCEPT+26, 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+4, ACEB+6, ACE1+4, CHECK+5, PROCESS+3
IBCSAV	ACCEPT+16~, ACCEPT+22*, ACCOV+1, CHECK+23
IBDA	ACCEPT+16~
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+16~, ACCEPT+18, PROCESS+4, ACCPTQ+1
IBE1	ACCEPT+15~, ACCEPT+22, ACE1+5, CHECK+47, CHECK+53
IBEAB	ACCEPT+16~
IBELIG	ACCEPT+15~, ACCEPT+22, ACEB+8, CHECK+41, CHECK+53, PROCESS+3
IBERR	ACCEPT+16~, ACANB+1, ACCOV+1
IBF	SUASK+1~, SUASK+3*, SUASK+5, SUASK+9
IBFNAM	ACCEPT+16~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBGRPDA	ACCEPT~, ACCEPT+21, ACCEPT+24, ACCEPT+28, ACCEPT+29, ACCEPT+31, 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+53, PROCESS+3, LKPYR~, LKPYR+2
IBHELP	ACCEPT+15~, ACINS+1, ACINS+6, ACGRP+1, ACGRP+8, ACPOL+1*, ACPOL+5, MOVE~, MOVE+5, READ~ , READ+15
IBHOLD	ACCEPT+16~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBIEN	ACCEPT+16~, ACCEPT+18*
IBIIU	ACCEPT+16~
IBINSDA	ACCEPT~, ACCEPT+21, ACCEPT+24, ACCEPT+27, ACCEPT+28, ACCEPT+30, ACINS+1, ACINS+2, ACINS+3, ACINS+4 , ACINS+7, ACINS+9, CHECK+3, CHECK+4, CHECK+5, CHECK+53, PROCESS+3
IBISEL	ACCEPT+16~
IBMVGRP	ACCEPT+15~, ACCEPT+22, ACGRP+6, ACGRP+7, ACGRP+8, ACGRP+9, ACGRP+11, CHECK+8, CHECK+9, CHECK+53 , PROCESS+3
IBMVINS	ACCEPT+15~, ACCEPT+22, ACINS+4, ACINS+5, ACINS+6, ACINS+7, ACINS+9, CHECK+3, CHECK+4, CHECK+53 , PROCESS+3
IBMVPOL	ACCEPT+15~, ACCEPT+22, ACPOL+5, ACPOL+6*, ACPOL+8, CHECK+28, CHECK+29, CHECK+53, PROCESS+3
IBMVSUB	ACCEPT+15~, ACCEPT+22, ACSUB+2, ACSUB+10, ACSUB+17, ACSUB+19, CHECK+34, CHECK+35, CHECK+53, PROCESS+3
IBNEWGRP	ACCEPT+15~, ACCEPT+22, ACGRP+9, PROCESS+3
IBNEWINS	ACCEPT+15~, ACCEPT+22, ACINS+7, PROCESS+3
IBNEWPOL	ACCEPT+15~, ACCEPT+22, ACPOL+6, PROCESS+3
IBNEWSUB	ACCEPT+15~, ACCEPT+22*
IBO	ACCEPT+16~
IBOUT	ACCEPT+16~, ACCEPT+22, ACSUB+8, ACSUB+13, ACSUB+16, ACSUB+17
IBPOLDA	ACCEPT~, ACCEPT+21, ACCEPT+24, ACCEPT+30, ACCEPT+31, 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+4, CHECK+14, CHECK+15, CHECK+21, CHECK+22, CHECK+28, CHECK+29, CHECK+30 , CHECK+34, CHECK+35, CHECK+36, CHECK+53, PROCESS+3
IBPROM	READ~, READ+13
IBQ	ACCEPT+16~, ACANB+1, ACCOV+1
IBRIEN	ACCEPT+16~, ACSUB+2*, ACSUB+13, PROCESS+3
IBRTYP	READ~, READ+12
IBSCRN	READ~, READ+16
IBSEL	ACCEPT+16~, ACSUB+5*, ACSUB+7, ACSUB+13, CHECK+38, PROCESS+3
IBSIEN	ACCEPT+16~, ACSUB+3*, ACSUB+13, PROCESS+3
IBSOURCE	ACCEPT+16~
IBVAL	ACCEPT+15~, ACSUB+2, ACSUB+5, ACSUB+13, PROCESS+3, SUASK~, SUASK+9
IBX	ACCEPT+15~, ACCEPT+29, 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+43, CHECK+44 , CHECK+47, CHECK+49, CHECK+50, 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, REPLE1+1~, REPLE1+2, REPLE1+5 , REPLE1+6, OK+2~, OK+10, OK+11
IBXHOLD	ACCEPT+16~, ACSUB+2*, ACSUB+13, ACSUB+19, PROCESS+3
IBXREF	ACCEPT+16~
IBYR	ACCEPT+16~
IOF	ACINS+1, ACGRP+1, ACPOL+1, ACSUB+1, ACEB+1, ACE1+1, CHECK+1
>> IORVOFF	CHECK+6, CHECK+11, CHECK+18, CHECK+25, CHECK+31, CHECK+37, CHECK+44, CHECK+50
>> IORVON	CHECK+6, CHECK+11, CHECK+18, CHECK+25, CHECK+31, CHECK+37, CHECK+44, CHECK+50
RESPIEN	ACEB+3~, ACEB+6*, ACEB+7
U	ACCEPT+26, ACCEPT+29, ACCEPT+31, ACANB+1, ACCOV+1, CHECK+3, CHECK+4, CHECK+5, CHECK+8, CHECK+9 , CHECK+28, CHECK+29, CHECK+34, CHECK+35, CHECK+53, LKPYR+2, MOVE+9, SBMOVE+10, SUASK+3, SUASK+9 , READ+22
X	ACCEPT+16~, LKPYR+1~, LKPYR+2*, MATCH+2~, SBMATCH+2~, MOVE+4~, SBMOVE+4~, NEW+2~, REPL+1~, REPLE1+1~ , OK+2~, WAIT~, SUASK+1~, READ+8~, READ+22
Y	ACCEPT+16~, 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, REPLE1+1~, REPLE1+5, OK+2~, OK+10, WAIT~ , SUASK+1~, SUASK+9, SUASK+10, READ+8~, READ+22
Y(0	MOVE+9, SBMOVE+10, READ+22

Customize PDF page

Package: Integrated Billing

Routine: IBCNBAA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: