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

Package: IHS Pharmacy Auto Refill System

Routine: BEXRREJ


Information

BEXRREJ ;IHS/CMI/DAY - BEX - Refill Rejections Percentage Report ; 12 Mar 2012 7:15 PM

Source Information

Source file <BEXRREJ.m>

Call Graph

Call Graph Total: 7

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