Sub-Field: 9002010.21

Parent File	Name	Number	Package
DENTAL PATIENT(#9002010.2)	PREVIOUS FOLLOWUP	9002010.21	IHS Dental System

Details

Field #	Name	Loc	Type	Details
.01	TYPE	0;1	POINTER TO DENTAL FOLLOWUP CATEGORY FILE (#9002003.1)	DENTAL FOLLOWUP CATEGORY(#9002003.1) HELP-PROMPT: `ENTER A VALID TYPE` DESCRIPTION: FIELD WILL CONTAIN VALID TYPE CROSS-REFERENCE: `9002010.21^B` 1)= S ^ADEPAT(DA(1),"FOL","B",$E(X,1,30),DA)="" 2)= K ^ADEPAT(DA(1),"FOL","B",$E(X,1,30),DA)
1	CATEGORY		COMPUTED	MUMPS CODE: `X ^DD(9002010.21,1,9.3) S Y(9002010.21,1,101)=$S($D(^ADETYP(D0,0)):^(0),1:"") S X=$P($P(Y(9002010.21,1,102),$C(59)_$P(Y(9002010.21,1,101),U,4)_":",2),$C(59),1) S D0=Y(9002010.21,1,80) S D1=Y(9002010.21,1,81)` 9.2 = S Y(9002010.21,1,81)=$S($D(D1):D1,1:""),Y(9002010.21,1,80)=$S($D(D0):D0,1:""),Y(9002010.21,1,1)=$S($D(^ADEPAT(D0,"FOL",D1,0)):^(0),1:"") 9.3 = X ^DD(9002010.21,1,9.2) S D0=$P(Y(9002010.21,1,1),U,1) S:'$D(^ADETYP(+D0,0)) D0=-1 S Y(9002010.21,1,102)=$C(59)_$S($D(^DD(9002003.1,3,0)):$P(^(0),U,3),1:"") ALGORITHM: `.01:TYPE`
2	DATE ADDED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER A VALID DATE ADDED` DESCRIPTION: FIELD WILL CONTAIN VALID DATE ADDED
3	DATE REMOVED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER A VALID DATE REMOVED` DESCRIPTION: FIELD WILL CONTAIN VALID DATE REMOVED