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

Package: Registration

Routine: DGENRPT2


Information

DGENRPT2 ;ALB/GAH - EGT Preliminary Detailed Impact Report ; 10/10/2005

Source Information

Source file <DGENRPT2.m>

Entry Points

Name Comments DBIA/ICR reference
ENPT ;Preliminary Detailed Report selected.
INFAP ;Ask the user if Future Appointments is wanted on the report.
PRESORT ;First get the current EGT Setting from file #27.16.
EGTP ;Get patients EGT Priority.
BYSRT ;Sort patients by last name for "BY(0)".
PT ;Get the patient NAME and SSN
EP ;Get the patient EGT Priority.
ENRED ;Get the patient ENROLLMENT END DATE.
ENRST ;Get the patient ENROLLMENT STATUS.
WRD ;Get the patient WARD.
FAP1 ;Get the patient FUTURE APPOINTMENTS.
FAP0 ;See if the patient has future appointment.
FAPCHK(DFN) ;
PCPVD ;Get the patient PC PROVIDER.
PFCLTY ;Get the patient PREFFERED FACILITY.
DETHD ;General header for the Preliminary Detailed Report.
DETHD1 ;Header for the Preliminary Detailed Report, with Future Appointments.
DETHD0 ;Header for the Preliminary Detailed Report, no Future Appointments.
END ;At the end of the display.
EXIT ;Clean up upon exit of the routine.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No EGT setting on file."
  • Line Location: ENPT+2
Function Call: WRITE
  • Prompt: !!,"*** This report requires a 132 column printer. ***",!!
  • Line Location: ENPT+7
Function Call: WRITE
  • Prompt: *7
  • Line Location: INFAP+5
Function Call: WRITE
  • Prompt: X
  • Line Location: FAP1+10
Function Call: WRITE
  • Prompt: !,?79,X
  • Line Location: FAP1+11
Function Call: WRITE
  • Prompt: !,?79,"More Appts"
  • Line Location: FAP1+12
Function Call: WRITE
  • Prompt: !,?((IOM-38)\2),"EGT Preliminary Detailed Impact Report"
  • Line Location: DETHD+6
Function Call: WRITE
  • Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT
  • Line Location: DETHD+7
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: DETHD+8
Function Call: WRITE
  • Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT
  • Line Location: DETHD+9
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: DETHD+10
Function Call: WRITE
  • Prompt: !!,"NAME",?21,"SSN",?32,"EP",?36,"ENROLLMENT",?48,"ENROLLMENT",?62,"WARD",?79,"FUTURE",?109,"PC",?120,"PREF"
  • Line Location: DETHD1+2
Function Call: WRITE
  • Prompt: !,?36,"END DATE",?48,"STATUS",?79,"APPOINTMENTS",?109,"PROVIDER",?120,"FACILITY",!!
  • Line Location: DETHD1+3
Function Call: WRITE
  • Prompt: !!,"NAME",?21,"SSN",?32,"EP",?36,"ENROLLMENT",?48,"ENROLLMENT",?62,"WARD",?79,"FUTURE",?87,"PC",?99,"PREF"
  • Line Location: DETHD0+2
Function Call: WRITE
  • Prompt: !,?36,"END DATE",?48,"STATUS",?79,"APPTS",?87,"PROVIDER",?99,"FACILITY",!!
  • Line Location: DETHD0+3
Function Call: WRITE
  • Prompt: !,"TOTAL PATIENTS (UNIQUE SSNS) FOR THIS FACILITY: ",TOTAL
  • Line Location: END+5

FileMan Files Accessed Via FileMan Db Call

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