Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls