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

Package: IHS GPRA Information System

BGP 12 TAXONOMY TEMP(#90548.09)-->90548.11101

Sub-Field: 90548.11101


Information

Parent File Name Number Package
BGP 12 TAXONOMY TEMP(#90548.09) VALUE 90548.11101 IHS GPRA Information System

Details

Field # Name Loc Type Details
.01 LOW VALUE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X
  • LAST EDITED:  SEP 19, 1994
  • HELP-PROMPT:  Answer must be 1-63 characters in length.
  • CROSS-REFERENCE:  90548.11101^B
    1)= S ^BGPTAXWB(DA(1),21,"B",$E(X,1,30),DA)=""
    2)= K ^BGPTAXWB(DA(1),21,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90548.11101^AA2^MUMPS
    1)= I $P(^BGPTAXWB(DA(1),21,DA,0),U,2)]"" N %,A S A=$S($E(X,$L(X))=" ":"",$P(^BGPTAXWB(DA(1),0),U,13):" ",1:""),%=$P(^BGPTAXWB(DA(1),21,DA,0),U,2)_A,^BGPTAXWB(DA(1),21,"AA",(X_A),%)=""
    2)= I $P(^BGPTAXWB(DA(1),21,DA,0),U,2)]"" N % S %=X S:($E(%,$L(%))'=" ")&($P(^BGPTAXWB(DA(1),0),U,13)) %=%_" " K ^BGPTAXWB(DA(1),21,"AA",%)
.02 HIGH VALUE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X
  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Answer must be 1-63 characters in length.
  • CROSS-REFERENCE:  90548.09^AA^MUMPS
    1)= N %,A S A=$S($E(X,$L(X))=" ":"",$P(^BGPTAXWB(DA(1),0),U,13):" ",1:""),%=$P(^BGPTAXWB(DA(1),21,DA,0),U)_A,^BGPTAXWB(DA(1),21,"AA",%,(X_A))=""
    2)= N % S %=$P(^BGPTAXWB(DA(1),21,DA,0),U) S:($E(%,$L(%))'=" ")&($P(^BGPTAXWB(DA(1),0),U,13)) %=%_" " K ^BGPTAXWB(DA(1),21,"AA",%)
Info |  Details |  All