Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DIZ(8980

Package: Toolkit

Global: ^DIZ(8980


Information

FileMan FileNo FileMan Filename Package
8980 KERMIT HOLDING Toolkit

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Toolkit 4 ^DIZ(8980    ACCESS ALLOWED TO USER    XTKERM2    XTKERM4    
Drug Accountability 1 PSAUP    

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.

    External References

    Name Field # of Occurrence
    ^%DT 1+1
    ^DICR .01(XREF 2n1.4), 4(XREF 1n1.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 2n1.4), 4(XREF 1n1.4)
    ^DD(8980 .01(XREF 2S), 4(XREF 1S)
    ^DIZ(8980 - [#8980] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 2S), 4(XREF 2K)
    ^VA(200 - [#200] .01(XREF 2n1.3)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 4(XREF 1S), 4(XREF 1n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*
    >> D0 .01(XREF 2S), .01(XREF 2n1.3), 4(XREF 1S)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), 4(XREF 1S), 4(XREF 2S), 4(XREF 2K)
    >> DIG .01(XREF 2n1.4), 4(XREF 1n1.4)
    >> DIH .01(XREF 2n1.4), 4(XREF 1n1.4)
    >> DIU .01(XREF 2S), 4(XREF 1S)
    DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 4(XREF 1S), 4(XREF 1n1.4)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 4(XREF 1S), 4(XREF 1n1.4)
    DT 4(XREF 1S)
    DUZ .01(XREF 2S)
    U .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 4(XREF 1S), 4(XREF 1n1.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 1+1*!, 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 2S)
    4(XREF 2K)
    Y .01(XREF 2S), 1+1, 4(XREF 1S)
    Y(0 .01(XREF 2n1.3)
    Y(1 .01(XREF 2S), .01(XREF 2n1.3), 4(XREF 1S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All