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: BEXRHOR

Package: IHS Pharmacy Auto Refill System

Routine: BEXRHOR


Information

BEXRHOR ;IHS/CMI/DAY - BEX - Transactions by Hour Report ; 12 Mar 2012 7:14 PM

Source Information

Source file <BEXRHOR.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
SUBHEAD ;EP - Write Subhead totals
EOJ ;EP - End of Job Processing
LIST ;EP - Entry Point from XBDBQUE
DETAIL ;EP - Write out detail
HEADER ;EP - Write the Header
TOTAL ;EP - Calculate Totals and Suntotals
BEGDATE ;EP - Come here if end date is before begin date
DETHEAD ;EP - Write Detail Header

External References

Name Field # of Occurrence
^%DT BEGDATE+8, BEGDATE+18
$$HRN^AUPNPAT DETAIL+15, DETAIL+16
PARSE^BEXRUTL LIST+28, LIST+51
^DIC BEXRHOR+24
$$GET1^DIQ HEADER+6, DETAIL+37
^DIR BEXRHOR+39, EOJ+4, LIST+109, DETAIL+42
^XBDBQUE BEGDATE+30
EN^XBVK EOJ+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: BEXRHOR+5
Function Call: WRITE
  • Prompt: !,"Transactions by Hour Report"
  • Line Location: BEXRHOR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BEXRHOR+8
Function Call: WRITE
  • Prompt: !,"This option prints a list of Transactions that were processed within"
  • Line Location: BEXRHOR+9
Function Call: WRITE
  • Prompt: !,"a selected date/time range."
  • Line Location: BEXRHOR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BEXRHOR+11
Function Call: WRITE
  • Prompt: !,"Press Enter for ALL Pharmacy Divisions or you may"
  • Line Location: BEXRHOR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: BEXRHOR+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: "MIDNIGHT TO 1:00 AM"
  • Line Location: LIST+70
Function Call: WRITE
  • Prompt: " 1:00 AM TO 2:00 AM"
  • Line Location: LIST+71
Function Call: WRITE
  • Prompt: " 2:00 AM TO 3:00 AM"
  • Line Location: LIST+72
Function Call: WRITE
  • Prompt: " 3:00 AM TO 4:00 AM"
  • Line Location: LIST+73
Function Call: WRITE
  • Prompt: " 4:00 AM TO 5:00 AM"
  • Line Location: LIST+74
Function Call: WRITE
  • Prompt: " 5:00 AM TO 6:00 AM"
  • Line Location: LIST+75
Function Call: WRITE
  • Prompt: " 6:00 AM TO 7:00 AM"
  • Line Location: LIST+76
Function Call: WRITE
  • Prompt: " 7:00 AM TO 8:00 AM"
  • Line Location: LIST+77
Function Call: WRITE
  • Prompt: " 8:00 AM TO 9:00 AM"
  • Line Location: LIST+78
Function Call: WRITE
  • Prompt: " 9:00 AM TO 10:00 AM"
  • Line Location: LIST+79
Function Call: WRITE
  • Prompt: "10:00 AM TO 11:00 AM"
  • Line Location: LIST+80
Function Call: WRITE
  • Prompt: "11:00 AM TO NOON"
  • Line Location: LIST+81
Function Call: WRITE
  • Prompt: "NOON TO 1:00 PM"
  • Line Location: LIST+82
Function Call: WRITE
  • Prompt: " 1:00 PM TO 2:00 PM"
  • Line Location: LIST+83
Function Call: WRITE
  • Prompt: " 2:00 PM TO 3:00 PM"
  • Line Location: LIST+84
Function Call: WRITE
  • Prompt: " 3:00 PM TO 4:00 PM"
  • Line Location: LIST+85
Function Call: WRITE
  • Prompt: " 4:00 PM TO 5:00 PM"
  • Line Location: LIST+86
Function Call: WRITE
  • Prompt: " 5:00 PM TO 6:00 PM"
  • Line Location: LIST+87
Function Call: WRITE
  • Prompt: " 6:00 PM TO 7:00 PM"
  • Line Location: LIST+88
Function Call: WRITE
  • Prompt: " 7:00 PM TO 8:00 PM"
  • Line Location: LIST+89
Function Call: WRITE
  • Prompt: " 8:00 PM TO 9:00 PM"
  • Line Location: LIST+90
Function Call: WRITE
  • Prompt: " 9:00 PM TO 10:00 PM"
  • Line Location: LIST+91
Function Call: WRITE
  • Prompt: "10:00 PM TO 11:00 PM"
  • Line Location: LIST+92
Function Call: WRITE
  • Prompt: "11:00 PM TO MIDNIGHT"
  • Line Location: LIST+93
Function Call: WRITE
  • Prompt: !,"TOTAL Transactions:",?25,$J(BEXTOT,8)
  • Line Location: LIST+113
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+114
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"REPORT: Transactions by Hour 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: DETHEAD+6
Function Call: WRITE
  • Prompt: ?15,"HRNO"
  • Line Location: DETHEAD+7
Function Call: WRITE
  • Prompt: ?23,"RX #"
  • Line Location: DETHEAD+8
Function Call: WRITE
  • Prompt: ?33,"Date Filled"
  • Line Location: DETHEAD+9
Function Call: WRITE
  • Prompt: ?47,"Type"
  • Line Location: DETHEAD+10
Function Call: WRITE
  • Prompt: ?57,"Result/[Status]"
  • Line Location: DETHEAD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DETHEAD+12
Function Call: WRITE
  • Prompt: "-------------------------------------------------------------------------------"
  • Line Location: DETHEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DETHEAD+14
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: "MIDNIGHT TO 1:00 AM"
  • Line Location: SUBHEAD+6
Function Call: WRITE
  • Prompt: " 1:00 AM TO 2:00 AM"
  • Line Location: SUBHEAD+7
Function Call: WRITE
  • Prompt: " 2:00 AM TO 3:00 AM"
  • Line Location: SUBHEAD+8
Function Call: WRITE
  • Prompt: " 3:00 AM TO 4:00 AM"
  • Line Location: SUBHEAD+9
Function Call: WRITE
  • Prompt: " 4:00 AM TO 5:00 AM"
  • Line Location: SUBHEAD+10
Function Call: WRITE
  • Prompt: " 5:00 AM TO 6:00 AM"
  • Line Location: SUBHEAD+11
Function Call: WRITE
  • Prompt: " 6:00 AM TO 7:00 AM"
  • Line Location: SUBHEAD+12
Function Call: WRITE
  • Prompt: " 7:00 AM TO 8:00 AM"
  • Line Location: SUBHEAD+13
Function Call: WRITE
  • Prompt: " 8:00 AM TO 9:00 AM"
  • Line Location: SUBHEAD+14
Function Call: WRITE
  • Prompt: " 9:00 AM TO 10:00 AM"
  • Line Location: SUBHEAD+15
Function Call: WRITE
  • Prompt: "10:00 AM TO 11:00 AM"
  • Line Location: SUBHEAD+16
Function Call: WRITE
  • Prompt: "11:00 AM TO NOON"
  • Line Location: SUBHEAD+17
Function Call: WRITE
  • Prompt: "NOON TO 1:00 PM"
  • Line Location: SUBHEAD+18
Function Call: WRITE
  • Prompt: " 1:00 PM TO 2:00 PM"
  • Line Location: SUBHEAD+19
Function Call: WRITE
  • Prompt: " 2:00 PM TO 3:00 PM"
  • Line Location: SUBHEAD+20
Function Call: WRITE
  • Prompt: " 3:00 PM TO 4:00 PM"
  • Line Location: SUBHEAD+21
Function Call: WRITE
  • Prompt: " 4:00 PM TO 5:00 PM"
  • Line Location: SUBHEAD+22
Function Call: WRITE
  • Prompt: " 5:00 PM TO 6:00 PM"
  • Line Location: SUBHEAD+23
Function Call: WRITE
  • Prompt: " 6:00 PM TO 7:00 PM"
  • Line Location: SUBHEAD+24
Function Call: WRITE
  • Prompt: " 7:00 PM TO 8:00 PM"
  • Line Location: SUBHEAD+25
Function Call: WRITE
  • Prompt: " 8:00 PM TO 9:00 PM"
  • Line Location: SUBHEAD+26
Function Call: WRITE
  • Prompt: " 9:00 PM TO 10:00 PM"
  • Line Location: SUBHEAD+27
Function Call: WRITE
  • Prompt: "10:00 PM TO 11:00 PM"
  • Line Location: SUBHEAD+28
Function Call: WRITE
  • Prompt: "11:00 PM TO MIDNIGHT"
  • Line Location: SUBHEAD+29
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+30
Function Call: WRITE
  • Prompt: ?6,"REFILL: "
  • Line Location: SUBHEAD+31
Function Call: WRITE
  • Prompt: $J($P(BEXTOT(BEXHOR),U),5)
  • Line Location: SUBHEAD+32
Function Call: WRITE
  • Prompt: ?21,"STATUS: "
  • Line Location: SUBHEAD+33
Function Call: WRITE
  • Prompt: $J($P(BEXTOT(BEXHOR),U,2),5)
  • Line Location: SUBHEAD+34
Function Call: WRITE
  • Prompt: ?36,"PHARM: "
  • Line Location: SUBHEAD+35
Function Call: WRITE
  • Prompt: $J($P(BEXTOT(BEXHOR),U,3),5)
  • Line Location: SUBHEAD+36
Function Call: WRITE
  • Prompt: ?50,"TOTAL: "
  • Line Location: SUBHEAD+40
Function Call: WRITE
  • Prompt: $J($P(BEXTOT(BEXHOR),U,5),6)
  • Line Location: SUBHEAD+41
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+42
Function Call: WRITE
  • Prompt: "-------------------------------------------------------------------------------"
  • Line Location: SUBHEAD+43
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+44
Function Call: WRITE
  • Prompt: $E($P(Y,"@",2),1,5)
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: "00:00"
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: ?13,$J(Y,6)
  • Line Location: DETAIL+17
Function Call: WRITE
  • Prompt: ?22,$J(+BEXRXNUM,8)
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: Y
  • Line Location: DETAIL+21
Function Call: WRITE
  • Prompt: ?33,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: DETAIL+25
Function Call: WRITE
  • Prompt: ?47,Y
  • Line Location: DETAIL+33
Function Call: WRITE
  • Prompt: ?57,$E(BEXRESLT,1,22)
  • Line Location: DETAIL+36
Function Call: WRITE
  • Prompt: ?57,"[",$E(Y,1,20),"]"
  • Line Location: DETAIL+37
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+39
Routine Call
  • DIC
  • Line Location:
    • BEXRHOR+24
Routine Call
  • DIR
  • Line Location:
    • BEXRHOR+39
    • EOJ+4
    • LIST+109
    • DETAIL+42

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
^BEXTMP($J EOJ+5!, LIST+7!, LIST+40, LIST+46, TOTAL+61*
^DD("DD" HEADER+8, HEADER+14, HEADER+22, DETAIL+9
^PS(59 - [#59] BEXRHOR+30
^VEXHRX0(19080.1 - [#90350.1] LIST+14, LIST+15, LIST+23, LIST+25, LIST+48

Label References

Name Line Occurrences
BEGDATE BEGDATE+24
DETAIL LIST+53
DETHEAD LIST+43, DETAIL+45
EOJ BEGDATE+10, BEGDATE+20
HEADER LIST+5, LIST+111, DETAIL+44
SUBHEAD LIST+42
TOTAL LIST+34

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+6!
BEX(0 LIST+25*, LIST+26, LIST+48*, LIST+49
>> BEXBEG BEGDATE+11*, BEGDATE+24, LIST+14, LIST+20, HEADER+12
>> BEXDATE LIST+14*, LIST+15*, LIST+17, LIST+20, LIST+23
BEXDIV BEXRHOR+13!, BEXRHOR+14*, BEXRHOR+29*, LIST+31, LIST+32
BEXDIV( BEXRHOR+31*, LIST+32
>> BEXDVIEN LIST+31, LIST+32, DETAIL+15, DETAIL+16
>> BEXEND BEGDATE+21*, BEGDATE+22*, BEGDATE+24, LIST+17, HEADER+20
>> BEXEXIT EOJ+4, LIST+12*, LIST+40, LIST+46, LIST+55, LIST+109*, LIST+110, DETAIL+43*
>> BEXHOR LIST+39*, LIST+40*, LIST+46, LIST+68*, LIST+69*, LIST+70, LIST+71, LIST+72, LIST+73, LIST+74
, LIST+75, LIST+76, LIST+77, LIST+78, LIST+79, LIST+80, LIST+81, LIST+82, LIST+83, LIST+84
, LIST+85, LIST+86, LIST+87, LIST+88, LIST+89, LIST+90, LIST+91, LIST+92, LIST+93, LIST+96
, LIST+98, LIST+100, LIST+105, SUBHEAD+6, SUBHEAD+7, SUBHEAD+8, SUBHEAD+9, SUBHEAD+10, SUBHEAD+11, SUBHEAD+12
, SUBHEAD+13, SUBHEAD+14, SUBHEAD+15, SUBHEAD+16, SUBHEAD+17, SUBHEAD+18, SUBHEAD+19, SUBHEAD+20, SUBHEAD+21, SUBHEAD+22
, SUBHEAD+23, SUBHEAD+24, SUBHEAD+25, SUBHEAD+26, SUBHEAD+27, SUBHEAD+28, SUBHEAD+29, SUBHEAD+32, SUBHEAD+34, SUBHEAD+36
, SUBHEAD+41, TOTAL+4*, TOTAL+9*, TOTAL+12*, TOTAL+15*, TOTAL+16*, TOTAL+17*, TOTAL+18*, TOTAL+19*, TOTAL+20*
, TOTAL+21*, TOTAL+22*, TOTAL+23*, TOTAL+24*, TOTAL+25*, TOTAL+26*, TOTAL+27*, TOTAL+28*, TOTAL+29*, TOTAL+30*
, TOTAL+31*, TOTAL+32*, TOTAL+33*, TOTAL+34*, TOTAL+35*, TOTAL+36*, TOTAL+37*, TOTAL+38*, TOTAL+40, TOTAL+42
, TOTAL+45, TOTAL+48, TOTAL+51, TOTAL+54, TOTAL+57, TOTAL+61
>> BEXIEN LIST+22*, LIST+23*, LIST+25, LIST+45*, LIST+46*, LIST+48, TOTAL+61
>> BEXPTIEN DETAIL+15, DETAIL+16
>> BEXQUIT BEXRHOR+16*, BEXRHOR+19, BEXRHOR+26*, BEXRHOR+27*, LIST+11*, LIST+15, LIST+17*, LIST+20*, LIST+23
>> BEXRESLT DETAIL+36, DETAIL+37
>> BEXRFDAT DETAIL+24
>> BEXRTYPE BEXRHOR+41*, BEXRHOR+42*, LIST+37, DETHEAD+4
>> BEXRXIEN DETAIL+37
>> BEXRXNUM DETAIL+20, DETAIL+21
>> BEXSITE BEXRHOR+15*, BEXRHOR+28*, BEXRHOR+30, HEADER+6, HEADER+7
>> BEXTIM TOTAL+3, TOTAL+4
BEXTOT LIST+8!, LIST+9*, LIST+59, LIST+113, TOTAL+6*
BEXTOT( LIST+69, LIST+96, LIST+98, LIST+100, LIST+105, SUBHEAD+32, SUBHEAD+34, SUBHEAD+36, SUBHEAD+41, TOTAL+42*
, TOTAL+45*, TOTAL+48*, TOTAL+51*, TOTAL+54*, TOTAL+57*
>> BEXTXDAT DETAIL+6
>> BEXTYPE TOTAL+45, TOTAL+48, TOTAL+51, TOTAL+54, DETAIL+29, DETAIL+30, DETAIL+31, DETAIL+32, DETAIL+37
DA BEXRHOR+20!, BEXRHOR+25!, EOJ+8!
DD BEXRHOR+20!, BEXRHOR+25!, EOJ+8!
DIC BEXRHOR+20!, BEXRHOR+23*, BEXRHOR+25!, EOJ+8!
DIC("A" BEXRHOR+22*
DIC(0 BEXRHOR+21*
DIE BEXRHOR+20!, BEXRHOR+25!, EOJ+8!
DIR BEXRHOR+20!, BEXRHOR+25!, BEXRHOR+34!, BEXRHOR+40!, EOJ+4!, EOJ+8!, LIST+109!, DETAIL+42!
DIR("?" BEXRHOR+38*
DIR("A" BEXRHOR+36*
DIR("B" BEXRHOR+35*
DIR(0 BEXRHOR+37*, EOJ+4*, LIST+109*, DETAIL+42*
DIRUT BEGDATE+4!, BEGDATE+10, BEGDATE+14!, BEGDATE+20
DO BEXRHOR+20!, BEXRHOR+25!
DR BEXRHOR+20!, BEXRHOR+25!, EOJ+8!
DT HEADER+8
DUZ(2 DETAIL+16
IOSL LIST+108, DETAIL+41
IOST EOJ+4, LIST+109, DETAIL+42
U BEXRHOR+30, LIST+96, LIST+98, LIST+100, LIST+105, SUBHEAD+32, SUBHEAD+34, SUBHEAD+36, SUBHEAD+41, TOTAL+45
, TOTAL+48, TOTAL+51, TOTAL+54, TOTAL+57
>> X BEXRHOR+26, LIST+109, DETAIL+43
>> XBNS BEGDATE+29*
>> XBRP BEGDATE+27*
>> XBRX BEGDATE+28*
>> Y BEXRHOR+27, BEXRHOR+28, BEXRHOR+30*, BEXRHOR+31, BEXRHOR+41, BEXRHOR+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+6*
, DETAIL+7, DETAIL+8, DETAIL+11, DETAIL+12, DETAIL+15*, DETAIL+16*, DETAIL+17, DETAIL+21*, DETAIL+24*, DETAIL+25
, DETAIL+28*, DETAIL+29*, DETAIL+30*, DETAIL+31*, DETAIL+32*, DETAIL+33, DETAIL+37*
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