Sub-Field: 8930.01

Parent File	Name	Number	Package
USR CLASS(#8930)	SUBCLASS	8930.01	Authorization Subscription

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SUBCLASS	0;1	POINTER TO USR CLASS FILE (#8930)	USR CLASS(#8930) INPUT TRANSFORM: `S DIC("S")="I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 07, 1997` HELP-PROMPT: `Enter subclasses which are subsets of the class.` SCREEN: `S DIC("S")="I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))"` EXPLANATION: `A class cannot be a subclass of itself` CROSS-REFERENCE: `8930.01^B` 1)= S ^USR(8930,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^USR(8930,DA(1),1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `8930^AD` 1)= S ^USR(8930,"AD",$E(X,1,30),DA(1),DA)="" 2)= K ^USR(8930,"AD",$E(X,1,30),DA(1),DA) This REGULAR whole-file cross-reference by Subclass will facilitate identification of the parent class of any given subclass.

SUBCLASS

0;1

POINTER TO USR CLASS FILE (#8930)

INPUT TRANSFORM: S DIC("S")="I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 07, 1997
HELP-PROMPT: Enter subclasses which are subsets of the class.
SCREEN: S DIC("S")="I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))"
EXPLANATION: A class cannot be a subclass of itself

CROSS-REFERENCE: 8930.01^B

1)= S ^USR(8930,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^USR(8930,DA(1),1,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 8930^AD

1)= S ^USR(8930,"AD",$E(X,1,30),DA(1),DA)=""

2)= K ^USR(8930,"AD",$E(X,1,30),DA(1),DA)

This REGULAR whole-file cross-reference by Subclass will facilitate identification of the parent class of any given subclass.