Routine: BAR50P01

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN $$GET1^DIQ
IHS Accounts Receivable	1	$$STRIP^BAR50IUT
IHS VA Utilities	1	($$DIC,ENPM)^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR50P00

Entry Points

Name	Comments	DBIA/ICR reference
SEP(TRDA,IMPDA)	; ; FIND SEPERATORS
IDENT	; logic to locate segment from ID
LAST	;store last
PARSE(TRDA,IMPDA)	; ; parse image in ^TMP($J,"I", into segments "S" ; Separators S-Segment, E-Element, SE-Sub Element
EN(TRDA,IMPDA)
ADD	;add image lines to X till it has a seperator
FILE1	;
CLEAR(IMPDA)	; kill nodes 15 & 20 for a rerun
STORE	; ; store segment & store more if X has several segments in it
FILE(TRDA,IMPDA)

External References

Name	Field # of Occurrence
$$STRIP^BAR50IUT	LAST+1
^DIC	FILE1+11
FILE^DICN	FILE1+25
$$GET1^DIQ	SEP+4
$$DIC^XBDIQ1	FILE+21, FILE1+7, FILE1+17
ENPM^XBDIQ1	FILE+13, FILE+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",COUNT Line Location: EN+4
Function Call: WRITE	Prompt: !,"Splitting image into Segments",! Line Location: PARSE+22
Function Call: WRITE	Prompt: !,"Identifying Segments Uniquely",! Line Location: FILE+4
Function Call: WRITE	Prompt: !,"File contains more than one ISA/IEA pair at "_$G(^BAREDI("I",DUZ(2),IMPDA,15,SEGDA))_" . Inform payor and request new file." Line Location: IDENT+24
Routine Call	DIC Line Location: FILE1+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BAREDI("1T" - [#90056.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("I"	PARSE+6, LAST+4!, LAST+5, LAST+6, FILE+34!, FILE+36, IDENT+24, CLEAR+1!, CLEAR+2!
^TMP($J	PARSE+3!, PARSE+6*, FILE+7!

Label References

Name	Line Occurrences
@(	SEP+7
ADD	ADD+6, STORE+10
FILE	EN+3
FILE1	FILE+43
IDENT	FILE+40
LAST	ADD+1, ADD+2
PARSE	EN+2
SEP	PARSE+4
STORE	ADD+5, STORE+9

Naked Globals

Name	Field # of Occurrence
^(	FILE+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PARSE+10*, PARSE+12, PARSE+13, ADD+1, ADD+2, ADD+3
>> B	PARSE+11*, STORE+7, LAST+2, LAST+3, LAST+5
BARLOOP	FILE+24!
BARLOOP("DUP"	FILE+27*, IDENT+6
>> BARTMP	PARSE+5, PARSE+6
>> COUNT	EN+4, PARSE+23, STORE+2, STORE+3, STORE+4, FILE+5, FILE1+3, FILE1+4, FILE1+5
>> CURID	FILE+32, FILE+38, FILE+41, IDENT+1, IDENT+2, IDENT+4, IDENT+5, IDENT+6, IDENT+7, IDENT+10 , IDENT+13, IDENT+19, IDENT+21, IDENT+24, IDENT+25, IDENT+31, IDENT+32, IDENT+33
>> CURSEG	FILE+32, FILE+37, IDENT+8, IDENT+9, IDENT+11, IDENT+12, IDENT+13, IDENT+19, IDENT+20, IDENT+21 , IDENT+24, IDENT+25, IDENT+28, IDENT+32, IDENT+33, FILE1+8
>> CURUSE	FILE+32, FILE+39, IDENT+25, IDENT+29, IDENT+33
DA	FILE1+6!, FILE1+14!
DA(1	FILE1+10, FILE1+15
DD	FILE1+6!, FILE1+14!, FILE1+26!
DIC	FILE+20!, FILE+21, FILE+23, FILE1+6!, FILE1+7, FILE1+14!, FILE1+17*, FILE1+26!
DIC("DR"	FILE1+21, FILE1+22, FILE1+23, FILE1+24
DIC("P"	FILE1+16*
DIC("S"	FILE+22*
DIC(0	FILE1+9, FILE1+19
>> DLAYGO	FILE1+18*
DO	FILE1+6!, FILE1+14!, FILE1+26!
DR	FILE1+6!, FILE1+14!, FILE1+26!
DT	LAST+6
DUZ(2	PARSE+6, LAST+4, LAST+5, LAST+6, FILE+34, FILE+36, IDENT+24, CLEAR+1, CLEAR+2
>> E	IDENT+1, IDENT+8, IDENT+9, IDENT+11, IDENT+12
>> I	PARSE+13, LAST+5, FILE+14, FILE+25, FILE+26*, FILE+27, FILE+28
IMPDA	EN~, EN+2, EN+3, PARSE~, PARSE+4, PARSE+6, LAST+4, LAST+5, LAST+6, SEP~ , FILE~, FILE+36, IDENT+24, FILE1+15, CLEAR~, CLEAR+1, CLEAR+2
>> L	PARSE+14*
>> L1	PARSE+16, ADD+1, ADD+2, ADD+3, ADD+4
>> L2	PARSE+16, STORE+7, STORE+8, LAST+2
>> LC	PARSE+12*, PARSE+13
LOOP	FILE+20!
LOOP(	FILE+27, FILE+28*, IDENT+5, IDENT+13
>> LOOPID1	IDENT+18*, IDENT+21
>> LOOPID2	IDENT+20*, IDENT+21
LOP	FILE+20!, FILE+29!
LOP(	FILE+26, FILE+27, FILE+28
>> LSTID	FILE+32, FILE+38, IDENT+4
>> LSTSEG	FILE+32, FILE+37, IDENT+17, IDENT+18, IDENT+19, IDENT+28, IDENT+32
>> LSTUSE	FILE+32, FILE+39, IDENT+27, IDENT+29
>> ROU	SEP+4, SEP+5, SEP+6, SEP+7
>> S	ADD+5, STORE+5, STORE+6, STORE+9
>> SEGDA	FILE+35, FILE+36, IDENT+24, FILE1+20
SEGI	FILE+12!
SEGI(	FILE+14
>> SEGID(	FILE+14*, IDENT+19, IDENT+21, IDENT+25, IDENT+32, IDENT+33
SEGLNK	FILE1+12~, FILE1+13*
>> SEGX	FILE+36, IDENT+1, IDENT+8, IDENT+9, IDENT+11, IDENT+12, FILE1+2
SESGID	FILE+12!
>> TEMPSEG	IDENT+17*
TRDA	EN~, EN+2, EN+3, PARSE~, PARSE+4, SEP~, SEP+4, FILE~, FILE1+10, FILE1+13
>> TRNAME	IDENT+7, IDENT+10
>> VALMBCK	EN+1*
>> X	PARSE+13, PARSE+14, PARSE+15, ADD+3, ADD+5, STORE+5, STORE+6, STORE+9, LAST+1, LAST+2 , FILE1+8, FILE1+20
>> Y	STORE+5*, STORE+7, FILE1+13
>> Z	LAST+3*, LAST+5, LAST+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P01

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: