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

Package: Generic Retrieval Utility

GENERIC RETRIEVAL DEFINITION(#19950.41)-->19950.412

Sub-Field: 19950.412


Information

Parent File Name Number Package
GENERIC RETRIEVAL DEFINITION(#19950.41) SELECTION ITEM 19950.412 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.412^B
    1)= S ^CIAZG(19950.41,DA(1),20,"B",$E(X,1,30),DA)=""
    2)= K ^CIAZG(19950.41,DA(1),20,"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^AITEMC
    1)= S ^CIAZG(19950.41,"AITEMC",$E(X,1,30),DA(1),DA)=""
    2)= K ^CIAZG(19950.41,"AITEMC",$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 AND/OR 0;4 SET
  • '0' FOR AND;
  • '1' FOR OR;

  • LAST EDITED:  MAY 18, 2004
  • HELP-PROMPT:  Boolean operation to be performed against previous criterion.
4 OPERATOR 0;5 POINTER TO GENERIC RETRIEVAL OPERATOR FILE (#19950.44) GENERIC RETRIEVAL OPERATOR(#19950.44)

  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Operation to be performed against VALUE.
4.1 NEGATE 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 28, 2004
  • HELP-PROMPT:  If YES, result of operation will be negated.
5 PROMPT 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 11, 2004
  • HELP-PROMPT:  Enter yes to prompt for data.
6 VALUE TYPE COMPUTED

  • MUMPS CODE:  X ^DD(19950.412,6,9.3) S X=$P(Y(19950.412,6,101),U,2),X=X S X=X S D0=Y(19950.412,6,80) S D1=Y(19950.412,6,81)
    9.2 = S Y(19950.412,6,81)=$G(D1),Y(19950.412,6,80)=$G(D0),Y(19950.412,6,1)=$S($D(^CIAZG(19950.41,D0,20,D1,0)):^(0),1:"")
    9.3 = X ^DD(19950.412,6,9.2) S D0=$P(Y(19950.412,6,1),U,5) S:'D0!'$D(^CIAZG(19950.44,+D0,0)) D0=-1 S Y(19950.412,6,101)=$S($D(^CIAZG(19950.44,D0,0)):^(0),1:"")
  • ALGORITHM:  INTERNAL(OPERATOR:VALUE TYPE)
  • LAST EDITED:  JUN 21, 2004
7 DATATYPE COMPUTED

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

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

  • MUMPS CODE:  X ^DD(19950.412,9,9.3) S X=$P(Y(19950.412,9,101),U,4),X=X S X=X S D0=Y(19950.412,9,80) S D1=Y(19950.412,9,81)
    9.2 = S Y(19950.412,9,81)=$G(D1),Y(19950.412,9,80)=$G(D0),Y(19950.412,9,1)=$S($D(^CIAZG(19950.41,D0,20,D1,0)):^(0),1:"")
    9.3 = X ^DD(19950.412,9,9.2) S D0=$P(Y(19950.412,9,1),U,2) S:'D0!'$D(^CIAZG(19950.42,+D0,0)) D0=-1 S Y(19950.412,9,101)=$S($D(^CIAZG(19950.42,D0,0)):^(0),1:"")
  • ALGORITHM:  INTERNAL(ITEM:TYPE)
10 VALUE 10;0 WORD-PROCESSING #19950.4121
20 PROMPT TEXT 20;0 WORD-PROCESSING #19950.4122

  • LAST EDITED:  JUN 11, 2004
Info |  Details |  All