Sub-Field: 130.43

Parent File	Name	Number	Package
SURGERY(#130)	RETURNED TO SURGERY	130.43	Surgery

Details

Field #	Name	Loc	Type	Details
.01	RETURNED TO SURGERY	0;1	POINTER TO SURGERY FILE (#130)	SURGERY(#130) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"")=$P(^SRF(DA,0),""^"")" D ^DIC K DIC S DIC=DIE,X=+Y,DINUM=X K:Y<0 X` LAST EDITED: `JAN 22, 1991` DESCRIPTION: `This indicates the case number if the patient has been returned to surgery within 30 days.` DELETE TEST: `.01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `130.43^B` 1)= S ^SRF(DA(1),29,"B",$E(X,1,30),DA)="" 2)= K ^SRF(DA(1),29,"B",$E(X,1,30),DA)
1	REASON	0;2	SET	'R' FOR RETREATMENT; 'C' FOR COMPLICATION; 'N' FOR NEW PROBLEM; LAST EDITED: `AUG 23, 1986` HELP-PROMPT: `Enter the code corresponding to the reason that this patient was returned to surgery.` DESCRIPTION: `This is the reason that the patient was returned to surgery.`
2	RET TO SURGERY COMMENTS	1;0	WORD-PROCESSING #130.44	DESCRIPTION: `These are comments about the return to surgery which may be helpful in documentation of this case.`
3	RELATED/UNRELATED	0;3	SET	'U' FOR UNRELATED TO THIS CASE; 'R' FOR RELATED TO THIS CASE; LAST EDITED: `MAR 31, 1992` HELP-PROMPT: `Enter 'R' if this return within 30 days is related to this case.` DESCRIPTION: `This determines whether the return within 30 days is related to any of the operations performed in this case. If so, enter 'R' for 'RELATED'. Otherwise, enter 'U' for 'UNRELATED'.`