Global: ^AMHPPHX

FileMan FileNo	FileMan Filename	Package
9002011.52	MHSS PATIENT PERSONAL HX	Mental Health Social Services

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Mental Health Social Services	3	AMHHS AMHLE3 AMHRC5
Health Summary Components	1	BHSBH
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Mental Health Social Services	3	AMHGDCM AMHGECM AMHLE3

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.02]
Mental Health Social Services	1	MHSS PERSONAL HX FACTORS(#9002012.7)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FACTOR	0;1	POINTER TO MHSS PERSONAL HX FACTORS FILE (#9002012.7)	**********************REQUIRED FIELD********************** MHSS PERSONAL HX FACTORS(#9002012.7) LAST EDITED: `AUG 18, 1994` CROSS-REFERENCE: `9002011.52^B` 1)= S ^AMHPPHX("B",$E(X,1,30),DA)="" 2)= K ^AMHPPHX("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.52^AA2^MUMPS` 1)= S:$P(^AMHPPHX(DA,0),U,2)]"" ^AMHPPHX("AA",$P(^AMHPPHX(DA,0),U,2),X,DA)="" 2)= K:$P(^AMHPPHX(DA,0),U,2)]"" ^AMHPPHX("AA",$P(^AMHPPHX(DA,0),U,2),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `SEP 07, 1994` CROSS-REFERENCE: `9002011.52^AC` 1)= S ^AMHPPHX("AC",$E(X,1,30),DA)="" 2)= K ^AMHPPHX("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.52^AA^MUMPS` 1)= S ^AMHPPHX("AA",X,$P(^AMHPPHX(DA,0),U),DA)="" 2)= K ^AMHPPHX("AA",X,$P(^AMHPPHX(DA,0),U),DA)
.03	DATE ADDED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 18, 1994`

FACTOR

0;1

POINTER TO MHSS PERSONAL HX FACTORS FILE (#9002012.7)

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

CROSS-REFERENCE: 9002011.52^B

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

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

CROSS-REFERENCE: 9002011.52^AA2^MUMPS

1)= S:$P(^AMHPPHX(DA,0),U,2)]"" ^AMHPPHX("AA",$P(^AMHPPHX(DA,0),U,2),X,DA)=""

2)= K:$P(^AMHPPHX(DA,0),U,2)]"" ^AMHPPHX("AA",$P(^AMHPPHX(DA,0),U,2),DA)

PATIENT

0;2

POINTER TO PATIENT FILE (#9000001)

CROSS-REFERENCE: 9002011.52^AC

1)= S ^AMHPPHX("AC",$E(X,1,30),DA)=""

2)= K ^AMHPPHX("AC",$E(X,1,30),DA)

CROSS-REFERENCE: 9002011.52^AA^MUMPS

1)= S ^AMHPPHX("AA",X,$P(^AMHPPHX(DA,0),U),DA)=""

2)= K ^AMHPPHX("AA",X,$P(^AMHPPHX(DA,0),U),DA)

DATE ADDED

0;3

DATE