Global: ^AUTTMCS

Information

FileMan FileNo	FileMan Filename	Package
9999999.32	MEDICARE SUFFIX	Utility Tables

Changes to this data dictionary should be coordinated thru the IHS DBA. This file contains a 1-3 digit code which is a suffix to the patient's 9 digit medicare number. This code indicates whether the 9 digit number is a patient's own SSN, or is the SSN of some member of the family. The suffix is a required component of the medicare number, and is defined by HCFA.

Package	Total	Routines
Contract Health Management Information System	11	ACHSDNL3 ACHSMD0A ACHSRP31 ACHSRP3D ACHSRPFU ACHSRPI ACHSRPI1 ACHSRPIN ACHSRPU ACHSTX3C ACHSUDF
IHS Changes To ADT	5	ADGCRB4 ADGDMM ADGIP0 ADGWMM1 ADGWMM2
IHS Patient Registration	5	AGELUP2 AGINSUPD AGTX2 AGTX5 AGTXALL
Patient Care Component Reports	4	APCLBV11 APCLPYR2 APCLVLU1 APCLYV22
Third Party Billing	4	ABMDE23P ABMDE2XA ABMDREL1 ABMUTLP
Data Warehouse Export System	2	BDWA1 BDWDWPX
IHS Changes To Scheduling	2	ASDAIU BSDAIU
Mental Health Social Services	2	AMHRBV1 AMHRLU1
Referred Care Information System	2	BMCFPRN1 BMCRLU1
Alcohol Chemical Dependency	1	ACDRLU1
Case Management System	1	ACMRLU1
Clinical Scheduling for Windows	1	BSDX41B
Electronic Dental Record	1	BADEHLI
Health Summary Components	1	BHSINSUR
IHS RPMS CHR System	1	BCHRLU1
Patient Care Component	1	APCHS5A
Patient Chart	1	BPCRC8
Women's Health	1	BWGRVLU1

Package	Total	Routines
Health Summary Components	1	BHSINSUR

Package	Total	FileMan Files
IHS Patient	1	MEDICARE ELIGIBLE(#9000003)[.04]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.32^B` 1)= S ^AUTTMCS("B",$E(X,1,30),DA)="" 2)= K ^AUTTMCS("B",$E(X,1,30),DA)

CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9999999.32^B

1)= S ^AUTTMCS("B",$E(X,1,30),DA)=""

2)= K ^AUTTMCS("B",$E(X,1,30),DA)