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

Caller Graph Total: 2

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

Entry Points

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

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	GEN, PAT, DV+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	GEN, DV+1
DV1	DV+1
GEN	GEN
PAT	EN+2, GEN, PAT
Q	EN, GEN, PAT, CODE, CODE+2, DV+1, QUE
QUE	DV, DV+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GEN, PAT, CODE, DV+1*
%DT	DGA400+2, EN!
%DT("A"	EN*
>> DGA	EN*, EN+2, CODE+2
>> DGA1	EN, EN+2, GEN, CODE+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, EN, DV1

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