Routine: ADGCRBL2

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

Package

Total

Call Graph

Kernel

^%ZISC $$FMTE^XLFDT

IHS Changes To ADT

(KILL,TIME)^ADGUTIL

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCRBL1

Package

Total

Caller Graph

IHS Changes To ADT

ADGCRBL1

Name	Comments	DBIA/ICR reference
END1
HEAD	;***> print heading
END	;***> eoj
DS4
DS2
DS3
DS1
DSCH	;***> sort by discharge dates and print info
NEWPG	;***> subrtn for end of page control
TOTAL	;***> print totals

Name	Field # of Occurrence
^%ZISC	END1+1
KILL^ADGUTIL	END1
TIME^ADGUTIL	HEAD+5
^DIR	END+2, NEWPG+2
$$FMTE^XLFDT	DS1+3, DS4+7, DS4+8, DS4+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?25,"DISCHARGED ON: ",$$FMTE^XLFDT(DGZDDT,"2D"),! Line Location: DS1+3
Function Call: WRITE	Prompt: ! Line Location: DS2+1
Function Call: WRITE	Prompt: !,$E(DGZNAME,1,20),?25,$J(DGCHT,6) Line Location: DS4+6
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT(DGZVDT,"2D") Line Location: DS4+7
Function Call: WRITE	Prompt: ?49,$$FMTE^XLFDT(Y,"2D") Line Location: DS4+8
Function Call: WRITE	Prompt: ?62,$$FMTE^XLFDT(Y,"2D") Line Location: DS4+10
Function Call: WRITE	Prompt: !!?10,"Total Coded A Sheets: ",DGZTOT Line Location: TOTAL+1
Function Call: WRITE	Prompt: !?16,"Total Exported: ",DGZETOT,! Line Location: TOTAL+2
Function Call: WRITE	Prompt: @IOF Line Location: END1+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,DGDUZ,?(80-$L(DGFAC)/2),DGFAC,?70,"Page ",DGPAGE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?33,"CODED A SHEETS" Line Location: HEAD+5
Function Call: WRITE	Prompt: ?33,"CODED A SHEETS" Line Location: HEAD+5
Function Call: WRITE	Prompt: ?28,"for ",$E(DGZBDT,4,5)_"/"_$E(DGZBDT,6,7)_"/"_$E(DGZBDT,2,3) Line Location: HEAD+6
Function Call: WRITE	Prompt: " to ",$E(DGZEDT,4,5)_"/"_$E(DGZEDT,6,7)_"/"_$E(DGZEDT,2,3) Line Location: HEAD+7
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"CHART #",?35,"ADMIT DATE" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?49,"LAST MOD",?62,"EXPORTED ON",!,DGLIN,! Line Location: HEAD+9
Routine Call	DIR Line Location: END+2 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DS4+5
^AUPNVSIT - [#9000010]	DS4+8, DS4+9
^DD("DD"	HEAD+5
^DIC(4 - [#4]	ADGCRBL2+7
^TMP("DGZCRBL"	DS1, DS2, DS3, DS4, DS4+3, END1+1!
^VA(200 - [#200]	ADGCRBL2+6

Name	Line Occurrences
DS1	DS2+1
DS2	DS3
DS3	DS4+1
DS4	DS4+12
END	DS1+2
END1	DS4+11
HEAD	DSCH+1, NEWPG+1, NEWPG+3
NEWPG	DS1+2, DS4+11
TOTAL	DS1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DS2+2, DS3, DS4, DS4+3, DS4+5
>> DGCHT	DS4+5*, DS4+6
>> DGDUZ	ADGCRBL2+6*, HEAD+4
>> DGFAC	ADGCRBL2+7*, HEAD+4
>> DGLIN	ADGCRBL2+8*, HEAD+9
>> DGPAGE	ADGCRBL2+5, NEWPG+2, HEAD+1, HEAD+2, HEAD+4
>> DGSTOP	ADGCRBL2+5, DS1+2, DS4+11, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSTR	DS4+3*, DS4+4
>> DGZBDT	HEAD+6
>> DGZDDT	DSCH+1, DS1, DS1+3, DS2, DS3, DS4, DS4+3
>> DGZEDT	HEAD+7
>> DGZETOT	ADGCRBL2+4, DS4+9, TOTAL+2
>> DGZIDFN	DS3+1, DS4, DS4+1, DS4+3
>> DGZNAME	DS1+1, DS2, DS2+1, DS3, DS4, DS4+3, DS4+6
>> DGZTOT	ADGCRBL2+4, DS4+4, TOTAL+1
>> DGZVDFN	DS4+4*, DS4+8, DS4+9
>> DGZVDT	DS4+4*, DS4+7
DIR	END+1!, NEWPG+2!
DIR("A"	END+2*
DIR(0	END+2, NEWPG+2
DT	HEAD+5
DUZ	ADGCRBL2+6
DUZ(2	ADGCRBL2+7, DS4+5
IOF	END1, HEAD+1
IOSL	DS1+2, DS4+11
IOST	END+2, NEWPG+1, HEAD+1
U	ADGCRBL2+6, ADGCRBL2+7, DS1+2, DS4+4, DS4+5, DS4+8, DS4+9, DS4+11, NEWPG+3
>> X	NEWPG+2
>> Y	DS4+8, DS4+9, DS4+10, HEAD+5*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGCRBL2

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: