Sub-Field: 130.39

Parent File	Name	Number	Package
130.08	TIME	130.39	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TIME	0;1	DATE	INPUT TRANSFORM: `S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="ERTX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X ^DD("DD")` LAST EDITED: `DEC 08, 1993` HELP-PROMPT: `Enter the date/time that the irrigation solution was utilized.` DESCRIPTION: `This is the date and time that the irrigation solution was utilized. This information is optional, but may be useful for documentation of this case.` PRE-LOOKUP: `S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="RTX" D ^%DT S X=Y K:Y<1 X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	AMOUNT USED	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 1985` HELP-PROMPT: `Enter a whole number between 0 and 999999.` DESCRIPTION: `This is the total amount of irrigation solution used in the operative site.`
2	PROVIDER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 05, 1992` HELP-PROMPT: `Enter the name of the provider.` DESCRIPTION: `This is the name of the person responsible for the irrigation solution. Although this information is optional, it may be useful for documentation of this case.` SCREEN: `S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)"` EXPLANATION: `Entries in this field may be restricted based on locally selected keys.`

.01

TIME

0;1

DATE

INPUT TRANSFORM: S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: X ^DD("DD")
LAST EDITED: DEC 08, 1993
HELP-PROMPT: Enter the date/time that the irrigation solution was utilized.
DESCRIPTION: This is the date and time that the irrigation solution was utilized. This information is optional, but may be useful for documentation of this case.
PRE-LOOKUP: S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="RTX" D ^%DT S X=Y K:Y<1 X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

AMOUNT USED

0;2

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 23, 1985
HELP-PROMPT: Enter a whole number between 0 and 999999.
DESCRIPTION: This is the total amount of irrigation solution used in the operative site.

PROVIDER

0;3

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Enter the name of the provider.
DESCRIPTION: This is the name of the person responsible for the irrigation solution. Although this information is optional, it may be useful for documentation of this case.
SCREEN: S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)"
EXPLANATION: Entries in this field may be restricted based on locally selected keys.

Customize PDF page

Package: Surgery

SURGERY(#130)-->130.08-->130.39

Sub-Field: 130.39

Information

Details