Routine: ADGICAL3

Package	Total	Call Graph
IHS Changes To ADT	3	$$INS^ADGMREC (KILL,TIME)^ADGUTIL PRTOPT^ADGVAR
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package

Total

Call Graph

$$INS^ADGMREC (KILL,TIME)^ADGUTIL PRTOPT^ADGVAR

^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGICAL2

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$NAME,?18,$J($P(DGSTR,U),7) Line Location: A3+8
Function Call: WRITE	Prompt: ! Condition for execution: $X>65 Line Location: A4+2
Function Call: WRITE	Prompt: ?65 Line Location: A4+2
Function Call: WRITE	Prompt: ?90,$E($P(^ADGCD(DGY,0),U),1,16) Line Location: A4+9
Function Call: WRITE	Prompt: ! Line Location: A4+11
Function Call: WRITE	Prompt: ?110,$E(DGCOM,1,13),?123,$E($$INS^ADGMREC(DFN),1,8) Line Location: A4+12
Function Call: WRITE	Prompt: !!,DGLIN,!,"Total Count: ",DGCNT Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ?37,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+2
Function Call: WRITE	Prompt: !,DGDUZ,?132-$L(DGFAC)\2,DGFAC Line Location: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+4
Function Call: WRITE	Prompt: ?52,"DS INCOMPLETE CHARTS LIST" Line Location: HEAD+4
Function Call: WRITE	Prompt: ?122,"Page ",DGPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?52,DGDTS Line Location: HEAD+6
Function Call: WRITE	Prompt: !!,"Patient Name",?20,"HRCN",?27,"Surg Date",?38,"Srv" Line Location: HEAD+7
Function Call: WRITE	Prompt: ?44,"Op Dict",?55,"Op Rvcd",?65,"Provider",?90,"Chart Def" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?110,"Comments",?122,"Insurance",!,DGLIN1 Line Location: HEAD+9
Routine Call	DIR Line Location: NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	ADGICAL3+4, END+2
^ADGCD - [#9009013.5]	A4+9
^ADGDSI - [#9009012.5]	A3+14, A4, A4+1, A4+7, A4+8
^DIC(4 - [#4]	ADGICAL3+6
^DIC(45.7 - [#45.7]	A3+10
^DPT - [#2]	NAME+2
^TMP("DGZICAL"	A1, A2, A3, A3+3, END+3!
^VA(200 - [#200]	ADGICAL3+6, A4+3

Name	Field # of Occurrence
>> DFN	A1, A2, A3, A3+3, A3+14, A4, A4+1, A4+7, A4+8, A4+12 , NAME+2
>> DGAD	A3+4*, A3+9
>> DGBDT	ADGICAL3+7
>> DGCNT	END
>> DGCOM	A3+5*, A4+12
>> DGDFN1	A3*, A3+3, A3+14, A4, A4+1, A4+7, A4+8
>> DGDFN2	A2, A3+17, A4*, A4+1, A4+7, A4+8
>> DGDTS	ADGICAL3+9*, HEAD+6
>> DGDUZ	ADGICAL3+6*, HEAD+3
>> DGEDT	ADGICAL3+8
>> DGFAC	ADGICAL3+6*, HEAD+3
DGIOM	ADGICAL3+4*, END+2!
>> DGLIN	ADGICAL3+10*, END
>> DGLIN1	ADGICAL3+10*, HEAD+9
>> DGNAM	ADGICAL3+14, A1, A2, A3, A3+3, NAME+2
>> DGOPD	A3+5*, A3+11
>> DGOPR	A3+5*, A3+12
>> DGPAGE	ADGICAL3+5, HEAD+1, HEAD+5
>> DGPRV	A4+1*, A4+3
>> DGSRT	NAME+2
>> DGSTOP	ADGICAL3+5, A4+6, A4+11, A4+13, NEWPG+2, NEWPG+3
>> DGSTR	A3+3*, A3+4, A3+5, A3+8
>> DGSV	A3+4*, A3+10
>> DGX	ADGICAL3+7, ADGICAL3+9, A4+6, A4+7*, A4+8
>> DGY	ADGICAL3+8, ADGICAL3+9, A4+8, A4+9
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	HEAD+6
DUZ	ADGICAL3+6
DUZ(2	ADGICAL3+6
IOF	END+3, HEAD+1
IOM	ADGICAL3+4
IOSL	A4+10, A4+11
IOST	END+1, HEAD+1, NEWPG+1
N	NAME+1~, NAME+2*, NAME+3
U	ADGICAL3+6, A3+4, A3+5, A3+8, A3+10, A4+1, A4+3, A4+6, A4+8, A4+9 , A4+11, A4+13, NEWPG+3, NAME+2
>> X	ADGICAL3+4, END+2, NEWPG+2

Information

Name	Comments	DBIA/ICR reference
HEAD	;***> subrtn to print heading
END
NAME()	; -- returns printable name
A1
A3
A2
A4
NEWPG	;***> subrtn for end of page control