Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BEXRDAT

Package: IHS Pharmacy Auto Refill System

Routine: BEXRDAT


Information

BEXRDAT ;IHS/CMI/DAY - BEX - Transactions by Date Report ; 12 Mar 2012 7:12 PM

Source Information

Source file <BEXRDAT.m>

Call Graph

Call Graph Total: 8

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All