Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 101.01

Package: Kernel

PROTOCOL(#101)-->101.01

Sub-Field: 101.01


Information

Parent File Name Number Package
PROTOCOL(#101) ITEM 101.01 Kernel

Details

Field # Name Loc Type Details
.01 ITEM 0;1 POINTER TO PROTOCOL FILE (#101) PROTOCOL(#101)

  • INPUT TRANSFORM:  S ORDDF=101 D TREE^ORDD101
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Enter a protocol. A protocol that is an ancestor may not also be a sub-item.
  • DESCRIPTION:  
    This points to a protocol which is subordinate to this protocol.  NOTE:  The parent protocol or one of its ancestors may not be entered as an item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  101.01^B
    1)= S ^ORD(101,DA(1),10,"B",$E(X,1,30),DA)=""
    2)= K ^ORD(101,DA(1),10,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  101.01^AMM^MUMPS
    1)= D REDOX^ORDD101
    2)= D REDOX^ORDD101
  • CROSS-REFERENCE:  101^AD
    1)= S ^ORD(101,"AD",$E(X,1,30),DA(1),DA)=""
    2)= K ^ORD(101,"AD",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^101.01^11
    1)= X ^DD(101.01,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(101.01,.01,1,4,1.1) X ^DD(101.01,.01,1,4,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,4,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(101),U,4),X=X S X=X="T",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=101.01,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,1)
    69.3)= X ^DD(101.01,.01,1,4,69.2) S X=X="",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X="D",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1
    CREATE CONDITION)= (PROMPT="")&(INTERNAL(TYPE)="D")&(INTERNAL(ITEM:TYPE)="T")
    CREATE VALUE)= ITEM:DEFAULT PROMPT
    DELETE VALUE)= NO EFFECT
    FIELD)= PROMPT
    On adding an item initially, stuff the prompt field with the default prompt if the item is a term.
  • CROSS-REFERENCE:  ^^TRIGGER^101.01^12
    1)= X ^DD(101.01,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(101.01,.01,1,5,1.1) X ^DD(101.01,.01,1,5,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) S D1=I(1,0)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,5,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(101),U,4),X=X S X=X="T",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=101.01,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,2)
    69.3)= X ^DD(101.01,.01,1,5,69.2) S X=X="",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X="D",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1
    CREATE CONDITION)= (DEFAULT="")&(INTERNAL(TYPE)="D")&(INTERNAL(ITEM:TYPE)="T")
    CREATE VALUE)= ITEM:DEFAULT ANSWER
    DELETE VALUE)= NO EFFECT
    FIELD)= DEFAULT
    On adding an item initially, stuff the default field with the default answer if the item is a term.
  • CROSS-REFERENCE:  ^^TRIGGER^101.01^13
    1)= X ^DD(101.01,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(101.01,.01,1,6,1.1) X ^DD(101.01,.01,1,6,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) S D1=I(1,0)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,6,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(101),U,4),X=X S X=X="T",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=101.01,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"") S X=$P(Y(1),U,3)
    69.3)= X ^DD(101.01,.01,1,6,69.2) S X=X="",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X="D",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1
    CREATE CONDITION)= (HELP="")&(INTERNAL(TYPE)="D")&(INTERNAL(ITEM:TYPE)="T")
    CREATE VALUE)= ITEM:DEFAULT HELP
    DELETE VALUE)= NO EFFECT
    FIELD)= HELP
    On adding an item initially, stuff the help field with the default help if the item is a term.
2 MNEMONIC 0;2 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  JAN 04, 1989
  • HELP-PROMPT:  Enter a Mnemonic to be used when this protocol is displayed for selection (1-4 characters).
  • DESCRIPTION:  
    This is a short abbreviation for the item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  101.01^AMM2^MUMPS
    1)= D REDOX^ORDD101
    2)= D REDOX^ORDD101
3 SEQUENCE 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Enter a number for sequencing this item with other items when displayed.
  • DESCRIPTION:  This is the order in which items in the list should be processed. In the case of menus, the items are displayed in the order derived from this field. In the case of protocols and extended actions, the items are
    executed in the order derived from this field.
  • CROSS-REFERENCE:  101.01^AMM3^MUMPS
    1)= D REDOX^ORDD101
    2)= D REDOX^ORDD101
4 MODIFYING ACTION 0;4 POINTER TO PROTOCOL FILE (#101) PROTOCOL(#101)

  • INPUT TRANSFORM:  S ORDDF=101 D TREE^ORDD101
  • LAST EDITED:  MAY 02, 1989
  • DESCRIPTION:  This points to a protocol which is executed before the item for this same entry is executed. This allows the possibility of creating protocols which set up special variables, etc., according to the context of the
    protocol.  It also allows screens at the item level if the variables ORQUIT or ORABORT are used to prevent execution of the item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 FORMAT CODE 0;5 SET
  • 'O' FOR output only;
  • 'H' FOR header;

  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Enter OUTPUT ONLY if this item should be displayed only, HEADER if this item should start printing over the mnemonic.
  • DESCRIPTION:  
    This allows items used on menus for formatting purposes to be made unselectable (sub-headers, blank lines, etc.).
  • CROSS-REFERENCE:  101.01^AMM5^MUMPS
    1)= D REDOX^ORDD101
    2)= D REDOX^ORDD101
    Update protocol timestamp when FORMAT CODE changed.
6 DISPLAY NAME 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  This allows the item text that normally appears on the menu to be displayed. For example, this field may be used to set up menus so that items are displayed in mixed case, even though the item text may all be in upper
    case.
  • CROSS-REFERENCE:  101.01^AMM6^MUMPS
    1)= D REDOX^ORDD101
    2)= D REDOX^ORDD101
    Update protocol timestamp whenever DISPLAY NAME is changed.
11 PROMPT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the actual prompt displayed for this item in the dialog.
  • NOTES:  TRIGGERED by the ITEM field of the ITEM sub-field of the PROTOCOL File
12 DEFAULT 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    This is the default response for this item in the dialog.
  • NOTES:  TRIGGERED by the ITEM field of the ITEM sub-field of the PROTOCOL File
13 HELP 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    This is the help text displayed for this item in the dialog.
  • NOTES:  TRIGGERED by the ITEM field of the ITEM sub-field of the PROTOCOL File
14 MODE 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  SEP 06, 1991
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  This tells how this item should be treated when processing the dialog.
    S - suppresses inclusion of the prompt when creating the text generated
    by the dialog.
    E - allows the item to only be presented when editing an existing
    response.
    R - identifies the field as required.
    | - puts this item on a separate line in the Orders global so that
    the TEXTWRAP formatter in the Print fields will wrap the text
    on separate lines.
Info |  Details |  All