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 ON FOR THIS OR SCRUB NURSE
DESCRIPTION:
This is the date/time that this person's scrub role responsibilities began. Both the date and time must be entered.
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
INPUT TRANSFORM: S SRSUB=23,SRP=1 D OFF2^SROVAR S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 01, 1993
DESCRIPTION:
This is the date and time that this person's scrub role responsibilities ended. Times entered without a date will be converted to the date of operation at that time.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
HELP-PROMPT: Enter the code corresponding to the reason for relief.
DESCRIPTION: This is the reason why this person was relieved of his or her scrub role responsibilities prior to the end of this case. Although optional, this information may be useful in documentation of the case.