Sub-Field: 9002161.11

Parent File	Name	Number	Package
MED BOARD CERTIFICATION(#9002161.1)	RECERTIFICATION DATE	9002161.11	Quality Assurance

Details

Field #	Name	Loc	Type	Details
.01	RECERTIFICATION DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 08, 1991` CROSS-REFERENCE: `9002161.11^B` 1)= S ^AQAQMB(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AQAQMB(DA(1),1,"B",$E(X,1,30),DA)
.02	RECERT. VERIFIED	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 08, 1991`
.03	RECERT. DUE DATE		COMPUTED DATE	MUMPS CODE: `S Y(9002161.11,.03,1)=$S($D(^AQAQMB(D0,1,D1,0)):^(0),1:"") S X=$P(Y(9002161.11,.03,1),U,1),X1=X,X2=+365,X="" D C^%DTC:X1` ALGORITHM: `RECERTIFICATION DATE+365`
.04	RECERT. OVERDUE		COMPUTED	MUMPS CODE: `X ^DD(9002161.11,.04,9.3) S X=$S(Y(9002161.11,.04,3):Y(9002161.11,.04,4),Y(9002161.11,.04,5):X)` 9.2 = X $P(^DD(9002161.11,.03,0),U,5,99) S Y(9002161.11,.04,1)=X S X=Y(9002161.11,.04,1),Y(9002161.11,.04,2)=X,X=DT S Y=X,X=Y(9002161.11,.04,2),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X 9.3 = X ^DD(9002161.11,.04,9.2) S X=X>0,Y(9002161.11,.04,3)=X S X="",Y(9002161.11,.04,4)=X S X=1,Y(9002161.11,.04,5)=X S X="OVERDUE" ALGORITHM: `$S(RECERT. DUE DATE-TODAY>0:"",1:"OVERDUE")` LAST EDITED: `JUN 14, 1991`