Routine: BEXRDOW

Package	Total	Call Graph
VA Fileman	5	^%DT DOW^%DTC ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBDBQUE EN^XBVK
IHS Pharmacy Auto Refill System	1	PARSE^BEXRUTL

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;EP - End of Job Processing
TOTAL	;EP - Add up totals
LIST	;EP - Entry Point from XBDBQUE
BEGDATE	;EP - Come here if end date is before begin date
HEADER	;EP - Write the Header

External References

Name	Field # of Occurrence
^%DT	BEGDATE+8, BEGDATE+18
DOW^%DTC	TOTAL+7
PARSE^BEXRUTL	LIST+29
^DIC	BEXRDOW+24
$$GET1^DIQ	HEADER+6
^DIR	EOJ+4
^XBDBQUE	BEGDATE+30
EN^XBVK	EOJ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: BEXRDOW+5
Function Call: WRITE	Prompt: !,"Transactions by Day of Week" Line Location: BEXRDOW+7
Function Call: WRITE	Prompt: ! Line Location: BEXRDOW+8
Function Call: WRITE	Prompt: !,"This option prints a list of Transactions that were processed within" Line Location: BEXRDOW+9
Function Call: WRITE	Prompt: !,"a selected date/time range." Line Location: BEXRDOW+10
Function Call: WRITE	Prompt: ! Line Location: BEXRDOW+11
Function Call: WRITE	Prompt: !,"Press Enter to select ALL Pharmacy Divisions, or" Line Location: BEXRDOW+18
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+3
Function Call: WRITE	Prompt: !!,"No Beginning Date selected" Line Location: BEGDATE+10
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+13
Function Call: WRITE	Prompt: !!,"No Ending Date selected" Line Location: BEGDATE+20
Function Call: WRITE	Prompt: !!,"Beginning Date is later than the Ending Date. Try Again!",! Line Location: BEGDATE+24
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+26
Function Call: WRITE	Prompt: ! Line Location: EOJ+4
Function Call: WRITE	Prompt: # Line Location: LIST+4
Function Call: WRITE	Prompt: ! Line Location: LIST+39
Function Call: WRITE	Prompt: "------------------------------------------------------------------------------" Line Location: LIST+40
Function Call: WRITE	Prompt: ! Line Location: LIST+41
Function Call: WRITE	Prompt: "TOTALS by Day of Week" Line Location: LIST+42
Function Call: WRITE	Prompt: ! Line Location: LIST+43
Function Call: WRITE	Prompt: "------------------------------------------------------------------------------" Line Location: LIST+44
Function Call: WRITE	Prompt: ! Line Location: LIST+45
Function Call: WRITE	Prompt: "SUN" Line Location: LIST+49
Function Call: WRITE	Prompt: "MON" Line Location: LIST+50
Function Call: WRITE	Prompt: "TUE" Line Location: LIST+51
Function Call: WRITE	Prompt: "WED" Line Location: LIST+52
Function Call: WRITE	Prompt: "THU" Line Location: LIST+53
Function Call: WRITE	Prompt: "FRI" Line Location: LIST+54
Function Call: WRITE	Prompt: "SAT" Line Location: LIST+55
Function Call: WRITE	Prompt: "TOTAL" Line Location: LIST+69
Function Call: WRITE	Prompt: ?14,$J($P(BEXSUM,U),7) Line Location: LIST+70
Function Call: WRITE	Prompt: ?29,$J($P(BEXSUM,U,2),7) Line Location: LIST+71
Function Call: WRITE	Prompt: ?43,$J($P(BEXSUM,U,3),7) Line Location: LIST+72
Function Call: WRITE	Prompt: ?58,$J($P(BEXSUM,U,5),7) Line Location: LIST+74
Function Call: WRITE	Prompt: ! Line Location: LIST+75
Function Call: WRITE	Prompt: !,"TOTAL Transactions:",?25,$J(BEXTOT,8) Line Location: LIST+77
Function Call: WRITE	Prompt: ! Line Location: LIST+78
Function Call: WRITE	Prompt: # Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"REPORT: Transactions by Day of Week Report" Line Location: HEADER+4
Function Call: WRITE	Prompt: " for " Line Location: HEADER+5
Function Call: WRITE	Prompt: $$GET1^DIQ(59,BEXSITE,.01) Line Location: HEADER+6
Function Call: WRITE	Prompt: "all Divisions" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"DATE RUN: " Line Location: HEADER+8
Function Call: WRITE	Prompt: Y Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"PARAMETERS: " Line Location: HEADER+9
Function Call: WRITE	Prompt: "Between " Line Location: HEADER+11
Function Call: WRITE	Prompt: $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: HEADER+13
Function Call: WRITE	Prompt: "@" Line Location: HEADER+15
Function Call: WRITE	Prompt: $E($P(Y,"@",2),1,5) Line Location: HEADER+16
Function Call: WRITE	Prompt: "00:00" Line Location: HEADER+17
Function Call: WRITE	Prompt: " and " Line Location: HEADER+19
Function Call: WRITE	Prompt: $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: HEADER+21
Function Call: WRITE	Prompt: "@" Line Location: HEADER+23
Function Call: WRITE	Prompt: $E($P(Y,"@",2),1,5) Line Location: HEADER+24
Function Call: WRITE	Prompt: "00:00" Line Location: HEADER+25
Function Call: WRITE	Prompt: ! Line Location: HEADER+27
Function Call: WRITE	Prompt: "------------------------------------------------------------------------------" Line Location: HEADER+28
Function Call: WRITE	Prompt: ! Line Location: HEADER+29
Routine Call	DIC Line Location: BEXRDOW+24
Routine Call	DIR Line Location: EOJ+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	EOJ+3
^DD("DD"	HEADER+8, HEADER+14, HEADER+22
^PS(59 - [#59]	BEXRDOW+30
^VEXHRX0(19080.1 - [#90350.1]	LIST+15, LIST+16, LIST+24, LIST+26

Label References

Name	Line Occurrences
BEGDATE	BEGDATE+24
EOJ	BEGDATE+10, BEGDATE+20
HEADER	LIST+5
TOTAL	LIST+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEGDATE+5!, BEGDATE+7, BEGDATE+9!, BEGDATE+15!, BEGDATE+17, BEGDATE+19!
%DT("A"	BEGDATE+6, BEGDATE+16
BEX	EOJ+5!
BEX(0	LIST+26*, LIST+27
>> BEXBEG	BEGDATE+11*, BEGDATE+24, LIST+15, LIST+21, HEADER+12
>> BEXDAT	TOTAL+6
>> BEXDATE	LIST+15, LIST+16, LIST+18, LIST+21, LIST+24
BEXDIV	BEXRDOW+13!, BEXRDOW+14, BEXRDOW+29, LIST+32, LIST+33
BEXDIV(	BEXRDOW+31*, LIST+33
>> BEXDOW	LIST+47, LIST+48, LIST+49, LIST+50, LIST+51, LIST+52, LIST+53, LIST+54, LIST+55, LIST+57 , LIST+59, LIST+61, LIST+66, TOTAL+10*, TOTAL+11, TOTAL+14, TOTAL+18, TOTAL+22, TOTAL+26, TOTAL+30
>> BEXDVIEN	LIST+32, LIST+33
>> BEXEND	BEGDATE+21, BEGDATE+22, BEGDATE+24, LIST+18, HEADER+20
>> BEXEXIT	LIST+13*
>> BEXIEN	LIST+23, LIST+24, LIST+26
>> BEXQUIT	BEXRDOW+16, BEXRDOW+19, BEXRDOW+26, BEXRDOW+27, LIST+12, LIST+16, LIST+18, LIST+21, LIST+24
>> BEXSITE	BEXRDOW+15, BEXRDOW+28, BEXRDOW+30, HEADER+6, HEADER+7
BEXSUM	LIST+9!, LIST+10, LIST+70, LIST+71, LIST+72, LIST+74, TOTAL+15, TOTAL+19, TOTAL+23, TOTAL+27* , TOTAL+31*
BEXTOT	LIST+7!, LIST+8, LIST+77, TOTAL+3
BEXTOT(	LIST+48, LIST+57, LIST+59, LIST+61, LIST+66, TOTAL+11, TOTAL+14, TOTAL+18, TOTAL+22, TOTAL+26* , TOTAL+30*
>> BEXTYPE	TOTAL+14, TOTAL+15, TOTAL+18, TOTAL+19, TOTAL+22, TOTAL+23, TOTAL+26, TOTAL+27
DA	BEXRDOW+20!, BEXRDOW+25!, EOJ+7!
DD	BEXRDOW+20!, BEXRDOW+25!, EOJ+7!
DIC	BEXRDOW+20!, BEXRDOW+23*, BEXRDOW+25!, EOJ+7!
DIC("A"	BEXRDOW+22*
DIC(0	BEXRDOW+21*
DIE	BEXRDOW+20!, BEXRDOW+25!, EOJ+7!
DIR	BEXRDOW+20!, BEXRDOW+25!, EOJ+4!, EOJ+7!
DIR(0	EOJ+4*
DIRUT	BEGDATE+4!, BEGDATE+10, BEGDATE+14!, BEGDATE+20
DO	BEXRDOW+20!, BEXRDOW+25!
DR	BEXRDOW+20!, BEXRDOW+25!, EOJ+7!
DT	HEADER+8
IOST	EOJ+4
U	BEXRDOW+30, LIST+57, LIST+59, LIST+61, LIST+66, LIST+70, LIST+71, LIST+72, LIST+74, TOTAL+14 , TOTAL+15, TOTAL+18, TOTAL+19, TOTAL+22, TOTAL+23, TOTAL+26, TOTAL+27, TOTAL+30, TOTAL+31
>> X	BEXRDOW+26, TOTAL+6*
>> XBNS	BEGDATE+29*
>> XBRP	BEGDATE+27*
>> XBRX	BEGDATE+28*
>> Y	BEXRDOW+27, BEXRDOW+28, BEXRDOW+30, BEXRDOW+31, BEGDATE+10, BEGDATE+11, BEGDATE+20, BEGDATE+21, HEADER+8, HEADER+12* , HEADER+13, HEADER+16, HEADER+17, HEADER+20*, HEADER+21, HEADER+24, HEADER+25, TOTAL+8, TOTAL+10

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRDOW

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: