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 |  Local Variables  | All
Print Page as PDF
Routine: ECXPHAI

Package: DSS Extracts

Routine: ECXPHAI


Information

ECXPHAI ;MBS/BAH - Pharmacy DSS Extract IV Holding File Report ;3/5/24 11:53

Source Information

Source file <ECXPHAI.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  ^DIC  FIELD^DID  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 4 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$RJ^XLFSTR  EN^XUTMDEVQ  
DSS Extracts 3 $$PAT^ECXNUT  ($$EXPORT,EXPDISP)^ECXUTL1  $$PAT^ECXUTL3  

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

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
EN1 ;Init variables
EXIT
TXTYPE ;Prompt for transaction type
; This code will pull the options from the file #728.113 field #5 DD to ensure compatibility
; in case of any future change to that field.
DATES ;Prompt for start date
PATIENT ;Prompt for patient
HEADER ;Print header
GETDATA ;Get data from IV Holding File
DETAIL ;Print report
WAIT ;End of page logic

External References

Name Field # of Occurrence
DD^%DT EN+4
NOW^%DTC EN+4
$$S^%ZTLOAD WAIT+14
^DIC PATIENT+4
FIELD^DID TXTYPE+4
$$GET1^DIQ GETDATA+15
GETS^DIQ GETDATA+16
^DIR TXTYPE+8, DATES+6, DATES+14, WAIT+11
$$PAT^ECXNUT GETDATA+11
$$EXPORT^ECXUTL1 EN+11
EXPDISP^ECXUTL1 EN+16
$$PAT^ECXUTL3 GETDATA+18
$$FMTE^XLFDT DATES+5, DATES+13, HEADER+4, HEADER+5, GETDATA+22
$$NOW^XLFDT DATES+5, DATES+13
$$RJ^XLFSTR HEADER+3
EN^XUTMDEVQ EN+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column format."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"Note that the start and end dates for the IV Holding File Report refer to the",!,"DATE/TIME field, not the ORDER DATE field."
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"IV Holding File Report",?121,$$RJ^XLFSTR("PAGE: "_PAGE,10)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Start Date: "_$$FMTE^XLFDT(SDATE),?90,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"End Date: "_$$FMTE^XLFDT(EDATE),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Transaction Type Date/Time Order Number Order Date Patient"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !," Drug Additive Strength Additive Strength Units Solution Volume Cost"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+8
Routine Call
  • DIC
  • Line Location:
    • PATIENT+4
Routine Call
  • DIR
  • Line Location:
    • TXTYPE+8
    • DATES+6
    • DATES+14
    • WAIT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECX(728.113 - [#728.113] FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX( GETDATA+5, GETDATA+6, GETDATA+12, GETDATA+13
^TMP($J EN+12!, EN+13*, EN+17!, EN1+5, GETDATA+3!, GETDATA+22*, DETAIL+2, DETAIL+5*

Label References

Name Line Occurrences
DATES EN+8
DETAIL EN+15, EN1+12
EXIT EN1+3, EN1+4, EN1+11, EN1+12
GETDATA EN+14, EN1+4
HEADER EN1+3, DETAIL+10
PATIENT EN+10
TXTYPE EN+6
WAIT EN1+10, DETAIL+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+4
%DT EN+4!
CNT EN+1~, EN+13*, DETAIL+5*
CUR DETAIL+1~, DETAIL+2*, DETAIL+3*, DETAIL+5, DETAIL+8, DETAIL+9
DA GETDATA+1~, GETDATA+13*, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+22
DATE EN+1~, EN+4*, GETDATA+1~, GETDATA+2*, GETDATA+5*, GETDATA+6, GETDATA+12, GETDATA+13, GETDATA+22
DDTYPES TXTYPE+3~
DDTYPES("SET OF CODES" , TXTYPE+5
DFN GETDATA+1~, GETDATA+6*, GETDATA+8, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+18
DIC PATIENT+1~, PATIENT+3*
DIC("A" PATIENT+3*
DIC(0 PATIENT+3*
DIR TXTYPE+3~, DATES+1~, DATES+10!, WAIT+9~
DIR("A" TXTYPE+6*, DATES+4*, DATES+12*
DIR("B" TXTYPE+7*, DATES+5*, DATES+13*
DIR(0 TXTYPE+5*, DATES+3*, DATES+11*, WAIT+10*
DIROUT WAIT+9~
DIRUT TXTYPE+9, DATES+1~, DATES+7, DATES+10!, DATES+15, WAIT+9~
DIVISION EN+1~
DTEI GETDATA+1~, GETDATA+4*
DTOUT WAIT+9~
DUOUT WAIT+9~
ECDATA GETDATA+1~, GETDATA+16!, GETDATA+17*, GETDATA+22
ECPAT GETDATA+14~, GETDATA+18
ECPAT("NAME" GETDATA+19
ECPAT("SSN" GETDATA+19
ECPNAM GETDATA+14~, GETDATA+19*, GETDATA+22
ECRUN EN+1~, EN+4*, HEADER+4
ECXPAT EN+1~, PATIENT+2*, PATIENT+5*, GETDATA+8, GETDATA+10~
ECXPORT EN+1~, EN+11*, GETDATA+4, DETAIL+4
EDATE EN+1~, DATES+16*, HEADER+5, GETDATA+2
ENDATE GETDATA+1~, GETDATA+2*, GETDATA+5
ERROR GETDATA+1~, GETDATA+11*
FILE GETDATA+1~, GETDATA+2*, GETDATA+5, GETDATA+6, GETDATA+12, GETDATA+13, GETDATA+15, GETDATA+16, GETDATA+17
IOF HEADER+2
IOSL DETAIL+10, WAIT+8
IOST WAIT+7
LN EN1+1~, HEADER+1*, HEADER+8
ON GETDATA+1~, GETDATA+12*, GETDATA+13, GETDATA+22
PAGE EN1+1~, EN1+2*, HEADER+1*, HEADER+3
REPORT EN+1~
SDATE EN+1~, DATES+8*, HEADER+4, GETDATA+2
STOP EN+1~, EN+2*, EN+6, EN+8, EN+10, EN1+3, EN1+4, EN1+12, TXTYPE+9*, DATES+7*
, DATES+15*, GETDATA+5, GETDATA+6, GETDATA+12, GETDATA+13, DETAIL+3, DETAIL+10, WAIT+5*, WAIT+12*, WAIT+14*
, WAIT+15
TMP EN+1~
TXTYPE EN+1~, TXTYPE+10*, GETDATA+15
U TXTYPE+5, GETDATA+22, DETAIL+8, DETAIL+9
X EN+1~, EN+4, EN+20*, TXTYPE+3~, DATES+1~, DATES+10!, GETDATA+14~, GETDATA+18*, WAIT+9~
Y EN+1~, EN+4*, TXTYPE+3~, TXTYPE+10, DATES+1~, DATES+8, DATES+10!, DATES+16, PATIENT+5, WAIT+9~
, WAIT+12
ZTDESC EN+19~, EN+22*, EN+24
ZTIO EN+19~, EN+21*
ZTSAVE EN+19~, EN+24
ZTSAVE( EN+20*
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 |  Local Variables  | All