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: 19950.413

Package: Generic Retrieval Utility

GENERIC RETRIEVAL DEFINITION(#19950.41)-->19950.413

Sub-Field: 19950.413


Information

Parent File Name Number Package
GENERIC RETRIEVAL DEFINITION(#19950.41) SORT ITEM 19950.413 Generic Retrieval Utility

Details

Field # Name Loc Type Details
.01 SEQUENCE 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 21, 2004
  • HELP-PROMPT:  Sequence number for this item.
  • CROSS-REFERENCE:  19950.413^B
    1)= S ^CIAZG(19950.41,DA(1),30,"B",$E(X,1,30),DA)=""
    2)= K ^CIAZG(19950.41,DA(1),30,"B",$E(X,1,30),DA)
1 ITEM 0;2 POINTER TO GENERIC RETRIEVAL ITEM FILE (#19950.42)
************************REQUIRED FIELD************************
GENERIC RETRIEVAL ITEM(#19950.42)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=DA(1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 08, 2004
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=DA(1)"
  • EXPLANATION:  Only items belonging to this definition.
  • CROSS-REFERENCE:  19950.41^AITEMS
    1)= S ^CIAZG(19950.41,"AITEMS",$E(X,1,30),DA(1),DA)=""
    2)= K ^CIAZG(19950.41,"AITEMS",$E(X,1,30),DA(1),DA)
2 ISLINKED 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 08, 2004
  • HELP-PROMPT:  If yes, the entry is linked to a child definition.
3 FORMAT 0;4 SET
  • '0' FOR INTERNAL;
  • '1' FOR EXTERNAL;

  • LAST EDITED:  MAY 18, 2004
  • HELP-PROMPT:  Format to be used for sorting.
4 ORDERING 0;5 SET
  • '0' FOR ASCENDING;
  • '1' FOR DESCENDING;

  • LAST EDITED:  MAY 27, 2004
7 DATATYPE COMPUTED

  • MUMPS CODE:  X ^DD(19950.413,7,9.3) S X=$P(Y(19950.413,7,101),U,7),X=X S X=X S D0=Y(19950.413,7,80) S D1=Y(19950.413,7,81)
    9.2 = S Y(19950.413,7,81)=$G(D1),Y(19950.413,7,80)=$G(D0),Y(19950.413,7,1)=$S($D(^CIAZG(19950.41,D0,30,D1,0)):^(0),1:"")
    9.3 = X ^DD(19950.413,7,9.2) S D0=$P(Y(19950.413,7,1),U,2) S:'D0!'$D(^CIAZG(19950.42,+D0,0)) D0=-1 S Y(19950.413,7,101)=$S($D(^CIAZG(19950.42,D0,0)):^(0),1:"")
  • ALGORITHM:  INTERNAL(ITEM:DATATYPE)
  • LAST EDITED:  JUL 16, 2004
8 TARGET COMPUTED

  • MUMPS CODE:  X ^DD(19950.413,8,9.3) S X=$P(Y(19950.413,8,101),U,3) S D0=Y(19950.413,8,80) S D1=Y(19950.413,8,81)
    9.2 = S Y(19950.413,8,81)=$G(D1),Y(19950.413,8,80)=$G(D0),Y(19950.413,8,1)=$S($D(^CIAZG(19950.41,D0,30,D1,0)):^(0),1:"")
    9.3 = X ^DD(19950.413,8,9.2) S D0=$P(Y(19950.413,8,1),U,2) S:'D0!'$D(^CIAZG(19950.42,+D0,0)) D0=-1 S Y(19950.413,8,101)=$S($D(^CIAZG(19950.42,D0,0)):^(0),1:"")
  • ALGORITHM:  ITEM:TARGET
9 ITEM TYPE COMPUTED

  • MUMPS CODE:  X ^DD(19950.413,9,9.3) S X=$P(Y(19950.413,9,101),U,4),X=X S X=X S D0=Y(19950.413,9,80) S D1=Y(19950.413,9,81)
    9.2 = S Y(19950.413,9,81)=$G(D1),Y(19950.413,9,80)=$G(D0),Y(19950.413,9,1)=$S($D(^CIAZG(19950.41,D0,30,D1,0)):^(0),1:"")
    9.3 = X ^DD(19950.413,9,9.2) S D0=$P(Y(19950.413,9,1),U,2) S:'D0!'$D(^CIAZG(19950.42,+D0,0)) D0=-1 S Y(19950.413,9,101)=$S($D(^CIAZG(19950.42,D0,0)):^(0),1:"")
  • ALGORITHM:  INTERNAL(ITEM:TYPE)
Info |  Details |  All