Routine: BARACSI

Package	Total	Call Graph
IHS Accounts Receivable	6	($$MDT2,$$SDT)^BARDUTL ($$GETBIL,ASKLIN,HIT)^BARFPST3 $$EN^BARPST2 (EOP,INIT)^BARUTL $$EN^BARVDF ^BARVKL0
VA Fileman	5	(,IX)^DIC FILE^DICN ^DIK ($$GET1,GETS)^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$CJ^XLFSTR

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR ACM 276 BAR277IQ

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; ; Get and Display data
EN	; EP ; Electronic Signature test
GIS	; EP ; Verify GIS 3.01 patches 2 and 6 are present
EDIMSG	; ; Check EDI Payer list and Write various EDI messages
EDICHK	;
DOC	; ; IHS/SD/LSL - 09/24/02 - V1.6 Patch 3 - HIPAA ; Created routine. Called by BARM/ACCM/CSI
INSTALLD(BAR)	; EP ; Verify GIS Patch 2 and 6 present
SEND	; ; Create entry in A/R EDI CLAIM STATUS File and call GIS
NOTE	;
ASK	; ; Ask user if they want to send the request
DISPSUM	; ; Display Summary when user is done entering bills
EXIT	; EP ; Exit, kill local variables
ASKDEV	; ; Ask if user wants to print summary
MSG	;
ACCUM	; ; BARSUM(A/R ACCOUNT)=BILL CNT^AMT BILLED
FINDBIL	; ; ^BARPST2 sets ^TMP($J,"B",BARCNT,BILL IEN)=""
LOOP	; ; Find A/R bill, perform checks, populate holding file, send inquiry ; BAREPASS = Patient^DOS Start^DOS End^A/R BILL IEN

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV+13, ASKDEV+14
^%ZISC	ASKDEV+16
$$MDT2^BARDUTL	DISPSUM+6
$$SDT^BARDUTL	DISP+15, DISP+17, EDICHK+12, EDICHK+15
$$GETBIL^BARFPST3	LOOP+6
ASKLIN^BARFPST3	FINDBIL+11
HIT^BARFPST3	FINDBIL+10
$$EN^BARPST2	FINDBIL+3
EOP^BARUTL	EN+10, GIS+13
INIT^BARUTL	EN+5
$$EN^BARVDF	MSG+6, DISP+10, NOTE+16, NOTE+17, DISPSUM+4
^BARVKL0	EN+4, EXIT+2
^DIC	INSTALLD+12, INSTALLD+17
IX^DIC	INSTALLD+7
FILE^DICN	SEND+15
^DIK	SEND+27
$$GET1^DIQ	DISP+8, NOTE+6, NOTE+7
GETS^DIQ	DISP+4
^DIR	ASK+7, ASKDEV+7
$$CJ^XLFSTR	GIS+7, GIS+11, GIS+12, SEND+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("GIS V3.01 Patches 2 and 6 are required for this option",IOM) Line Location: GIS+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(BARSTRNG,IOM) Line Location: GIS+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please contact you site manager for assistance",IOM) Line Location: GIS+12
Function Call: WRITE	Prompt: !!!,BARSTAR Line Location: MSG+3
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"* " Line Location: MSG+5
Function Call: WRITE	Prompt: ?3,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF") Line Location: MSG+6
Function Call: WRITE	Prompt: ?9,"Not all insurers may be participating in the Claim Status Inquiry.",?79,"*" Line Location: MSG+7
Function Call: WRITE	Prompt: !,"",?9,"Check your EDI PAYER LIST (SPE) for a complete list of insurers.",?79,"" Line Location: MSG+8
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: MSG+9
Function Call: WRITE	Prompt: !,BARSTAR,! Line Location: MSG+10
Function Call: WRITE	Prompt: ! Line Location: LOOP+3
Function Call: WRITE	Prompt: *7 Line Location: FINDBIL+5
Function Call: WRITE	Prompt: !,"No bills found in this date range!" Line Location: FINDBIL+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: DISP+10
Function Call: WRITE	Prompt: !!?4,"Patient: ",$E(BARINQ(101,"E"),1,30)," [",BARINQ("HRN"),"]",?54,"Bill: ",$E(BARINQ(.01,"E"),1,20) Line Location: DISP+11
Function Call: WRITE	Prompt: !,"A/R Account: ",$E(BARINQ(3,"E"),1,30),?47,"Bill Status: ",$E(BARINQ(17.2,"E"),1,20) Line Location: DISP+12
Function Call: WRITE	Prompt: !!,"Visit Date",?13,"Visit Type",?35,"Date Billed",?49,"Amount Billed",?65,"Current Balance" Line Location: DISP+13
Function Call: WRITE	Prompt: !,BARDASH Line Location: DISP+14
Function Call: WRITE	Prompt: !,$$SDT^BARDUTL(BARINQ(102,"I")) Line Location: DISP+15
Function Call: WRITE	Prompt: ?13,$E(BARINQ(114,"E"),1,20) Line Location: DISP+16
Function Call: WRITE	Prompt: ?35,$$SDT^BARDUTL(BARINQ(18,"I")) Line Location: DISP+17
Function Call: WRITE	Prompt: ?49,$J($FN(BARINQ(13,"E"),",",2),13) Line Location: DISP+18
Function Call: WRITE	Prompt: ?65,$J($FN(BARINQ(15,"E"),",",2),15) Line Location: DISP+19
Function Call: WRITE	Prompt: !!?16,"UNABLE TO REQUEST CLAIM STATUS FOR THIS BILL" Line Location: EDIMSG+6
Function Call: WRITE	Prompt: !?((80-$L(BARMSG))/2),BARMSG Line Location: EDIMSG+7
Function Call: WRITE	Prompt: !?((80-$L(BARMSG2))/2),BARMSG2 Line Location: EDIMSG+8
Function Call: WRITE	Prompt: !!! Line Location: NOTE+3
Function Call: WRITE	Prompt: $$EN^BARVDF("RVN"),"NOTES:",$$EN^BARVDF("RVF") Line Location: NOTE+16
Function Call: WRITE	Prompt: $$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF") Line Location: NOTE+17
Function Call: WRITE	Prompt: ?8,BARNOTE(BARCNT),! Line Location: NOTE+20
Function Call: WRITE	Prompt: !!!,"***UNABLE TO PROCESS REQUEST FOR ",BARINQ(.01,"E"),"***" Line Location: SEND+18
Function Call: WRITE	Prompt: !,"***COULD NOT CREATE ENTRY IN A/R EDI CLAIM STATUS FILE***" Line Location: SEND+19
Function Call: WRITE	Prompt: !!!,$$CJ^XLFSTR("***UNABLE TO PROCESS REQUEST FOR "_BARINQ(.01,"E")_" ***",IOM) Line Location: SEND+28
Function Call: WRITE	Prompt: !?((80-$L(BARINHF))/2),BARINHF Line Location: SEND+29
Function Call: WRITE	Prompt: ". . . SENT" Line Location: SEND+31
Function Call: WRITE	Prompt: !!!?18,"No bills were submitted for a claim status." Line Location: DISPSUM+3
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: DISPSUM+4
Function Call: WRITE	Prompt: ?6,"* * * * S U M M A R Y O F S U B M I T T E D B I L L S * * * *" Line Location: DISPSUM+5
Function Call: WRITE	Prompt: !!,"ACCEPTED TRANSMISSIONS",?60,$$MDT2^BARDUTL(DT) Line Location: DISPSUM+6
Function Call: WRITE	Prompt: !!,"A/R Account",?40,"Bill cnt",?51,"Amount Billed" Line Location: DISPSUM+7
Function Call: WRITE	Prompt: !,"-----------",?40,"---------",?50,"---------------",! Line Location: DISPSUM+8
Function Call: WRITE	Prompt: !,BARAC Line Location: DISPSUM+11
Function Call: WRITE	Prompt: ?40,$J($FN($P(BARSUM(BARAC),U),",",0),9) Line Location: DISPSUM+12
Function Call: WRITE	Prompt: ?50,$J($FN($P(BARSUM(BARAC),U,2),",",2),15) Line Location: DISPSUM+13
Function Call: WRITE	Prompt: !,?40,"---------",?50,"---------------" Line Location: DISPSUM+14
Function Call: WRITE	Prompt: !,"TOTALS" Line Location: DISPSUM+15
Function Call: WRITE	Prompt: ?40,$J($FN($P(BARTOT,U),",",0),9) Line Location: DISPSUM+16
Function Call: WRITE	Prompt: ?50,$J($FN($P(BARTOT,U,2),",",2),15) Line Location: DISPSUM+17
Function Call: WRITE	Prompt: !! Line Location: ASKDEV+2
Routine Call	DIC Line Location: INSTALLD+12 INSTALLD+17
Routine Call	DIR Line Location: ASK+7 ASKDEV+7
Routine Call	%ZIS Line Location: ASKDEV+13 ASKDEV+14
Routine Call	DIC Line Location: INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
9000001.41	GET1^DIQ
^BARBL(2906 - [#90050.01]	GETS^DIQ
^BARECLST - [#90056.08]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	SEND+3
^BAR(90052.06	EDICHK+3, EDICHK+6, EDICHK+7
^BARAC(	EDICHK+1, SEND+2
^BARECLST("B"	SEND+7
^BARECLST("BILL"	NOTE+4, NOTE+5
^BARTMP($J	FINDBIL+8, FINDBIL+12

Label References

Name	Line Occurrences
$$INSTALLD	GIS+3, GIS+4
ACCUM	LOOP+20
ASK	LOOP+16
ASKDEV	EN+9
DISP	LOOP+12
DISPSUM	EN+8, ASKDEV+15
EDICHK	EDIMSG+4
EDIMSG	LOOP+13
EXIT	EN+3, EN+11
FINDBIL	LOOP+10
GIS	EN+2
LOOP	EN+7
MSG	EN+6
NOTE	LOOP+15
SEND	LOOP+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ASKDEV+11*
>> %ZIS("A"	ASKDEV+12*
BAR	INSTALLD~, INSTALLD+3, INSTALLD+11, INSTALLD+16
>> BARAC	DISPSUM+9, DISPSUM+10, DISPSUM+11, DISPSUM+12, DISPSUM+13
>> BARASK	FINDBIL+2*, FINDBIL+11
>> BARBIL	EN+7, LOOP+5, LOOP+7
>> BARBL	DISP+3*, DISP+4, DISP+5, NOTE+4, NOTE+5
>> BARCNT	FINDBIL+3, FINDBIL+4, FINDBIL+7, FINDBIL+8, NOTE+2, NOTE+8, NOTE+9, NOTE+10, NOTE+11, NOTE+12 , NOTE+14, NOTE+18, NOTE+19, NOTE+20
>> BARDASH	MSG+2*, DISP+14
>> BARDFN	DISP+2*, DISP+7
>> BARECLST	LOOP+19, SEND+16, SEND+25, SEND+30
>> BAREDI	LOOP+14, EDIMSG+3, EDIMSG+9
>> BAREPASS	LOOP+6, LOOP+7, LOOP+8, LOOP+10, LOOP+11, FINDBIL+8, FINDBIL+12*, DISP+2, DISP+3
>> BARGIS	EN+3, GIS+2, GIS+6
>> BARGIS2	GIS+3*, GIS+5, GIS+8, GIS+10
>> BARGIS6	GIS+4*, GIS+5, GIS+9, GIS+10
>> BARIENS	DISP+7*, DISP+8
>> BARINHF	SEND+21, SEND+22, SEND+23*, SEND+24, SEND+29
>> BARINQ	DISP+5*
>> BARINQ(	DISP+11, DISP+12, NOTE+8, NOTE+14, SEND+18, SEND+28
>> BARINQ("EDIPYR"	EDICHK+7*, EDICHK+8, EDICHK+11, EDICHK+12, EDICHK+14, EDICHK+15
>> BARINQ("HRN"	DISP+8, DISP+9, DISP+11
>> BARINQ("PYR"	SEND+2*, SEND+3
>> BARINQ("PYRID"	SEND+3*
>> BARINQ(101	DISP+11
>> BARINQ(102	DISP+15
>> BARINQ(108	DISP+7
>> BARINQ(114	DISP+16
>> BARINQ(13	DISP+18, ACCUM+3, ACCUM+5
>> BARINQ(15	DISP+19, NOTE+13
>> BARINQ(18	DISP+17
>> BARINQ(3	DISP+12, EDICHK+1, EDICHK+2, EDICHK+3, EDICHK+4, EDICHK+6, EDICHK+7, EDICHK+9, EDICHK+12, EDICHK+15 , ASK+5, SEND+2, ACCUM+2, ACCUM+3
>> BARLIN	FINDBIL+12
BARMSG	EDIMSG+2!, EDIMSG+5, EDIMSG+7, EDICHK+2, EDICHK+4, EDICHK+9, EDICHK+12, EDICHK+15*
BARMSG2	EDIMSG+2!, EDIMSG+8, EDICHK+5, EDICHK+10, EDICHK+13, EDICHK+16
BARNOTE	NOTE+1!, NOTE+15
BARNOTE(	NOTE+8, NOTE+10, NOTE+11, NOTE+14, NOTE+19, NOTE+20
BARNOTE(""	NOTE+16
>> BARPASS	LOOP+8*, FINDBIL+3, FINDBIL+10
BARPAT	LOOP+4!
>> BARRPDT	NOTE+7*, NOTE+10, NOTE+11
>> BARRQDT	NOTE+6*, NOTE+8
>> BARSEND	LOOP+17, ASK+2, ASK+9
>> BARSTAR	MSG+1*, MSG+3, MSG+10
>> BARSTRNG	GIS+8, GIS+9, GIS+10*, GIS+11
>> BARSUM	EN+9, DISPSUM+2
>> BARSUM(	ACCUM+2, ACCUM+3, DISPSUM+10, DISPSUM+12, DISPSUM+13
>> BARTOT	ACCUM+4, ACCUM+5, DISPSUM+16, DISPSUM+17
>> BARTRC	NOTE+5*, NOTE+6, NOTE+7
>> BARUSR	EN+5
BARZ	LOOP+4!
>> D	INSTALLD+6*
DA	SEND+4!, SEND+25*
DD	SEND+14!
DIC	SEND+4!, SEND+5, INSTALLD+2~, INSTALLD+4, INSTALLD+10, INSTALLD+15
DIC("DR"	SEND+10, SEND+11, SEND+12, SEND+13
DIC(0	SEND+6, INSTALLD+5
>> DIK	SEND+26*
>> DINUM	SEND+9*
DIR	ASK+3!, ASK+8!, ASKDEV+3!, ASKDEV+8!
DIR("A"	ASK+5, ASKDEV+5
DIR("B"	ASK+6, ASKDEV+6
DIR(0	ASK+4, ASKDEV+4
DO	SEND+14!
DT	EDICHK+11, EDICHK+14, DISPSUM+6
DUZ(2	EDICHK+1, EDICHK+3, EDICHK+6, EDICHK+7, NOTE+4, NOTE+5, SEND+2
>> INHF	SEND+22, SEND+23
IO("S"	ASKDEV+14
IOM	GIS+7, GIS+11, GIS+12, SEND+28
ION	ASKDEV+14
>> IOP	ASKDEV+14*
>> POP	ASKDEV+13
TMP	DISP+6!
TMP(	DISP+5
U	LOOP+8, LOOP+10, LOOP+11, FINDBIL+8, FINDBIL+12, DISP+2, DISP+3, EDICHK+1, EDICHK+8, EDICHK+11 , EDICHK+12, EDICHK+14, EDICHK+15, SEND+2, SEND+3, ACCUM+2, ACCUM+3, ACCUM+4, ACCUM+5, DISPSUM+12 , DISPSUM+13, DISPSUM+16, DISPSUM+17
X	SEND+4!, SEND+7, SEND+8, SEND+9, INSTALLD+2~, INSTALLD+3, INSTALLD+11, INSTALLD+16*
Y	ASK+9, SEND+4!, SEND+16, SEND+17, ASKDEV+9, INSTALLD+2~, INSTALLD+8, INSTALLD+10, INSTALLD+13, INSTALLD+15 , INSTALLD+18

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARACSI

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: