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

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 5 $$FINDCUR^DGENA  $$CATEGORY^DGENA4  ($$FINDCUR,$$GET)^DGENEGT  $$ABOVE^DGENEGT1  (DEM,IN5,KVA)^VADPT  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 3 NOW^%DTC  $$EXTERNAL^DILFD  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGENRPT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PSHEAD+3
^%ZIS PRINT+2
HOME^%ZIS PRINT+9
^%ZISC WRITER+10
^%ZTLOAD PRINT+6
$$FINDCUR^DGENA PRESRT1+5
$$CATEGORY^DGENA4 PRESRT1+8
$$FINDCUR^DGENEGT GETEGTS+2, WRITER+5, WRITER+6
$$GET^DGENEGT GETEGTS+3
$$ABOVE^DGENEGT1 EGTP+6
$$EXTERNAL^DILFD GETEGTS+14, EGTP+8, PSHEAD+6
^DIR RPDT+5, RPDT2+3
DEM^VADPT PRESRT1+11
IN5^VADPT PRESRT1+10
KVA^VADPT EXIT+1
$$FMTE^XLFDT GETEGTS+9, GETEGTS+11, PSHEAD+5

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
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+9
Routine Call
  • DIR
  • Line Location:
    • RPDT+5
    • RPDT2+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGEN(27.11 - [#27.11] EXTERNAL^DILFD
^DGEN(27.16 - [#27.16] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSHEAD+3
^DGEN(27.11 - [#27.11] PRESRT1+4, PRESRT1+7, EGTP+2, EGTP+3, EGTP+4, EGTP+5
^TMP($J ENPT+1!, PRESRT1+3!, PRESRT1+12*, PRESRT2+3, PRESRT2+5, PRESRT2+6, PRESRT2+8*, PRESRT2+9!, EXIT+2!, DATA+2
, DATA+3

Label References

Name Line Occurrences
DATA WRITER+9
EGTP PRESRT1+6
EXIT PRINT+2, PRINT+3
GETEGTS WRITER+6
PRESRT1 WRITER+7
PRINT ENPT+4
PSHEAD WRITER+8
RPDT ENPT+3
RPDT2 RPDT2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSHEAD+3
%ZIS PRINT+1~, PRINT+2*
ABV PRESRT1+1~, PRESRT1+2*, PRESRT1+9, EGTP+1*, EGTP+6*
BDT ENPT+2~*, ENPT+3, RPDT+5*, RPDT+6, RPDT2+6, PRESRT1+9, PSHEAD+5
CNT PRESRT2+1~, PRESRT2+4*, PRESRT2+7*, PRESRT2+8
COUNT WRITER+3~, WRITER+4*, DATA+4*, DATA+6
DFN PRESRT1+1~, PRESRT1+2*, PRESRT1+4*, PRESRT1+5, PRESRT1+8, EGTP+6
DIR RPDT+1~
DIR("?" RPDT+4*, RPDT2+2*
DIR("A" RPDT+3*, RPDT2+1*
DIR(0 RPDT+2*, RPDT2*
DT1 PSHEAD+2~*, PSHEAD+5*, PSHEAD+10
DT2 PSHEAD+2~*, PSHEAD+5*, PSHEAD+10
>> DTOUT ENPT+3, RPDT+7, RPDT2+5
EDT ENPT+2~*, ENPT+3, RPDT2+3*, RPDT2+4, RPDT2+6, PRESRT1+9, PSHEAD+5
EGT GETEGTS+5*, GETEGTS+6*, WRITER+3~, WRITER+4*, WRITER+5*, PSHEAD+7
EGTEDT GETEGTS+9*, WRITER+3~, WRITER+4*, PSHEAD+12
EGTLDT GETEGTS+11*, WRITER+3~, WRITER+4*, PSHEAD+13
EGTSUB GETEGTS+7*, WRITER+3~, WRITER+4*, PSHEAD+6*, PSHEAD+7*, PSHEAD+12
EGTTP GETEGTS+13*, GETEGTS+14*, WRITER+3~, WRITER+4*, PSHEAD+12
ENRDT EGTP+1*, EGTP+4*, EGTP+5*, WRITER+3~
EP DATA+1~*, DATA+3*, DATA+5
GETEGTS GETEGTS+1~*, GETEGTS+3
GETEGTS("EFFDATE" GETEGTS+9
GETEGTS("ENTDATE" GETEGTS+11
GETEGTS("PRIORITY" GETEGTS+5
GETEGTS("SUBGRP" GETEGTS+7
GETEGTS("TYPE" GETEGTS+13
ICNT PRESRT2+1~, PRESRT2+4*, PRESRT2+7*, PRESRT2+8
IND PRESRT1+1~, PRESRT1+2*, PRESRT1+5*, PRESRT1+7, EGTP+2, EGTP+3, EGTP+4, EGTP+5
INPT PRESRT1+1~, PRESRT1+2*, PRESRT1+10*, PRESRT1+12, PRESRT2+6*, PRESRT2+7, DATA+1~*, DATA+3*, DATA+5
IO PRINT+1~, WRITER+1
IO("Q" PRINT+3
IOBS PRINT+1~
IOF PRINT+1~, WRITER+2
IOHG PRINT+1~
IOM PRINT+1~, PSHEAD+9, PSHEAD+10, PSHEAD+11, PSHEAD+12, PSHEAD+13
ION PRINT+1~
IOPAR PRINT+1~
IOS PRINT+1~
IOSL PRINT+1~
IOST PRINT+1~, WRITER+2
IOT PRINT+1~
IOUPAR PRINT+1~
IOXY PRINT+1~
J PRESRT2+1~, PRESRT2+2*, PRESRT2+3*, PRESRT2+5, PRESRT2+6, PRESRT2+8
K PRESRT2+1~, PRESRT2+2*, PRESRT2+5*, PRESRT2+6
OCNT PRESRT2+1~, PRESRT2+4*, PRESRT2+7*, PRESRT2+8
OPT DATA+1~*, DATA+3*, DATA+5
PCTRY PRESRT1+1~, PRESRT1+2*, PRESRT1+8*, PRESRT1+9
PEDT PRESRT1+1~, PRESRT1+2*, PRESRT1+7*, PRESRT1+9
POP PRINT+1~, PRINT+2
PRT PRESRT1+1~, PRESRT1+2*, PRESRT1+12, EGTP+1*, EGTP+2*, EGTP+3, EGTP+6, EGTP+7, EGTP+10*
PRTSUB PRESRT1+1~, PRESRT1+2*, EGTP+1*, EGTP+3*, EGTP+6, EGTP+8*, EGTP+9*, EGTP+10
PSSN PRESRT1+1~, PRESRT1+2*, PRESRT1+11*, PRESRT1+12
RDT PSHEAD+2~*, PSHEAD+4*, PSHEAD+11
REC GETEGTS+1~*, GETEGTS+2*, GETEGTS+3
RLEGT GETEGTS+5*, WRITER+3~, WRITER+4*, PSHEAD+12
T DATA+1~*, DATA+2*, DATA+3
TLT DATA+1~*, DATA+3*, DATA+4, DATA+5
TMP PRESRT1+1~, PRESRT1+2*, PRESRT1+10*
TP GETEGTS+1~*, GETEGTS+3*
TSK PRINT+1~, PRINT+7*, PRINT+8
U PRESRT1+7, PRESRT1+10, PRESRT1+11, PRESRT2+6, EGTP+2, EGTP+3, EGTP+4, EGTP+5, DATA+3
>> VADM(2 PRESRT1+11!
>> VAIP(2 PRESRT1+10!
X RPDT+1~
Y RPDT+1~, RPDT+5, RPDT2+3, PSHEAD+2~*, PSHEAD+3*, PSHEAD+4
ZTDESC PRINT+1~, PRINT+4*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN PRINT+1~, PRINT+4*
ZTSAVE PRINT+1~
ZTSAVE("BDT" PRINT+5*
ZTSAVE("EDT" PRINT+5*
>> ZTSK PRINT+7, PRINT+8
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