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: DGENRPT1

Package: Registration

Routine: DGENRPT1


Information

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

Source Information

Source file <DGENRPT1.m>

Entry Points

Name Comments DBIA/ICR reference
ENPT ;Preliminary Summary Report selected.
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 ;Decide if the patient is above EGT.
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: !,"No EGT setting on file."
  • Line Location: ENPT+2
Function Call: WRITE
  • Prompt: !!,"Report queued! Task number: ",ZTSK
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITER+2
Function Call: WRITE
  • Prompt: !,?((IOM-38)\2),"EGT Preliminary Summary Impact Report"
  • Line Location: PSHEAD+8
Function Call: WRITE
  • Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT
  • Line Location: PSHEAD+9
Function Call: WRITE
  • Prompt: !,?((IOM-45-$L(EGT_EGTSUB_EGTTP_EGTEDT))\2),"EGT Setting: ",EGT_EGTSUB," EGT Type: ",EGTTP," EGT Effective Date: ",EGTEDT
  • Line Location: PSHEAD+10
Function Call: WRITE
  • Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT
  • Line Location: PSHEAD+11
Function Call: WRITE
  • Prompt: !!,"IMPORTANT NOTE:",!,"Preliminary report is based on a comparison of the EGT setting to the veterans current enrollment priority as shown in VISTA."
  • Line Location: PSHEAD+12
Function Call: WRITE
  • Prompt: !!,"ENROLLMENT PRIORITY",?23,"TOTAL (UNIQUE SSN)",?43,"# INPATIENT",?57,"# OUTPATIENT",!
  • Line Location: PSHEAD+13
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