Sub-Field: 70003.01

Parent File	Name	Number	Package
ACFORM(#70003)	REVISION	70003.01	Uncategorized

Details

Field #	Name	Loc	Type	Details
.01	RET REV DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:2991200X) X` LAST EDITED: `SEP 17, 1986` HELP-PROMPT: `Enter the date the Document was sent for Revision`
1	REASON	1;0	SET Multiple #70003.03	70003.03
1.5	REVISED DUE DATE	2;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` CROSS-REFERENCE: `^^TRIGGER^70003^5` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^TRACK1(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(70003.01,1.5,1,1,1.4) 1.4)= S DIH=$S($D(^TRACK1(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=70003,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^TRACK1(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=X X ^DD(70003.01,1.5,1,1,2.4) 2.4)= S DIH=$S($D(^TRACK1(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=70003,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= REVISED DUE DATE DELETE VALUE)= OLD REVISED DUE DATE FIELD)= DATE DUE
2	REVISION DATE REC	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:2991200X) X` LAST EDITED: `SEP 17, 1986` HELP-PROMPT: `Type the Date the revision was sent to Director's Office`