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

Package: DSS Extracts

Routine: ECXDRG


Information

ECXDRG ;ALB/TJL - DRG Report ;4/2/24 15:12

Source Information

Source file <ECXDRG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 $$S^%ZTLOAD  $$FMTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 2 NOW^%DTC  ^DIR  
DSS Extracts 1 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: 1

Package Total Caller Graph
DSS Extracts 1 ECX DRG RPT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point from menu option
EN1 ; Tasked entry point
; Declare variables
GETDATA ;
HEADER ;print header
DETAIL ;Print detailed line
; Input : ^TMP("ECXDRG",$J) full global reference
; Output : None
WAIT ;End of page logic
EXIT ;Kill temp global

External References

Name Field # of Occurrence
NOW^%DTC EN1+7
$$S^%ZTLOAD WAIT+11
^DIR WAIT+9
EXPDISP^ECXUTL1 EN+8
$$FMTE^XLFDT EN1+7, GETDATA+6
EN^XUTMDEVQ EN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** Report requires 132 columns to print correctly **",!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"+=========================+"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,"| No DRG data available |"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !,"+=========================+"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?45,"Diagnosis Related Group (DRG) Report",?120,"Page: ",PAGENUM
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?43,"Report Run Date/Time: "_RUNDATE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!!,"DRG NAME",?35,"EFFECTIVE DATE",?56,"STATUS",?68,"INACTIVATION DATE",!,LN,!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$P(NODE,U,1),?36,$P(NODE,U,2),?56,$P(NODE,U,3),?70,$P(NODE,U,4)
  • Line Location: DETAIL+6
Function Call: WRITE
  • Prompt: !,"DESCRIPTION:"
  • Line Location: DETAIL+7
Function Call: WRITE
  • Prompt: ?14,^TMP("ECXDRG",$J,RECORD,DLINE),!
  • Line Location: DETAIL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+6
Function Call: WRITE
  • Prompt: !,"**************************************************"
  • Line Location: WAIT+13
Function Call: WRITE
  • Prompt: !,"* Printing of DRG report stopped, as requested *"
  • Line Location: WAIT+14
Function Call: WRITE
  • Prompt: !,"**************************************************"
  • Line Location: WAIT+15
Routine Call
  • DIR
  • Line Location:
    • WAIT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] GETDATA+1, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+18
^TMP("ECXDRG" EN+7, EN1+4!, EN1+10, EN1+17!, GETDATA+11*, GETDATA+16*, GETDATA+18*, DETAIL+4, DETAIL+5, DETAIL+8
, EXIT+1!
^TMP($J EN+4!, EN+5*, EN+7*

Label References

Name Line Occurrences
DETAIL EN1+16
EN1 EN+6
EXIT EN1+8, EN1+16
GETDATA EN1+9
HEADER EN1+8, DETAIL+10
WAIT EN1+15, DETAIL+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+7
BLANK DETAIL+3~, DETAIL+5*, DETAIL+8*, DETAIL+9
CNT EN1+3~, EN1+6*, GETDATA+2*, GETDATA+11, GETDATA+16*, GETDATA+18
DA EN1+2~, GETDATA+1*, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+18
DESC EN1+2~
>> DESCDA GETDATA+13*, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+18
DIC EN1+3~
DIQ EN1+3~
DIR EN+1~, WAIT+7~
DIR(0 WAIT+8*
DIROUT WAIT+7~
DIRUT WAIT+7~
DLINE DETAIL+3~, DETAIL+8*
DR EN1+3~
DTOUT WAIT+7~
DUOUT WAIT+7~
ECXPORT EN+1~, EN+3*, EN1+8, EN1+9, GETDATA+16
>> EFFDA GETDATA+4*, GETDATA+5
>> EFFDT GETDATA+6*, GETDATA+8, GETDATA+10
I EN+1~, EN+15*, EN+16
INACT EN1+2~, GETDATA+8*, GETDATA+10
IOF HEADER+2
IOSL DETAIL+10, WAIT+6
IOST WAIT+5
LINECT EN1+2~, GETDATA+15*, GETDATA+17*, GETDATA+18
LINEDA EN1+2~, GETDATA+15*, GETDATA+16, GETDATA+18
LN EN1+2~, EN1+5*, HEADER+5
NAME EN1+2~, GETDATA+3*, GETDATA+10
NESI EN1+2~, GETDATA+10*, GETDATA+11, GETDATA+16
NODE DETAIL+3~, DETAIL+5*, DETAIL+6
NODE0 EN1+2~, GETDATA+5*, GETDATA+6, GETDATA+7, GETDATA+14*
PAGENUM EN1+2~, EN1+6*, HEADER+1*, HEADER+3
QFLG EN1+3~, EN1+6*
RECORD DETAIL+3~, DETAIL+4*, DETAIL+5, DETAIL+8
RUNDATE EN1+3~, EN1+7*, HEADER+4
STAT EN1+2~, GETDATA+7*, GETDATA+8, GETDATA+9*, GETDATA+10
STOP EN1+3~, EN1+6*, EN1+8, EN1+16, DETAIL+4, DETAIL+10, WAIT+4*, WAIT+10*, WAIT+11*, WAIT+12
U EN1+2~, EN1+5*, GETDATA+3, GETDATA+6, GETDATA+7, GETDATA+10, GETDATA+16, DETAIL+6
X EN+1~, WAIT+7~
Y EN+1~, EN1+7*, WAIT+7~, WAIT+10
ZTDESC EN+12~, EN+14*, EN+17
ZTIO EN+12~, EN+13*
ZTSAVE EN+12~, EN+17
ZTSAVE( EN+16*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All