Sub-Field: 130.042

Parent File	Name	Number	Package
SURGERY(#130)	DELAY CAUSE	130.042	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DELAY CAUSE	0;1	POINTER TO SURGICAL DELAY FILE (#132.4)	SURGICAL DELAY(#132.4) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 03, 1992` HELP-PROMPT: `Enter reason the operative procedure did not begin at the scheduled time.` DESCRIPTION: `This is the reason why the operative procedure did not begin at the scheduled start time.` SCREEN: `S DIC("S")="I '$P(^(0),U,2)"` EXPLANATION: `Screen prevents selection of inactive entries.` DELETE TEST: `.01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0` CROSS-REFERENCE: `130.042^B` 1)= S ^SRF(DA(1),17,"B",$E(X,1,30),DA)="" 2)= K ^SRF(DA(1),17,"B",$E(X,1,30),DA)
1	DELAY TIME	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>600)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `S Y=Y_" MINUTES"` LAST EDITED: `AUG 19, 1988` HELP-PROMPT: `Enter the number of minutes (1-600) that this case was delayed.` DESCRIPTION: `This is the number of minutes (1-600) that this case was delayed due to this cause. Although optional, this information will appear on the Report of Delayed Operations.`
2	DELAY COMMENTS	1;0	WORD-PROCESSING #130.422	DESCRIPTION: `This contains comments related to the delay cause.` TECHNICAL DESCR: `This is a word processing type field containing comments related to the delay cause.`

DELAY CAUSE

0;1

POINTER TO SURGICAL DELAY FILE (#132.4)

INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 03, 1992
HELP-PROMPT: Enter reason the operative procedure did not begin at the scheduled time.
DESCRIPTION: This is the reason why the operative procedure did not begin at the scheduled start time.
SCREEN: S DIC("S")="I '$P(^(0),U,2)"
EXPLANATION: Screen prevents selection of inactive entries.
DELETE TEST: .01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0

CROSS-REFERENCE: 130.042^B

1)= S ^SRF(DA(1),17,"B",$E(X,1,30),DA)=""

2)= K ^SRF(DA(1),17,"B",$E(X,1,30),DA)

DELAY TIME

0;2

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>600)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=Y_" MINUTES"
LAST EDITED: AUG 19, 1988
HELP-PROMPT: Enter the number of minutes (1-600) that this case was delayed.
DESCRIPTION: This is the number of minutes (1-600) that this case was delayed due to this cause. Although optional, this information will appear on the Report of Delayed Operations.

DELAY COMMENTS

1;0

WORD-PROCESSING #130.422

DESCRIPTION: This contains comments related to the delay cause.
TECHNICAL DESCR: This is a word processing type field containing comments related to the delay cause.