Routine: MCPOS0B

Package	Total	Call Graph
VA FileMan	4	^DIC FILE^DICN $$GET1^DID ^DIK
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
START(FILE)	;DESIGNED TO CREATE MCPMV - Medicine View file
PROC(REC)	;
STUFF(ROUTINE,FILE)	;ROUTINE is set to "MCPMV"
SCODE(STEMP,SDA,FILE)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,";;",$P(^MCAR(FILE,REC,0),U)_"^"_PROC Line Location: START+7
Routine Call	DIC Line Location: STUFF+11

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	START+3, START+4, START+6, START+7, PROC+3, PROC+4, STUFF+14
^MCAR(697.2 - [#697.2]	PROC+4, SCODE+7, SCODE+8

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

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