Global: ^AUTTRLSH

FileMan FileNo	FileMan Filename	Package
9999999.36	RELATIONSHIP	Utility Tables

Description

DATA DICTIONARY...: This is a standard RPMS data dictionary, maintained in the AUT package. Changes to this data dictionary must be submitted to the RPMS DBA. ENTRIES IN THIS FILE...: Values in the RELATIONSHIP file are not restricted to consanguinity, but also extend to political, legal, emotional, and situational relationships. BUT, the RELATIONSHIP file is intended to support only individual relationships, not corporate or community (e.g.) relationships. A CHART OF CONSANGUINITY "Kinship Chart" Helps to identify the relationship of those sharing common ancestors. O P GP GGP 3GP 4GP 5GP P S N GN 2GN 3GN 4GN GP N 1C 1C 1C 1C 1C 1R 2R 3R 4R GGP GN 1C 2C 2C 2C 2C 1R 1R 2R 3R 3GP 2GN 1C 2C 3C 3C 3C 2R 1R 1R 2R 4GP 3GN 1C 2C 3C 4C 4C 3R 2R 1R 1R 5GP 4GN 1C 2C 3C 4C 5C 4R 3R 2R 1R C = Cousin P = Parents G = Great/Grand N = Nephew/Niece O = Original Ancestors R = Removed S = Sibling (brother or sister) Examples: 1C = First Cousin GGP = Great Grand Parents 2C1R = Second Cousin, Once Removed GN = Grand Nephew/Niece 3GP = Great Great Grand Parents 5GP = Great Great Great Great Grand Parents Locate one person along the top row, according to his relationship to the Original Ancestors (O). Locate the other person along the left hand column, according to his relationship to the same Original Ancestors and where the two lines cross indicates the relationship of the two people to each other. If needed, the pattern can easily be extended. If you and I have the same Parents (P), then we are Siblings (S). If my Grandparents (GP) are also your Grandparents (GP), then you and I are first cousins (1C). My Great Grand Mother's brother is my Great Grand Uncle, so I'm his GGN, because our Original Ancestors are their Parents (P), and are also my Great Great Grand Parents (GGGP). In reverse, if someone is your third cousin (3C), it means that you both share the same great-great-grandparents (3GP). Be sure to use the nearest Original Ancestors that you share or you can come up with such ridiculous things as: Since my Grandparents are my son's Great-Grandparents, therefore my Son is my first cousin, once removed (1C1R). Whoa...! Kith and Kin HALF -"Half" means you share only one parent. Example: half-brothers may have the same father but different mothers, etc. STEP - Not blood kin, but a close legal relationship due to re-marriage of a parent, such as step-mother, step-brother, step-son, etc. DOUBLE FIRST COUSINS - Are first cousins twice, once on their Father's side and once on their Mother's side, since their Father's sibling married their Mother's sibling. IN-LAW - They are not really blood kin but are treated as such because they married blood kin. Example: Your Mother-in-law is not really your Mother but is treated as such because you married her daughter/son. Also your brother-in-law is your brother because your parents are also his parents "in-law" (Mother-in-law, Father-in-law). KITH and KIN - "Kith" are friends and acquaintances whereas "Kin" are blood relatives or someone treated as such in-law. DEGREES - It used to be that kinship was measured in degrees. Your siblings were first degree. First cousins were 2nd degree, second cousins were 3rd degree, and so on. On the chart above, imagine a diagonal line, from "S" to "5C" dividing the chart in two halves. Those in the upper/right half are the same degree as the Cousin (C) below them. Those in the lower/left half are the same degree as the Cousin (C) to their right. Example - A first cousin once removed (1C1R) can be found in each half. In the upper/right half, go DOWN to 2C. In the lower/left half, go ACROSS to the right. Again, you find 2C. It's the same thing. So a first cousin once removed (1C1R) has the same relationship as a full second cousin (2C), or is in the 3rd degree of kinship. Like playing with numbers? See how the numbers run in rows and in columns. Add the Cs and Rs and locate their sums. Notice what happens when they cross the diagonal. (If you don't like numbers, just ignore this.) ANOTHER METHOD - The number of "G"s you share is the number of cousins you are. The difference in "G"s is the number "Removed". Example: Two people who have the same great-grand-parents (2G) are second cousins (2C). If the great-grand-parents (2G) of one person are the great-great-grand-parents (3G) of the other person, then those two people are second cousins, once removed (2C1R). They share 2G with a difference of 1G (3-2=1). Compare the chart.

Package	Total	Routines
Third Party Billing	18	ABMDE2X ABMDF12A ABMDF14C ABMDF18A ABMDF1C ABMDF25A ABMDF26A ABMDF27C ABMDF29A ABMDF2C ABMDF34A ABMDF35C ABMDF3C ABMDF4A ABMDLCK ABMDREL1 ABMERINS ABMUTLP
IHS Patient Registration	10	AGED51 AGEDGUAR AGEDPRV AGELA1 AGMSP4 AGMSP5 AGMSP6 AGRPTPRV AGTMPP AGTXALL
IHS Changes To Lab	4	BLRAG05C BLRRLHL BLRRLHL2 BLRSHPL2
Patient Care Component	4	APCDFH APCHS61 APCHSAS1 BJPC2EV3
Pharmacy Point of Sale	4	ABSPOS26 ABSPOSCC ABSPOSFC ABSPOSN6
Health Summary Components	3	BHSAST1 BHSFH BHSFH1
Patient Care Component Reports	3	APCLBRH1 APCLBV11 APCLVLU1
Patient Registration GUI	3	AGGFMTRG AGGPOLCY AGGUTB
Automated Lab Instruments	2	LA7MUNK1 LA7VQINS
Data Warehouse Export System	2	BDWDWPX BDWIN1
Patient Care Component Table Maintiance	2	APCM24E6 APCM25E6
Case Management System	1	ACMRFM
Electronic Dental Record	1	BADEHL1
IHS Changes To ADT	1	ADGCRB3
IHS Dental System	1	ADEATT4
IHS Immunizations Interface	1	BYIMIMM6
Mental Health Social Services	1	AMHRBV11
Patient Registration MPI	1	AGMPIHLO
Phoenix Devel Center	1	AZX2RXP1
Portland Private Insurance package	1	AZP3RP
Third Party Tracking	1	ABPVRX03
iCare	1	BQIUTB5

Package	Total	Routines
iCare	3	BQIPTFHD BQIPTFHR BQIPTFHS
IHS Patient Registration	2	AG5 AGED51
Electronic Dental Record	1	BADEHLI

Package	Total	FileMan Files
IHS Patient	8	FAMILY HISTORY(#9000014)[.07] FAMILY HISTORY FAMILY MEMBERS(#9000014.1)[.01] GUARANTOR(#9000043)[#9000043.0101(.06)] MEDICAID ELIGIBLE(#9000004)[.06] MSP PATIENT(#9000037)[.39, .53, .59] PATIENT(#9000001)[2802, 3102] PRIVATE INSURANCE ELIGIBLE(#9000006)[#9000006.11(.05)] VAMB ELIGIBLE(#9000006.02)[4]
Case Management System	1	CMS FAMILY MEMBERS(#9002246)[1]
IHS Immunizations Interface	1	IZ RELATIONSHIP MAPPING(#90480.6)[.01]
IHS Patient Registration	1	MEDICAID STATE EDIT(#9009064)[#9009064.02(.01)]
Pharmacy Point of Sale	1	ABSP COMBINED INSURANCE(#9002313.1)[#9002313.11(.11)]

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	RELATIONSHIP	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `Enter the value of this Individual Relationship, 3-60 characters.` DESCRIPTION: `Relationship is usually defined by answering the question "What is his/her individual relationship to you?" Or, more pertinent, asking the Patient the same question.` An answer might be "She is my Wife.", or "He is my Nephew." TECHNICAL DESCR: `AUT98.111 changed Label of field from NAME to RELATIONSHIP.` AUT98.111 added DESCRIPTION. AUT98.111 increased field length to 60 to accommodate X12 values. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.36^B` 1)= S ^AUTTRLSH("B",$E(X,1,30),DA)="" 2)= K ^AUTTRLSH("B",$E(X,1,30),DA)
.02	UB-92 CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `Answer must be 2 characters in length.` TECHNICAL DESCR: Name of this field changed from "UB-82 CODE" to "UB-92 CODE" by AUT98.111. CROSS-REFERENCE: `9999999.36^C` 1)= S ^AUTTRLSH("C",$E(X,1,30),DA)="" 2)= K ^AUTTRLSH("C",$E(X,1,30),DA)
.03	RECODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `MAR 26, 1990` HELP-PROMPT: `Answer must be 1-2 characters in length.`
.04	COVD BY ACCIDENT INS	0;4	SET	'1' FOR YES; LAST EDITED: `AUG 01, 1997` DESCRIPTION: `Used by Third Party Billing to set set accident insurance as primary for patients treated for accident injuries. Field .04 must be set to 1 (Yes) for the relationship corresponding to accident related, tort related, or` liability claimant.
.05	X12 CODE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2UN) X` LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `Enter the X12 code.` DESCRIPTION: Enter the X12 code for this Relationship. TECHNICAL DESCR: `Values to populate the X12 CODE field were originally obtained from the National Electronic Data Interchange Transaction Set Implementation Guide, Health Care Claim: Institutional 837 ASC X12N 837 (004010X096), May 2000,` beginning on page 142. August 30, 2002. SOURCE OF DATA: ASC X12N CROSS-REFERENCE: `9999999.36^D` 1)= S ^AUTTRLSH("D",$E(X,1,30),DA)="" 2)= K ^AUTTRLSH("D",$E(X,1,30),DA) 3)= Enable lookups on X12 CODE. You can retrieve an entry from this file, based on the X12 CODE, by, e.g.: S X="15",D="D",DIC=9999999.36,DIC(0)="" D IX^DIC However, X12 codes are not unique, and some lookups will fail. E.g "04" can mean "GRANDMOTHER" -or- "GRANDFATHER", and the above lookup using X="04" will fail. Use caution.
.06	INACTIVE	0;6	SET	'1' FOR INACTIVE; LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `Has this entry been Inactivated?` DESCRIPTION: Is this code inactive? If marked as Inactive, the DATE INACTIVATED field will be populated with today's date. TECHNICAL DESCR: The INACTIVE field was created by patch AUT98.111. CROSS-REFERENCE: `^^TRIGGER^9999999.36^.07` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTRLSH(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9999999.36,.06,1,1,1.4) 1.4)= S DIH=$S($D(^AUTTRLSH(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9999999.36,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTRLSH(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(9999999.36,.06,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTRLSH(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9999999.36,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= TODAY DELETE VALUE)= @ FIELD)= DATE INACTIVATED
.07	DATE INACTIVATED	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `DO NOT EDIT. PROGRAMATICALLY CONTROLLED.` DESCRIPTION: DO NOT EDIT. PROGRAMATICALLY CONTROLLED. TECHNICAL DESCR: `DATE INACTIVATED is Triggered by the INACTIVE field.` DATE INACTIVATED added by patch AUT98.111. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the INACTIVE field of the RELATIONSHIP File`
2101	USE FOR PCC FAMILY HISTORY?	21;1	SET	'1' FOR YES; LAST EDITED: `SEP 12, 2008` HELP-PROMPT: `Is this a bloodline relationship?`
2102	MULTIPLE RELATION?	21;2	SET	'1' FOR YES; LAST EDITED: `SEP 12, 2008` HELP-PROMPT: `Can this relationship entry be selected more than once? ie. A patient may have more than one sister, but not more than one natural father.`
2103	SORT ORDER FOR HEALTH SUMMARY	21;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 12, 2008` HELP-PROMPT: `Type a Number between 1 and 999 to designate the order in which this entry should appear on the Health Summary.`
2104	HL7 CODE	21;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `SEP 16, 2008` HELP-PROMPT: `Answer must be 3-10 characters in length.` CROSS-REFERENCE: `9999999.36^E` 1)= S ^AUTTRLSH("E",$E(X,1,30),DA)="" 2)= K ^AUTTRLSH("E",$E(X,1,30),DA)
2105	SYNONYM	21;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `SEP 16, 2008` HELP-PROMPT: `Synonym or other name associated with this specific relationship.` CROSS-REFERENCE: `9999999.36^F` 1)= S ^AUTTRLSH("F",$E(X,1,30),DA)="" 2)= K ^AUTTRLSH("F",$E(X,1,30),DA)
8801	MNEMONIC	88;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X` LAST EDITED: `DEC 16, 1985` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.36^B^MNEMONIC` 1)= S ^AUTTRLSH("B",$E(X,1,30),DA)=1 2)= K ^AUTTRLSH("B",$E(X,1,30),DA)

Customize PDF page

Package: Utility Tables

Global: ^AUTTRLSH

Information

Description

Directly Accessed By Routines, Total: 66

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 12

Fields, Total: 13