Routine: BEXREXC

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

Name	Comments	DBIA/ICR reference
EOJ	;--> 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	;--> Write the Header

Name	Field # of Occurrence
^%DT	BEGDATE+7, BEGDATE+17
$$HRN^AUPNPAT	LIST+34, DETAIL+32
PARSE^BEXRUTL	LIST+25, LIST+81
^DIC	BEXREXC+27
$$GET1^DIQ	LIST+37, HEADER+6, DETAIL+28, DETAIL+40
^DIR	BEXREXC+40, EOJ+4, LIST+108, DETAIL+52
^XBDBQUE	BEGDATE+28
EN^XBVK	EOJ+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: BEXREXC+7
Function Call: WRITE	Prompt: !,"Exceptions/Non-Refillable Transaction Report" Line Location: BEXREXC+9
Function Call: WRITE	Prompt: ! Line Location: BEXREXC+10
Function Call: WRITE	Prompt: !,"This option prints a list of Exceptions/Non-Refillable transactions that" Line Location: BEXREXC+11
Function Call: WRITE	Prompt: !,"were received within a selected date/time range." Line Location: BEXREXC+12
Function Call: WRITE	Prompt: ! Line Location: BEXREXC+13
Function Call: WRITE	Prompt: !,"Press Enter to select ALL Pharmacy Divisions, or" Line Location: BEXREXC+21
Function Call: WRITE	Prompt: ! Line Location: BEXREXC+36
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+2
Function Call: WRITE	Prompt: !!,"No Beginning Date selected" Line Location: BEGDATE+9
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+12
Function Call: WRITE	Prompt: !!,"No Ending Date selected" Line Location: BEGDATE+19
Function Call: WRITE	Prompt: !!,"Beginning Date is later than the Ending Date. Try Again!",! Line Location: BEGDATE+23
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+25
Function Call: WRITE	Prompt: ! Line Location: EOJ+4
Function Call: WRITE	Prompt: # Line Location: LIST+3
Function Call: WRITE	Prompt: ! Line Location: LIST+89
Function Call: WRITE	Prompt: "----------------------------------------------------------------" Line Location: LIST+90
Function Call: WRITE	Prompt: ! Line Location: LIST+91
Function Call: WRITE	Prompt: "TOTALS by Date" Line Location: LIST+92
Function Call: WRITE	Prompt: ! Line Location: LIST+93
Function Call: WRITE	Prompt: "---------------------------------------------------------------------" Line Location: LIST+94
Function Call: WRITE	Prompt: ! Line Location: LIST+95
Function Call: WRITE	Prompt: !,"TOTAL Exceptions:",?25,$J(BEXTOT,8) Line Location: LIST+105
Function Call: WRITE	Prompt: ! Line Location: LIST+106
Function Call: WRITE	Prompt: # Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"REPORT: Exceptions/Non-Refillable Report" Line Location: HEADER+4
Function Call: WRITE	Prompt: " for " Line Location: HEADER+5
Function Call: WRITE	Prompt: $$GET1^DIQ(59,BEXDIV,.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" Line Location: HEADER+33
Function Call: WRITE	Prompt: ?7,"Name" Line Location: HEADER+34
Function Call: WRITE	Prompt: ?27,"HRNO" Line Location: HEADER+35
Function Call: WRITE	Prompt: ?36,"RX #" Line Location: HEADER+36
Function Call: WRITE	Prompt: ?44,"Drug" Line Location: HEADER+37
Function Call: WRITE	Prompt: ?60,"M/W" Line Location: HEADER+38
Function Call: WRITE	Prompt: ?65,"Result" 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+24
Function Call: WRITE	Prompt: "00:00" Line Location: DETAIL+25
Function Call: WRITE	Prompt: ?7,$E(Y,1,16) Line Location: DETAIL+29
Function Call: WRITE	Prompt: ?25,$J(Y,6) Line Location: DETAIL+33
Function Call: WRITE	Prompt: ?33,$J(BEXRXNUM,9) Line Location: DETAIL+36
Function Call: WRITE	Prompt: ?32,$J(BEXRXNUM,9) Line Location: DETAIL+37
Function Call: WRITE	Prompt: ?44,$E(Y,1,16) Line Location: DETAIL+41
Function Call: WRITE	Prompt: ?62,BEXMAIL Line Location: DETAIL+44
Function Call: WRITE	Prompt: ?65,$E(BEXRESLT,1,14) Line Location: DETAIL+47
Function Call: WRITE	Prompt: ! Line Location: DETAIL+49
Routine Call	DIC Line Location: BEXREXC+27
Routine Call	DIR Line Location: BEXREXC+40 EOJ+4 LIST+108 DETAIL+52

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	EOJ+3
^BEXREXC($J	EOJ+6!, LIST+6!, LIST+50!, LIST+62*, LIST+67, LIST+70, LIST+73, LIST+75
^DD("DD"	HEADER+8, HEADER+14, HEADER+22
^PS(59 - [#59]	BEXREXC+33
^VEXHRX0(19080.1 - [#90350.1]	LIST+14, LIST+20, LIST+22, LIST+78

Name	Line Occurrences
BEGDATE	BEGDATE+23
DETAIL	LIST+83
EOJ	BEGDATE+9, BEGDATE+19
HEADER	LIST+4, DETAIL+54

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEGDATE+4!, BEGDATE+6, BEGDATE+8!, BEGDATE+14!, BEGDATE+16, BEGDATE+18!
%DT("A"	BEGDATE+5, BEGDATE+15
BEX	EOJ+5!
BEX(0	LIST+22, LIST+23, LIST+78, LIST+79
>> BEXBEG	BEGDATE+10*, BEGDATE+23, LIST+13, LIST+16, HEADER+12
>> BEXDAT	LIST+97, LIST+98, LIST+99, LIST+102, DETAIL+6, DETAIL+11
>> BEXDATE	LIST+13, LIST+14, LIST+16, LIST+17, LIST+20
BEXDIV	BEXREXC+15!, BEXREXC+16, BEXREXC+32, LIST+31, LIST+32, HEADER+6
BEXDIV(	BEXREXC+34*, LIST+32
>> BEXDRIEN	DETAIL+40
>> BEXDVIEN	LIST+31, LIST+32, LIST+34, DETAIL+32
>> BEXEND	BEGDATE+20, BEGDATE+21, BEGDATE+23, LIST+17, HEADER+20
>> BEXEXIT	LIST+10, LIST+67, LIST+70, LIST+73, LIST+87, DETAIL+53
>> BEXHRNO	LIST+34*, LIST+35
>> BEXIEN	LIST+19, LIST+20, LIST+22, LIST+62, LIST+75*, LIST+76, LIST+78
>> BEXMAIL	LIST+42, LIST+43, LIST+44, LIST+45, LIST+53, LIST+54, LIST+55, LIST+56, LIST+57, LIST+58 , DETAIL+44
>> BEXNAME	LIST+37, LIST+50, LIST+62, LIST+69, LIST+70*, LIST+73, LIST+75
>> BEXPTIEN	LIST+34, LIST+37, DETAIL+28, DETAIL+32
>> BEXQUIT	BEXREXC+18, BEXREXC+22, BEXREXC+29, BEXREXC+30, LIST+10, LIST+14, LIST+17*, LIST+20
>> BEXRESLT	LIST+50, DETAIL+47
>> BEXRXN	LIST+72, LIST+73, LIST+75
>> BEXRXNUM	LIST+40*, LIST+50, LIST+62, DETAIL+36, DETAIL+37
>> BEXSITE	BEXREXC+17, BEXREXC+31, BEXREXC+33, HEADER+6, HEADER+7
>> BEXSORT	LIST+42, LIST+43, LIST+44, LIST+45, LIST+50, LIST+62, LIST+66, LIST+67, LIST+70, LIST+73 , LIST+75
BEXTOT	LIST+7!, LIST+8, LIST+105, DETAIL+3
BEXTOT(	LIST+98, LIST+102, DETAIL+6, DETAIL+11
>> BEXTXDAT	DETAIL+18
>> BEXTYPE	LIST+28, DETAIL+11
>> BEXWIND	BEXREXC+42*, LIST+53, LIST+54, LIST+55, LIST+56, LIST+57, LIST+58
DA	BEXREXC+23!, BEXREXC+28!, EOJ+8!
DD	BEXREXC+23!, BEXREXC+28!, EOJ+8!
DIC	BEXREXC+23!, BEXREXC+26*, BEXREXC+28!, EOJ+8!
DIC("A"	BEXREXC+25*
DIC(0	BEXREXC+24*
DIE	BEXREXC+23!, BEXREXC+28!, EOJ+8!
DIR	BEXREXC+23!, BEXREXC+28!, BEXREXC+37!, BEXREXC+41!, EOJ+4!, EOJ+8!, LIST+108!, DETAIL+52!
DIR("A"	BEXREXC+38*
DIR(0	BEXREXC+39, EOJ+4, LIST+108, DETAIL+52
DIRUT	BEXREXC+37!, BEGDATE+3!, BEGDATE+9, BEGDATE+13!, BEGDATE+19
DO	BEXREXC+23!, BEXREXC+28!
DR	BEXREXC+23!, BEXREXC+28!, EOJ+8!
DT	HEADER+8
IOSL	DETAIL+51
IOST	EOJ+4, LIST+108, DETAIL+52
U	BEXREXC+33
>> X	BEXREXC+29, LIST+99*, LIST+100, DETAIL+53
>> XBNS	BEGDATE+27*
>> XBRP	BEGDATE+26*
>> Y	BEXREXC+30, BEXREXC+31, BEXREXC+33, BEXREXC+34, BEXREXC+42, BEGDATE+9, BEGDATE+10, BEGDATE+19, BEGDATE+20, HEADER+8 , HEADER+12, HEADER+13, HEADER+16, HEADER+17, HEADER+20, HEADER+21, HEADER+24, HEADER+25, DETAIL+18, DETAIL+19 , DETAIL+20, DETAIL+28, DETAIL+29, DETAIL+32, DETAIL+33, DETAIL+40, DETAIL+41

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXREXC

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: