Routine: ADGADSP3

Package	Total	Call Graph
IHS Changes To ADT	2	^ADGADSP4 KILL^ADGUTIL
VA Fileman	2	(C,DW)^%DTC ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Changes To ADT	3	ADGADSP4 ADGADSP5 ADGADSP6

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP;***> ending point for summary A&D Sheets
HEAD	;***> print heading
END
AS()	;--admitting service (yes=1,no=0)
NEXT
A1
A3
NEWPG	;EP;***> end of page control

External References

Name	Field # of Occurrence
C^%DTC	ADGADSP3+6
DW^%DTC	HEAD+8
^%ZISC	END1+2
^ADGADSP4	NEXT
KILL^ADGUTIL	END1+1
^DIR	END, NEWPG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^DIC(45.7,DGZ,0),U) Line Location: A1+1
Function Call: WRITE	Prompt: ?20,DGX Line Location: A1+4
Function Call: WRITE	Prompt: ?30,DGX Line Location: A1+7
Function Call: WRITE	Prompt: ?38,DGX Line Location: A1+8
Function Call: WRITE	Prompt: ?47,DGX Line Location: A1+9
Function Call: WRITE	Prompt: ?54,DGX Line Location: A1+10
Function Call: WRITE	Prompt: ?61,DGX Line Location: A1+11
Function Call: WRITE	Prompt: ?71,DGX Line Location: A1+12
Function Call: WRITE	Prompt: !?17,"----------------------------------------------------------" Line Location: A3+0
Function Call: WRITE	Prompt: !?5,"TOTALS:",?18,$J(DGCT(1),3),?28,$J(DGCT(2),3),?36,$J(DGCT(3),3) Line Location: A3+1
Function Call: WRITE	Prompt: ?45,$J(DGCT(4),3),?51,$J(DGCT(5),3),?59,$J(DGCT(6),3) Line Location: A3+2
Function Call: WRITE	Prompt: ?69,$J(DGCT(7),3) Line Location: A3+3
Function Call: WRITE	Prompt: @IOF Line Location: END1+1
Function Call: WRITE	Prompt: @IOF Line Location: NEWPG+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***",! Line Location: NEWPG+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: ?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !?(80-$L(DGFAC)/2),DGFAC Line Location: HEAD+4
Function Call: WRITE	Prompt: !?(80-$L(DGCITY_DGSTAT)/2),DGCITY_","_DGSTAT Line Location: HEAD+6
Function Call: WRITE	Prompt: !!!,"DAILY CENSUS REPORT" Line Location: HEAD+7
Function Call: WRITE	Prompt: !,X Line Location: HEAD+8
Function Call: WRITE	Prompt: ?10,$E(DGDATE,4,5)_"-"_$E(DGDATE,6,7)_"-"_$E(DGDATE,2,3),! Line Location: HEAD+9
Function Call: WRITE	Prompt: DGLIN Line Location: HEAD+10
Function Call: WRITE	Prompt: !!!,"SERVICE",?17,"REMAINING",?28,"ADMITS",?35,"TRANSFERS" Line Location: HEAD+11
Function Call: WRITE	Prompt: ?45,"DEATHS",?52,"OTHER",?58,"TRANSFERS",?68,"REMAINING" Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"Responsible",?17,"from the",?38,"IN",?53,"DIS-",?61,"OUT",?72,"At" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,"for Patient",?17,"Preceding",?51,"CHARGES",?69,"11:59 pm" Line Location: HEAD+14
Function Call: WRITE	Prompt: !?20,"Day",!! Line Location: HEAD+15
Function Call: WRITE	Prompt: DGLIN,!! Line Location: HEAD+16
Routine Call	DIR Line Location: END NEWPG+1

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	A1, A1+2, A1+3, A1+5, A1+6
^AUTTLOC - [#9999999.06]	HEAD+1
^DIC(4 - [#4]	HEAD+1
^DIC(45.7 - [#45.7]	A1+1, AS+1
^DIC(5 - [#5]	HEAD+5
^TMP("DGZADS"	END1+2!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGCITY	HEAD+5*, HEAD+6
>> DGCT(	ADGADSP3+7*
>> DGCT(1	A1+4*, A3+1
>> DGCT(2	A1+7*, A3+1
>> DGCT(3	A1+8*, A3+1
>> DGCT(4	A1+9*, A3+2
>> DGCT(5	A1+10*, A3+2
>> DGCT(6	A1+11*, A3+2
>> DGCT(7	A1+12*, A3+3
>> DGDATE	ADGADSP3+6, A1+5, A1+6, HEAD+8, HEAD+9
>> DGFAC	HEAD+1*, HEAD+4
>> DGLIN	ADGADSP3+9, HEAD+10, HEAD+16
>> DGOLD	ADGADSP3+6*, A1+2, A1+3
>> DGPAGE	ADGADSP3+8*, HEAD+2
>> DGPSTR	A1+6*, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12
>> DGSTAT	HEAD+5*, HEAD+6
>> DGSTOP	ADGADSP3+8, A1+13, NEWPG+1
>> DGSTR	A1+6*, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12
>> DGX	A1+3, A1+4, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12*
>> DGY	HEAD+1*, HEAD+5
>> DGZ	ADGADSP3+7, A1, A1+1, A1+2, A1+3, A1+5, A1+6, AS+1
DIR	END!, NEWPG+1!
DIR("A"	END*
DIR(0	END, NEWPG+1
DUZ(2	HEAD+1
>> I	ADGADSP3+7*
IOF	END1+1, NEWPG+2, HEAD+2
IOSL	A1+13
IOST	END, NEWPG+1, HEAD+2
U	A1+1, A1+3, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12, A1+13, NEWPG+1 , HEAD+1, HEAD+5, AS+1
>> X	ADGADSP3+6, NEWPG+1, HEAD+8*
>> X1	ADGADSP3+6*
>> X2	ADGADSP3+6*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGADSP3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
$$AS	A1
A1	A1, A1+2, A1+5, A1+14
A3	A1
END1	A1+13
HEAD	ADGADSP3+8
NEWPG	A1+13