Routine: DGAINP1

Package	Total	Call Graph
Registration	3	^DGAINP0 ^DGAINP2 ^DGAINP4
VA Fileman	1	^DIK

Package	Total	Caller Graph
Registration	1	DGAINP

Name	Comments	DBIA/ICR reference
CEN	;AMIS Statistics are Calculated using data for Ward from Census File
UTL	;Save AMIS Statistics in the Utility Global
Q
PSY	;Set Utility GLobal for Psych 1-45 PDC
DEL	;Delete Previous AMIS Statistics
CAL	;Actual Calculations for AMIS Fields

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(DGCP0="":"Beginning",1:"End")," of month statistics are missing for ward ",$P(DGW0,"^"),".",!,"Ward not included in AMIS ",DGSEG," calculations." Line Location: CEN+5

Name	Line Occurrences (* Changed, ! Killed)
^DG(41.9 - [#41.9]	CEN+3, CEN+4
^DG(43 - [#43]	CEN+2
^DGAM(334 - [#42.6]	DGAINP1+11
^DIC(42 - [#42]	DGAINP1+12
^UTILITY($J	UTL+2, UTL+5*, PSY+2

Name	Field # of Occurrence
DA	DEL+1*!
DA(1	DEL+1*
DGAA	Q!, CAL+12*, UTL+3
DGABO	Q!, CAL+10*, UTL+3
DGAM	Q!, UTL+2, UTL+4, UTL+5
DGBO	Q!, CAL+9*, UTL+3
DGCE0	Q!, CEN+4*, CEN+5, CAL+1, CAL+2, CAL+3, CAL+4, CAL+5, CAL+6, CAL+7 , CAL+8, CAL+9, CAL+11, CAL+12
DGCE1	Q!, CEN+4*, CAL+10, CAL+13, CAL+14
DGCP0	Q!, CEN+3*, CEN+5, CAL+1, CAL+2, CAL+3, CAL+4, CAL+5, CAL+6, CAL+7 , CAL+8, CAL+11, CAL+12
DGDA	Q!, CAL+7*, UTL+3
DGDE	Q!, CAL+4*, CAL+7, UTL+3
DGDIV	Q!, CEN+2, UTL+2, UTL+5, PSY+2
DGDO	Q!, CAL+5*, CAL+7, UTL+3
DGEND	Q!, UTL+4*
>> DGEOM	CEN+4
DGERRFLG	DGAINP1+12, Q!, CEN+1, CEN+5
DGFE	Q!, CAL+14*, UTL+3
DGGB	Q!, CAL+3*, UTL+3
DGL45	Q!
DGL45(	PSY+2
DGLB	Q!, CAL+8*, UTL+3
>> DGMYR	DGAINP1+11, DEL+1, UTL+2, UTL+5, PSY+2
DGOB	Q!, CAL+13*, UTL+3
DGPD	Q!, CAL+11*, UTL+3
>> DGPEOM	CEN+3
DGSEG	DGAINP1+11, DGAINP1+12, Q!, DEL+1, CEN+1, CEN+5, UTL+2, UTL+3, UTL+4, UTL+5
DGSTR	Q!, UTL+3*, UTL+4
DGTA	Q!, CAL+2*, UTL+3
DGTI	Q!, CAL+1*, CAL+2, UTL+3
DGTO	Q!, CAL+6*, CAL+7, UTL+3
DGW0	DGAINP1+12*, Q!, CEN+1, CEN+2, CEN+5
DGWI	DGAINP1+12*, Q!, CEN+3, CEN+4
DIK	DEL+1*!
I	Q!, UTL+4*
X	Q!, CEN+1*

Information