Sub-Field: 9002271.01

Parent File	Name	Number	Package
PRIVATE INSURANCE TX STATUS(#9002271)	DATE EXPORT PROCESSED	9002271.01	Third Party Tracking

Details

Field #	Name	Loc	Type	Details
.01	DATE EXPORT PROCESSED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `9002271^C` 1)= S ^ABPVTXST("C",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVTXST("C",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9002271^AC^MUMPS` 1)= S ^ABPVTXST("AC",DA(1),9999999-$E(X,1,30),DA)="" 2)= K ^ABPVTXST("AC",DA(1),9999999-$E(X,1,30),DA)
1	BEGINNING DOC DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
2	ENDING DOC DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
3	LAST INTERNAL REC #	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits`
4	NUMBER OF RECORDS	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits`
5	DATA CARTRIDGE NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH`
6	DATE MAILED	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
7	DATE RECEIVED	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
8	DATE CONFIRMED	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
9	TAPE COPY OK	0;10	SET	'Y' FOR YES; 'N' FOR NO; ' ' FOR NO;