Routine: LRARCAM4

Information

LRARCAM4 ; IHS/DIR/AAB - ARCHIVED RCS 14-4 REPORT PART 1 ;

Source file <LRARCAM4.m>

Package	Total	Caller Graph
Lab Service	1	LRARCAM4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"Sorry, there is no primary institution in file 67.99999. Exiting." Line Location: INST+1
Function Call: WRITE	Prompt: !!?5,"Nothing Selected " Line Location: MONTHS+6
Function Call: WRITE	Prompt: !!,$C(7),"This file does not have an archival activity with the status of archived." Line Location: ERROR+0
Function Call: WRITE	Prompt: !,"Therefore this file may be incomplete if archiving is still in progress." Line Location: ERROR+1
Function Call: WRITE	Prompt: !! Line Location: ERROR+2
Routine Call	DIC Line Location: DIV+5 MONTHS+5
Routine Call	DIR Line Location: DATTYP+12 REPTYP+5 DETSUM+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIV+3
^LAB(95.11 - [#95.11]	INST+3
^LAR(67.99999 - [#67.99999]	INST+1, DIV+5
^TMP($J	EXIT+3!

Name	Line Occurrences
ERROR	INST+4
EXIT	INST+1, DIV+5, MONTHS+6, DATTYP+12, REPTYP+5, DETSUM+1

Name	Field # of Occurrence
DA	MONTHS+1!, MONTHS+2*, MONTHS+3
DA(1	MONTHS+2*, MONTHS+3
DIC	DIV+1!, DIV+4, MONTHS+1!, MONTHS+3
DIC("A"	DIV+2, MONTHS+4
DIC("B"	DIV+3*
DIC(0	DIV+4, MONTHS+2
DIR	DATTYP+1!, REPTYP+1!, DETSUM+3!
DIR("?"	DATTYP+5, DATTYP+6, DATTYP+7, DATTYP+8, DATTYP+9, DATTYP+10, DATTYP+11*
DIR("A"	DATTYP+3, REPTYP+3
DIR("B"	DATTYP+4, REPTYP+4
DIR(0	DATTYP+2, REPTYP+1, REPTYP+2, DETSUM+3
>> DTOUT	DATTYP+12, REPTYP+5, DETSUM+5
>> DUOUT	DATTYP+12, REPTYP+5, DETSUM+5
DUZ(2	DIV+3
>> LRARC	INST+3*, INST+4
>> LRART	INST+3*
LRDA	INST+1!, DIV+5*, MONTHS+2
LRDA(1	INST+1*, MONTHS+2
>> LRDTYP	DATTYP+13*, REPTYP+2
>> LREND	DETSUM+1, DETSUM+5*
LRERR	EXIT+3!
>> LRHD0	DATTYP+13*
>> LRRPT	DETSUM+6*
LRRPTM	INST+1!
LRRPTM(	MONTHS+5*
LRRPTM(0	MONTHS+6
>> LRRTYP	REPTYP+5*, DETSUM+1
U	DIV+3
X	DETSUM+3!, DETSUM+6
Y	DIV+5, MONTHS+5, DATTYP+13, REPTYP+5, DETSUM+3!