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 |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^%ZIS(14.6

Package: Kernel

Global: ^%ZIS(14.6


Information

FileMan FileNo FileMan Filename Package
14.6 UCI ASSOCIATION Kernel

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Kernel 9 %ZTM    %ZTM1    %ZTM2    %ZTM5    XQ8A    XUTMG145    XUTMG146    XUTMTEIO
ZTMOVE    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 VOLUME SET(#14.5)[12]    

Fields, Total: 7

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 18, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer should be a unique number, used to identify this file entry.
  • TECHNICAL DESCR:  
    The entries in this file have no unique data elements, so the internal number is used to distinguish them.
    SOURCE OF DATA: VA FileMan (arbitrary)
.01 FROM UCI 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>32!($L(X)<2)!'(X?2ANP.ANP) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  Answer must be 2-32 characters in length.
  • DESCRIPTION:  
    Answer should be the name of a uci from which a task is being transferred.
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • CROSS-REFERENCE:  14.6^B
    1)= S ^%ZIS(14.6,"B",$E(X,1,30),DA)=""
    2)= K ^%ZIS(14.6,"B",$E(X,1,30),DA)
    This cross-reference is used directly only by FileMan.
  • CROSS-REFERENCE:  14.6^AC^MUMPS
    1)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D S01^XUTMG146 K ZT
    2)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D K01^XUTMG146 K ZT
    This cross-reference updates the "AT" and "AV" indices.
1 FROM VOLUME SET 0;5 POINTER TO VOLUME SET FILE (#14.5)
************************REQUIRED FIELD************************
VOLUME SET(#14.5)

  • INPUT TRANSFORM:  S DIC("S")="I Y'=$P(^%ZIS(14.6,DA,0),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 12, 1991
  • DESCRIPTION:  
    Answer should be the name of the volume set from which the task is being transferred.
  • TECHNICAL DESCR:  
    Altering the pointer value in this field triggers changes to the free text value in field 1.5, which is used to generate the correct cross-references.
  • SCREEN:  S DIC("S")="I Y'=$P(^%ZIS(14.6,DA,0),U,6)"
  • EXPLANATION:  UCIs must be associated with UCIs on different volume sets.
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • CROSS-REFERENCE:  ^^TRIGGER^14.6^1.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(14.6,1,1,1,1.1) X ^DD(14.6,1,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(^%ZIS(14.5,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=14.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(14.6,1,1,1,2.4)
    2.4)= S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=14.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= FROM VOLUME SET
    DELETE VALUE)= @
    FIELD)= FROM VOLUME SET
    This cross-reference triggers changing the free text value in field 1.5 that corresponds to the pointer value in this field.
1.5 FROM VOLUME SET (FREE TEXT) 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This field is write protected and uneditable. It is triggered by field 1, and holds the resolved pointer values for use in the file's cross- references.
  • TECHNICAL DESCR:  
    This field is used to generate the correct cross-references for field 1. This value can only be altered by the trigger on field 1, which ensures that only valid VOLUME SET names are used.
    WRITE AUTHORITY: ^
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • NOTES:  TRIGGERED by the FROM VOLUME SET field of the UCI ASSOCIATION File
  • CROSS-REFERENCE:  14.6^AD^MUMPS
    1)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D S15^XUTMG146 K ZT
    2)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D K15^XUTMG146 K ZT
    This cross-reference updates the "AT" and "AV" indices.
2 TO VOLUME SET 0;6 POINTER TO VOLUME SET FILE (#14.5) VOLUME SET(#14.5)

  • INPUT TRANSFORM:  S DIC("S")="I Y'=$P(^%ZIS(14.6,DA,0),U,5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 12, 1991
  • DESCRIPTION:  
    Answer should be the name of the volume set to which the task is being transferred.
  • TECHNICAL DESCR:  
    The pointer value placed in this field triggers placing the free text value in field 2.5 so that the correct cross-references are made.
  • SCREEN:  S DIC("S")="I Y'=$P(^%ZIS(14.6,DA,0),U,5)"
  • EXPLANATION:  UCIs must be associated with UCIs on different volume sets.
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • CROSS-REFERENCE:  ^^TRIGGER^14.6^2.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(14.6,2,1,1,1.1) X ^DD(14.6,2,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(^%ZIS(14.5,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=14.6,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(14.6,2,1,1,2.4)
    2.4)= S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=14.6,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TO VOLUME SET
    DELETE VALUE)= @
    FIELD)= TO VOLUME SET
    This cross-reference triggers changing the free text value in field 2.5 to correspond to the pointer value in this field.
2.5 TO VOLUME SET (FREE TEXT) 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This field is write protected and uneditable. It is triggered by field 2, and holds the resolved pointer values for use in the file's cross- references.
  • TECHNICAL DESCR:  
    This field holds the free text value associated with the value in field 2, and is triggered by changing that field. This value is used to set the correct cross-references for field 2.
    WRITE AUTHORITY: ^
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • NOTES:  TRIGGERED by the TO VOLUME SET field of the UCI ASSOCIATION File
  • CROSS-REFERENCE:  14.6^AE^MUMPS
    1)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D S25^XUTMG146 K ZT
    2)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D K25^XUTMG146 K ZT
    This cross-reference updates the "AT" and "AV" indices.
3 TO UCI 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>32!($L(X)<2)!'(X?2ANP.ANP) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  Answer must be 2-32 characters in length.
  • DESCRIPTION:  
    Answer should be the name of the uci to which the task will be transferred.
    SOURCE OF DATA: System manager (from local system configuration).
    DATA DESTINATION: System manager (from local system configuration).
  • CROSS-REFERENCE:  14.6^AF^MUMPS
    1)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D S3^XUTMG146 K ZT
    2)= I $D(^%ZIS(14.6,DA,0))#2,X]"" N ZT S ZT=^(0) D K3^XUTMG146 K ZT
    This cross-reference updates the "AT" and "AV" indices.
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields