Routine: ADGCEN31

Package	Total	Call Graph
IHS Changes To ADT	2	(,END1)^ADGCEN32 TIME^ADGUTIL
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCEN30

Entry Points

External References

Name	Field # of Occurrence
^ADGCEN32	END
END1^ADGCEN32	END1
TIME^ADGUTIL	HEAD+5
^DIR	NEXT, NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?45,"CENSUS CHANGE FOR WARD: ",$J(DGTOTL,3) Line Location: DEATHS+1
Function Call: WRITE	Prompt: !!?37,"NEWBORN CENSUS CHANGE FOR WARD: ",$J(DGX,3) Line Location: NEWBORN+5
Function Call: WRITE	Prompt: !!?80-$L(DGMOVE)/2,DGMOVE Line Location: FIND+1
Function Call: WRITE	Prompt: !?3,DGTM,?20,DGNM,?50,$J(DGCHT,6) Line Location: F3+5
Function Call: WRITE	Prompt: !?60,"SUBTOTAL: ",$J(DGCOUNT,3) Line Location: F4+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGLIN Line Location: HEAD+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGWARD)/2,DGWARD Line Location: HEAD+7
Function Call: WRITE	Prompt: !?80-$L(DGDATE)/2,DGDATE,!,DGLIN Line Location: HEAD+8
Function Call: WRITE	Prompt: !?3," Time",?20,"Patient Name",?50,"Chart #" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"Ward",?15,"Beg Census Admits Net Transfers Discharges Ending Census" Line Location: HEAD+10
Function Call: WRITE	Prompt: !,DGLIN Line Location: HD1+0
Routine Call	DIR Line Location: NEXT NEWPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	F3+2
^DD("DD"	ADGCEN31+8, HEAD+6
^DIC(4 - [#4]	ADGCEN31+9
^DIC(42 - [#42]	ADGCEN31+14, INIT1, INIT1+1, INIT1+2
^TMP($J	ADGCEN31+14, INIT1+3, WARD, NEWBORN, F1, F2, F3
^VA(200 - [#200]	ADGCEN31+9

Label References

Name	Line Occurrences
END	WARD
END1	WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3
F1	F2
F2	F3, F3+5
F4	FIND, F1, F3+3
F9	F4+1, F4+4, F4+5, F4+6
FIND	WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3
HD1	HEAD+9
HEAD	WARD, NEWPG+1, NEWPG+3
INIT1	ADGCEN31+13, INIT1+2, INIT1+3
INIT2	ADGCEN31+14, INIT1
NEWPG	FIND, F3+3
NEXT	NEWBORN
WARD	NEXT+1

Naked Globals

Name	Field # of Occurrence
^("I"	INIT1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	F2, F3, F3+2
>> DGBDT	ADGCEN31+8
>> DGCHT	F3+2*, F3+5
>> DGCN(	F4+3, F4+7
>> DGCOUNT	FIND+1, F3+5, F4, F4+2, F4+3, F4+4, F4+5, F4+6, F4+7
>> DGCT("NEWBORN"	NEWBORN+4, F4+4, F4+5, F4+6*
>> DGDATE	ADGCEN31+8, ADGCEN31+11, HEAD+8
>> DGDT	WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3, F1*, F2 , F3, F3+4
>> DGDUZ	ADGCEN31+9*, HEAD+4
>> DGEDT	ADGCEN31+8
>> DGI	ADGCEN31+10*
>> DGLIN	HEAD+2, HEAD+8, HD1
>> DGMOVE	WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3, FIND+1
>> DGNM	F1, F2, F3, F3+5
>> DGPAGE	ADGCEN31+8, HEAD+1, HEAD+2, HEAD+5
>> DGPOS(	ADGCEN31+10*, F4+3, F4+7
>> DGSITE	ADGCEN31+9*, HEAD+4
>> DGSTOP	ADGCEN31+11, WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3, NEXT , FIND, F3+3, NEWPG+1, NEWPG+2, NEWPG+3
>> DGTM	F3+4*, F3+5
>> DGTOTL	WARD, DEATHS+1, F4+2, F4+7*
>> DGTY	HEAD+4*, HEAD+5
>> DGW	INIT2+3, WARD, NEWBORN, F1, F2, F3, F4+3, F4+7, HEAD+7, HEAD+9
>> DGWARD	HEAD+7*
>> DGWD	ADGCEN31+13, ADGCEN31+14
>> DGWW	ADGCEN31+11, ADGCEN31+14, INIT1*, INIT1+1, INIT1+3
>> DGWW1	INIT1+1*, INIT1+2
>> DGX	ADGCEN31+10, WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3, NEWBORN+4 , NEWBORN+5, F1, F2, F3, F4+1, F4+3, F4+4, F4+5, F4+6, F4+7
>> DGY	F4+3, F4+7
DIR	NEXT!, NEWPG+2!
DIR(0	NEXT, NEWPG+2
DT	HEAD+6
DUZ	ADGCEN31+9
DUZ(2	ADGCEN31+9, F3+2
IOF	HEAD+1
IOSL	FIND, F3+3
IOST	NEXT, NEWPG+1, HEAD+1
U	ADGCEN31+9, ADGCEN31+14, WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3 , NEWBORN+4, FIND, F3+2, F3+3, F4+3, F4+4, F4+5, F4+6, F4+7, NEWPG+3
>> X	NEXT, NEWPG+2
>> Y	ADGCEN31+8, ADGCEN31+11, HEAD+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGCEN31

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END1
NEWBORN
TRANSOUT
F3
END
HD1
DEATHS
DISCH
F9
F1
F2
NEXT
TRANSIN
HEAD	;***> subrtn to print heading
INIT2	;
INIT1
NEWPG	;***> subrtn for end of page control
F4
WARD
FIND