Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 4.53

Package: MailMan

NETWORK TRANSACTION(#4.5)-->4.52-->4.53

Sub-Field: 4.53


Information

Parent File Name Number Package
4.52 FIELD 4.53 MailMan

Details

Field # Name Loc Type Details
.01 FIELD NAME 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  Enter the FileMan name of the field
1 EXTERNAL NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  Enter the COBOL name of the field
  • DESCRIPTION:  
    This file is obsolete.
2 TYPE 0;3 SET
  • 'F' FOR FREE TEXT;
  • 'N' FOR NUMERIC;

  • DESCRIPTION:  
    This file is obsolete.
    UNEDITABLE
3 LENGTH 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Enter the number of bytes for the COBOL field
  • DESCRIPTION:  
    This file is obsolete.
    UNEDITABLE
4 DECIMAL PLACES 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1985
  • HELP-PROMPT:  Enter the number of digits to the right of the decimal point
  • DESCRIPTION:  
    This file is obsolete.
    UNEDITABLE
5 START POSITION 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 1985
  • HELP-PROMPT:  Enter the byte position where this field begins
  • DESCRIPTION:  
    This file is obsolete.
  • CROSS-REFERENCE:  ^^TRIGGER^4.53^9
    1)= X ^DD(4.53,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,5,1,1,1.1) X ^DD(4.53,5,1,1,1.4)
    1.1)= S X=DIV X ^DD(4.53,5,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,5,1,1,2.4)
    2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE CONDITION)= ALL HERE
    CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))
    DELETE VALUE)= @
    FIELD)= EXTRACT CODE
6 TRIM 0;7 SET
  • 'L' FOR LEFT;
  • 'R' FOR RIGHT;
  • 'B' FOR BOTH LEFT AND RIGHT;

  • LAST EDITED:  APR 16, 1985
  • DESCRIPTION:  
    This file is obsolete.
  • CROSS-REFERENCE:  ^^TRIGGER^4.53^9
    1)= X ^DD(4.53,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,6,1,1,1.1) X ^DD(4.53,6,1,1,1.4)
    1.1)= S X=DIV X ^DD(4.53,6,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= X ^DD(4.53,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,6,1,1,2.1) X ^DD(4.53,6,1,1,2.4)
    2.1)= S X=DIV X ^DD(4.53,6,1,1,2,9.3) S X1=Y(6) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE CONDITION)= ALL HERE
    CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))
    DELETE CONDITION)= ALL HERE
    DELETE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,"",INTERNAL(IGNORE 0 AND NULL))
    FIELD)= EXTRACT CODE
7 IGNORE 0 AND NULL 0;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 16, 1985
  • HELP-PROMPT:  Enter YES if a zero or blank value need not be stored in Fileman.
  • DESCRIPTION:  
    This file is obsolete.
  • CROSS-REFERENCE:  ^^TRIGGER^4.53^9
    1)= X ^DD(4.53,7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,7,1,1,1.1) X ^DD(4.53,7,1,1,1.4)
    1.1)= S X=DIV X ^DD(4.53,7,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= X ^DD(4.53,7,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,7,1,1,2.1) X ^DD(4.53,7,1,1,2.4)
    2.1)= S X=DIV X ^DD(4.53,7,1,1,2,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE CONDITION)= ALL HERE
    CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))
    DELETE CONDITION)= ALL HERE
    DELETE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),"")
    FIELD)= EXTRACT CODE
8 COBOL PICTURE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X D:$D(X) ^XMVPIC D:$D(X) ^XMVSTUFF
  • LAST EDITED:  APR 15, 1985
  • HELP-PROMPT:  Enter the COBOL picture that defines the field
  • DESCRIPTION:  
    This file is obsolete.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^4.53^9
    1)= X ^DD(4.53,8,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,8,1,1,1.1) X ^DD(4.53,8,1,1,1.4)
    1.1)= S X=DIV X ^DD(4.53,8,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,8,1,1,2.4)
    2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE CONDITION)= ALL HERE
    CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))
    DELETE VALUE)= @
    FIELD)= EXTRACT CODE
9 EXTRACT CODE 1;E1,200 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM
  • LAST EDITED:  AUG 06, 1985
  • HELP-PROMPT:  Transforms the portion of XMRG into fileman external form in Y. Generated by the fields COBOL PIC and STARTING POSITION.
  • DESCRIPTION:  
    This file is obsolete.
    WRITE AUTHORITY:^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START POSITION field of the FIELD sub-field of the RECORD sub-field of the NETWORK TRANSACTION File
    TRIGGERED by the TRIM field of the FIELD sub-field of the RECORD sub-field of the NETWORK TRANSACTION File
    TRIGGERED by the IGNORE 0 AND NULL field of the FIELD sub-field of the RECORD sub-field of the NETWORK TRANSACTION File
    TRIGGERED by the COBOL PICTURE field of the FIELD sub-field of the RECORD sub-field of the NETWORK TRANSACTION File
10 FILE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."6N.N) X
  • HELP-PROMPT:  Enter the number of the file or sub-file where this data will be stored.
  • DESCRIPTION:  
    This file is obsolete.
  • CROSS-REFERENCE:  4.52^C
    1)= S ^XMB(4.5,DA(2),5,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^XMB(4.5,DA(2),5,"C",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^4.53^11
    1)= Q
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,10,1,2,2.4)
    2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=4.53,DIG=11 D ^D
    ICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= FIELD
11 FIELD 0;11 NUMBER

  • INPUT TRANSFORM:  S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) K:'Y X I Y S DIC="^DD("_Y_",",DIC(0)="QEN" D ^DIC S X=+Y K:Y<0 X S DIC=DIE
  • HELP-PROMPT:  Enter the number or name of the field where this data will go.
  • DESCRIPTION:  
    This file is obsolete.
  • EXECUTABLE HELP:  S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) I Y S DIC="^DD("_Y_",",DIC(0)="QEN",X="?" D ^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the FILE field of the FIELD sub-field of the RECORD sub-field of the NETWORK TRANSACTION File
99 ALL HERE BOOLEAN COMPUTED

  • MUMPS CODE:  X ^DD(4.53,99,9.3) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,6)]"",Y=X,X=Y(4.53,99,4),X=X&Y
    9.2 = S Y(4.53,99,2)=$C(59)_$S($D(^DD(4.53,2,0)):$P(^(0),U,3),1:""),Y(4.53,99,1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"")
    9.3 = X ^DD(4.53,99,9.2) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_":",2),$C(59),1)]"",Y(4.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"",Y=X,X=Y(4.53,99,3),X=X
    9.4 = X ^DD(4.53,99,9.3) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_":",2),$C(59),1)]"",Y(4.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"",Y=X,X=Y(4.53,99,3),X=X
    9.5 = X ^DD(4.53,99,9.4) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,5)]"",Y=X,X=Y(4.53,99,4),X=X&Y,Y(4.53,99,5)=X S X=$P(Y(4.53,99,1),U,6)]""
    9.6 = X ^DD(4.53,99,9.5) S Y=X,X=Y(4.53,99,5),X=X&Y,Y(4.53,99,6)=X S X=$P($P(Y(4.53,99,7),$C(59)_$P(Y(4.53,99,1),U,7)_":",2),$C(59),1)]"",Y=X,X=Y(4.53,99,6),X=X
  • ALGORITHM:  TYPE]""&(LENGTH]"")&(START POSITION]"")
  • LAST EDITED:  APR 15, 1985
  • DESCRIPTION:  
    This file is obsolete.
Info |  Details