Routine: BEXRRPH

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

Name	Comments	DBIA/ICR reference
SUBHEAD	;EP - Write Subheader for each pharmacist
EOJ	;EP - End of Job Processing
LIST	;EP - Entry Point from XBDBQUE
DETAIL	;EP - Write Detail
HEADER	;EP - Write the Header
TOTAL	;EP - Add up totals and build sort array
BEGDATE	;EP - Come here if end date is before begin date

Name	Field # of Occurrence
^%DT	BEGDATE+8, BEGDATE+18
PARSE^BEXRUTL	LIST+30
^DIC	BEXRRPH+24
$$GET1^DIQ	HEADER+6, SUBHEAD+7
^DIR	EOJ+4, DETAIL+17
^XBDBQUE	BEGDATE+30
EN^XBVK	EOJ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: BEXRRPH+5
Function Call: WRITE	Prompt: !,"Refills Processed by RPH Report" Line Location: BEXRRPH+7
Function Call: WRITE	Prompt: ! Line Location: BEXRRPH+8
Function Call: WRITE	Prompt: !,"This option prints a list of Transactions that were processed within" Line Location: BEXRRPH+9
Function Call: WRITE	Prompt: !,"a selected date/time range." Line Location: BEXRRPH+10
Function Call: WRITE	Prompt: ! Line Location: BEXRRPH+11
Function Call: WRITE	Prompt: !,"Press Enter to select ALL Pharmacy Divisions, or" Line Location: BEXRRPH+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: !,?21,"MAIL",?37,"WINDOW",?55,"TOTAL" Line Location: LIST+60
Function Call: WRITE	Prompt: !,"GRAND TOTAL",?18,$J($P(BEXTOT,U),7) Line Location: LIST+61
Function Call: WRITE	Prompt: ?36,$J($P(BEXTOT,U,2),7) Line Location: LIST+62
Function Call: WRITE	Prompt: ?53,$J($P(BEXTOT,U,3),7) Line Location: LIST+63
Function Call: WRITE	Prompt: ! Line Location: LIST+64
Function Call: WRITE	Prompt: # Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"REPORT: Refills Processed by RPH 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: ! Line Location: SUBHEAD+3
Function Call: WRITE	Prompt: "-------------------------------------------------------------------------------" Line Location: SUBHEAD+4
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD+5
Function Call: WRITE	Prompt: $$GET1^DIQ(200,BEXRPH,.01) Line Location: SUBHEAD+7
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD+9
Function Call: WRITE	Prompt: "-------------------------------------------------------------------------------" Line Location: SUBHEAD+10
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD+11
Function Call: WRITE	Prompt: $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: DETAIL+6
Function Call: WRITE	Prompt: ?14,"MAIL" Line Location: DETAIL+8
Function Call: WRITE	Prompt: $J($P(BEXTOT(BEXRPH,BEXDAT),U),7) Line Location: DETAIL+9
Function Call: WRITE	Prompt: ?30,"WINDOW" Line Location: DETAIL+10
Function Call: WRITE	Prompt: $J($P(BEXTOT(BEXRPH,BEXDAT),U,2),7) Line Location: DETAIL+11
Function Call: WRITE	Prompt: ?48,"TOTAL" Line Location: DETAIL+12
Function Call: WRITE	Prompt: $J($P(BEXTOT(BEXRPH,BEXDAT),U,3),7) Line Location: DETAIL+13
Function Call: WRITE	Prompt: ! Line Location: DETAIL+14
Routine Call	DIC Line Location: BEXRRPH+24
Routine Call	DIR Line Location: EOJ+4 DETAIL+17

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

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

Name	Line Occurrences
BEGDATE	BEGDATE+24
DETAIL	LIST+49
EOJ	BEGDATE+10, BEGDATE+20
HEADER	LIST+5, DETAIL+19
SUBHEAD	LIST+44
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+25*, LIST+26, LIST+29
>> BEXBEG	BEGDATE+11*, BEGDATE+24, LIST+14, LIST+20, HEADER+12
>> BEXDAT	LIST+46, LIST+47, TOTAL+14, TOTAL+17, TOTAL+22, TOTAL+27, DETAIL+5, DETAIL+9, DETAIL+11, DETAIL+13
>> BEXDATE	LIST+14, LIST+15, LIST+17, LIST+20, LIST+23
BEXDIV	BEXRRPH+13!, BEXRRPH+14, BEXRRPH+29, LIST+33, LIST+34
BEXDIV(	BEXRRPH+31*, LIST+34
>> BEXDVIEN	LIST+33, LIST+34
>> BEXEND	BEGDATE+21, BEGDATE+22, BEGDATE+24, LIST+17, HEADER+20
>> BEXEXIT	LIST+11, LIST+42, LIST+47, DETAIL+17
>> BEXIEN	LIST+22, LIST+23, LIST+25
>> BEXMLWIN	TOTAL+20, TOTAL+25
>> BEXQUIT	BEXRRPH+16, BEXRRPH+19, BEXRRPH+26, BEXRRPH+27, LIST+10, LIST+15, LIST+17, LIST+20, LIST+23, LIST+38* , LIST+42, LIST+47, DETAIL+18*
>> BEXRPH	LIST+41, LIST+42, LIST+47, LIST+52, LIST+53, LIST+54, SUBHEAD+7, TOTAL+3, TOTAL+8, TOTAL+11 , TOTAL+14, TOTAL+17, TOTAL+21, TOTAL+22, TOTAL+26, TOTAL+27, DETAIL+9, DETAIL+11, DETAIL+13
>> BEXSITE	BEXRRPH+15, BEXRRPH+28, BEXRRPH+30, HEADER+6, HEADER+7
BEXTOT	LIST+7!, LIST+8, LIST+61, LIST+62, LIST+63, TOTAL+5, TOTAL+23, TOTAL+28
BEXTOT(	LIST+42, LIST+47, LIST+52, LIST+53, LIST+54, TOTAL+8, TOTAL+11, TOTAL+14, TOTAL+17, TOTAL+21* , TOTAL+22, TOTAL+26, TOTAL+27*, DETAIL+9, DETAIL+11, DETAIL+13
DA	BEXRRPH+20!, BEXRRPH+25!, EOJ+7!
DD	BEXRRPH+20!, BEXRRPH+25!, EOJ+7!
DIC	BEXRRPH+20!, BEXRRPH+23*, BEXRRPH+25!, EOJ+7!
DIC("A"	BEXRRPH+22*
DIC(0	BEXRRPH+21*
DIE	BEXRRPH+20!, BEXRRPH+25!, EOJ+7!
DIR	BEXRRPH+20!, BEXRRPH+25!, EOJ+4!, EOJ+7!, DETAIL+17!
DIR(0	EOJ+4, DETAIL+17
DIRUT	BEGDATE+4!, BEGDATE+10, BEGDATE+14!, BEGDATE+20
DO	BEXRRPH+20!, BEXRRPH+25!
DR	BEXRRPH+20!, BEXRRPH+25!, EOJ+7!
DT	HEADER+8
IOSL	DETAIL+16
IOST	EOJ+4, DETAIL+17
U	BEXRRPH+30, LIST+29, LIST+52, LIST+53, LIST+54, LIST+61, LIST+62, LIST+63, TOTAL+5, TOTAL+11 , TOTAL+17, TOTAL+21, TOTAL+22, TOTAL+23, TOTAL+26, TOTAL+27, TOTAL+28, DETAIL+9, DETAIL+11, DETAIL+13
>> X	BEXRRPH+26, DETAIL+17, DETAIL+18
>> XBNS	BEGDATE+29*
>> XBRP	BEGDATE+27*
>> XBRX	BEGDATE+28*
>> Y	BEXRRPH+27, BEXRRPH+28, BEXRRPH+30, BEXRRPH+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, DETAIL+5, DETAIL+6

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRRPH

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: