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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGA400

Package: Registration

Routine: DGA400


Information

DGA400 ;ALB/MRL - AMIS 401-420 GENERATION OF FILE ;01 JAN 1988@2300

Source Information

Source file <DGA400.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ^DGA4001  (,QUIT1)^DGA4002  ASK^DGGECSA  ZIS^DGUTQ  
VA FileMan 3 ^%DT  ^DIC  YN^DICN  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG AMIS 401-420  DGA4001  

Entry Points

Name Comments DBIA/ICR reference
EN
GEN
PAT
CODE
DV
DV1
QUE
UP
Q
T ;

External References

Name Field # of Occurrence
^%DT DGA400+2, EN
^%ZIS DGA400+2
^DGA4001 CODE+4
^DGA4002 EN
QUIT1^DGA4002 Q
ASK^DGGECSA CODE
ZIS^DGUTQ CODE+2, QUE
^DIC DV1
YN^DICN GENPATDV+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"I DON'T KNOW WHO YOU ARE...UNABLE TO PROCEED!",*7
  • Line Location: DGA400+3
Function Call: WRITE
  • Prompt: !!,*7,"Report for previous month of '",Y,"' must be run first...",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Totals already on file for '",DGA1,"..."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"DO YOU WISH TO REGENERATE (WHICH CAN TAKE A WHILE)"
  • Line Location: GEN+0
Function Call: WRITE
  • Prompt: !!?4,"YES - To regenerate the totals for '",DGA1,"'.",!?4,"NO - To QUIT this process immediately.",!
  • Line Location: GEN+0
Function Call: WRITE
  • Prompt: !!?4,"YES - To include a listing of all patients counted in these reports.",!?4,"NO - To exclude listing."
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CODE+1
Function Call: WRITE
  • Prompt: !,J
  • Line Location: CODE+1
Function Call: WRITE
  • Prompt: !!,"THIS REPORT IS FORMATTED TO RUN WITH A RIGHT MARGIN OF 132!",*7,!
  • Line Location: CODE+2
Function Call: WRITE
  • Prompt: !!,"PRINT REPORT FOR ALL DIVISIONS"
  • Line Location: DV+1
Function Call: WRITE
  • Prompt: !!?4,"YES - To print report for ALL divisions.",!?4,"NO - To select a specific division you wish to print."
  • Line Location: DV+1
Function Call: WRITE
  • Prompt: !!,"THIS PRINTOUT IS FORMATTED TO OUTPUT WITH A 132-COLUMN RIGHT MARGIN!",*7
  • Line Location: QUE+0
Routine Call
  • DIC
  • Line Location:
    • DV1
Routine Call
  • %ZIS
  • Line Location:
    • DGA400+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN
^DG(391.1 - [#391.1] EN+2
^DG(43 - [#43] DV, UP*
^VA(200 - [#200] DGA400+3

Label References

Name Line Occurrences
@( QUE+2
DV GENDV+1
DV1 DV+1
GEN GEN
PAT EN+2, GENPAT
Q ENGENPATCODECODE+2, DV+1, QUE
QUE DVDV+1

Naked Globals

Name Field # of Occurrence
^("AMIS" UP*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GEN*, PAT*, CODEDV+1*
%DT DGA400+2*, EN*!
%DT("A" EN*
>> DGA EN*, EN+2, CODE+2
>> DGA1 EN*, EN+2, GENCODE+2*
>> DGAE EN*, CODE+2
>> DGAE1 CODE+2*
>> DGAL PAT*, QUE*
>> DGCODFLG CODE*
>> DGDEV DGA400+2*
>> DGE EN
>> DGHOME CODE+2*, CODE+4*
>> DGPGM CODE+2*, QUE*, QUE+2
>> DGPR DV*, DV1*, QUE
>> DGQUIT CODE+2*
>> DGVAR CODE+2*, QUE*
>> DGWR EN*
>> DIC DV1*
>> DIC(0 DV1*
DT DGA400+2*
DTIME DGA400+2*
DUZ DGA400+3, UP
>> I CODE+1*
IOP DGA400+2*!
>> J CODE+1*
>> POP CODE+2, QUE
U DGA400+2*
>> X DGA400+2*, EN+2*
>> Y DGA400+2, ENDV1

Marked Items

Name Field # of Occurrence
$T(T+I CODE+1
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 |  Naked Globals |  Local Variables |  Marked Items  | All