Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

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