Routine: PRCINAR

Package	Total	Call Graph
VA FileMan	3	^DIC FILE^DICN ^DIK
Kernel	2	$$FMADD^XLFDT BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;95;Oct 20, 2000
START
WTOTAL	;
CLEAN
START2
WTOTAL2	;
KILL4406	;set temp files then kill invalid 440.6 records
CLEAN2
FINDREC
FINDMNU
UPDMNU
CLNREC

Name	Field # of Occurrence
^DIC	FINDREC+3, FINDMNU+2
FILE^DICN	UPDMNU+9
^DIK	START+9, KILL4406+6
$$FMADD^XLFDT	START+1, START+2, START2+1, START2+2
BMES^XPDUTL	WTOTAL+1, WTOTAL+2, WTOTAL+3, WTOTAL+4, WTOTAL2+1, WTOTAL2+2, WTOTAL2+3, WTOTAL2+4, FINDREC+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	UPDMNU+2, UPDMNU+3
^PRC(424 - [#424]	START+4
^PRC(424.1 - [#424.1]	START+3, START+6, START+7
^PRC(442 - [#442]	START2+5
^PRCH(440.6 - [#440.6]	START2+3, START2+8, KILL4406+3
^XTMP("IFCAP-PURGE-424-1"	START+1, START+7
^XTMP("IFCAP-PURGE-424-1-REF"	START+2, START+8
^XTMP("IFCAP-PURGE-440-6"	START2+1, KILL4406+3
^XTMP("IFCAP-PURGE-440-6-REF"	START2+2, KILL4406+4

Name	Field # of Occurrence
BFLAG	UPDMNU+1, UPDMNU+2, UPDMNU+4, UPDMNU+5, CLNREC!
DA	START+9, KILL4406+1~, KILL4406+5, KILL4406+7!
DA(1	UPDMNU+8*
DIC	FINDREC~, FINDREC+2, FINDMNU, FINDMNU+1, UPDMNU, UPDMNU+6*
DIC("P"	UPDMNU+6*
DIC(0	UPDMNU+6*
DIE	FINDREC~
DIK	START+9, START+10!, KILL4406+6, KILL4406+7!
DT	START+1, START+2, START2+1, START2+2
IEN	START2+4, START2+7, START2+8*, KILL4406+3, KILL4406+4, KILL4406+5, CLEAN2!
IPIEN	START2, START2+3, START2+5, START2+8, KILL4406+3, KILL4406+4, CLEAN2!
MREC	FINDREC~, FINDMNU+3*, UPDMNU+2, UPDMNU+3, UPDMNU+6, UPDMNU+8, CLNREC!
>> MYIEN	UPDMNU+3*, UPDMNU+4
MYPTR	START, START+3, START+4, START+6, START+8, CLEAN!
MYREC	START*, CLEAN!
NREC	START, START+11, WTOTAL+1, CLEAN!, START2, WTOTAL2+1, KILL4406+2, CLEAN2!, FINDREC~, FINDREC+4* , UPDMNU+4, UPDMNU+7, CLNREC!
NTHIS	UPDMNU+1, UPDMNU+2, UPDMNU+3, CLNREC!
SUBREC	START, START+5, START+6*, START+7, START+8, START+9, CLEAN!
TREC	START2, START2+6, CLEAN2!
X	FINDREC~, FINDREC+2, FINDMNU+1, UPDMNU+7*
Y	FINDREC~, FINDREC+4, FINDMNU, FINDMNU+3, UPDMNU