Routine: MCPOS0A

Package	Total	Call Graph
VA FileMan	4	(,IX)^DIC FILE^DICN $$GET1^DID ^DIE
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
CODE(REC)	;
STUFF(ROUTINE,TFILE)	;routine is set to "MCPTF" and TFILE is
SCODE(STEMP,SDA,FILE)	;
DIC

Name	Line Occurrences
Function Call: WRITE	Prompt: !,";;",$P(^MCAR(694.8,REC,0),U)_"^"_CODE_"^"_PROC Line Location: MCPOS0A+13
Routine Call	DIC Line Location: STUFF+11
Routine Call	DIC Line Location: DIC
Routine Call	DIE Line Location: STUFF+15 DIC+6

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(694.8 - [#694.8]	MCPOS0A+8, MCPOS0A+9, MCPOS0A+11, MCPOS0A+12, MCPOS0A+13, CODE+3, CODE+4
^MCAR(697.2 - [#697.2]	MCPOS0A+12

Name	Field # of Occurrence
^(2	MCPOS0A+12

Name	Field # of Occurrence
ARRAY	CODE+1~, CODE+2, CODE+6, CODE+7*, CODE+9
CNT	CODE+1~, CODE+2, CODE+3, CODE+4
CODE	MCPOS0A+6~, MCPOS0A+11, MCPOS0A+13, SCODE+1~, SCODE+6
COUNT	MCPOS0A+6~, MCPOS0A+7, MCPOS0A+10, STUFF+2~
>> D	SCODE+6*
DA	STUFF+11!, STUFF+12, STUFF+16, DIC+1!, DIC+2, DIC+7!
DA(1	SCODE+4*
DATE	SCODE+1~, DIC+4*
DD	SCODE+3!
DIC	STUFF+9, STUFF+11!, STUFF+13!, SCODE+3!, SCODE+4, DIC+1!, DIC+2!
DIC("P"	SCODE+5*
DIC(0	STUFF+9, SCODE+4
DIE	STUFF+13, DIC+2, DIC+7!
DINUM	SCODE+3!
>> DLAYGO	STUFF+9, SCODE+5
DO	SCODE+3!
DR	STUFF+14, DIC+5, DIC+7!
ENTRY	SCODE+1~, SCODE+2*, SCODE+6, DIC+3, DIC+4
FILE	SCODE~, SCODE+4, SCODE+5
HOLD	STUFF+2~, STUFF+8*, STUFF+10, STUFF+13, STUFF+16
LOOP	STUFF+2~, STUFF+8, SCODE+1~, SCODE+2
MCDATA	STUFF+2~, STUFF+6
MCDATA(1	STUFF+3*
MCDATA(2	STUFF+4*
MCDATA(3	STUFF+5*
>> MCPRO	STUFF+13*
PROC	MCPOS0A+6~, MCPOS0A+12*, MCPOS0A+13
REC	MCPOS0A+6~, MCPOS0A+9*, MCPOS0A+11, MCPOS0A+12, MCPOS0A+13, CODE~, CODE+3, CODE+4
ROUTINE	STUFF~
SDA	SCODE~, SCODE+4
STEMP	SCODE~, SCODE+2
SUBENTRY	CODE+1~, CODE+4, CODE+5, CODE+7
TEMP	MCPOS0A+6~, MCPOS0A+7, MCPOS0A+8, MCPOS0A+9, CODE+1~, CODE+4*, CODE+5, STUFF+2~
TFILE	STUFF~, STUFF+9, STUFF+16
TYPE	SCODE+1~, DIC+3*
U	MCPOS0A+12, MCPOS0A+13, CODE+5, STUFF+10, STUFF+13, STUFF+16
VALUE	STUFF+2~, STUFF+10*
>> X	STUFF+10, SCODE+6
Y	STUFF+11, STUFF+12, DIC, DIC+1, DIC+2, DIC+7!

Name	Field # of Occurrence
$T(DATA+LOOP^@(1)	STUFF+8