Global: ^YTT(601.781

FileMan FileNo	FileMan Filename	Package
601.781	MH BATTERY USERS	Mental Health

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Mental Health	4	YS187PST YTQAPI3 YTQAPI7 ^YTT(601.781

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Mental Health	1	YTQAPI7

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[1]
Mental Health	1	MH BATTERIES(#601.77)[2]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	BAT USERS ID	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:$TR(X,"new","NEW")="NEW" X=$$NEW^YTQLIB(601.781) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X S:$G(X) DINUM=X` LAST EDITED: `SEP 02, 2003` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This is a unique identifier of this record. It is the IEN.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `601.781^B` `1)= S ^YTT(601.781,"B",$E(X,1,30),DA)=""` `2)= K ^YTT(601.781,"B",$E(X,1,30),DA)`
1	USER	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 10, 2003` DESCRIPTION: `Person who is associated with this battery. This is a pointer to the NEW PERSON file (#200).` CROSS-REFERENCE: `601.781^AC` `1)= S ^YTT(601.781,"AC",$E(X,1,30),DA)=""` `2)= K ^YTT(601.781,"AC",$E(X,1,30),DA)`
2	BATTERY ID	0;3	POINTER TO MH BATTERIES FILE (#601.77)	MH BATTERIES(#601.77) LAST EDITED: `FEB 23, 2005` DESCRIPTION: `Pointer to the MH BATTERIES file (#601.77), specifying which Battery is being identified.` CROSS-REFERENCE: `601.781^AD` `1)= S ^YTT(601.781,"AD",$E(X,1,30),DA)=""` `2)= K ^YTT(601.781,"AD",$E(X,1,30),DA)`

.01

BAT USERS ID

0;1

NUMBER

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

INPUT TRANSFORM: S:$TR(X,"new","NEW")="NEW" X=$$NEW^YTQLIB(601.781) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X S:$G(X) DINUM=X
LAST EDITED: SEP 02, 2003
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits
DESCRIPTION:
This is a unique identifier of this record. It is the IEN.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 601.781^B
1)= S ^YTT(601.781,"B",$E(X,1,30),DA)=""
2)= K ^YTT(601.781,"B",$E(X,1,30),DA)

1

USER

0;2

POINTER TO NEW PERSON FILE (#200)

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

NEW PERSON(#200)

LAST EDITED: SEP 10, 2003
DESCRIPTION:
Person who is associated with this battery. This is a pointer to the NEW PERSON file (#200).
CROSS-REFERENCE: 601.781^AC
1)= S ^YTT(601.781,"AC",$E(X,1,30),DA)=""
2)= K ^YTT(601.781,"AC",$E(X,1,30),DA)

2

BATTERY ID

0;3

POINTER TO MH BATTERIES FILE (#601.77)

MH BATTERIES(#601.77)

LAST EDITED: FEB 23, 2005
DESCRIPTION:
Pointer to the MH BATTERIES file (#601.77), specifying which Battery is being identified.
CROSS-REFERENCE: 601.781^AD
1)= S ^YTT(601.781,"AD",$E(X,1,30),DA)=""
2)= K ^YTT(601.781,"AD",$E(X,1,30),DA)

External References

Name	Field # of Occurrence
$$NEW^YTQLIB	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^YTT(601.781 - [#601.781]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
>> DINUM	.01+1*
X	.01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Customize PDF page

Package: Mental Health