This file contains the Name and Two Digit code of each IHS Area. It is generally used with the Service Unit and Facility to identify an IHS Clinic or Location. It is also used with Service Unit and Community to designate a particular community. Changes to this data dictionary must be coordinated with the IHS DBA. This file reflects values in the IHS Standard Code Book, section VIII-A, Area. Additions or changes to entries in this file should not be made locally. Monthly updates (if required) are provided by the IHS DBA thru the patch module. Additions/modifications to the values in CAN NUMBER PREFIX should be verified with OAM/DRM. All CAN NUMBER PREFIX's for IHS begin with a "J".
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X),$D(^AUTTAREA("C",X)),'$D(^AUTTAREA("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "
LAST EDITED: MAY 19, 1993
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
HELP-PROMPT: Enter date this Area code was inactivated (mm/dd/yyyy).
CROSS-REFERENCE: ^^TRIGGER^9999999.21^.06
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTAREA(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X="I" S DIH=$G(^AUTTAREA(DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.21,DIG=.06 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTAREA(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^AUTTAREA(DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.21,DIG=.06 D ^DICR