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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXDRUG1

Package: DSS Extracts

Routine: ECXDRUG1


Information

ECXDRUG1 ;ALB/TMD-Pharmacy Extracts Incomplete Feeder Key Report ;5/9/19 16:47

Source Information

Source file <ECXDRUG1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$RJ^XLFSTR  EN^XUTMDEVQ  
DSS Extracts 3 EN^ECXDRUG2  (,AUDIT)^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  
VA FileMan 3 (,DD)^%DT  NOW^%DTC  ^DIR  

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 ECX PHA FKEY  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
BEGIN ; display report description
SELECT ; user inputs for report option and date range
PROCESS ; entry point for queued report
PRINT ; process temp file and print report
CLOSE ;
HEADER ; header and page control

External References

Name Field # of Occurrence
^%DT SELECT+9, SELECT+13
DD^%DT EN+5, SELECT+12, SELECT+22
NOW^%DTC EN+5
HOME^%ZIS EN+21
^%ZISC EN+20
$$S^%ZTLOAD PRINT+3
^DIR BEGIN+12, SELECT+4, CLOSE+3, HEADER+4
EN^ECXDRUG2 PROCESS+2
^ECXKILL EN+16
AUDIT^ECXKILL EN+22
$$EXPORT^ECXUTL1 EN+10
EXPDISP^ECXUTL1 EN+15
$$RJ^XLFSTR PRINT+19, PRINT+28, PRINT+34
EN^XUTMDEVQ EN+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column format."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: @IOF,!,"This report prints a listing of Drug File (#50) entries that will generate",!,"incomplete Feeder keys in the three Pharmacy Extracts. This listing",!,"can be used to identify and fix Drug File entries. "
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: "The number of extract",!,"records, total, quantity, unit price and total cost for each drug are",!,"included to aid in determining the impact of the incomplete Feeder Keys."
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!,"This report is broken into 3 sections as follows:"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !!,"Section 1: No PSNDF VA Product Name Entry (first 5 digits are zero)."
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !!,"Section 2: No National Drug Code (NDC) (last 12 digits are zero) or the NDC",!,?12,"is prefixed with an 'S', indicating possible supply item number",!,?12,"or UPC."
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !!,"Section 3: No PSNDF VA Product Name Entry or NDC."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of the extract and",!,"could take as long as 30 minutes or more to complete. This report has no effect",!,"on the actual extracts and can be run as needed."
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: "Choose the report you would like to run."
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !!,?8,"No drugs to report for this section",!
  • Line Location: PRINT+22
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 Incomplete Feeder Key Report",?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"Drug",?8,"Generic Name",?60,"Feeder Key",?79,"# of",?89,"Total",?107,"Unit",?122,"Total"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Entry",?79,"Records",?89,"Quantity",?107,"Price",?122,"Cost"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!,"No PSNDF VA Product Name Entry (Five leading zeros)",!
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!,"No National Drug Code (NDC) (Last 12 zeros, 'N/A', or 'S' prefix)",!
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!,"No PSNDF VA Product Name Entry or National Drug Code (NDC)",!
  • Line Location: HEADER+15
Routine Call
  • DIR
  • Line Location:
    • BEGIN+12
    • SELECT+4
    • CLOSE+3
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EN+11!, EN+12*, PRINT+6, PRINT+7, PRINT+15*, PRINT+17*

Label References

Name Line Occurrences
BEGIN EN+6
HEADER PRINT+5, PRINT+20, PRINT+25, PRINT+32
PRINT PROCESS+3
PROCESS EN+14
SELECT EN+7

Naked Globals

Name Field # of Occurrence
^( PRINT+6, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5
%DT EN+5!, SELECT+9!*, SELECT+13!*
%DT("A" SELECT+9*, SELECT+13*
%DT(0 SELECT+9*, SELECT+13*
CNT EN+1~, EN+13*, PRINT+15, PRINT+17, PRINT+18*
COUNT PRINT+1~, PRINT+6*, PRINT+8*, PRINT+22, PRINT+24
DATE EN+1~, EN+5*, SELECT+9, SELECT+13
DIR BEGIN+12!, SELECT+4!, CLOSE+3!, HEADER+4!
DIR("A" SELECT+4*
DIR("B" SELECT+4*
DIR(0 BEGIN+12*, SELECT+4*, CLOSE+3*, HEADER+4*
DONE SELECT+1~, SELECT+8*, SELECT+23*
DR PRINT+1~, PRINT+6*, PRINT+7, PRINT+15, PRINT+19
ECCOST PRINT+1~, PRINT+12*, PRINT+19
ECCOUNT PRINT+1~, PRINT+9*, PRINT+19
ECED EN+1~, SELECT+8*, SELECT+21*
ECEND EN+1~, SELECT+22*, HEADER+9
ECPRC PRINT+1~, PRINT+11*, PRINT+19
ECQTY PRINT+1~, PRINT+10*, PRINT+19
ECRUN EN+1~, EN+5*, HEADER+9
>> ECSD SELECT+8*, SELECT+11*, SELECT+15, SELECT+18
ECSD1 EN+1~, SELECT+11*
ECSTART EN+1~, SELECT+12*, HEADER+8
ECTYPE PRINT+1~, PRINT+6*
ECXDESC EN+1~, EN+8*, EN+18
ECXERR EN+1~, PROCESS+2*
ECXOPT EN+1~, SELECT+4*, SELECT+5
ECXPORT EN+1~, EN+10*, PRINT+5, PRINT+14, PRINT+21, PRINT+30
ECXRPT EN+1~, EN+3*
ECXSAVE EN+1~, EN+18
ECXSAVE("EC*" EN+9*
ECXTL EN+1~, EN+8, SELECT+5*, SELECT+7, PRINT+15, HEADER+7
GTOT PRINT+1~, PRINT+4*, PRINT+26*, PRINT+31, PRINT+33*, PRINT+34
IO EN+20, PRINT+2
IO(0 EN+20
IOF BEGIN+1, BEGIN+13, HEADER+6
IOSL PRINT+20, PRINT+25, PRINT+32
IOST BEGIN+13, CLOSE+1, HEADER+2, HEADER+6
JJ CLOSE+2*, HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+4*, HEADER+12
MESS PRINT+1~, PRINT+16*, PRINT+17
OUT SELECT+1~
PG PRINT+1~, PRINT+4*, HEADER+4, HEADER+6*, HEADER+7
>> POP EN+19
QFLG EN+1~, EN+2*, EN+6, EN+7, BEGIN+12*, SELECT+4*, SELECT+8, SELECT+10*, SELECT+14*, PROCESS+3*
PRINT+4*, PRINT+5, PRINT+6, PRINT+21, PRINT+25, PRINT+31, PRINT+32, CLOSE+1, HEADER+4*, HEADER+5
REC PRINT+1~, PRINT+7*, PRINT+11, PRINT+15, PRINT+19
S PRINT+1~, PRINT+5*, PRINT+6, PRINT+16, HEADER+13, HEADER+14, HEADER+15
SS CLOSE+2*, HEADER+1~, HEADER+3*
STATS PRINT+1~, PRINT+7*, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+15
SUBTOT PRINT+1~, PRINT+6*, PRINT+13*, PRINT+26, PRINT+27*, PRINT+28
U PRINT+6, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+17, PRINT+19
X EN+1~, EN+5, SELECT+4
Y EN+1~, EN+5*, BEGIN+12, SELECT+4, SELECT+10, SELECT+11, SELECT+12, SELECT+14, SELECT+15, SELECT+18
SELECT+21, SELECT+22, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All