Sub-Field: 9002165.04

Parent File	Name	Number	Package
NEW CREDENTIALS(#9002165)	DELINQUENT CHART	9002165.04	Quality Assurance

Details

Field #	Name	Loc	Type	Details
.01	DATE OF DELQ CHART REPORT	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 05, 1991` CROSS-REFERENCE: `9002165.04^B` 1)= S ^AQAQC(DA(1),"DLQ","B",$E(X,1,30),DA)="" 2)= K ^AQAQC(DA(1),"DLQ","B",$E(X,1,30),DA) CROSS-REFERENCE: `9002165^AB` 1)= S ^AQAQC("AB",$E(X,1,30),DA(1),DA)="" 2)= K ^AQAQC("AB",$E(X,1,30),DA(1),DA)
1	NO. OF DELINQUENT CHARTS	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1991` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
2	DENOMINATOR	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 12, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
3	PERCENTAGE		COMPUTED	MUMPS CODE: `X ^DD(9002165.04,3,9.2) S X=X100,Y(9002165.04,3,2)=X S X=1,Y(9002165.04,3,3)=X S X=1,X=$J(Y(9002165.04,3,2),Y(9002165.04,3,3),X)` 9.2 = S Y(9002165.04,3,1)=$S($D(^AQAQC(D0,"DLQ",D1,0)):^(0),1:"") S X=$P(Y(9002165.04,3,1),U,2),X=$S($P(Y(9002165.04,3,1),U,3):X/$P(Y(9002165.04,3,1),U,3),1:"*****") ALGORITHM: `$J(NO. OF DELINQUENT CHARTS/DENOMINATOR100,1,1)` LAST EDITED: `SEP 24, 1991`