Sub-Field: 9001005.2101

Parent File	Name	Number	Package
PCC DATA TRANS LOG(#9001005)	VISITS	9001005.2101	Patient Care Component

Details

Field #	Name	Loc	Type	Details
.01	VISIT	0;1	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `JUN 30, 1999` HELP-PROMPT: `GENERATED` DESCRIPTION: Pointer to the VISIT file for visit that generated a PCIS transaction. UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.019	DFN		COMPUTED	MUMPS CODE: `S Y(9001005.2101,.019,1)=$S($D(^APCPLOG(D0,21,D1,0)):^(0),1:"") S X=$P(Y(9001005.2101,.019,1),U,1),X=X` ALGORITHM: `INTERNAL(#.01)`
.02	TX GEN'D	0;2	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 28, 1987` HELP-PROMPT: `GENERATED` UNEDITABLE
.03	DEC	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 28, 1987` HELP-PROMPT: `GENERATED` UNEDITABLE
.04	TYPE	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `MAY 28, 1987` HELP-PROMPT: `GENERATED` UNEDITABLE
.05	MAIN TX GEN'D	0;5	SET	'1' FOR GENERATED; '0' FOR NOT GENERATED; LAST EDITED: `APR 11, 1989` UNEDITABLE
.06	CHA TX GEN'D	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 27, 1989`
.07	STATISTICAL RECORD GEN'S	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 25, 1995`