Routine: BARRTBSL

Information

BARRTBSL ; IHS/SD/TPF - TREASURY DEPOSIT/BATCH STATISTICAL LISTING RPT ;08/20/2008

Source Information

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
IHS Accounts Receivable	1	(DATACHEK,ITEMHDR,PRINT,PRINTNI,TOPHDR)^BARRTBS1
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR RPT TDN/BATCH STAT REP BAR RPT TDN/BATCH STAT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;EP- SORT FO TBSL REPORT
ASKBFROM	;EP - ASK FROM BATCH DATE
ASKALLOW(ALLOW)	;EP - ASK LIST OF ALLOWANCES TO PULL
ASKSORT	;EP - ASK USER TO SORT BY
QUE	; EP - QUE THE BARRTBSL REPORT
PRINT
ASKBTO	;EP - ASK TO BATCH DATE
SORTQ	;EP - ENTRY FROM TASK MAN
TOPHDR	;EP - TOP HEADER
ASKTYPE	;EP - ASK WHETHER WANT BATCH OR TRANXN RANGE
ITEMHDR	;EP - ITEM HEADER
DATACHEK
ASKTTO	;EP - ASK TO TRANSACTION DATE
ASKTFROM	;EP - ASK FROM TRANSACTION DATE
TRANSORT	;
ASKDEV	;EP - ASK DEVICE

External References

Name	Field # of Occurrence
^%DT	ASKTFROM+6, ASKTTO+5, ASKBFROM+6, ASKBTO+5
^%ZIS	ASKDEV+3
HOME^%ZIS	ASKDEV+28, QUE+9
^%ZISC	ASKDEV+27
^%ZTLOAD	QUE+6
DATACHEK^BARRTBS1	DATACHEK
ITEMHDR^BARRTBS1	ITEMHDR+3
PRINT^BARRTBS1	PRINT
PRINTNI^BARRTBS1	ASKDEV+25
TOPHDR^BARRTBS1	TOPHDR+1
$$GET1^DIQ	TRANSORT+10, TRANSORT+17, TRANSORT+18, TRANSORT+19, TRANSORT+24, TRANSORT+27, TRANSORT+30, TRANSORT+36, TRANSORT+38, TRANSORT+40 , TRANSORT+41, TRANSORT+42, TRANSORT+43, TRANSORT+44, TRANSORT+45, TRANSORT+46, SORT+11, SORT+12, SORT+13, SORT+14 , SORT+19, SORT+22, SORT+25, SORT+31, SORT+33, SORT+35, SORT+36, SORT+37, SORT+38, SORT+39 , SORT+40, SORT+41
^DIR	ASKTYPE+6, ASKSORT+18, ASKDEV+22, ASKALLOW+14
^XBFMK	ASKTYPE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASKTYPE+2
Function Call: WRITE	Prompt: !! Line Location: ASKTYPE+7
Function Call: WRITE	Prompt: ! Line Location: ASKTFROM+5
Function Call: WRITE	Prompt: !,"INVALID DATE. TRY AGAIN!" Line Location: ASKTFROM+8
Function Call: WRITE	Prompt: ! Line Location: ASKTTO+4
Function Call: WRITE	Prompt: !,"INVALID DATE. TRY AGAIN!" Line Location: ASKTTO+7
Function Call: WRITE	Prompt: !!,"END DATE MUST BE GREATER THAN BEGINING DATE" Line Location: ASKTTO+9
Function Call: WRITE	Prompt: ! Line Location: ASKBFROM+5
Function Call: WRITE	Prompt: !,"INVALID DATE. TRY AGAIN!" Line Location: ASKBFROM+8
Function Call: WRITE	Prompt: ! Line Location: ASKBTO+4
Function Call: WRITE	Prompt: !,"INVALID DATE. TRY AGAIN!" Line Location: ASKBTO+7
Function Call: WRITE	Prompt: !!,"END DATE MUST BE GREATER THAN BEGINING DATE" Line Location: ASKBTO+9
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+2
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+7
Function Call: WRITE	Prompt: !!?5,"Report task #: ",$G(ZTSK) Line Location: QUE+8
Function Call: WRITE	Prompt: !!,"You have chosen the following:" Line Location: ASKALLOW+10
Routine Call	%ZIS Line Location: ASKDEV+28 QUE+9
Routine Call	DIR Line Location: ASKTYPE+6 ASKSORT+18 ASKDEV+22 ASKALLOW+14
Routine Call	%ZIS Line Location: ASKDEV+3

FileNo	Call Tags
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BARCOL(2906 - [#90051.01]	GET1^DIQ
^BAR(90051.02,6613,0) - [#90051.02]	GET1^DIQ
90051.1101	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARCOL(	TRANSORT+13, TRANSORT+34, SORT+6, SORT+8, SORT+29
^BARTR(	TRANSORT+9
^DD(90051.02	ASKALLOW+3
^XTMP("BARRTBSL"	ASKDEV+18, SORTQ+2, TRANSORT+4!, TRANSORT+55, TRANSORT+57, SORT+3!, SORT+50, SORT+52

Label References

Name	Line Occurrences
ASKALLOW	ASKSORT+23
ASKBFROM	ASKTYPE+12, ASKBFROM+8, ASKBTO+9
ASKBTO	ASKBTO+7
ASKSORT	ASKTYPE+16
ASKTFROM	ASKTYPE+13, ASKTFROM+8, ASKTTO+9
ASKTTO	ASKTTO+7
ASKTYPE	ASKSORT+19, ASKDEV+7, ASKDEV+8, ASKDEV+18, ASKDEV+31
PRINT	ASKDEV+24, SORTQ+5
QUE	ASKDEV+8
SORT	ASKDEV+12, SORTQ+1
TOPHDR	SORTQ+3
TRANSORT	ASKDEV+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ASKTFROM+2!, ASKTFROM+3, ASKTTO+1!, ASKTTO+2, ASKBFROM+2!, ASKBFROM+3, ASKBTO+1!, ASKBTO+2
%DT("A"	ASKTFROM+4, ASKTTO+3, ASKBFROM+4, ASKBTO+3
>> %ZIS	ASKDEV+1*
>> A	ASKALLOW+11, ASKALLOW+12, ASKALLOW+13
ALLOW	ASKTFROM+1~, ASKBFROM+1~, ASKSORT+23, ASKALLOW~, ASKALLOW+18!, ASKALLOW+19, TRANSORT+26, SORT+21
ALLOW(	ASKALLOW+12, ASKALLOW+17*, TRANSORT+26, SORT+21
ALLOW(""	ASKALLOW+10
ALLOWCAT	TRANSORT+2~, TRANSORT+19, TRANSORT+20, TRANSORT+26, TRANSORT+50, TRANSORT+51, SORT+1~, SORT+14, SORT+15, SORT+21 , SORT+45, SORT+46
BARCOLDA	TRANSORT+2~, TRANSORT+12, TRANSORT+13, TRANSORT+14, TRANSORT+34, TRANSORT+35, SORT+1~, SORT+7, SORT+8, SORT+9 , SORT+29, SORT+30
>> BARFROM	ASKTFROM+9, ASKTTO+9, ASKBFROM+9, ASKBTO+9, TRANSORT+5, SORT+4
BARITMDA	TRANSORT+2~, TRANSORT+33, TRANSORT+34, TRANSORT+35, TRANSORT+55, TRANSORT+57, SORT+1~, SORT+28, SORT+29, SORT+30 , SORT+50, SORT+52
BARSORT	ASKSORT+21~, ASKSORT+22*, ASKDEV+24, ASKDEV+25, TRANSORT+50, TRANSORT+54, TRANSORT+56, SORT+45, SORT+49, SORT+51
>> BARSTAT	TRANSORT+36, TRANSORT+37, SORT+31, SORT+32
>> BARTO	ASKTTO+8, ASKTTO+9, ASKBTO+8, ASKBTO+9, TRANSORT+6, SORT+5
BATCHNM	TRANSORT+2~, TRANSORT+7, TRANSORT+10, TRANSORT+11, TRANSORT+13, TRANSORT+55, TRANSORT+57, SORT+1~, SORT+11*, SORT+50 , SORT+52
>> BATCHTDN	TRANSORT+27, TRANSORT+28, TRANSORT+50, TRANSORT+51, TRANSORT+55, TRANSORT+57, SORT+22, SORT+23, SORT+45, SORT+46 , SORT+50, SORT+52
>> BATDNDT	TRANSORT+30, TRANSORT+31, TRANSORT+55, TRANSORT+57, SORT+25, SORT+26, SORT+50, SORT+52
BATSTAT	TRANSORT+3~, TRANSORT+24, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+19, SORT+50, SORT+52
COLIENS	TRANSORT+2~, TRANSORT+14, TRANSORT+17, TRANSORT+18, TRANSORT+24, TRANSORT+27, TRANSORT+30, SORT+1~, SORT+9, SORT+11 , SORT+12, SORT+13, SORT+19, SORT+22, SORT+25
COLLIDDA	TRANSORT+2~, TRANSORT+17, TRANSORT+19, SORT+1~, SORT+12, SORT+14
>> COLLIDNA	TRANSORT+18, TRANSORT+55, TRANSORT+57, SORT+13, SORT+50, SORT+52
COLLIDNM	TRANSORT+2~, SORT+1~
DATETIME	TRANSORT+2~, TRANSORT+5, TRANSORT+9, TRANSORT+10, SORT+1~, SORT+4, SORT+6, SORT+8
DATETYPE	ASKTYPE+10~, ASKTYPE+11*, ASKDEV+12, ASKDEV+13
DIR	ASKTYPE+3!, ASKSORT+1!, ASKDEV+20!, ASKALLOW+4!
DIR("A"	ASKTYPE+5, ASKSORT+6, ASKALLOW+6*
DIR("B"	ASKSORT+17, ASKALLOW+7, ASKALLOW+15!
DIR("L"	ASKSORT+7, ASKSORT+8, ASKSORT+9, ASKSORT+10, ASKSORT+12, ASKSORT+13, ASKSORT+14, ASKSORT+15, ASKSORT+16*
DIR(0	ASKTYPE+4, ASKSORT+5, ASKDEV+21, ASKALLOW+5
>> DIROUT	ASKTYPE+8, ASKTYPE+14, ASKSORT+19, ASKALLOW+16
>> DIRUT	ASKTYPE+8, ASKTYPE+14
DONE	ASKALLOW+1~, ASKALLOW+8, ASKALLOW+9, ASKALLOW+16, ASKALLOW+18*
>> DTOUT	ASKTYPE+8, ASKTYPE+14, ASKSORT+19, ASKALLOW+16
>> DUOUT	ASKTYPE+8, ASKTYPE+14, ASKSORT+19, ASKALLOW+16
DUZ(2	TRANSORT+9, TRANSORT+13, TRANSORT+34, SORT+6, SORT+8, SORT+29
END	TRANSORT+3~, TRANSORT+6, TRANSORT+9, SORT+2~, SORT+5, SORT+6
IO	ASKDEV+9
IO("Q"	ASKDEV+8
ITEMIENS	TRANSORT+3~, TRANSORT+35, TRANSORT+36, TRANSORT+38, TRANSORT+40, TRANSORT+41, TRANSORT+42, TRANSORT+43, TRANSORT+44, TRANSORT+45 , TRANSORT+46, SORT+2~, SORT+30, SORT+31, SORT+33, SORT+35, SORT+36, SORT+37, SORT+38, SORT+39 , SORT+40, SORT+41
ITEMTOT	TRANSORT+3~, TRANSORT+40, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+35, SORT+50, SORT+52
ITMPSBAL	TRANSORT+3~, TRANSORT+46, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+41, SORT+50, SORT+52
ITMPSTOT	TRANSORT+3~, TRANSORT+41, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+36, SORT+50, SORT+52
ITMREFUN	TRANSORT+3~, TRANSORT+44, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+39, SORT+50, SORT+52
ITMTDN	TRANSORT+3~, TRANSORT+38, TRANSORT+39, TRANSORT+51, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+33, SORT+34, SORT+46 , SORT+50, SORT+52
>> ITMTOTTR	TRANSORT+45, TRANSORT+55, TRANSORT+57, SORT+40, SORT+50, SORT+52
ITMUNALL	TRANSORT+3~, SORT+2~
>> ITMUNTOT	TRANSORT+43, TRANSORT+55, TRANSORT+57, SORT+38, SORT+50, SORT+52
>> ITMUNTRU	TRANSORT+42, TRANSORT+55, TRANSORT+57, SORT+37, SORT+50, SORT+52
LIST	ASKALLOW+1~, ASKALLOW+3*, ASKALLOW+5
NOW	TRANSORT+2~, SORT+1~
>> POP	ASKDEV+7
SORTSUB	TRANSORT+3~, TRANSORT+50, TRANSORT+51, TRANSORT+55, TRANSORT+57, SORT+2~, SORT+45, SORT+46, SORT+50, SORT+52
SORTSUB2	TRANSORT+2~, TRANSORT+50, TRANSORT+51, TRANSORT+57, SORT+1~, SORT+45, SORT+46, SORT+52
SORTTYP	ASKTFROM+1~, ASKBFROM+1~, TRANSORT+50, TRANSORT+51, SORT+45, SORT+46
U	ASKTYPE+9, ASKTYPE+15, ASKTFROM+7, ASKTTO+6, ASKBFROM+7, ASKBTO+6, ASKALLOW+3, TRANSORT+55, TRANSORT+57, SORT+50 , SORT+52
>> X	ASKTYPE+9, ASKTYPE+15, ASKTFROM+7, ASKTTO+6, ASKBFROM+7, ASKBTO+6, ASKSORT+22, ASKSORT+23
>> Y	ASKTYPE+11, ASKTYPE+12, ASKTYPE+13, ASKTFROM+8, ASKTFROM+9, ASKTTO+7, ASKTTO+8, ASKBFROM+8, ASKBFROM+9, ASKBTO+7 , ASKBTO+8, ASKSORT+19, ASKALLOW+15, ASKALLOW+16, ASKALLOW+17, ASKALLOW+18
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("ALLOW"	QUE+5*
>> ZTSAVE("BARFROM"	QUE+4*
>> ZTSAVE("BARTO"	QUE+3*
>> ZTSK	QUE+7, QUE+8

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRTBSL

Information

Source Information

Call Graph

Call Graph Total: 8

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: