Routine: ENARS

Select the objects that you wish to see in the downloaded PDF

Information

ENARS ;(WIRMFO)/SAB-SEACH ARCHIVE LOG FOR EQUIPMENT ;2.24.97

Source file <ENARS.m>

Name	Comments	DBIA/ICR reference
S	; entry point ; ask equipment entry #
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Equipment ENTRY #: ",ENEQ," is not valid",! Line Location: S+7
Function Call: WRITE	Prompt: $C(7),!,"Equipment ENTRY #: ",ENEQ," was not found in an archive set",! Line Location: S+9
Function Call: WRITE	Prompt: !!!!,"Equipment ENTRY #: ",ENEQ," was saved with record name " Line Location: S+13
Function Call: WRITE	Prompt: $P($G(^ENG(6919,ENDA,3,ENDA(1),0)),U) Line Location: S+14
Function Call: WRITE	Prompt: !,"in the archive set shown above.",! Line Location: S+15