Sub-Field: 9002270.31113

Parent File	Name	Number	Package
9002270.311	SPECIAL PROCESSES PERFORMED	9002270.31113	Third Party Tracking

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME PERFORMED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 23, 1991` CROSS-REFERENCE: `9002270.31113^B` 1)= S ^ABPACHKS(DA(3),"I",DA(2),"C",DA(1),"SP","B",$E(X,1,30),DA)="" 2)= K ^ABPACHKS(DA(3),"I",DA(2),"C",DA(1),"SP","B",$E(X,1,30),DA)
1	SPECIAL PROCESS PERFORMED	0;2	SET	**********************REQUIRED FIELD********************** 'E' FOR CHECK NUMBER EDITED; 'I' FOR IMPROPERLY LOGGED; 'R' FOR CHECK RETURNED; 'T' FOR ACCOUNT TRANSFER; LAST EDITED: `MAR 29, 1991`
2	PERFORMED BY	0;3	POINTER TO USER FILE (#3)	**********************REQUIRED FIELD********************** USER(#3) LAST EDITED: `MAR 23, 1991`
3	AMOUNT INVOLVED	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<.01) X` LAST EDITED: `MAR 23, 1991` HELP-PROMPT: `Type a Dollar Amount between .01 and 99999, 2 Decimal Digits` CROSS-REFERENCE: `9002270.03^SP^MUMPS` 1)= S ^ABPACHKS("SP",DA(3),$P(^ABPACHKS(DA(3),"I",DA(2),"C",DA(1),"SP",DA,0),"^"),DA(2),DA(1))=X 2)= K ^ABPACHKS("SP",DA(3),$P(^ABPACHKS(DA(3),"I",DA(2),"C",DA(1),"SP",DA,0),"^"),DA(2),DA(1))
4	EXPLANATION	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>79!($L(X)<3) X` LAST EDITED: `MAR 24, 1991` HELP-PROMPT: `Answer must be 3-79 characters in length.`