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.414

Package: Generic Retrieval Utility

GENERIC RETRIEVAL DEFINITION(#19950.41)-->19950.414

Sub-Field: 19950.414


Information

Parent File Name Number Package
GENERIC RETRIEVAL DEFINITION(#19950.41) EXPORT ITEM 19950.414 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.414^B
    1)= S ^CIAZG(19950.41,DA(1),40,"B",$E(X,1,30),DA)=""
    2)= K ^CIAZG(19950.41,DA(1),40,"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^AITEME
    1)= S ^CIAZG(19950.41,"AITEME",$E(X,1,30),DA(1),DA)=""
    2)= K ^CIAZG(19950.41,"AITEME",$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;
  • '2' FOR NONE;

  • LAST EDITED:  JUN 27, 2004
4 WIDTH 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>250)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 02, 2004
  • HELP-PROMPT:  Maximum width for field.
8 TARGET COMPUTED

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

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