Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^DIZ(8980

Package: Toolkit

Global: ^DIZ(8980

Information

FileMan FileNo	FileMan Filename	Package
8980	KERMIT HOLDING	Toolkit

Description

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.

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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 DIU=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(^VA(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`
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`
2	Replace File Name	0;3	SET	**********************REQUIRED FIELD********************** '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.`
3	KERMIT transfer mode	0;4	SET	**********************REQUIRED FIELD********************** '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.`
4	CREATOR	0;5	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) 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)`
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.`
10	ACCESS ALLOWED TO USER	1;0	POINTER Multiple #8980.01	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`
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)`

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All