Routine: BAREDP00

Package	Total	Call Graph
IHS Accounts Receivable	22	(5010,NFOUND,PLB,POST,REPORT,REVIEW,VIEW)^BAR50P00 READ^BAR50PA1 (FNAME,VIEW)^BAREDIUT EN^BAREDP01 (CHKS,EN)^BAREDP02 EN^BAREDP03 EN^BAREDP04 EN^BAREDP05 EN^BAREDP06 EN^BAREDP07 POST^BAREDP08 ERACHECK^BAREDP09 ($$POSTCHK,SELCK)^BAREDP0A EN^BAREDP10 EN^BAREDP12 READ^BAREDPA1 EN1^BAREDPCS $$CHKSEL^BAREUTL (BATCH,ITEM)^BARFPST ($$CKDATE,BBAL,IBAL)^BARPST EN^BARROLL (EOP,INIT)^BARUTL
VA Fileman	8	^%DT (,NOW,YX)^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	2	(CLOSE,OPEN)^%ZISH SIG^XUSESIG
IHS VA Utilities	1	($$DIC,ENP)^XBDIQ1
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
IHS Accounts Receivable	10	BAR ERA BILL MATCHING BAR ERA CHK NOT BATCHED REPORT BAR ERA CLAIM REPORTS BAR ERA LOAD NEW IMPORT BAR ERA POST CLAIMS BAR ERA REVIEW POSTABLE CLAIMS BAR ERA VIEW IMPORT BAR50R01 BAREDBPR BAREDPCS

Name	Comments	DBIA/ICR reference
READ(BARPATH,BARFILE)	; EP ; Read host file into ^TMP($J,"ERA")
BTCHCHK	;
SELFL	;Select file
FORMAT(BARREC)	; ; Verify file loading is HIPAA 835 if Transport HIPAA 835 ; Return >0^STRING if wrong format ; Return 0^TRANSPORT_TYPE if correct format
NEWFILE(Y)	;
REVIEW	;EP
4010
VIEWLIST	;EP
SELCK	;
TSEL	;EP TRANSPORT SELECT (DEFUNCT)
NFOUND	; EP
PLB	;Chk for PLB/Pymt Reversals ;MRS:BAR1.810 D159
INSTALL	;EP -Load New Import
CLNUP	;
REPORT	; EP
POST	; EP
BTCHDISP	;
REDO	;EP entry for mid stream testing
POSTA	;EP POST
VIEW	; EP

External References

Name	Field # of Occurrence
^%DT	NEWFILE+5
^%DTC	NEWFILE+7
NOW^%DTC	4010+76, REVIEW+14
YX^%DTC	4010+79
CLOSE^%ZISH	READ+17
OPEN^%ZISH	READ+4
5010^BAR50P00	INSTALL+38
NFOUND^BAR50P00	NFOUND+7
PLB^BAR50P00	PLB+5
POST^BAR50P00	POST+6
REPORT^BAR50P00	REPORT+8
REVIEW^BAR50P00	REVIEW+6
VIEW^BAR50P00	VIEW+7
READ^BAR50PA1	INSTALL+36
FNAME^BAREDIUT	INSTALL+18
VIEW^BAREDIUT	VIEW+8
EN^BAREDP01	REDO+12
CHKS^BAREDP02	REDO+17
EN^BAREDP02	REDO+16
EN^BAREDP03	REDO+24
EN^BAREDP04	PLB+28
EN^BAREDP05	REVIEW+12
EN^BAREDP06	POSTA+12
EN^BAREDP07	REPORT+12
POST^BAREDP08	POST+10
ERACHECK^BAREDP09	REVIEW+7
$$POSTCHK^BAREDP0A	4010+12
SELCK^BAREDP0A	SELCK+1
EN^BAREDP10	REPORT+11
EN^BAREDP12	NFOUND+8
READ^BAREDPA1	4010+50
EN1^BAREDPCS	REDO+19
$$CHKSEL^BAREUTL	POST+8, REPORT+10
BATCH^BARFPST	BTCHCHK+3
ITEM^BARFPST	BTCHCHK+8
$$CKDATE^BARPST	SELFL+20
BBAL^BARPST	BTCHDISP+7
IBAL^BARPST	BTCHDISP+9
EN^BARROLL	POSTA+14
EOP^BARUTL	INSTALL+31, 4010+52, 4010+59, 4010+75, REDO+26, REVIEW+3, POST+3, VIEW+3, REPORT+3, NFOUND+3 , READ+8
INIT^BARUTL	BTCHCHK+1
^DIC	TSEL+6, SELFL+11
FILE^DICN	4010+70
^DIE	4010+92, PLB+34, REVIEW+21, POST+36, BTCHCHK+17
^DIK	4010+48
$$GET1^DIQ	4010+5, REPORT+9, SELFL+21
^DIR	INSTALL+13, 4010+20, 4010+28, 4010+41, PLB+22, PLB+38, POST+20, POSTA+8
CLEAR^VALM1	4010+60, PLB+39, POST+25, BTCHDISP+2
$$DIC^XBDIQ1	TSEL+3, 4010+46, 4010+66, 4010+85, PLB+31, POST+33, BTCHCHK+14
ENP^XBDIQ1	BTCHDISP+3
SIG^XUSESIG	INSTALL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TSEL+1
Function Call: WRITE	Prompt: !!,"Check your DUZ setup." Line Location: INSTALL+4
Function Call: WRITE	Prompt: !!,"CHECKING FILE FORMAT....." Line Location: INSTALL+21
Function Call: WRITE	Prompt: !,"The file ",HSTFILE," in directory ",XBDIR Line Location: INSTALL+25
Function Call: WRITE	Prompt: !,"is not a Remittance Advice. It cannot be loaded." Line Location: INSTALL+26
Function Call: WRITE	Prompt: !,"Reason: " Line Location: INSTALL+27
Function Call: WRITE	Prompt: " missing 'ISA' id " Line Location: INSTALL+28
Function Call: WRITE	Prompt: " missing 'HP' id " Line Location: INSTALL+29
Function Call: WRITE	Prompt: " UNKNOWN TRANSPORT FILE TYPE." Line Location: INSTALL+30
Function Call: WRITE	Prompt: !,"File type: ",TRNAME," FILE FORMAT OKAY." Line Location: INSTALL+35
Function Call: WRITE	Prompt: !!,"This file was previously loaded on "_LOADDT_" as",!?2,"file "_FILE Line Location: 4010+6
Function Call: WRITE	Prompt: !!,?5," You can exit and review the import by entering" Line Location: 4010+7
Function Call: WRITE	Prompt: !,?5," the filename in the View Import Header option.",! Line Location: 4010+8
Function Call: WRITE	Prompt: !,"NOTE: reloading a file will create duplicate entries in the A/R EDI Check!" Line Location: 4010+9
Function Call: WRITE	Prompt: !,"Proceed with caution" Line Location: 4010+10
Function Call: WRITE	Prompt: !,"Nothing has been posted from this ERA. If you reload it, the original file",!,"will be replaced with this file. Any edits done in REV will be lost." Line Location: 4010+13
Function Call: WRITE	Prompt: !!!,"Part of this file has been POSTED and is therefore not eligible for reload." Line Location: 4010+15
Function Call: WRITE	Prompt: !!,"File",?25,"Directory",?50,"Transport" Line Location: 4010+35
Function Call: WRITE	Prompt: !,HSTFILE,?25,XBDIR,?50,TRNAME,!! Line Location: 4010+36
Function Call: WRITE	Prompt: !,"The file ",HSTFILE," in directory ",XBDIR Line Location: 4010+54
Function Call: WRITE	Prompt: !,"Appears to be an empty file." Line Location: 4010+55
Function Call: WRITE	Prompt: !,"Empty files are not HIPAA compliant." Line Location: 4010+56
Function Call: WRITE	Prompt: !,"Inform your source and request a HIPAA compliant file" Line Location: 4010+57
Function Call: WRITE	Prompt: !,"Please contact your supervisor for assistance." Line Location: 4010+58
Function Call: WRITE	Prompt: !,"LINE COUNT LOADED: ",X,! Line Location: 4010+62
Function Call: WRITE	Prompt: !!,"File not created for transport" Line Location: 4010+74
Function Call: WRITE	Prompt: TNAME,! Line Location: 4010+83
Function Call: WRITE	Prompt: !,"The ",XBFN," file has been "_SUCC_"successful in updating" Line Location: REDO+4
Function Call: WRITE	Prompt: !,"the transport global" Line Location: REDO+5
Function Call: WRITE	Prompt: !!,NRECS," records updated" Line Location: REDO+6
Function Call: WRITE	Prompt: !,"PROCESSING",!,"TRANSPORT FILE: ",?20,XBFN Line Location: REDO+8
Function Call: WRITE	Prompt: !,"IMPORT NAME: ",?20,TNAME,!! Line Location: REDO+9
Function Call: WRITE	Prompt: !,"Starting stage 1 of 3 -> Extract data from transport to segments" Line Location: REDO+11
Function Call: WRITE	Prompt: !,"Stage 1 -> Complete" Line Location: REDO+13
Function Call: WRITE	Prompt: !!,"Starting stage 2 of 3 -> Parse segments into elements & values" Line Location: REDO+15
Function Call: WRITE	Prompt: !," Stand by to print TRN - Check Number/Check Amount Report..." Line Location: REDO+18
Function Call: WRITE	Prompt: !,"Stage 2 -> Complete" Line Location: REDO+20
Function Call: WRITE	Prompt: !!,"Starting stage 3 of 3 -> Build postable claims" Line Location: REDO+22
Function Call: WRITE	Prompt: !,"Stage 3 -> Complete" Line Location: REDO+25
Function Call: WRITE	Prompt: !!,"Bill matching for this check has already been done." Line Location: PLB+18
Function Call: WRITE	Prompt: !!,"NOTE: This check has NOT been matched to a batch/item",! Line Location: PLB+25
Function Call: WRITE	Prompt: !,"I will begin bill matching..." Line Location: PLB+26
Function Call: WRITE	Prompt: !!,"Matching complete" Line Location: PLB+29
Function Call: WRITE	Prompt: !!,"Matching NOT complete" Line Location: PLB+30
Function Call: WRITE	Prompt: 1/0 Line Location: FORMAT+15
Function Call: WRITE	Prompt: !!,"Check your DUZ setup." Line Location: REVIEW+2
Function Call: WRITE	Prompt: ! Line Location: POSTA+1
Function Call: WRITE	Prompt: ! Line Location: SELFL+6
Function Call: WRITE	Prompt: !,"THIS FILE IS BEING VIEWED, REVIEWED OR POSTED BY ANOTHER USER!! TRY AGAIN LATER." Line Location: SELFL+13
Function Call: WRITE	Prompt: !,"Transport: ",$P($G(^BAREDI("1T",TRDA,0)),"^") Line Location: BTCHDISP+4
Function Call: WRITE	Prompt: !,"Created from ",$G(HSTFILE)," on ",$G(HSTIME) Line Location: BTCHDISP+5
Function Call: WRITE	Prompt: !!,"Batch: ",$G(BNM($J,.01))_" "_$G(BNM($J,8)) Line Location: BTCHDISP+6
Function Call: WRITE	Prompt: !!,"Item: "_$G(BARITM) Line Location: BTCHDISP+8
Function Call: WRITE	Prompt: ?35,$P($G(^BAREDI("I",DUZ(2),+Y,0)),U,5) Line Location: VIEWLIST+2
Function Call: WRITE	Prompt: !?50,"CHK/EFT #: ",$P(^BAREDI("I",DUZ(2),+Y,0),U,9) Line Location: VIEWLIST+3
Function Call: WRITE	Prompt: ?50,"CHK/EFT #: ",I,! Line Location: VIEWLIST+9
Function Call: WRITE	Prompt: !!,"Error opening file....please verify filename and directory and try again" Line Location: READ+6
Routine Call	DIE Line Location: 4010+92 PLB+34 REVIEW+21 POST+36 BTCHCHK+17
Routine Call	DIC Line Location: TSEL+6 SELFL+11
Routine Call	DIR Line Location: INSTALL+13 4010+20 4010+28 4010+41 PLB+22 PLB+38 POST+20 POSTA+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BAREDI("1T" - [#90056.01]	GET1^DIQ
^BAREDI("I",7819,0) - [#90056.02]	GET1^DIQ
^BARECHK - [#90056.22]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	INSTALL+10
^BAREDI("1T" - [#90056.01]	INSTALL+34, BTCHDISP+4
^BAREDI("I"	INSTALL+6, 4010+2, 4010+3, 4010+94, 4010+113*, PLB+7, PLB+9, PLB+13, PLB+15, PLB+16 , PLB+25, REVIEW+8, SELFL+13, NEWFILE+2, CLNUP+1, VIEWLIST+2, VIEWLIST+3, VIEWLIST+5, VIEWLIST+6
^TMP($J	INSTALL+7!, 4010+53, 4010+61, 4010+100, 4010+101, REDO+2

Label References

Name	Line Occurrences
$$FORMAT	INSTALL+24
4010	INSTALL+39
BTCHCHK	POST+12, POST+24
BTCHDISP	POST+14, POST+26
CLNUP	PLB+40, REVIEW+22, POSTA+16, VIEW+9, REPORT+13, NFOUND+9
INSTALL	4010+64
READ	INSTALL+23
SELCK	PLB+10, REVIEW+9
SELFL	PLB+2, REVIEW+4, POST+4, VIEW+5, REPORT+6, NFOUND+5, SELFL+13, SELFL+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REVIEW+15
>> %DT	NEWFILE+5*
ANS	4010, 4010+2, 4010+14, 4010+21, 4010+29, 4010+31, 4010+32, 4010+33, CLNUP+2!
BARCHK	PLB+9, PLB+16, REVIEW+8, REPORT+9*, VIEWLIST+1~
BARCHK(	REVIEW+18, VIEWLIST+7*, VIEWLIST+9
BARCHK(9999	REVIEW+8, REVIEW+9
>> BARCKIEN	PLB+9, PLB+11, PLB+25, REVIEW+8, REVIEW+10, REVIEW+18, POST+8, POST+9, POST+10, REPORT+9 , REPORT+10, REPORT+11
BARCNT	PLB+6, PLB+8, PLB+9, PLB+10, READ+2~, READ+3, READ+9, READ+10, READ+14, READ+16
>> BARCNTL	4010+95, 4010+112, 4010+113
BARCOL	POST+27, POST+31!, SELFL+23*, SELFL+25, BTCHCHK+2!, BTCHCHK+5, BTCHCHK+9, BTCHDISP+3, BTCHDISP+7, CLNUP+3!
BARCSEP	4010+99, 4010+106, FORMAT+4!, FORMAT+13, FORMAT+14
>> BARCTRL	INSTALL+22, 4010+49, 4010+96, 4010+102, 4010+108, FORMAT+6, FORMAT+10, FORMAT+12, FORMAT+14
>> BARDEL	READ+14*, READ+16
BARDONE	READ+2~, READ+3, READ+7
>> BARDTREV	REVIEW+15*
BARERR	FORMAT+5~, FORMAT+6, FORMAT+8, FORMAT+16*
BARESEP	4010+97, 4010+105, FORMAT+4!, FORMAT+9, FORMAT+10, FORMAT+17
BARFILE	READ~, READ+4
>> BARFLG	4010+11, 4010+12, 4010+13, 4010+14, 4010+22, 4010+29, 4010+45
BARGS08	FORMAT+5~, FORMAT+17*, FORMAT+18, FORMAT+19, FORMAT+20
>> BARI	READ+9, READ+14, READ+16
BARITM	POST+27, POST+31!, SELFL+24*, SELFL+25, BTCHCHK+2!, BTCHCHK+9, BTCHDISP+8, BTCHDISP+9, CLNUP+3!
BARPATH	INSTALL+10*, INSTALL+11, READ~, READ+4
>> BARQT	PLB+12, PLB+15, PLB+16, PLB+17
>> BARQUIT	PLB+12, PLB+23, PLB+24
>> BARRAYGO	POSTA+13*
BARREC	INSTALL+24, FORMAT~, FORMAT+7, READ+3, READ+15
>> BARRET	INSTALL+24*, INSTALL+28, INSTALL+29, INSTALL+30, INSTALL+33
BARROLL	POSTA+15!
BARSSEP	4010+98, 4010+104, FORMAT+4!, FORMAT+11, FORMAT+12, FORMAT+16, FORMAT+17
BARTMP	4010+101, 4010+103, 4010+104, 4010+105, 4010+106, 4010+107, 4010+109, 4010+110, 4010+111, 4010+113 , FORMAT+5~, FORMAT+7*, FORMAT+8, FORMAT+9, FORMAT+11, FORMAT+13, FORMAT+16, FORMAT+17
BARTXT	READ+2~
>> BNM(	BTCHDISP+6
>> CH	READ+11*, READ+12, READ+13, READ+14, READ+15, READ+16
>> CLMDA	PLB+14, PLB+15, PLB+16
DA	TSEL+2!, 4010+47, 4010+84!, 4010+86, PLB+32, REVIEW+16!, REVIEW+18, POST+32!, POST+34, BTCHCHK+13! , BTCHCHK+15
>> DATE	4010+78*, 4010+82
DATM	4010+80*, CLNUP+2!
DD	TSEL+5!, 4010+70!, SELFL+10!
DIC	TSEL+2!, TSEL+3, 4010+65!, 4010+66, 4010+72!, REVIEW+16!, POST+32!, SELFL+3!, SELFL+4*, SELFL+26!
DIC("A"	SELFL+8*
DIC("W"	SELFL+5*
DIC(0	TSEL+4, 4010+67, SELFL+7*
DIE	4010+84!, 4010+85, PLB+31, REVIEW+16!, REVIEW+17, POST+32!, POST+33, BTCHCHK+13!, BTCHCHK+14*
>> DIK	4010+46*
>> DINUM	4010+69*
DIR	INSTALL+14!, 4010+23!, 4010+30!, 4010+42!, PLB+19!, PLB+22!, PLB+35!, POST+21!, POSTA+9!
DIR("?"	INSTALL+12, 4010+19, 4010+27, 4010+40, POST+19, POSTA+7
DIR("A"	INSTALL+9, 4010+17, 4010+25, 4010+38, PLB+21, PLB+37, POST+17, POSTA+3, POSTA+4, POSTA+5
DIR("B"	INSTALL+11, 4010+18, 4010+26, 4010+39, POST+18, POSTA+6
DIR(0	INSTALL+8, 4010+16, 4010+24, 4010+37, PLB+20, PLB+36, POST+16, POSTA+2
>> DIRUT	INSTALL+15, 4010+21, 4010+29, 4010+43, POST+22, POSTA+10
DO	TSEL+5!, 4010+70!, SELFL+10!
DR	4010+84!, 4010+87, 4010+88, 4010+89, 4010+90, 4010+91, PLB+33, REVIEW+16!, REVIEW+19, REVIEW+20 , POST+32!, POST+35, BTCHCHK+13!, BTCHCHK+16
DT	NEWFILE+7
DUZ	FORMAT+15
DUZ(2	INSTALL+3, INSTALL+6, INSTALL+10, 4010+2, 4010+3, 4010+94, 4010+113, PLB+7, PLB+9, PLB+13 , PLB+15, PLB+16, PLB+25, REVIEW+1, REVIEW+8, POST+1, VIEW+1, REPORT+1, NFOUND+1, NEWFILE+2 , VIEWLIST+2, VIEWLIST+3, VIEWLIST+5, VIEWLIST+6
FILE	4010+1!, 4010+5*, 4010+6, 4010+69
HSTFILE	INSTALL+19, INSTALL+20, INSTALL+23, INSTALL+25, INSTALL+36, 4010+2, 4010+3, 4010+36, 4010+50, 4010+54 , 4010+68, SELFL+18, SELFL+20, BTCHDISP+5, CLNUP+2!
HSTIME	SELFL+16*, BTCHDISP+5, CLNUP+3!
I	4010+103, 4010+104, 4010+105, 4010+106, 4010+107, 4010+109, 4010+110, PLB+6, PLB+7, FORMAT+5~ , VIEWLIST+1~, VIEWLIST+4, VIEWLIST+5, VIEWLIST+6, VIEWLIST+7, VIEWLIST+8, VIEWLIST+9, READ+10*
>> IEN	4010+3*, 4010+5, 4010+12, 4010+47
IMPDA	4010+71, 4010+81, 4010+86, 4010+94, 4010+113, REDO+12, REDO+16, REDO+17, REDO+24, PLB+7 , PLB+9, PLB+13, PLB+15, PLB+16, PLB+25, PLB+28, PLB+32, REVIEW+8, POST+8, POST+34 , POSTA+12, VIEW+8, REPORT+10, SELFL+14, SELFL+20!, BTCHCHK+15, CLNUP+1, CLNUP+2!
IO	READ+11
>> LOADDT	4010+4, 4010+5, 4010+6
>> NOBTCH	POST+12, POST+13, POST+23, POST+26, SELFL+1, SELFL+25, BTCHCHK+18
>> NRECS	REDO+2, REDO+3, REDO+6, REDO+7
>> POP	INSTALL+23*, INSTALL+37, 4010+51, READ+5
>> QFLG	PLB+29, PLB+30
RPTLOOK	VIEW+4~, REPORT+4~, NFOUND+4~*, SELFL+19
SEQ	4010+81*, 4010+82, CLNUP+2!
>> SP	BTCHDISP+1*
>> SUCC	REDO+1, REDO+3, REDO+4
TNAME	4010+82*, 4010+83, REDO+9, CLNUP+2!
TRDA	TSEL+7, INSTALL+34, REDO+12, REDO+16, REDO+24, PLB+28, POSTA+12, VIEW+8, SELFL+15*, SELFL+21 , BTCHDISP+4, CLNUP+2!
>> TRNAME	TSEL+8, INSTALL+33, INSTALL+34, INSTALL+35, INSTALL+38, 4010+36, PLB+5, REVIEW+6, REVIEW+13, POST+6 , POST+7, VIEW+7, REPORT+8, REPORT+9, REPORT+11, REPORT+12, NFOUND+7, NFOUND+8, SELFL+21*, SELFL+22
U	TSEL+8, INSTALL+10, PLB+9, PLB+16, PLB+25, REVIEW+8, REVIEW+18, SELFL+14, SELFL+15, SELFL+16 , SELFL+18, SELFL+23, SELFL+24, VIEWLIST+2, VIEWLIST+3
X	INSTALL+17, 4010+61, 4010+62, 4010+64, 4010+68, 4010+77, 4010+78, 4010+100, 4010+101, FORMAT+5~ , REVIEW+16!, POST+24, POSTA+11, NEWFILE+1~, NEWFILE+2, NEWFILE+3, NEWFILE+4*, NEWFILE+7, CLNUP+2!
X1	INSTALL+2, NEWFILE+1~, NEWFILE+7*
X2	NEWFILE+1~, NEWFILE+7*
XBDIR	INSTALL+17*, INSTALL+23, INSTALL+25, INSTALL+36, 4010+36, 4010+50, 4010+54, CLNUP+2!
>> XBFN	INSTALL+19, REDO+4, REDO+8
XBGUI	4010+34!
XBY	4010+34!
Y	TSEL+7, TSEL+8, 4010+21, 4010+31, 4010+44, 4010+71, 4010+73, 4010+80, PLB+3, PLB+23 , REVIEW+5, REVIEW+16!, POST+5, VIEW+6, REPORT+7, NFOUND+6, SELFL+12, SELFL+13, SELFL+14, SELFL+19 , SELFL+20*, NEWFILE~, NEWFILE+2, NEWFILE+7, CLNUP+2!, VIEWLIST+2, VIEWLIST+3, VIEWLIST+6
Y(0	SELFL+15, SELFL+16, SELFL+18, SELFL+23, SELFL+24

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDP00

Information

Source Information

Call Graph

Call Graph Total: 34

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: