Routine: BEXRDAT

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBDBQUE EN^XBVK
IHS Patient	1	$$HRN^AUPNPAT
IHS Pharmacy Auto Refill System	1	PARSE^BEXRUTL

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;EP - End of Job Processing
DETAIL	;EP - Write Detail for each Record and 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
$$HRN^AUPNPAT	DETAIL+49, DETAIL+50
PARSE^BEXRUTL	LIST+29
^DIC	BEXRDAT+24
$$GET1^DIQ	HEADER+6, DETAIL+76
^DIR	BEXRDAT+39, EOJ+4, LIST+67, LIST+113, DETAIL+81
^XBDBQUE	BEGDATE+30
EN^XBVK	EOJ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: BEXRDAT+5
Function Call: WRITE	Prompt: !,"Transactions by Date Report" Line Location: BEXRDAT+7
Function Call: WRITE	Prompt: ! Line Location: BEXRDAT+8
Function Call: WRITE	Prompt: !,"This option prints a list of Transactions that were processed within" Line Location: BEXRDAT+9
Function Call: WRITE	Prompt: !,"a selected date/time range." Line Location: BEXRDAT+10
Function Call: WRITE	Prompt: ! Line Location: BEXRDAT+11
Function Call: WRITE	Prompt: !,"Press Enter to select ALL Pharmacy Divisions, or" Line Location: BEXRDAT+18
Function Call: WRITE	Prompt: ! Line Location: BEXRDAT+33
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: !,"TOTAL Transactions:",?25,$J(BEXTOT,8) Line Location: LIST+132
Function Call: WRITE	Prompt: ! Line Location: LIST+133
Function Call: WRITE	Prompt: # Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"REPORT: Transactions by Date 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
Function Call: WRITE	Prompt: "Date of TX" Line Location: HEADER+34
Function Call: WRITE	Prompt: ?15,"HRNO" Line Location: HEADER+35
Function Call: WRITE	Prompt: ?23,"RX #" Line Location: HEADER+36
Function Call: WRITE	Prompt: ?33,"Date Filled" Line Location: HEADER+37
Function Call: WRITE	Prompt: ?47,"Type" Line Location: HEADER+38
Function Call: WRITE	Prompt: ?57,"Result/[Status]" Line Location: HEADER+39
Function Call: WRITE	Prompt: ! Line Location: HEADER+40
Function Call: WRITE	Prompt: "-------------------------------------------------------------------------------" Line Location: HEADER+41
Function Call: WRITE	Prompt: ! Line Location: HEADER+42
Function Call: WRITE	Prompt: $E($P(Y,"@",2),1,5) Line Location: DETAIL+45
Function Call: WRITE	Prompt: "00:00" Line Location: DETAIL+46
Function Call: WRITE	Prompt: ?13,$J(Y,6) Line Location: DETAIL+51
Function Call: WRITE	Prompt: ?22,$J(+BEXRXNUM,8) Line Location: DETAIL+55
Function Call: WRITE	Prompt: Y Line Location: DETAIL+56
Function Call: WRITE	Prompt: ?33,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: DETAIL+60
Function Call: WRITE	Prompt: " (M)" Line Location: DETAIL+63
Function Call: WRITE	Prompt: " (W)" Line Location: DETAIL+64
Function Call: WRITE	Prompt: ?47,Y Line Location: DETAIL+72
Function Call: WRITE	Prompt: ?57,$E(BEXRESLT,1,22) Line Location: DETAIL+75
Function Call: WRITE	Prompt: ?57,"[",$E(Y,1,20),"]" Line Location: DETAIL+76
Function Call: WRITE	Prompt: ! Line Location: DETAIL+78
Routine Call	DIC Line Location: BEXRDAT+24
Routine Call	DIR Line Location: BEXRDAT+39 EOJ+4 LIST+67 LIST+113 DETAIL+81

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^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, DETAIL+43
^PS(59 - [#59]	BEXRDAT+30
^VEXHRX0(19080.1 - [#90350.1]	LIST+15, LIST+16, LIST+24, LIST+26

Label References

Name	Line Occurrences
BEGDATE	BEGDATE+24
DETAIL	LIST+35
EOJ	BEGDATE+10, BEGDATE+20
HEADER	LIST+5, LIST+70, LIST+116, DETAIL+83

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	LIST+50, LIST+51, LIST+52, LIST+55, LIST+57, LIST+59, LIST+63, LIST+100, LIST+101, LIST+102 , LIST+105, LIST+107, LIST+109, DETAIL+6, DETAIL+11, DETAIL+15, DETAIL+19, DETAIL+23, DETAIL+27, DETAIL+31 , DETAIL+32
>> BEXDATE	LIST+15, LIST+16, LIST+18, LIST+21, LIST+24
BEXDIV	BEXRDAT+13!, BEXRDAT+14, BEXRDAT+29, LIST+32, LIST+33
BEXDIV(	BEXRDAT+31*, LIST+33
>> BEXDVIEN	LIST+32, LIST+33, DETAIL+49, DETAIL+50
>> BEXEND	BEGDATE+21, BEGDATE+22, BEGDATE+24, LIST+18, HEADER+20
>> BEXEXIT	EOJ+4, LIST+13, LIST+16, LIST+24, LIST+39, LIST+51, LIST+67, LIST+68, LIST+88, LIST+101 , LIST+113, LIST+114, DETAIL+82
>> BEXIEN	LIST+23, LIST+24, LIST+26
>> BEXMLWIN	DETAIL+31, DETAIL+32, DETAIL+63, DETAIL+64
>> BEXPTIEN	DETAIL+49, DETAIL+50
>> BEXQUIT	BEXRDAT+16, BEXRDAT+19, BEXRDAT+26, BEXRDAT+27, LIST+12, LIST+16, LIST+18, LIST+21, LIST+24
>> BEXRDDAT	DETAIL+63
>> BEXRESLT	DETAIL+75, DETAIL+76
>> BEXRFDAT	DETAIL+31, DETAIL+32, DETAIL+59, DETAIL+64
>> BEXRTYPE	BEXRDAT+41, BEXRDAT+42, LIST+69, LIST+115, HEADER+32, DETAIL+35
>> BEXRXIEN	DETAIL+76
>> BEXRXNUM	DETAIL+55, DETAIL+56
>> BEXSITE	BEXRDAT+15, BEXRDAT+28, BEXRDAT+30, HEADER+6, HEADER+7
BEXSUM	LIST+9!, LIST+10, LIST+81, LIST+82, LIST+83, LIST+85, LIST+125, LIST+127, LIST+128, LIST+129 , DETAIL+12, DETAIL+16, DETAIL+20, DETAIL+24, DETAIL+28, DETAIL+31, DETAIL+32
BEXTOT	LIST+7!, LIST+8, LIST+41, LIST+79, LIST+90, LIST+132, DETAIL+3
BEXTOT(	LIST+51, LIST+55, LIST+57, LIST+59, LIST+63, LIST+101, LIST+105, LIST+107, LIST+109, DETAIL+6* , DETAIL+11, DETAIL+15, DETAIL+19, DETAIL+23, DETAIL+27, DETAIL+31, DETAIL+32*
>> BEXTXDAT	DETAIL+40
>> BEXTYPE	DETAIL+11, DETAIL+12, DETAIL+15, DETAIL+16, DETAIL+19, DETAIL+20, DETAIL+23, DETAIL+24, DETAIL+68, DETAIL+69 , DETAIL+70, DETAIL+71, DETAIL+76
DA	BEXRDAT+20!, BEXRDAT+25!, EOJ+7!
DD	BEXRDAT+20!, BEXRDAT+25!, EOJ+7!
DIC	BEXRDAT+20!, BEXRDAT+23*, BEXRDAT+25!, EOJ+7!
DIC("A"	BEXRDAT+22*
DIC(0	BEXRDAT+21*
DIE	BEXRDAT+20!, BEXRDAT+25!, EOJ+7!
DIR	BEXRDAT+20!, BEXRDAT+25!, BEXRDAT+34!, BEXRDAT+40!, EOJ+4!, EOJ+7!, LIST+67!, LIST+113!, DETAIL+81!
DIR("?"	BEXRDAT+38*
DIR("A"	BEXRDAT+36*
DIR("B"	BEXRDAT+35*
DIR(0	BEXRDAT+37, EOJ+4, LIST+67, LIST+113, DETAIL+81*
DIRUT	BEGDATE+4!, BEGDATE+10, BEGDATE+14!, BEGDATE+20
DO	BEXRDAT+20!, BEXRDAT+25!
DR	BEXRDAT+20!, BEXRDAT+25!, EOJ+7!
DT	HEADER+8
DUZ(2	DETAIL+50
IOSL	LIST+66, LIST+112, DETAIL+80
IOST	EOJ+4, LIST+67, LIST+113, DETAIL+81
U	BEXRDAT+30, LIST+55, LIST+57, LIST+59, LIST+63, LIST+81, LIST+82, LIST+83, LIST+85, LIST+105 , LIST+107, LIST+109, LIST+125, LIST+127, LIST+128, LIST+129, DETAIL+11, DETAIL+12, DETAIL+15, DETAIL+16 , DETAIL+19, DETAIL+20, DETAIL+23, DETAIL+24, DETAIL+27, DETAIL+28, DETAIL+31, DETAIL+32
>> X	BEXRDAT+26, LIST+52, LIST+53, LIST+67, LIST+102, LIST+103, LIST+113, DETAIL+82
>> XBNS	BEGDATE+29*
>> XBRP	BEGDATE+27*
>> XBRX	BEGDATE+28*
>> Y	BEXRDAT+27, BEXRDAT+28, BEXRDAT+30, BEXRDAT+31, BEXRDAT+41, BEXRDAT+42, 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, DETAIL+40* , DETAIL+41, DETAIL+42, DETAIL+45, DETAIL+46, DETAIL+49, DETAIL+50, DETAIL+51, DETAIL+56, DETAIL+59, DETAIL+60 , DETAIL+67, DETAIL+68, DETAIL+69, DETAIL+70, DETAIL+71, DETAIL+72, DETAIL+76

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRDAT

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: