Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^ADEKNT

Package: IHS Dental System

Global: ^ADEKNT

Information

FileMan FileNo	FileMan Filename	Package
9002009.7	DENTAL OBJECTIVE COUNT	IHS Dental System

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	YEAR.QUARTER.OBJECTIVE.AGE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<6)!'(X?4N1"."1N1".".E) X` LAST EDITED: `SEP 04, 1998` HELP-PROMPT: `Answer YEAR as YYYY (i.e. 1998).` TECHNICAL DESCR: `Y2K CHANGES MADE BY FRED LEPKER IN 9/98. PREVIOUSLY, THE YEAR PART OF THIS STRING WAS IN THE FORMAT YY. IN ORDER FOR THIS FILE TO WORK CORRECTLY AFTER THE YEAR 2000, THE YEAR PART OF THIS STRING MUST BE YYYY (i.e. 1998).` THE LENGTH, PATTERN MATCH, AND SHORT HELP FIELDS WERE CHANGED TO FACILITATE THIS. CROSS-REFERENCE: `9002009.7^B` 1)= S ^ADEKNT("B",$E(X,1,30),DA)="" 2)= K ^ADEKNT("B",$E(X,1,30),DA)
.02	QUARTER COUNT	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `DEC 15, 2003` HELP-PROMPT: `Type a Number between 0 and 9999999, 2 Decimal Digits` TECHNICAL DESCR: 12/15/03 - LSL - Modified to allow 2 decimal for RVU compilation
.03	1-YEAR COUNT	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `DEC 15, 2003` HELP-PROMPT: `Type a Number between 0 and 9999999, 2 Decimal Digits` TECHNICAL DESCR: 12/15/03 - LSL - Modified to allow 2 decimal digits for RVU compilation
.04	3-YEAR COUNT	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `DEC 15, 2003` HELP-PROMPT: `Type a Number between 0 and 9999999, 2 Decimal Digits` TECHNICAL DESCR: 12/15/03 - LSL - Modified to allow 2 decimal digits for RVU compilation
.05	YEAR	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2200)!(X<1981)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1998` HELP-PROMPT: `Type a Number between 1981 and 2200, 0 Decimal Digits` TECHNICAL DESCR: Y2K CHANGE BY FRED LEPKER 9/98. CHANGED RANGE FROM 1981-2010 TO 1981-2200.
.06	QUARTER	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 30, 1994` HELP-PROMPT: `Type a Number between 1 and 4, 0 Decimal Digits`
.07	OBJECTIVE	0;7	POINTER TO DENTAL PROGRAM OBJECTIVE FILE (#9002009.6)	DENTAL PROGRAM OBJECTIVE(#9002009.6) LAST EDITED: `JUN 30, 1994`
.08	LOWER AGE	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>125)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 06, 1997` HELP-PROMPT: `Type a Number between 0 and 125, 0 Decimal Digits` CROSS-REFERENCE: `9002009.7^AD^MUMPS` 1)= S:$L($P(^ADEKNT(DA,0),U),".")=4 ^ADEKNT("AD",$P($P(^ADEKNT(DA,0),U),".",1,3),X,DA)="" 2)= K:$L($P(^ADEKNT(DA,0),U),".")=4 ^ADEKNT("AD",$P($P(^ADEKNT(DA,0),U),".",1,3),X) CROSS-REFERENCE: `9002009.7^AF^MUMPS` 1)= S:$L($P(^ADEKNT(DA,0),U),".")=5 ^ADEKNT("AF",$P($P(^ADEKNT(DA,0),U),".",1,3)_"."_$P($P(^ADEKNT(DA,0),U),".",5),X,DA)="" 2)= K:$L($P(^ADEKNT(DA,0),U),".")=5 ^ADEKNT("AF",$P($P(^ADEKNT(DA,0),U),".",1,3)_"."_$P($P(^ADEKNT(DA,0),U),".",5),X) FACILITY-LEVEL CROSS REFERENCE.
.09	UPPER AGE	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>125)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 30, 1994` HELP-PROMPT: `Type a Number between 0 and 125, 0 Decimal Digits`
.11	LOCATION	0;11	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `JAN 06, 1997` HELP-PROMPT: `ENTER A VALID LOCATION` DESCRIPTION: LOCATION OF OBJECTIVE COUNT

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All