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

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Toolkit 1 XTKERM4    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[4, #8980.01(.01)]    

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

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2078
  • Drug Accountability
    		•  CREATOR (4).
    Access: Read w/Fileman

    		 This file provides a holding place for data beingtransferred by the KERMIT protocol. By default the data can only be accessedby the user that created it.The Kermit Menu (XT-KERMIT options) may be used to send and receive data viathis file. The menu also allows the creator of the data to permit access byothers. This file is cross-referenced by name, creator, and access allowed touser.
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All