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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGENRPT3

Package: Registration

Routine: DGENRPT3


Information

DGENRPT3 ;ALB/DW,LBD - EGT Actual Summary Impact Report ; 04/24/03 2:40pm ; 07/22/02 9:40am

Source Information

Source file <DGENRPT3.m>

Entry Points

Name Comments DBIA/ICR reference
ENPT ;Actual Summary Report selected.
RPDT ;Ask the user the Report Begin Date and Report End Date.
RPDT2
GETEGTS ;First get the current EGT parameters from file #27.16.
PRESRT1 ;Sort for patient's current record and get the potentially affected.
PRESRT2 ;Sort the sorted.
EGTP ;Get patients EGT Priority.
PRINT ;Print the report.
WRITER ;Write out the report.
EXIT
PSHEAD ;Header for the Preliminary Detailed Report.
DATA ;Get all the data for the report.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: RPDT+7
Function Call: WRITE
  • Prompt: *7
  • Line Location: RPDT2+5
Function Call: WRITE
  • Prompt: !,"No EGT setting on file.",!
  • Line Location: GETEGTS+6
Function Call: WRITE
  • Prompt: !!,"Report queued! Task number: ",ZTSK
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITER+2
Function Call: WRITE
  • Prompt: !,"No EGT setting on file.",!
  • Line Location: WRITER+5
Function Call: WRITE
  • Prompt: !,?((IOM-32)\2),"EGT Actual Summary Impact Report"
  • Line Location: PSHEAD+9
Function Call: WRITE
  • Prompt: !,?((IOM-62)\2),"Date Range of Enrollment End Date: ",DT1," - ",DT2
  • Line Location: PSHEAD+10
Function Call: WRITE
  • Prompt: !,?((IOM-41)\2),"Date/Time Report Run: ",RDT
  • Line Location: PSHEAD+11
Function Call: WRITE
  • Prompt: !,?((IOM-45-$L(RLEGT_EGTSUB_EGTTP_EGTEDT))\2),"EGT Setting: ",RLEGT_EGTSUB," EGT Type: ",EGTTP," EGT Effective Date: ",EGTEDT
  • Line Location: PSHEAD+12
Function Call: WRITE
  • Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT
  • Line Location: PSHEAD+13
Function Call: WRITE
  • Prompt: !!,"IMPORTANT NOTE: Actual report is based on a comparison of the EGT Setting and the Enrollment Category as provided by HEC."
  • Line Location: PSHEAD+14
Function Call: WRITE
  • Prompt: !!,"ENROLLMENT PRIORITY",?23,"TOTAL (UNIQUE SSN)",?43,"# INPATIENT",?57,"# OUTPATIENT",!
  • Line Location: PSHEAD+15
Function Call: WRITE
  • Prompt: !,EP,?25,TLT,?45,INPT,?59,OPT
  • Line Location: DATA+5
Function Call: WRITE
  • Prompt: !,"TOTAL PATIENTS (UNIQUE SSNS) FOR THIS FACILITY: ",COUNT
  • Line Location: DATA+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGEN(27.11 - [#27.11] EXTERNAL^DILFD
^DGEN(27.16 - [#27.16] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call