Routine: APCDCAF7

Package	Total	Call Graph
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Patient Care Component	1	APCDCAF6

Entry Points

Name	Comments	DBIA/ICR reference
PAD(D,L)	;EP pad length of data ; -- D=data L=length
SP(N)	; pad N number of spaces
INIT	;EP; -- init variables and list array
SET(DATA,COUNT)	; stuff data into display lie

Name	Field # of Occurrence
$$GET1^DIQ	INIT+3, INIT+16, INIT+17, INIT+18, INIT+19, INIT+21, INIT+22, INIT+24, INIT+25, INIT+27 , INIT+33, INIT+34, INIT+35, INIT+36, INIT+38, INIT+39, INIT+41, INIT+42, INIT+44
$$REPEAT^XLFSTR	INIT+12, INIT+52, PAD+2

FileNo	Call Tags
^AUPNCANT - [#9000095]	GET1^DIQ
9000095.12	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNCANT - [#9000095]	INIT+14, INIT+29, INIT+31, INIT+46, INIT+48, INIT+53, INIT+54

Name	Line Occurrences
$$PAD	INIT+11, INIT+24, INIT+25, INIT+27, INIT+41, INIT+42, INIT+44, SP+1
$$SP	INIT+48
SET	INIT+4, INIT+10, INIT+11, INIT+12, INIT+26, INIT+28, INIT+29, INIT+43, INIT+45, INIT+46 , INIT+48, INIT+49, INIT+51, INIT+52, INIT+54

Name	Field # of Occurrence
APCDCDEV	INIT+2!
APCDCDEV(	SET+2*
>> APCDDALL	INIT+17, INIT+18, INIT+19, INIT+34, INIT+35, INIT+36
APCDN1	INIT+9~, INIT+14, INIT+15, INIT+29, INIT+31, INIT+32, INIT+46, INIT+53*, INIT+54
>> APCDVSIT	INIT+3, INIT+14, INIT+15, INIT+29, INIT+31, INIT+32, INIT+46, INIT+48, INIT+53, INIT+54
CATG	INIT+1~
COUNT	SET~, SET+1*, SET+2
D	PAD~, PAD+2
DATA	SET~, SET+2
FIELD	INIT+1~
IENS	INIT+9~, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+21, INIT+22, INIT+24, INIT+25 , INIT+27, INIT+32, INIT+33, INIT+34, INIT+35, INIT+36, INIT+38, INIT+39, INIT+41, INIT+42 , INIT+44
ITEM	INIT+1~
L	PAD~, PAD+2
LINE	INIT+1~, INIT+3, INIT+4, INIT+24, INIT+25, INIT+26, INIT+27, INIT+28, INIT+29, INIT+41 , INIT+42, INIT+43, INIT+44, INIT+45, INIT+46*
N	SP~, SP+1
PROV	INIT+9~, INIT+21, INIT+38
PROVN	INIT+9~, INIT+22, INIT+24, INIT+39, INIT+41
U	INIT+29, INIT+46
>> VALMCNT	INIT+2*, INIT+4, INIT+10, INIT+11, INIT+12, INIT+26, INIT+28, INIT+29, INIT+43, INIT+45 , INIT+46, INIT+48, INIT+49, INIT+51, INIT+52, INIT+54
X	INIT+1~