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

Package: DSS Extracts

Routine: ECXAPHA


Information

ECXAPHA ;ALB/TMD-Pharmacy Extracts Unusual Volumes/Costs Report ;5/31/17 16:18

Source Information

Source file <ECXAPHA.m>

Call Graph

Call Graph

Call Graph Total: 12

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 3 EN^ECXAPHA2  AUDIT^ECXKILL  ($$EXPORT,$$REPORTFY,EXPDISP)^ECXUTL1  

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

Package Total Caller Graph
DSS Extracts 4 ECX PHA COST  ECX PHA SOURCE AUDIT  ECX PHA VOL  ECXAPHA2  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
BEGIN ; display report description
SELECT ; user inputs for report option, threshold volume/cost 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
COST ;Section added in 144, entry point for unusual cost report
SIGPRE(ORDNO) ;Get SIG for Prescription Order - 178
SIGIVP(ORDNO,PATNO) ;Get SIG for IV Order - 178

External References

Name Field # of Occurrence
^%DT SELECT+29, SELECT+33
DD^%DT EN+5, SELECT+32, SELECT+42
NOW^%DTC EN+5
HOME^%ZIS EN+24
^%ZISC EN+23
$$S^%ZTLOAD PRINT+3
GETS^DIQ SIG+5, SIGPRE+5, SIGIVP+5
^DIR BEGIN+21, SELECT+6, SELECT+10, SELECT+17, SELECT+20, SELECT+25, CLOSE+3, HEADER+4
EN^ECXAPHA2 PROCESS+2
AUDIT^ECXKILL EN+17, EN+25
$$EXPORT^ECXUTL1 EN+9
$$REPORTFY^ECXUTL1 SELECT+7
EXPDISP^ECXUTL1 EN+16
$$RJ^XLFSTR PRINT+23, PRINT+25, PRINT+27
EN^XUTMDEVQ EN+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132-column format."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"determined by a user defined threshold value. It should be run"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"prior to the generation of the actual extract(s) to identify and"
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"Note: The threshold can be set after a report is selected."
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of"
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !,"the extract and could take as long as 30 minutes or more to"
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: !,"complete. This report has no effect on the actual extracts and"
  • Line Location: BEGIN+18
Function Call: WRITE
  • Prompt: !,"can be run as needed."
  • Line Location: BEGIN+19
Function Call: WRITE
  • Prompt: "Choose the report you would like to run."
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!,$S(ECXOPT=2:"threshold > Total Doses Per Day < -threshold",ECXOPT=4:"Component Dose Give > Threshold",1:"Quantity > threshold")
  • Line Location: SELECT+19
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
  • Line Location: SELECT+27
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: !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND,?97,"Threshold Value = ",$S($G(ECXCOST):"$",1:""),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: ?95,"Quantity",?109,"Total Cost",?120,"Days Supply"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?96,"Quantity",?121,"Total Cost"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: ?89,"Component Dose Given",?121,"Total Cost"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+15
Routine Call
  • DIR
  • Line Location:
    • BEGIN+21
    • SELECT+6
    • SELECT+10
    • SELECT+17
    • SELECT+20
    • SELECT+25
    • CLOSE+3
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GETS^DIQ
55.01 GETS^DIQ
55.06 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX("B" SIGPRE+3
^TMP($J EN+10!, EN+11*, EN+12*, EN+13*, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+14*
, PRINT+15*, PRINT+16*, PRINT+18

Label References

Name Line Occurrences
@( EN+8
BEGIN EN+6
EN COST+3
HEADER PRINT+5, PRINT+21
PRINT PROCESS+3
PROCESS EN+15
SELECT EN+7

Naked Globals

Name Field # of Occurrence
^( PRINT+11
^(0 EN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5
%DT EN+5!, SELECT+29!*, SELECT+33!*
%DT("A" SELECT+29*, SELECT+33*
%DT(0 SELECT+29*, SELECT+33*
CNT EN+2~, EN+14*, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+19*
COUNT PRINT+1~, PRINT+6*, PRINT+20*, PRINT+31
DATA SIG+1~, SIGPRE+1~, SIGIVP+1~
DATA( SIG+6, SIGPRE+6, SIGIVP+6
DATE EN+1~, EN+5*, SELECT+29, SELECT+33
DIR BEGIN+21!, SELECT+1~, SELECT+6!, SELECT+17!, SELECT+20!, SELECT+25!, CLOSE+3!, HEADER+4!
DIR("?" SELECT+9*
DIR("A" SELECT+6*, SELECT+9*, SELECT+17*, SELECT+20*, SELECT+25*
DIR("B" SELECT+6*, SELECT+17*, SELECT+25*
DIR(0 BEGIN+21*, SELECT+6*, SELECT+9*, SELECT+17*, SELECT+20*, SELECT+25*, CLOSE+3*, HEADER+4*
DIROUT SELECT+1~
DIRUT SELECT+1~, SELECT+10
DONE SELECT+1~, SELECT+28*, SELECT+43*
DTOUT SELECT+1~
DUOUT SELECT+1~
ECED EN+2~, SELECT+28*, SELECT+41*
ECEND EN+2~, SELECT+42*, HEADER+9
>> ECPREIEN SIGPRE+3*, SIGPRE+4
ECRUN EN+1~, EN+5*, HEADER+8
ECSD EN+1~, SELECT+28*, SELECT+31*, SELECT+35, SELECT+38
ECSD1 EN+2~, SELECT+31*
ECSTART EN+2~, SELECT+32*, HEADER+8
ECTHLD EN+1~, SELECT+13*, SELECT+15*, SELECT+16, SELECT+20*, HEADER+9
ECXBCM EN+2~, SELECT+2*, SELECT+10*, SELECT+11, SELECT+13
ECXCOST EN+8, EN+18, BEGIN+2, BEGIN+7, BEGIN+8, BEGIN+20, SELECT+7, SELECT+13, SELECT+15, SELECT+16
, SELECT+19, SELECT+20, SELECT+24, PRINT+31, HEADER+7, HEADER+9, COST+1~, COST+2*
ECXCOUNT PRINT+1~, PRINT+9*, PRINT+11
ECXDESC EN+1~, EN+18*, EN+21
ECXERR EN+2~, PROCESS+2*
ECXISIG EN+2~, EN+11, SELECT+2*, SELECT+25*, PRINT+15, PRINT+18, PRINT+28
ECXOPT EN+1~, EN+8, EN+11, EN+13, SELECT+6*, SELECT+7, SELECT+8, SELECT+11, SELECT+13, SELECT+15
, SELECT+19, SELECT+24, PRINT+14, PRINT+18, PRINT+24, PRINT+26, HEADER+11, HEADER+12, HEADER+13, HEADER+14
ECXPORT EN+2~, EN+9*, PRINT+5, PRINT+12, PRINT+30
ECXSAVE EN+1~, EN+21
ECXSAVE("EC*" EN+19*
ECXTL EN+1~, EN+18, SELECT+11*, SELECT+16, SELECT+27, HEADER+7
EDAY PRINT+1~, PRINT+8*, PRINT+9, PRINT+11
EXPREIEN SIGPRE+1~
FKEY PRINT+1~, PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+11
FYVER EN+2~, EN+7, EN+8, SELECT+7*
GTOT PRINT+1~, PRINT+4*
I SIG+1~, SIG+6*, SIGPRE+1~, SIGPRE+2*, SIGIVP+1~, SIGIVP+6*
IO EN+23, PRINT+2
IO(0 EN+23
IOF BEGIN+1, BEGIN+22, HEADER+6
IOSL PRINT+21
IOST BEGIN+22, CLOSE+1, HEADER+2, HEADER+6
JJ CLOSE+2*, HEADER+1~, HEADER+3*
>> LIST SIGPRE+2*, SIGPRE+6*
LN PRINT+1~, PRINT+4*, HEADER+15
ORDNO SIG~, SIG+3, SIG+4, SIGPRE~, SIGPRE+3, SIGIVP~, SIGIVP+3, SIGIVP+4
OUT SELECT+1~
PATNO SIG~, SIG+3, SIG+4, SIGIVP~, SIGIVP+3, SIGIVP+4
PG PRINT+1~, PRINT+4*, HEADER+4, HEADER+6*, HEADER+7
>> POP EN+22
QFLG EN+2~, EN+3*, EN+6, EN+7, BEGIN+21*, SELECT+6*, SELECT+8, SELECT+10*, SELECT+17*, SELECT+20*
, SELECT+25*, SELECT+28, SELECT+30*, SELECT+34*, PROCESS+3*, PRINT+1~, PRINT+4*, PRINT+5, PRINT+6, PRINT+7
, PRINT+8, PRINT+9, PRINT+11, PRINT+21, PRINT+30, 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+16, PRINT+18, PRINT+22, PRINT+23, PRINT+25, PRINT+27
, PRINT+29
RECNO SIG+1~, SIG+4*, SIG+5, SIG+6, SIGPRE+1~, SIGPRE+4*, SIGPRE+5, SIGIVP+1~, SIGIVP+4*, SIGIVP+5
, SIGIVP+6
SIG SIG+1~, SIG+2*, SIG+3, SIG+6*, SIG+7, SIGPRE+1~, SIGPRE+2*, SIGPRE+3, SIGPRE+6*, SIGPRE+7
, SIGIVP+1~, SIGIVP+2*, SIGIVP+3, SIGIVP+6*, SIGIVP+7
SS CLOSE+2*, HEADER+1~, HEADER+3*
SSN PRINT+1~, PRINT+10*, PRINT+11*
>> STR SIGPRE+6*
U PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+22, PRINT+23, PRINT+25, PRINT+27, PRINT+29
X EN+1~, EN+5, SELECT+1~, SELECT+6, SELECT+17, SELECT+20, SELECT+25
Y EN+1~, EN+5*, BEGIN+21, SELECT+1~, SELECT+6, SELECT+10, SELECT+18, SELECT+20, SELECT+25, SELECT+30
, SELECT+31, SELECT+32, SELECT+34, SELECT+35, SELECT+38, SELECT+41, SELECT+42, 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