Routine: ADGICAL1

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

IHS Changes To ADT

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

Kernel

^%ZISC

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGICAL

Package

Total

Caller Graph

IHS Changes To ADT

ADGICAL

Name	Field # of Occurrence
^%ZISC	END+4
$$INS^ADGMREC	A3+15
KILL^ADGUTIL	END+3
TIME^ADGUTIL	HEAD+4
PRTOPT^ADGVAR	END+1
^DIR	NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$NAME,?18,$J($P(DGSTR,U),7) Line Location: A3+9
Function Call: WRITE	Prompt: ?67,$S($P(DGSTR,U,14)="Y":"YES",$P(DGSTR,U,14)="N":"NO",1:"") Line Location: A3+14
Function Call: WRITE	Prompt: ?110,$P(DGSTR,U,13),?123,$$INS^ADGMREC(DFN) Line Location: A3+15
Function Call: WRITE	Prompt: ?67,$S($P(DGSTR,U,12)="Y":"YES",$P(DGSTR,U,12)="N":"NO",1:"") Line Location: A3+20
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: A4+2
Function Call: WRITE	Prompt: ?75 Line Location: A4+2
Function Call: WRITE	Prompt: ?92,$E($P(^ADGCD(DGY,0),U),1,16),! Line Location: A4+9
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,"INCOMPLETE CHARTS ALPHA 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,"Admt Date",?38,"Ward" Line Location: HEAD+7
Function Call: WRITE	Prompt: ?44,"Summ Dict",?55,"Op Dict",?65,"A Sheet" Line Location: HEAD+8
Function Call: WRITE	Prompt: !?27,"Dsch Date",?38,"Srvc",?44,"Summ Rcvd",?55,"Op Rcvd" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?65,"Coded",?75,"Provider",?92,"Chart Deficiency",?110,"Comments" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?122,"Insurance",!,DGLIN1,!! Line Location: HEAD+11
Routine Call	DIR Line Location: NEWPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	ADGICAL1+4, END+2
^ADGCD - [#9009013.5]	A4+9
^ADGIC - [#9009013]	A3+23, A4, A4+1, A4+7, A4+8
^DIC(4 - [#4]	ADGICAL1+6
^DIC(42 - [#42]	A3+11
^DIC(45.7 - [#45.7]	A3+17
^DPT - [#2]	NAME+2
^TMP("DGZICAL"	A1, A2, A3, A3+3, END+3!
^VA(200 - [#200]	ADGICAL1+6, A4+3

Name	Line Occurrences
$$NAME	A3+9
A1	A2
A2	A3
A3	A3+23, A4
A4	A4+11
END	A1, A3+21, A4+11
HEAD	ADGICAL1+11, NEWPG+1, NEWPG+3
NEWPG	A3+21, A4+10

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGICAL1

Information

Source Information

Call Graph

Call Graph Total: 5

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
NAME()	; -- returns printable name
A1
A3
A2
A4
NEWPG	;***> subrtn for end of page control