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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXAPHAP

Package: DSS Extracts

Routine: ECXAPHAP


Information

ECXAPHAP ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;6/1/17 15:46

Source Information

Source file <ECXAPHAP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$RJ^XLFSTR  EN^XUTMDEVQ  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  GETS^DIQ  ^DIR  
DSS Extracts 2 EN^ECXAPHP2  AUDIT^ECXKILL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DSS Extracts 1 ECXAPHP2  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
PREV ;Line label added in patch 144. Come here when running previous fiscal year logic for this report
BEGIN ; display report description
SELECT ; user inputs for report option, threshold volume and date range
PROCESS ; entry point for queued report
PRINT ; process temp file and print report
CLOSE ;
HEADER ;header and page control
SIG(ORDNO,PATNO) ;Get ordering instructions for unit dose order. API added in patch 136

External References

Name Field # of Occurrence
^%DT SELECT+19, SELECT+23
DD^%DT EN+5, SELECT+22, SELECT+32
NOW^%DTC EN+5
HOME^%ZIS PREV+7
^%ZISC PREV+6
$$S^%ZTLOAD PRINT+3
GETS^DIQ SIG+5
^DIR BEGIN+18, SELECT+5, SELECT+10, SELECT+13, SELECT+15, CLOSE+3, HEADER+4
EN^ECXAPHP2 PROCESS+2
AUDIT^ECXKILL PREV+8
$$RJ^XLFSTR PRINT+15, PRINT+17, PRINT+19
EN^XUTMDEVQ PREV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132-column format."
  • Line Location: PREV+3
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: PREV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This report prints a listing of unusual volumes that would be"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"generated by the pharmacy extracts (PRE, IVP and UDP) as"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"determined by a user defined threshold value. It shoud be run"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"prior to the generation of the actual extract(s) to identify and"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"fix as necessary any volumes determined to be erroneous."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"Unusual volumes are defined as follows:"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !!,"PRE Extract: Quantity field greater than the threshold value."
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !,"IVP Extract: Total Doses Per Day field greater than the threshold"
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !,?14,"or less than the negative of the threshold value."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !,"UDP Extract: Quantity field greater than threshold value."
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: !!,"Note: The threshold can be set after a report is selected."
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of"
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: !,"the extract and could take as long as 30 minutes or more to"
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !,"complete. This report has no effect on the actual extracts and"
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !,"can be run as needed."
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !!,"The report is sorted by Feeder Key, descending Volume, and SSN."
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: "Choose the report you would like to run."
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!,"The default threshold volume for the ",ECXTL," extract is ",ECTHLD,"."
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
  • Line Location: SELECT+17
Function Call: WRITE
  • Prompt: !!,?8,"No unusual volumes to report for this extract"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,ECXTL_" Pre-Extract Unusual Volume Report - Previous FY logic",?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND,?97,"Threshold Value = ",ECTHLD
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: ?96,"Quantity",?121,"Total Cost"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+16
Routine Call
  • DIR
  • Line Location:
    • BEGIN+18
    • SELECT+5
    • SELECT+10
    • SELECT+13
    • SELECT+15
    • CLOSE+3
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • PREV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.06 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11

Label References

Name Line Occurrences
BEGIN EN+6
HEADER PRINT+5, PRINT+13
PRINT PROCESS+3
SELECT EN+7

Naked Globals

Name Field # of Occurrence
^( PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5
%DT EN+5!, SELECT+19!*, SELECT+23!*
%DT("A" SELECT+19*, SELECT+23*
%DT(0 SELECT+19*, SELECT+23*
COUNT PRINT+1~, PRINT+6*, PRINT+12*, PRINT+23
DATA SIG+1~
DATA( SIG+6
DATE EN+1~, EN+5*, SELECT+19, SELECT+23
DIR BEGIN+18!, SELECT+5!, SELECT+10!, SELECT+13!, SELECT+15!, CLOSE+3!, HEADER+4!
DIR("A" SELECT+5*, SELECT+10*, SELECT+13*, SELECT+15*
DIR("B" SELECT+5*, SELECT+10*, SELECT+15*
DIR(0 BEGIN+18*, SELECT+5*, SELECT+10*, SELECT+13*, SELECT+15*, CLOSE+3*, HEADER+4*
DONE SELECT+1~, SELECT+18*, SELECT+33*
ECED EN+2~, SELECT+18*, SELECT+31*
ECEND EN+2~, SELECT+32*, HEADER+9
ECRUN EN+1~, EN+5*, HEADER+8
ECSD EN+1~, SELECT+18*, SELECT+21*, SELECT+25, SELECT+28
ECSD1 EN+2~, SELECT+21*
ECSTART EN+2~, SELECT+22*, HEADER+8
ECTHLD EN+1~, SELECT+8*, SELECT+9, SELECT+13*, HEADER+9
ECXCOUNT PRINT+1~, PRINT+9*, PRINT+11
ECXDESC EN+1~, PREV+1*, PREV+4
ECXERR EN+2~, PROCESS+2*
ECXISIG EN+2~, SELECT+2*, SELECT+15*, PRINT+20
ECXOPT EN+1~, SELECT+5*, SELECT+6, SELECT+8, SELECT+12, SELECT+15, PRINT+16, PRINT+18, PRINT+20, HEADER+11
HEADER+14, HEADER+15
ECXSAVE EN+1~, PREV+4
ECXSAVE("EC*" PREV+2*
ECXTL EN+1~, PREV+1, SELECT+6*, SELECT+9, SELECT+17, HEADER+7
EDAY PRINT+1~, PRINT+8*, PRINT+9, PRINT+11
FKEY PRINT+1~, PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+11
GTOT PRINT+1~, PRINT+4*
I SIG+1~, SIG+6*
IO PREV+6, PRINT+2
>> IO(0 PREV+6
IOF BEGIN+1, BEGIN+19, HEADER+6
IOSL PRINT+13
IOST BEGIN+19, CLOSE+1, HEADER+2, HEADER+6
JJ CLOSE+2*, HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+4*, HEADER+16
ORDNO SIG~, SIG+3, SIG+4
OUT SELECT+1~
PATNO SIG~, SIG+3, SIG+4
PG PRINT+1~, PRINT+4*, HEADER+4, HEADER+6*, HEADER+7
>> POP PREV+5
QFLG EN+2~, EN+3*, EN+6, EN+7, BEGIN+18*, SELECT+5*, SELECT+10*, SELECT+13*, SELECT+15*, SELECT+18
SELECT+20*, SELECT+24*, PROCESS+3*, PRINT+1~, PRINT+4*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
PRINT+11, PRINT+13, PRINT+22, CLOSE+1, HEADER+4*, HEADER+5
QTY PRINT+1~, PRINT+7*, PRINT+8, PRINT+9, PRINT+11
REC PRINT+1~, PRINT+11*, PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21
RECNO SIG+1~, SIG+4*, SIG+5, SIG+6
SIG SIG+1~, SIG+2*, SIG+3, SIG+6*, SIG+7
SS CLOSE+2*, HEADER+1~, HEADER+3*
SSN PRINT+1~, PRINT+10*, PRINT+11*
U PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21
X EN+1~, EN+5, SELECT+5, SELECT+10, SELECT+13, SELECT+15
Y EN+1~, EN+5*, BEGIN+18, SELECT+5, SELECT+11, SELECT+13, SELECT+15, SELECT+20, SELECT+21, SELECT+22
SELECT+24, SELECT+25, SELECT+28, SELECT+31, SELECT+32, HEADER+4
>> ZTQUEUED PRINT+3
ZTREQ PROCESS+1*, PRINT+3!
>> ZTSTOP PRINT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All