Global: ^AUTTSSN

Information

FileMan FileNo	FileMan Filename	Package
9999999.78	SSN STATUS	Utility Tables

Package	Total	Routines
IHS Patient Registration	8	AG2A AG3A AGED1 AGFACE AGLSSN2 AGSS1 AGSSINST AGTX3
Contract Health Management Information System	2	ACHSTX3 ACHSTX33
Patient Registration GUI	2	AGGPTTRG AGGWVAL
Electronic Dental Record	1	BADEHLZ
Local Area Programs	1	AZHDKAUT
Patient Chart	1	BPCRC8

Package	Total	Routines
IHS Patient Registration	1	AGSSLBAT

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.23]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `MAR 03, 1992` HELP-PROMPT: `Answer must be 1 character in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.78^B` 1)= S ^AUTTSSN("B",$E(X,1,30),DA)="" 2)= K ^AUTTSSN("B",$E(X,1,30),DA)
.02	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-33 characters in length.`

CODE

0;1

FREE TEXT

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

CROSS-REFERENCE: 9999999.78^B

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

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

DESCRIPTION

0;2

FREE TEXT