Routine: DGA4005

Package	Total	Call Graph
Registration	6	DV^DGA4001 QUIT^DGA4002 ^DGA4006 ^DGA4007 QUE^DGGECSA H^DGUTL
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
Registration	1	DGA4004

Entry Points

External References

Name	Field # of Occurrence
DV^DGA4001	S
QUIT^DGA4002	EN1+4
^DGA4006	EN1+3
^DGA4007	SAV
QUE^DGGECSA	SAV+1
H^DGUTL	SET, SAV1+4
FILE^DICN	SAV1, SAV1+1, SAV1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S(D<10:"0"_D,1:D)_")",?4,$E(D1,1,25),?30,"\|" Line Location: S+1
Function Call: WRITE	Prompt: ?$X,$J(X,4),"\|" Line Location: WR+0
Function Call: WRITE	Prompt: $C(13),$E(DGL,1,DGXI) Line Location: WR+1
Function Call: WRITE	Prompt: @IOF,!,"AMIS SEGMENTS 401-420, ",Y,", '",$P(DGDV,"^",2),"' DIVISION",!,DGL1 Line Location: H+1
Function Call: WRITE	Prompt: !?5,"Segment Number ===>",?30,"\|" Line Location: H+2
Function Call: WRITE	Prompt: " ",DGXI,"\|" Line Location: H+3
Function Call: WRITE	Prompt: $C(13),$E(DGL,1,DGXI) Line Location: H+4
Function Call: WRITE	Prompt: !?30,"\|" Line Location: H+5
Function Call: WRITE	Prompt: " " Condition for execution: ($L(DGLAB)<4) Line Location: H+6
Function Call: WRITE	Prompt: DGLAB Line Location: H+6
Function Call: WRITE	Prompt: " " Condition for execution: ($L(DGLAB)<3) Line Location: H+6
Function Call: WRITE	Prompt: "\|" Line Location: H+6
Function Call: WRITE	Prompt: !?5,"Data Element",?30,"\|" Line Location: H+8
Function Call: WRITE	Prompt: " " Condition for execution: ($L(DGLAB)<4) Line Location: H+9
Function Call: WRITE	Prompt: DGLAB Line Location: H+9
Function Call: WRITE	Prompt: " " Condition for execution: ($L(DGLAB)<3) Line Location: H+9
Function Call: WRITE	Prompt: "\|" Line Location: H+9
Function Call: WRITE	Prompt: $C(13),$E(DGL,1,DGXI) Line Location: H+11
Function Call: WRITE	Prompt: !,DGL1 Line Location: H+12
Function Call: WRITE	Prompt: $C(13),$E(DGL,1,DGXI) Line Location: END+0
Function Call: WRITE	Prompt: !,DGL1,!,"FOR EACH SEGMENT BLOCKS SHOULD BALANCE AS FOLLOWS: ",?55,"Sum of BLOCKS 02-15 plus 22-25 plus 30-33 plus 38-40 = BLOCK 01." Line Location: END+1
Function Call: WRITE	Prompt: !?55,"Sum of BLOCKS 11-15 = Sum of BLOCKS 16-19.",!?55,"Sum of BLOCKS 11-15 = Sum of BLOCKS 20-21.",!?55,"Sum of BLOCKS 22-25 = Sum of BLOCKS 26-29.",!?55,"Sum of BLOCKS 30-33 = Sum of BLOCKS 34-37." Line Location: END+2
Function Call: WRITE	Prompt: !?55,"With the exception of Segment 420, BLOCKS 39-40 should always be ZERO.",! Line Location: END+3
Function Call: WRITE	Prompt: !!,"***","Not able to generate AMIS - Data segments are out of balance for:",! Line Location: END+4
Function Call: WRITE	Prompt: X_$S($O(DGUB(X)):",",1:"") Line Location: END+5
Function Call: WRITE	Prompt: !,DGL1 Line Location: END+6
Function Call: WRITE	Prompt: !,"Totals last generated on '",Y,"' by '",$S($D(^VA(200,+$P(DGEN,"^",4),0)):$P(^(0),"^",1),1:"UNKNOWN USER"),"'.",?(127-$L(DGWHEN)-1),DGWHEN,! Line Location: END+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	H+1, END+7, SET
^DD(391.12	S+1
^DG(391.1 - [#391.1]	EN+1, SET+1, REP+1, SAV1, SAV1+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6* , OKDATE+4
^UTILITY($J	EN+1, EN1, EN1+1, EN1+3!, WR, SET+2!, REP+1, SAV, SAV+3!
^VA(200 - [#200]	END+7

Label References

Name	Line Occurrences
$$OKDATE	EN+1, EN1, WR, H+3, H+6, H+9
EN	REP1, SAV+4
EN1	REP+2
END	S+2
H	S
S	EN1+1
SAV1	SAV
SET	EN, REP+1
WR	S+1

Naked Globals

Name	Field # of Occurrence
^(	EN1*, WR, SAV
^("A1"	EN+1, REP+1
^("DGDIS"	SAV+3!
^(0	EN+1, S+1, END+7, REP+1, SAV1+1, SAV1+2, SAV1+4, SAV1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+3!
D	EN1+3!, S+1*, WR
D1	EN1+3!, S+1*
DA	SAV+3!, SAV1, SAV1+1, SAV1+2*
DA(1	SAV1+1, SAV1+2
DA(2	SAV1+2*
DD	SAV1!, SAV1+1!, SAV1+2!
DFN	SAV+3!
DFN1	SAV+3!
DG	SAV+3!
>> DGA	EN+1, H+1, SET+1, REP+1, SAV+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6 , OKDATE+5
DGBLK	SAV+3!
>> DGCODFLG	SAV+1
DGDATA	SAV+3!
DGDATA1	SAV+3!
DGDATE	SAV+3!
DGDD	EN1+3!
DGDD(	EN+1, EN1, REP+1
>> DGDEV	SAV1+6
DGDIV	SAV+1*, SAV+2!, SAV+3!
DGDIV(	SAV+1, SAV1+3*
DGDV	EN1+3!, H+1, END+4, END+5, SAV+3!
DGEN	EN+1, EN1+3!, END+7, SET, REP+1*
DGFL	EN1+4!, OKDATE+3~, OKDATE+5*, OKDATE+6
DGFL(	END+4, END+5, SAV1+3*
>> DGFLG	SAV*, SAV1+3
DGI	SAV*, SAV+3!, SAV1, SAV1+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6
DGI1	SAV*, SAV+3!, SAV1+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6
>> DGII	SET+1*
>> DGL	WR+1, H+4, H+11, END, SET, SET+2
>> DGL1	H+1, H+12, END+1, END+6, SET, SET+2
>> DGLAB	H+6, H+9
DGMYR	SAV+1*, SAV+2!
DGN	SAV, SAV+3!, SAV1+6
DGN1	SAV+3!
DGPR	EN*, EN1+3!, REP+1
DGREG	SAV+3!
DGSEG	SAV+1*, SAV+2!, SAV+3!
DGSEGR	SAV+3!
DGTIME	EN1+3!, SET, SAV+3!, SAV1+4, SAV1+5
>> DGUB(	END+5
DGWHEN	EN1+3!, END+7, SET*
>> DGWIDTH	SET+1*, SET+2
DGX	SAV+3!
DGX1	SAV+3!
DGX2	SAV+3!
DGX3	SAV+3!
>> DGXI	WR+1, H+3, H+4, H+6, H+9, H+11, END*
DGXXXD	SAV+3!
DGZ	SAV+3!
DGZ1	SAV+3!
DGZ2	SAV+3!
DIC	EN1+3!, SAV+3!, SAV1, SAV1+1, SAV1+2*
DIC(0	SAV1, SAV1+1, SAV1+2*
DINUM	SAV+3!, SAV1, SAV1+1, SAV1+2*
DO	SAV1!, SAV1+1!, SAV1+2!
DUZ	SAV1+4, SAV1+5
I	EN+1, EN1, EN1+1, EN1+3!, WR, REP+1, SAV+3!
I1	EN+1, EN1, EN1+3!, REP+1*
INACTDT	OKDATE+3~, OKDATE+4*, OKDATE+5
IO	SAV1+6
IOF	H+1
J	SAV+3!
N	EN1+3!, WR*
SEGMENT	OKDATE~, OKDATE+4
U	H+9, SET+1
X	EN+1, EN1+3!, WR, END+5, SET+1, REP+1, SAV+3!, SAV1, SAV1+1, SAV1+2
X1	SAV+3!
X2	SAV+3!
Y	EN1+3!, H+1, END+7, SET*

Customize PDF page

Package: Registration

Routine: DGA4005

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
END
H	;
REP	;Reprint
OKDATE(SEGMENT)	;
REP1
SAV1
EN1
S
SET
WR
SAV