This file contains information about dental providers. It contains the name of the provider, a unique provider number and the status of the provider (active or inactive). A new, 8 character, dental provider number has been implemented which will replace the old 4 character number used in Dental Record Manager.
HELP-PROMPT: Answer must be 8 numeric characters in length
DESCRIPTION: This is the Dental Provider Number. The first two characters are the zero-filled DENTAL PROVIDER TYPE, the second two characters are the zero-filled DENTAL PROVIDER SPECIALTY and the last 4 characters are system
generated.
CROSS-REFERENCE: 220.5^D
1)= S ^DENT(220.5,"D",$E(X,1,30),DA)=""
2)= K ^DENT(220.5,"D",$E(X,1,30),DA)
This references the file by the New Dental Provider Number.
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),$D(^DENT(220.5,"C",X)) W !,"PROVIDER NUMBER ",X," ALREADY EXISTS",*7 K X
LAST EDITED: FEB 05, 2004
HELP-PROMPT: *This field is no longer used*
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER