Sub-Field: 9001005.05101

Parent File	Name	Number	Package
PCC DATA TRANS LOG(#9001005)	TRANSACTION ERRORS	9001005.05101	Patient Care Component

Details

Field #	Name	Loc	Type	Details
.01	TX	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JUN 07, 1987` HELP-PROMPT: `GENERATED` UNEDITABLE CROSS-REFERENCE: `9001005.05101^B` 1)= S ^APCPLOG(DA(1),51,"B",$E(X,1,30),DA)="" 2)= K ^APCPLOG(DA(1),51,"B",$E(X,1,30),DA)
.02	FILE.ENTRY	0;2	VARIABLE POINTER	**********************REQUIRED FIELD********************** VISIT(#9000010) V HOSPITALIZATION(#9000010.02) V PROVIDER(#9000010.06) V POV(#9000010.07) V PROCEDURE(#9000010.08) V IMMUNIZATION(#9000010.11) V SKIN TEST(#9000010.12) V EXAM(#9000010.13) V TREATMENT(#9000010.15) V MEASUREMENT(#9000010.01) V CHS(#9000010.03) V DENTAL(#9000010.05) LAST EDITED: `JUN 07, 1987` HELP-PROMPT: `GENERATED` UNEDITABLE
.029	DFN;GBL		COMPUTED	MUMPS CODE: `S Y(9001005.05101,.029,1)=$S($D(^APCPLOG(D0,51,D1,0)):^(0),1:"") S X=$P(Y(9001005.05101,.029,1),U,2),X=X` ALGORITHM: `INTERNAL(#.02)`
.03	MSG	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `FEB 01, 1989` HELP-PROMPT: `Answer must be 3-45 characters in length.` UNEDITABLE
.04	VISIT IN ERROR	0;4	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `OCT 01, 1990` UNEDITABLE CROSS-REFERENCE: `9001005.05101^AC` 1)= S ^APCPLOG(DA(1),51,"AC",$E(X,1,30),DA)="" 2)= K ^APCPLOG(DA(1),51,"AC",$E(X,1,30),DA)