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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGENRPD1

Package: Registration

Routine: DGENRPD1


Information

DGENRPD1 ;ALB/CJM - Veterans with no Application and with a Future Appointment Report; 04/28/2004

Source Information

Source file <DGENRPD1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Registration 1 PRINT^DGENRPD2  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGEN APPTS,NOT ENROLLED  

Entry Points

Name Comments DBIA/ICR reference
DIVISION(DGENRP) ;
AGAIN
REPEAT
CLINIC(DGENRP) ;
ASKRANGE(DGENRP) ;
ASKBEGIN(DGENRP) ;
JUSTONCE(DGENRP) ;
LOCATION(DGENRP) ;
DEVICE() ;
REPORT ;
EXIT ;
ASKEND(DGENRP) ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+12
HOME^%ZIS DEVICE+18
^%ZTLOAD DEVICE+16
PRINT^DGENRPD2 REPORT+15
^DIR LOCATION+14, REPEAT, AGAIN, DIVISION+10, CLINIC+11, JUSTONCE+13
$$FMADD^XLFDT ASKBEGIN+12
$$FMTE^XLFDT ASKBEGIN+12, ASKEND+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** This report requires a 132 column printer. ******"
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !,"Date must be later than today!"
  • Line Location: REPEAT+2
Function Call: WRITE
  • Prompt: !,"Date must be no earlier than "_DIR("B")
  • Line Location: AGAIN+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18
Routine Call
  • DIR
  • Line Location:
    • LOCATION+14
    • REPEAT
    • AGAIN
    • DIVISION+10
    • CLINIC+11
    • JUSTONCE+13
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] LOCATION+11

Label References

Name Line Occurrences
$$ASKBEGIN ASKRANGE+4
$$ASKEND ASKRANGE+5
$$ASKRANGE REPORT+11
$$CLINIC LOCATION+23
$$DEVICE REPORT+15
$$DIVISION LOCATION+25
$$JUSTONCE REPORT+13
$$LOCATION REPORT+12
AGAIN AGAIN+2
EXIT REPORT+11, REPORT+12, REPORT+13
REPEAT REPEAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+10*
DGENRP REPORT+1~, REPORT+11, REPORT+12, REPORT+13, LOCATION~, LOCATION+23, LOCATION+25, ASKRANGE~, ASKRANGE+4, ASKRANGE+5
, ASKBEGIN~, ASKEND~, DIVISION~, CLINIC~, JUSTONCE~
DGENRP("ALL" LOCATION+19*, LOCATION+21*
DGENRP("BEGIN" REPEAT+3*, ASKEND+13, AGAIN+2
DGENRP("CLINIC" CLINIC+14*, CLINIC+15
DGENRP("DIVISION" DIVISION+13*, DIVISION+14
DGENRP("END" AGAIN+3*
DGENRP("JUSTONCE" JUSTONCE+9*, JUSTONCE+15*
DIR LOCATION+8~, ASKBEGIN+9~, ASKEND+10~, DIVISION+3~, CLINIC+3~, JUSTONCE+8~
DIR("?" LOCATION+13*, ASKBEGIN+13*, ASKEND+14*, DIVISION+7*, CLINIC+7*
DIR("A" LOCATION+12*, ASKBEGIN+11*, ASKEND+12*, DIVISION+6*, CLINIC+6*, JUSTONCE+12*
DIR("B" LOCATION+10*, ASKBEGIN+12*, ASKEND+13*, AGAIN+2, JUSTONCE+11*
DIR("S" CLINIC+8*
DIR(0 LOCATION+11*, ASKBEGIN+10*, ASKEND+11*, DIVISION+5*, CLINIC+5*, JUSTONCE+10*
>> DIRUT LOCATION+15, REPEAT+1, AGAIN+1, JUSTONCE+14
DT ASKBEGIN+12, REPEAT+2
>> DTOUT DIVISION+11, CLINIC+12
>> DUOUT DIVISION+11, CLINIC+12
IO("Q" DEVICE+14
OK DEVICE+8~, DEVICE+9*, DEVICE+13*, DEVICE+14, DEVICE+19*, DEVICE+20
>> POP DEVICE+13
QUIT DIVISION+3~, DIVISION+8*, DIVISION+9, DIVISION+11*, DIVISION+12*, CLINIC+3~, CLINIC+9*, CLINIC+10, CLINIC+12*, CLINIC+13*
SUCCESS LOCATION+8~, LOCATION+9*, LOCATION+16*, LOCATION+23*, LOCATION+25*, LOCATION+27, DIVISION+3~, DIVISION+4*, DIVISION+11*, DIVISION+14*
, DIVISION+15, CLINIC+3~, CLINIC+4*, CLINIC+12*, CLINIC+15*, CLINIC+16
X ASKBEGIN+9~, ASKEND+10~
Y LOCATION+18, LOCATION+22, LOCATION+25, ASKBEGIN+9~, REPEAT+2, REPEAT+3, ASKEND+10~, AGAIN+2, AGAIN+3, DIVISION+12
, DIVISION+13, CLINIC+13, CLINIC+14, JUSTONCE+15
>> ZTDESC DEVICE+15*
>> ZTRTN DEVICE+15*
>> ZTSAVE("DGENRP(" DEVICE+15*
>> ZTSK DEVICE+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All