Sub-Field: 9.803

Parent File	Name	Number	Package
ROUTINE(#9.8)	ROUTINE INVOKED	9.803	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ROUTINE INVOKED	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X` OUTPUT TRANSFORM: `S Y=$P(Y," ",2)_"^"_$P(Y," ",1)` LAST EDITED: `FEB 04, 1986` HELP-PROMPT: `Please enter the name of the routine this program invokes (1-20 characters).` DESCRIPTION: The name of a routine which this routine uses. CROSS-REFERENCE: `9.803^B` 1)= S ^DIC(9.8,DA(1),19,"B",$E(X,1,30),DA)="" 2)= K ^DIC(9.8,DA(1),19,"B",$E(X,1,30),DA)
3	FOUND BY %INDEX	0;3	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 04, 1986` HELP-PROMPT: `This field set by %INDEX` DESCRIPTION: This field is set to 'YES' if the routine invoked is found by %INDEX.

ROUTINE INVOKED

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
OUTPUT TRANSFORM: S Y=$P(Y," ",2)_"^"_$P(Y," ",1)
LAST EDITED: FEB 04, 1986
HELP-PROMPT: Please enter the name of the routine this program invokes (1-20 characters).

DESCRIPTION:

The name of a routine which this routine uses.

CROSS-REFERENCE: 9.803^B

1)= S ^DIC(9.8,DA(1),19,"B",$E(X,1,30),DA)=""

2)= K ^DIC(9.8,DA(1),19,"B",$E(X,1,30),DA)

FOUND BY %INDEX

0;3

SET

DESCRIPTION:

This field is set to 'YES' if the routine invoked is found by %INDEX.