Routine: BEXRREJ

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

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	BEGDATE+8, BEGDATE+18
PARSE^BEXRUTL	LIST+38
^DIC	BEXRREJ+24
$$GET1^DIQ	HEADER+6
^DIR	EOJ+4, LIST+98
^XBDBQUE	BEGDATE+30
EN^XBVK	EOJ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: BEXRREJ+5
Function Call: WRITE	Prompt: !,"Refill Rejections Percentage Report" Line Location: BEXRREJ+7
Function Call: WRITE	Prompt: ! Line Location: BEXRREJ+8
Function Call: WRITE	Prompt: !,"This option prints a list of Transactions that were processed within" Line Location: BEXRREJ+9
Function Call: WRITE	Prompt: !,"a selected date/time range." Line Location: BEXRREJ+10
Function Call: WRITE	Prompt: ! Line Location: BEXRREJ+11
Function Call: WRITE	Prompt: !,"Press Enter to select ALL Pharmacy Divisions, or" Line Location: BEXRREJ+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+102
Function Call: WRITE	Prompt: "GRAND TOTALS" Line Location: LIST+104
Function Call: WRITE	Prompt: ?30,"TOO EARLY" Line Location: LIST+106
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("TOO EARLY"),6) Line Location: LIST+107
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+108
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("TOO EARLY"),BEXTOT),! Line Location: LIST+109
Function Call: WRITE	Prompt: ?30,"DISCONTINUED" Line Location: LIST+111
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("DISCONTINUED"),6) Line Location: LIST+112
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+113
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("DISCONTINUED"),BEXTOT),! Line Location: LIST+114
Function Call: WRITE	Prompt: ?30,"CANCELLED" Line Location: LIST+116
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("CANCELLED"),6) Line Location: LIST+117
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+118
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("CANCELLED"),BEXTOT),! Line Location: LIST+119
Function Call: WRITE	Prompt: ?30,"NO REFILLS" Line Location: LIST+121
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("NO REFILLS"),6) Line Location: LIST+122
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+123
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("NO REFILLS"),BEXTOT),! Line Location: LIST+124
Function Call: WRITE	Prompt: ?30,"EXPIRED" Line Location: LIST+126
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("EXPIRED"),6) Line Location: LIST+127
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+128
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("EXPIRED"),BEXTOT),! Line Location: LIST+129
Function Call: WRITE	Prompt: ?30,"DUE EXPIRE" Line Location: LIST+131
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("DUE EXPIRE"),6) Line Location: LIST+132
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+133
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("DUE EXPIRE"),BEXTOT),! Line Location: LIST+134
Function Call: WRITE	Prompt: ?30,"RESTOCKED" Line Location: LIST+136
Function Call: WRITE	Prompt: ?49,$J(BEXTOT("RESTOCKED"),6) Line Location: LIST+137
Function Call: WRITE	Prompt: ?58,"PERCENT " Line Location: LIST+138
Function Call: WRITE	Prompt: $$PERCENT(BEXTOT("RESTOCKED"),BEXTOT),! Line Location: LIST+139
Function Call: WRITE	Prompt: ! Line Location: LIST+141
Function Call: WRITE	Prompt: ?2,"TOTAL TRANSACTIONS " Line Location: LIST+142
Function Call: WRITE	Prompt: $J(BEXTOT,6) Line Location: LIST+143
Function Call: WRITE	Prompt: ?30,"TOTAL REJECTS " Line Location: LIST+144
Function Call: WRITE	Prompt: $J(BEXTOT("REJECTS"),6) Line Location: LIST+145
Function Call: WRITE	Prompt: ?58,"PERCENT ",$$PERCENT(BEXTOT("REJECTS"),BEXTOT) Line Location: LIST+146
Function Call: WRITE	Prompt: ! Line Location: LIST+147
Function Call: WRITE	Prompt: # Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"REPORT: Refill Rejections Percentage 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: BEXRREJ+24
Routine Call	DIR Line Location: EOJ+4 LIST+98

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]	BEXRREJ+30
^VEXHRX0(19080.1 - [#90350.1]	LIST+21, LIST+22, LIST+30, LIST+32

Label References

Name	Line Occurrences
$$PERCENT	LIST+57, LIST+61, LIST+65, LIST+69, LIST+73, LIST+77, LIST+81, LIST+91, LIST+109, LIST+114 , LIST+119, LIST+124, LIST+129, LIST+134, LIST+139, LIST+146
BEGDATE	BEGDATE+24
EOJ	BEGDATE+10, BEGDATE+20
HEADER	LIST+5, LIST+100
TOTAL	LIST+44

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+32*, LIST+33, LIST+36
>> BEXBEG	BEGDATE+11*, BEGDATE+24, LIST+21, LIST+27, HEADER+12
>> BEXDAT	LIST+48, LIST+49, LIST+52, LIST+55, LIST+57, LIST+59, LIST+61, LIST+63, LIST+65, LIST+67 , LIST+69, LIST+71, LIST+73, LIST+75, LIST+77, LIST+79, LIST+81, LIST+85, LIST+88, LIST+91 , TOTAL+9, TOTAL+12, TOTAL+16, TOTAL+19, TOTAL+23, TOTAL+26, TOTAL+30, TOTAL+33, TOTAL+37, TOTAL+40 , TOTAL+44, TOTAL+47, TOTAL+51, TOTAL+54, TOTAL+58, TOTAL+61
>> BEXDATE	LIST+21, LIST+22, LIST+24, LIST+27, LIST+30
BEXDIV	BEXRREJ+13!, BEXRREJ+14, BEXRREJ+29, LIST+41, LIST+42
BEXDIV(	BEXRREJ+31*, LIST+42
>> BEXDVIEN	LIST+41, LIST+42
>> BEXEND	BEGDATE+21, BEGDATE+22, BEGDATE+24, LIST+24, HEADER+20
>> BEXEXIT	LIST+19, LIST+49, LIST+98, LIST+99
>> BEXIEN	LIST+29, LIST+30, LIST+32
>> BEXQUIT	BEXRREJ+16, BEXRREJ+19, BEXRREJ+26, BEXRREJ+27, LIST+18, LIST+22, LIST+24, LIST+27, LIST+30, LIST+46* , LIST+49
>> BEXRESLT	TOTAL+15, TOTAL+22, TOTAL+29, TOTAL+36, TOTAL+43, TOTAL+50, TOTAL+57
>> BEXSITE	BEXRREJ+15, BEXRREJ+28, BEXRREJ+30, HEADER+6, HEADER+7
BEXTOT	LIST+7!, LIST+8, LIST+109, LIST+114, LIST+119, LIST+124, LIST+129, LIST+134, LIST+139, LIST+143 , LIST+146, TOTAL+6
BEXTOT(	LIST+49, LIST+55, LIST+57, LIST+59, LIST+61, LIST+63, LIST+65, LIST+67, LIST+69, LIST+71 , LIST+73, LIST+75, LIST+77, LIST+79, LIST+81, LIST+85, LIST+88, LIST+91, TOTAL+9, TOTAL+12 , TOTAL+16, TOTAL+19, TOTAL+23, TOTAL+26, TOTAL+30, TOTAL+33, TOTAL+37, TOTAL+40, TOTAL+44, TOTAL+47 , TOTAL+51, TOTAL+54, TOTAL+58, TOTAL+61
BEXTOT("CANCELLED"	LIST+12, LIST+117, LIST+119, TOTAL+32
BEXTOT("DISCONTINUED"	LIST+11, LIST+112, LIST+114, TOTAL+25
BEXTOT("DUE E	XPIRE" , LIST+15, LIST+132, LIST+134, TOTAL+53
BEXTOT("EXPIRED"	LIST+14, LIST+127, LIST+129, TOTAL+46
BEXTOT("NO RE	FILLS" , LIST+13, LIST+122, LIST+124, TOTAL+39
BEXTOT("REJECTS"	LIST+9, LIST+145, LIST+146, TOTAL+17, TOTAL+24, TOTAL+31, TOTAL+38, TOTAL+45, TOTAL+52, TOTAL+59
BEXTOT("RESTOCKED"	LIST+16, LIST+137, LIST+139, TOTAL+60
BEXTOT("TOO E	ARLY" , LIST+10, LIST+107, LIST+109, TOTAL+18
DA	BEXRREJ+20!, BEXRREJ+25!, EOJ+7!
DD	BEXRREJ+20!, BEXRREJ+25!, EOJ+7!
DIC	BEXRREJ+20!, BEXRREJ+23*, BEXRREJ+25!, EOJ+7!
DIC("A"	BEXRREJ+22*
DIC(0	BEXRREJ+21*
DIE	BEXRREJ+20!, BEXRREJ+25!, EOJ+7!
DIR	BEXRREJ+20!, BEXRREJ+25!, EOJ+4!, EOJ+7!, LIST+98!
DIR(0	EOJ+4, LIST+98
DIRUT	BEGDATE+4!, BEGDATE+10, BEGDATE+14!, BEGDATE+20
DO	BEXRREJ+20!, BEXRREJ+25!
DR	BEXRREJ+20!, BEXRREJ+25!, EOJ+7!
DT	HEADER+8
IOSL	LIST+97
IOST	EOJ+4, LIST+98
U	BEXRREJ+30, LIST+36, LIST+55, LIST+57, LIST+59, LIST+61, LIST+63, LIST+65, LIST+67, LIST+69 , LIST+71, LIST+73, LIST+75, LIST+77, LIST+79, LIST+81, LIST+85, LIST+88, LIST+91, TOTAL+12 , TOTAL+16, TOTAL+19, TOTAL+23, TOTAL+26, TOTAL+30, TOTAL+33, TOTAL+37, TOTAL+40, TOTAL+44, TOTAL+47 , TOTAL+51, TOTAL+54, TOTAL+58, TOTAL+61
X	BEXRREJ+26, LIST+98, PERCENT~, PERCENT+3, PERCENT+5
>> XBNS	BEGDATE+29*
>> XBRP	BEGDATE+27*
>> XBRX	BEGDATE+28*
Y	BEXRREJ+27, BEXRREJ+28, BEXRREJ+30, BEXRREJ+31, BEGDATE+10, BEGDATE+11, BEGDATE+20, BEGDATE+21, LIST+52, LIST+53 , HEADER+8, HEADER+12, HEADER+13, HEADER+16, HEADER+17, HEADER+20*, HEADER+21, HEADER+24, HEADER+25, PERCENT~ , PERCENT+4, PERCENT+5
>> Z	PERCENT+5, PERCENT+6, PERCENT+7, PERCENT+8, PERCENT+9

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRREJ

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: