Routine: ADGDSAU1

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
IHS Changes To ADT	1	(KILL,TIME)^ADGUTIL
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGDSAU

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	ADGDSAU1+9, HEAD+6
^%ZISC	END+2
KILL^ADGUTIL	END+2
TIME^ADGUTIL	HEAD+5
^DIR	TOTALS+9, NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3),?11,$E(DGNM,1,20) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?34,DGCHT,?41,AGE,?46,$E(DGSRV,1,3),?52,$E(DGPRC,1,20) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?75,$J(DGLOS,5),?82,$J(DGOBS,5),?91,DGUNES Line Location: PRINT+3
Function Call: WRITE	Prompt: ?97,$S(+DGADM=DGADM:"Y",1:DGADM) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?114,"C" Line Location: PRINT+7
Function Call: WRITE	Prompt: ?114,"N" Line Location: PRINT+8
Function Call: WRITE	Prompt: ?120,DGCMT Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,DGLIN1,!?5,"TOTAL PATIENTS: ",DGCNT Line Location: TOTALS+0
Function Call: WRITE	Prompt: !!?65,"TOTAL SENT TO OBS",?85,DGOCNT Line Location: TOTALS+1
Function Call: WRITE	Prompt: !?65,"TOTAL UNESCORTED",?90,DGACNT Line Location: TOTALS+2
Function Call: WRITE	Prompt: !?65,"TOTAL ADMITTED FROM DS",?99,DGADCNT Line Location: TOTALS+3
Function Call: WRITE	Prompt: !?65,"TOTAL ADMITTED W/IN WEEK",?106,DGWCNT Line Location: TOTALS+4
Function Call: WRITE	Prompt: !?65,"TOTAL CANCELLED",?114,DGCCNT Line Location: TOTALS+5
Function Call: WRITE	Prompt: !?65,"TOTAL NO-SHOWS",?114,DGNCNT Line Location: TOTALS+6
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ?37,"***Confidential Patient Data Covered by Privacy Act***",! Line Location: HEAD+3
Function Call: WRITE	Prompt: DGDUZ,?132-$L(DGFAC)\2,DGFAC,?125,"Page ",DGPAGE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?52,"DAY SURGERY AUDIT REPORT" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y,?48,DGDTLIN Line Location: HEAD+6
Function Call: WRITE	Prompt: !!?98,"ADMITTED",?112,"CANCEL" Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"SURGERY",?77,"LOS",?83,"OBSV",?96,"FROM",?104,"W/IN" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?113,"OR",?120,"POST-OP",!,"DATE",?11,"PATIENT",?34,"HRCN" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?41,"AGE",?47,"SRV",?52,"PROCEDURE",?77,"HRS",?83,"LOS" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?89,"UNESC",?97,"DS",?104,"WEEK",?112,"NOSHOW",?120,"COMMENTS" Line Location: HEAD+11
Function Call: WRITE	Prompt: !,DGLIN,!! Line Location: HEAD+12
Routine Call	DIR Line Location: TOTALS+9 NEWPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	ADGDSAU1+11, END+1
^DIC(4 - [#4]	ADGDSAU1+6
^TMP("DGDSAU"	A1, A2, A3, A3A, A4, A4+2
^VA(200 - [#200]	ADGDSAU1+7

Label References

Name	Line Occurrences
A1	A2
A2	A3
A3	A3A
A3A	A4
A4	PRINT+11
END	PRINT+10
HEAD	ADGDSAU1+11, NEWPG+1, NEWPG+3
NEWPG	PRINT+10, TOTALS
TOTALS	A1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	ADGDSAU1+4, A4+3, PRINT+2
>> DFN	A3, A3A, A4, A4+2
>> DGACNT	ADGDSAU1+5, PRINT+4, TOTALS+2
>> DGADCNT	ADGDSAU1+5, A4+7, TOTALS+3
>> DGADM	ADGDSAU1+4, A4+6, A4+7, PRINT+5
>> DGADWK	ADGDSAU1+4, A4+6, A4+7, PRINT+6
>> DGBDT	ADGDSAU1+9
>> DGCAN	ADGDSAU1+4, A4+8, PRINT+7
>> DGCCNT	ADGDSAU1+5, PRINT+7, TOTALS+5
>> DGCHT	ADGDSAU1+4, A4+3, PRINT+2
>> DGCMT	A4+10*, PRINT+9
>> DGCNT	ADGDSAU1+4, A4+10, TOTALS
>> DGDFN1	A3A, A4, A4+2
>> DGDT	ADGDSAU1+5, A1, A2, A3, A3A, A4, A4+2, PRINT+1
>> DGDTLIN	ADGDSAU1+10*, HEAD+6
>> DGDUZ	ADGDSAU1+7*, HEAD+4
>> DGEDT	ADGDSAU1+9
>> DGFAC	ADGDSAU1+6*, HEAD+4
>> DGLIN	ADGDSAU1+8*, HEAD+12
>> DGLIN1	ADGDSAU1+8*, TOTALS
>> DGLOS	ADGDSAU1+4, A4+4, PRINT+3
>> DGNCNT	ADGDSAU1+5, PRINT+8, TOTALS+6
>> DGNM	A2, A3, A3A, A4, A4+2, PRINT+1
>> DGNS	A4+9*, PRINT+8
>> DGOBS	ADGDSAU1+4, A4+6, A4+8, PRINT+3
>> DGOCNT	ADGDSAU1+5, A4+8, TOTALS+1
>> DGPAGE	ADGDSAU1+6, NEWPG+2, HEAD+1, HEAD+2, HEAD+4
>> DGPRC	ADGDSAU1+4, A4+4, PRINT+2
>> DGSRV	A1, A2, A3, A3A, A4, A4+2, PRINT+2
>> DGSTOP	PRINT+10, NEWPG+1, NEWPG+2, NEWPG+3
>> DGSTR	A4+2*, A4+3, A4+4, A4+6, A4+8, A4+9, A4+10
>> DGUNES	A4+9*, PRINT+3, PRINT+4
>> DGWCNT	ADGDSAU1+5, A4+7, TOTALS+4
>> DGX	ADGDSAU1+9*, ADGDSAU1+10
>> DGY	ADGDSAU1+9*, ADGDSAU1+10
DGZRM	ADGDSAU1+11*, END+1!
DIR	TOTALS+8!, NEWPG+2!
DIR("A"	TOTALS+9*
DIR(0	TOTALS+8, NEWPG+2
DT	HEAD+6
DUZ	ADGDSAU1+7
DUZ(2	ADGDSAU1+6
IOF	END+1, HEAD+1
IOM	ADGDSAU1+11
IOSL	PRINT+10, TOTALS
IOST	TOTALS+7, NEWPG+1, HEAD+1
U	ADGDSAU1+6, ADGDSAU1+7, PRINT+10
>> X	ADGDSAU1+11, END+1, NEWPG+2
>> Y	ADGDSAU1+9, HEAD+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGDSAU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HEAD	;***> subrtn to print heading
END	;***> eoj
A3A
TOTALS
A1
NEWPG	;***> subrtn for end of page control
A3
A2
A4
PRINT	;***> print line