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

Package: Registration

Routine: DGENRPT4


Information

DGENRPT4 ;ALB/DW,LBD/EG - EGT Actual Detailed Impact Report ; 1/20/05 1:04pm

Source Information

Source file <DGENRPT4.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 8 $$FINDCUR^DGENA  $$CATEGORY^DGENA4  ($$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
FAP1 ;Get the patient FUTURE APPOINTMENTS.
FAP0 ;See if the patient has future appointment.
PRESRT1 ;Sort for patient's current record and get the potentially affected.
ENRED ;Get the patient ENROLLMENT END DATE.
PCPVD ;Get the patient PC PROVIDER.
DETHD1 ;Header for the Preliminary Detailed Report, with Future Appointments.
DETHD0 ;Header for the Preliminary Detailed Report, no Future Appointments.
PRESORT ;First get the current EGT Setting from file #27.16.
WRD ;Get the patient WARD.
END ;At the end of the display.
PFCLTY ;Get the patient PREFFERED FACILITY.
RPDT2
EP ;Get the patient EGT Priority.
PT ;Get the patient NAME and SSN
ENPT ;Actual Detailed Report selected.
INFAP ;Ask the user if Future Appointments is wanted on the report.
DETHD ;General header for the Preliminary Detailed Report.
EGTP ;Get patients EGT Priority.
ENRST ;Get the patient ENROLLMENT STATUS.
RPDT ;Ask the user the Report Begin Date and Report End Date.
EXIT ;Clean up upon exit of the routine.
BYSRT ;Sort patients by last name for "BY(0)".

External References

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

Interaction Calls

Name Line Occurrences
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: *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: PRESORT+4
Function Call: WRITE
  • Prompt: !,"No EGT setting on file.",!
  • Line Location: PRESORT+8
Function Call: WRITE
  • Prompt: X
  • Line Location: FAP1+11
Function Call: WRITE
  • Prompt: !,?79,X
  • Line Location: FAP1+12
Function Call: WRITE
  • Prompt: !,?79,"More Appts"
  • Line Location: FAP1+13
Function Call: WRITE
  • Prompt: !,?((IOM-33)\2),"EGT Actual Detailed Impact Report"
  • Line Location: DETHD+7
Function Call: WRITE
  • Prompt: !,?((IOM-38-$L(DT1_DT2))\2),"Date Range of Enrollment End Date: ",DT1," - ",DT2
  • Line Location: DETHD+8
Function Call: WRITE
  • Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT
  • Line Location: DETHD+9
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: DETHD+10
Function Call: WRITE
  • Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT
  • Line Location: DETHD+11
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: DETHD+12
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: ",COUNT
  • Line Location: END+4
Routine Call
  • DIR
  • Line Location:
    • INFAP+4
    • RPDT+5
    • RPDT2+3

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] PRESRT1+4, PRESRT1+8, 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!, PRESRT1+3!, PRESRT1+12*, BYSRT+1*, FAP1+4, FAP0+6, END+2, END+3, EXIT+2!
^UTILITY("VASD" FAP1+2!, FAP1+6, FAP1+7, FAP1+8, FAP1+14, FAP0+2!, FAP0+8

Label References

Name Line Occurrences
BYSRT PRESRT1+11
DETHD DETHD1+1, DETHD0+1
EGTP PRESRT1+7
EXIT ENPT+20
INFAP ENPT+4
PRESRT1 PRESORT+4
RPDT ENPT+3
RPDT2 RPDT2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DETHD+3
ABV PRESRT1+1~, PRESRT1+2*, PRESRT1+10, EGTP+1*, EGTP+6*
ADT FAP1+1~*, FAP1+8*, FAP1+9*, FAP1+10
BDT ENPT+2~*, ENPT+3, RPDT+5*, RPDT+6, RPDT2+6, PRESRT1+10, DETHD+5
BY ENPT+5~
BY(0 ENPT+10*
COUNT END+1~*, END+3*, END+4
>> D0 PT+2, EP+3, EP+5, ENRED+2, ENRST+2
DFN ENPT+5~, PRESRT1+1~, PRESRT1+2*, PRESRT1+4*, PRESRT1+5, PRESRT1+9, EGTP+6, BYSRT+1, PT+1*, PT+2*
, PT+3, FAP1+5, FAP0+7, PCPVD+3, PFCLTY+2
DHD ENPT+5~, ENPT+14*, ENPT+17*
DIC ENPT+5~, ENPT+8*
DIOBEG ENPT+5~, ENPT+9*
DIOEND ENPT+5~, ENPT+18*
DIR INFAP+1~, RPDT+1~
DIR("?" RPDT+4*, RPDT2+2*
DIR("A" INFAP+3*, RPDT+3*, RPDT2+1*
DIR(0 INFAP+2*, RPDT+2*, RPDT2*
DT1 DETHD+2~*, DETHD+5*, DETHD+8
DT2 DETHD+2~*, DETHD+5*, DETHD+8
>> DTOUT ENPT+3, ENPT+4, INFAP+5, RPDT+7, RPDT2+5
EDT ENPT+2~*, ENPT+3, RPDT2+3*, RPDT2+4, RPDT2+6, PRESRT1+10, DETHD+5
EGT ENPT+5~, ENPT+6*, PRESORT+4*, PRESORT+7*, PRESORT+8*
EGTEDT ENPT+5~, ENPT+6*, PRESORT+11*, DETHD+10
EGTLDT ENPT+5~, ENPT+6*, PRESORT+13*, DETHD+11
EGTSUB ENPT+5~, ENPT+6*, PRESORT+9*, PRESRT1+13*, PRESRT1+14*, DETHD+10
EGTTP ENPT+5~, ENPT+6*, PRESORT+15*, PRESORT+16*, DETHD+10
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+5
GETEGTS("EFFDATE" PRESORT+11
GETEGTS("ENTDATE" PRESORT+13
GETEGTS("PRIORITY" PRESORT+7
GETEGTS("SUBGRP" PRESORT+9
GETEGTS("TYPE" PRESORT+15
IND PRESRT1+1~, PRESRT1+2*, PRESRT1+5*, PRESRT1+6, PRESRT1+8, EGTP+2, EGTP+3, EGTP+4, EGTP+5, BYSRT+1
INFAP ENPT+2~*, ENPT+4, ENPT+12, ENPT+15, INFAP+4*
IOM DETHD+7, DETHD+8, DETHD+9, DETHD+10, DETHD+11
J FAP1+1~*, FAP1+6*, FAP1+7, FAP1+8, FAP1+11, FAP1+12, FAP1+13, END+1~*, END+2*, END+3
L ENPT+5~, ENPT+10*
L(0 ENPT+10*
NM PRESRT1+1~, PRESRT1+2*, PRESRT1+11*, BYSRT+1
PCTRY PRESRT1+1~, PRESRT1+2*, PRESRT1+9*, PRESRT1+10
PEDT PRESRT1+1~, PRESRT1+2*, PRESRT1+8*, PRESRT1+10
POP FAP1+1~*, FAP1+6, FAP1+13*
PRT PRESRT1+1~, PRESRT1+2*, PRESRT1+12, EGTP+1*, EGTP+2*, EGTP+3, EGTP+6, EGTP+7, EGTP+10*, EP+2~*
, EP+3*, EP+4, EP+8*, EP+9
PRTSUB PRESRT1+1~, PRESRT1+2*, 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~, PRESRT1+1~, PRESRT1+2*, PRESRT1+12*, PT+1*, PT+3*, END+1~*, END+3*
RDT DETHD+2~*, DETHD+4*, DETHD+9
REC PRESORT+1~*, PRESORT+2*, PRESORT+4, PRESORT+5
RLEGT ENPT+5~, ENPT+6*, PRESORT+7*, DETHD+10
TP PRESORT+1~*, PRESORT+5*
U PRESRT1+8, PRESRT1+12, 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+7, FAP1+8, PCPVD+5
>> VADM(1 PRESRT1+11!, PT+1!, PT+3
>> VADM(2 PRESRT1+11!, PRESRT1+12, PT+1!, PT+3
VAERR ENPT+5~
>> VAIP(5 WRD+1!, WRD+2
VASD ENPT+5~
X ENPT+5~, INFAP+1~, RPDT+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+4*, FAP1+7*
, FAP1+10*, FAP1+11*, FAP1+12*, FAP1+13*, FAP1+14*, FAP0+1*, FAP0+6*, FAP0+8*, PCPVD+2*, PCPVD+3*
, PCPVD+4*, PCPVD+5*, PFCLTY+1*, PFCLTY+2*, PFCLTY+3*
Y INFAP+1~, INFAP+4, RPDT+1~, RPDT+5, RPDT2+3, 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