STANDARD DATA DICTIONARY #8980 -- KERMIT HOLDING FILE 9/29/25 PAGE 1
STORED IN ^DIZ(8980, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file provides a holding place for data being transferred by the KERMIT protocol. By default the data can only be accessed by
the user that created it.
The Kermit Menu (XT-KERMIT options) may be used to send and receive data via this file. The menu also allows the creator of the
data to permit access by others. This file is cross-referenced by name, creator, and access allowed to user.
FILE SCREEN (SCR-node) : I $D(^XUSEC("XUMGR",DUZ))!$D(^DIZ(8980,"AOK",DUZ,Y))
RD ACCESS: #
WR ACCESS: #
DEL ACCESS: #
APPLICATION GROUP(S): XU, XTKE
CROSS
REFERENCED BY: ACCESS ALLOWED TO USER(AB), CREATOR(AOK), NAME(B)
8980,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: SEP 08, 1989
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This is a name used to identify the KERMIT file.
CROSS-REFERENCE: 8980^B
1)= S ^DIZ(8980,"B",$E(X,1,30),DA)=""
2)= K ^DIZ(8980,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^8980^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S D
IU=X K Y S X=DIV S X=DUZ X ^DD(8980,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"") S X=$S('$D(^V
A(200,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^DIZ(8980,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=8980,DIG=4 D ^DICR:$
O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= Needed as part of the security screen.
CREATE CONDITION)= CREATOR=""
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= CREATOR
8980,1 DATE/TIME LAST ACCESSED 0;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This holds the date/time that the KERMIT routines last access this entry.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CREATOR field of the KERMIT HOLDING File
8980,2 Replace File Name 0;3 SET (Required)
'n' FOR NO;
'y' FOR YES;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: Should the name be replaced by the RECIEVED file name?
DESCRIPTION: If this field is set to YES then KERMIT will replace the name with the FILE NAME received from the
remote computer.
8980,3 KERMIT transfer mode 0;4 SET (Required)
'0' FOR IMAGE;
'1' FOR DATA;
'2' FOR TEXT;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: This is the transfer mode that kermit used to load this data.
DESCRIPTION: This holds a flag that tells KERMIT how to handle the tranfered data. TEXT will wrap the data in a
WP type style. DATA will only wrap if the line in greater than 255. IMAGE stores the KERMIT
packets just as they arrive.
8980,4 CREATOR 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: SEP 08, 1989
HELP-PROMPT: The user that created this record.
DESCRIPTION:
This is the person who owns this entry.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the NAME field of the KERMIT HOLDING File
CROSS-REFERENCE: ^^TRIGGER^8980^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X
K Y S X=DIV S X=DT X ^DD(8980,4,1,1,1.4)
1.4)= S DIH=$S($D(^DIZ(8980,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=8980,DIG=1 D ^DICR:$
O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=DT
DELETE VALUE)= NO EFFECT
FIELD)= DATE/TIME CREATED
CROSS-REFERENCE: 8980^AOK
1)= S ^DIZ(8980,"AOK",$E(X,1,30),DA)=""
2)= K ^DIZ(8980,"AOK",$E(X,1,30),DA)
8980,5 Want to edit the data? 0;6 SET
'n' FOR NO;
'y' FOR YES;
LAST EDITED: JUL 28, 1988
HELP-PROMPT: Do you want to edit the data subfile.
DESCRIPTION:
This is used as a question to control an edit template.
8980,10 ACCESS ALLOWED TO USER 1;0 POINTER Multiple #8980.01
DESCRIPTION: This multipule is used to allow other users access to a KERMIT HOLDING data file created by someone
else.
SCREEN: S DIC("S")="I $L($P(^(0),U,1))"
EXPLANATION: Only active users
8980.01,.01 ACCESS ALLOWED TO USER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $L($P(^(0),U,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUL 29, 1988
HELP-PROMPT: Add other users that can access these records.
DESCRIPTION:
This is another person that is allowed to access this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 8980.01^B
1)= S ^DIZ(8980,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIZ(8980,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8980^AB
1)= S ^DIZ(8980,"AOK",$E(X,1,30),DA(1),DA)=""
2)= K ^DIZ(8980,"AOK",$E(X,1,30),DA(1),DA)
8980,21 DATA 2;0 WORD-PROCESSING #8980.021
DESCRIPTION:
This field holds the data.
LAST EDITED: DEC 30, 1988
DESCRIPTION:
The data that KERMIT works on.
CROSS-REFERENCE: 8980.021^B
1)= S ^DIZ(8980,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^DIZ(8980,DA(1),2,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
NEW PERSON (#200) CREATOR (#4)
ACCESS ALLOWED TO USER:ACCESS ALLOWED TO USER (#.01)
INPUT TEMPLATE(S):
XTKERMIT-1 JUL 28, 1988 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):