Global: ^AMHTIUF

FileMan FileNo	FileMan Filename	Package
9002013.91	MHSS TIU FIELD MAPPING	Mental Health Social Services

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
VA Fileman	1	FILE(#1)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FILE	0;1	POINTER TO FILE FILE (#1)	**********************REQUIRED FIELD********************** FILE(#1) LAST EDITED: `FEB 24, 2006` CROSS-REFERENCE: `9002013.91^B` 1)= S ^AMHTIUF("B",$E(X,1,30),DA)="" 2)= K ^AMHTIUF("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002013.91^AC^MUMPS` 1)= I $P(^AMHTIUF(DA,0),U,2)]"",$P(^AMHTIUF(DA,0),U,3)]"" S ^AMHTIUF("AC",X,$P(^AMHTIUF(DA,0),U,2),$P(^AMHTIUF(DA,0),U,3),DA)="" 2)= I $P(^AMHTIUF(DA,0),U,2)]"",$P(^AMHTIUF(DA,0),U,3)]"" K ^AMHTIUF("AC",X,$P(^AMHTIUF(DA,0),U,2),$P(^AMHTIUF(DA,0),U,3),DA)
.02	WPFIELD	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `FEB 24, 2006` HELP-PROMPT: `Answer must be 1-12 characters in length.` CROSS-REFERENCE: `9002013.91^ACT00^MUMPS` 1)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,3)]"" S ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),X,$P(^AMHTIUF(DA,0),U,3),DA)="" 2)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,3)]"" K ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),X,$P(^AMHTIUF(DA,0),U,3),DA)
.03	TIU FIELD	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `FEB 24, 2006` HELP-PROMPT: `Answer must be 1-12 characters in length.` CROSS-REFERENCE: `9002013.91^ACTOOO^MUMPS` 1)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2)]"" S ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2),X,DA)="" 2)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2)]"" K ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2),X,DA)

FILE

0;1

POINTER TO FILE FILE (#1)

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

CROSS-REFERENCE: 9002013.91^B

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

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

CROSS-REFERENCE: 9002013.91^AC^MUMPS

1)= I $P(^AMHTIUF(DA,0),U,2)]"",$P(^AMHTIUF(DA,0),U,3)]"" S ^AMHTIUF("AC",X,$P(^AMHTIUF(DA,0),U,2),$P(^AMHTIUF(DA,0),U,3),DA)=""

2)= I $P(^AMHTIUF(DA,0),U,2)]"",$P(^AMHTIUF(DA,0),U,3)]"" K ^AMHTIUF("AC",X,$P(^AMHTIUF(DA,0),U,2),$P(^AMHTIUF(DA,0),U,3),DA)

WPFIELD

0;2

FREE TEXT

CROSS-REFERENCE: 9002013.91^ACT00^MUMPS

1)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,3)]"" S ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),X,$P(^AMHTIUF(DA,0),U,3),DA)=""

2)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,3)]"" K ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),X,$P(^AMHTIUF(DA,0),U,3),DA)

TIU FIELD

0;3

FREE TEXT

CROSS-REFERENCE: 9002013.91^ACTOOO^MUMPS

1)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2)]"" S ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2),X,DA)=""

2)= I $P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2)]"" K ^AMHTIUF("AC",$P(^AMHTIUF(DA,0),U,1),$P(^AMHTIUF(DA,0),U,2),X,DA)