Sub-Field: 101.0775

Parent File	Name	Number	Package
PROTOCOL(#101)	SUBSCRIBERS	101.0775	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SUBSCRIBERS	0;1	POINTER TO PROTOCOL FILE (#101)	PROTOCOL(#101) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 22, 1999` DESCRIPTION: `This contains Protocols of Type, Subscribers, who are subscribing to this Event Drivers.` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""S"""` EXPLANATION: `Type must be Subscriber` CROSS-REFERENCE: `101.0775^B` `1)= S ^ORD(101,DA(1),775,"B",$E(X,1,30),DA)=""` `2)= K ^ORD(101,DA(1),775,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `101^AB` `1)= S ^ORD(101,"AB",$E(X,1,30),DA(1),DA)=""` `2)= K ^ORD(101,"AB",$E(X,1,30),DA(1),DA)`

SUBSCRIBERS

0;1

POINTER TO PROTOCOL FILE (#101)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 22, 1999
DESCRIPTION:
This contains Protocols of Type, Subscribers, who are subscribing to this Event Drivers.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""S"""
EXPLANATION: Type must be Subscriber
CROSS-REFERENCE: 101.0775^B
1)= S ^ORD(101,DA(1),775,"B",$E(X,1,30),DA)=""
2)= K ^ORD(101,DA(1),775,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 101^AB
1)= S ^ORD(101,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^ORD(101,"AB",$E(X,1,30),DA(1),DA)