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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 7 $$FINDCUR^DGENA  ($$FINDCUR,$$GET)^DGENEGT  $$ABOVE^DGENEGT1  $$PREF^DGENPTA  (BLDUTL,GETAPPT)^DGENRPT5  $$PCPRACT^DGSDUTL  (DEM,IN5,KVA)^VADPT  
VA Fileman 4 NOW^%DTC  $$EXTERNAL^DILFD  EN1^DIP  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGENRPT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC DETHD+3
$$FINDCUR^DGENA PRESORT+20
$$FINDCUR^DGENEGT ENPT+2, PRESORT+2
$$GET^DGENEGT PRESORT+4
$$ABOVE^DGENEGT1 EGTP+6
$$PREF^DGENPTA PFCLTY+2
BLDUTL^DGENRPT5 FAP1+4, FAP0+4
GETAPPT^DGENRPT5 PRESORT+26
$$PCPRACT^DGSDUTL PCPVD+3
$$EXTERNAL^DILFD PRESORT+14, PRESORT+25, EGTP+8, EP+6
EN1^DIP ENPT+19
^DIR INFAP+4
DEM^VADPT PRESORT+22, PT+3
IN5^VADPT WRD+2
KVA^VADPT EXIT+1
$$FMTE^XLFDT PRESORT+9, PRESORT+11

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
Routine Call
  • DIR
  • Line Location:
    • INFAP+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DETHD+3
^DGEN(27.11 - [#27.11] PRESORT+19, EGTP+2, EGTP+3, EGTP+4, EGTP+5, PT+2, EP+3, EP+5, ENRED+2, ENRST+2
^DGEN(27.15 - [#27.15] ENRST+3
^TMP($J ENPT+1!, PRESORT+18!, PRESORT+23*, BYSRT+1*, FAPCHK+1, END+2, END+3, EXIT+2!
^UTILITY("VASD" FAP1+2!, FAP1+5, FAP1+6, FAP1+7, FAP1+13, FAP0+2!, FAP0+5

Label References

Name Line Occurrences
$$FAPCHK FAP1+3, FAP0+3
BYSRT PRESORT+22
DETHD DETHD1+1, DETHD0+1
EGTP PRESORT+21
EXIT ENPT+20
INFAP ENPT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DETHD+3
ABV PRESORT+16~, PRESORT+17*, PRESORT+21, EGTP+1*, EGTP+6*
ADT FAP1+1~*, FAP1+7*, FAP1+8*, FAP1+9
BY ENPT+5~
BY(0 ENPT+9*
>> D0 PT+2, EP+3, EP+5, ENRED+2, ENRST+2
DFN ENPT+5~, PRESORT+16~, PRESORT+17*, PRESORT+19*, PRESORT+20, EGTP+6, BYSRT+1, PT+1*, PT+2*, PT+3
, FAP1+3, FAP1+4, FAP0+3, FAP0+4, FAPCHK~, FAPCHK+1, PCPVD+3, PFCLTY+2
DHD ENPT+5~, ENPT+14*, ENPT+17*
DIC ENPT+5~, ENPT+8*
DIOBEG ENPT+5~, ENPT+10*
DIOEND ENPT+5~, ENPT+18*
DIR INFAP+1~
DIR("A" INFAP+3*
DIR(0 INFAP+2*
>> DTOUT ENPT+4, INFAP+5
EGT ENPT+5~, ENPT+6*, PRESORT+6*, DETHD+8
EGTEDT ENPT+5~, ENPT+6*, PRESORT+9*, DETHD+8
EGTLDT ENPT+5~, ENPT+6*, PRESORT+11*, DETHD+9
EGTSUB ENPT+5~, ENPT+6*, PRESORT+7*, PRESORT+24*, PRESORT+25*, DETHD+8
EGTTP ENPT+5~, ENPT+6*, PRESORT+13*, PRESORT+14*, DETHD+8
ENRDT ENPT+5~, EGTP+1*, EGTP+4*, EGTP+5*
FCTY ENPT+5~, ENPT+6*, PFCLTY+1*, PFCLTY+2
FLDS ENPT+5~, ENPT+11*
FLDS(2 ENPT+13*, ENPT+16*
GETEGTS PRESORT+1~*, PRESORT+4
GETEGTS("EFFDATE" PRESORT+9
GETEGTS("ENTDATE" PRESORT+11
GETEGTS("PRIORITY" PRESORT+6
GETEGTS("SUBGRP" PRESORT+7
GETEGTS("TYPE" PRESORT+13
IND PRESORT+16~, PRESORT+17*, PRESORT+20*, PRESORT+21, EGTP+2, EGTP+3, EGTP+4, EGTP+5, BYSRT+1
INFAP ENPT+3~*, ENPT+4, ENPT+12, ENPT+15, INFAP+4*
IOM DETHD+6, DETHD+7, DETHD+8, DETHD+9
J FAP1+1~*, FAP1+5*, FAP1+6, FAP1+7, FAP1+10, FAP1+11, FAP1+12, END+1~*, END+2*, END+3
L ENPT+5~, ENPT+9*
L(0 ENPT+9*
NM PRESORT+16~, PRESORT+17*, PRESORT+22*, BYSRT+1
POP FAP1+1~*, FAP1+5, FAP1+12*
PRT PRESORT+16~, PRESORT+17*, PRESORT+23, EGTP+1*, EGTP+2*, EGTP+3, EGTP+6, EGTP+7, EGTP+10*, EP+2~*
, EP+3*, EP+4, EP+8*, EP+9
PRTSUB PRESORT+16~, PRESORT+17*, EGTP+1*, EGTP+3*, EGTP+6, EGTP+8*, EGTP+9*, EGTP+10, EP+2~*, EP+5*
, EP+6*, EP+7*, EP+8
PSSN ENPT+5~, PRESORT+16~, PRESORT+17*, PRESORT+23*, PT+1*, PT+3*, END+1~*, END+3*
RDT DETHD+2~*, DETHD+4*, DETHD+7
REC PRESORT+1~*, PRESORT+2*, PRESORT+3, PRESORT+4
TOTAL ENPT+5~, ENPT+6*, END+4*, END+5
TP PRESORT+1~*, PRESORT+4*
U PRESORT+23, EGTP+2, EGTP+3, EGTP+4, EGTP+5, PT+2, PT+3, EP+3, EP+5, ENRED+2
, ENRST+2, ENRST+3, WRD+2, FAP1+6, FAP1+7, PCPVD+5
>> VADM(1 PRESORT+22!, PT+1!, PT+3
>> VADM(2 PRESORT+22!, PRESORT+23, PT+1!, PT+3
VAERR ENPT+5~
>> VAIP(5 WRD+1!, WRD+2
VASD ENPT+5~
X ENPT+5~, INFAP+1~, PT+1*, PT+3*, EP+1*, EP+9*, ENRED+1*, ENRED+2*, ENRED+3*, ENRED+4*
, ENRST+1*, ENRST+2*, ENRST+3*, WRD+1*, WRD+2*, WRD+3*, FAP1+1*, FAP1+3*, FAP1+6*, FAP1+9*
, FAP1+10*, FAP1+11*, FAP1+12*, FAP1+13*, FAP0+1*, FAP0+3*, FAP0+5*, PCPVD+2*, PCPVD+3*, PCPVD+4*
, PCPVD+5*, PFCLTY+1*, PFCLTY+2*, PFCLTY+3*
Y INFAP+1~, INFAP+4, DETHD+2~*, DETHD+3*, DETHD+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All