Global: ^EAS(713.2

FileMan FileNo	FileMan Filename	Package
713.2	EAS MT LETTER STATUS	Enrollment Application System

Package	Total	Routines
Enrollment Application System	15	^EASPFS(714.5 EAS114PT EAS122PT EAS150P1 EAS155P1 EAS155PT EASMT65 EASMTL10 EASMTL2 EASMTL6 EASMTL6B EASMTRP2 EASMTRPT ^EAS(713.2 EASMTUTL

Package	Total	Routines
Enrollment Application System	12	EAS114PT EAS122PT EAS150P1 EAS155P1 EAS155PT EASMT65 EASMTL10 EASMTL6 EASMTL6A EASMTL8 EASMTRPT EASMTUTL

Package	Total	FileMan Files
Enrollment Application System	1	EAS MT PATIENT STATUS(#713.1)[2]
Kernel	1	NEW PERSON(#200)[6]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.001	ENTRY NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits`
.01	PROCESSING DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter processing date for entry, time required` DESCRIPTION: `Initial processing date for the patient's means test anniversary date` CROSS-REFERENCE: `713.2^B` `1)= S ^EAS(713.2,"B",$E(X,1,30),DA)=""` `2)= K ^EAS(713.2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `713.2^AD^MUMPS` `1)= S ^EAS(713.2,"AD",$P(X,".",1),DA)=""` `2)= K ^EAS(713.2,"AD",$P(X,".",1),DA)` `Cross-reference on processing date, using the date only. Strips the time`
2	RECIPIENT	0;2	POINTER TO EAS MT PATIENT STATUS FILE (#713.1)	**********************REQUIRED FIELD********************** EAS MT PATIENT STATUS(#713.1) LAST EDITED: `OCT 29, 2001` HELP-PROMPT: `Select the recipient for the MT letters` DESCRIPTION: `Pointer to the EAS MT LETTERS File, The patietn whose means test is coming due.` CROSS-REFERENCE: `713.2^C` `1)= S ^EAS(713.2,"C",$E(X,1,30),DA)=""` `2)= K ^EAS(713.2,"C",$E(X,1,30),DA)` `Cross-reference by patient in the patient status file, #713.1` RECORD INDEXES: `AN (#144)`
3	MEANS TEST DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `The current means test date for the patient (from the ANNUAL MEANS TEST File)` RECORD INDEXES: `AN (#144)`
4	MEANS TEST RETURNED?	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 13, 2001` HELP-PROMPT: `Enter "Y"es if returned, "N"o if it has not` DESCRIPTION: `Indicates whether a response (10-10EZ form) has been received in response to one of the reminder letters.` CROSS-REFERENCE: `713.2^AC` `1)= S ^EAS(713.2,"AC",$E(X,1,30),DA)=""` `2)= K ^EAS(713.2,"AC",$E(X,1,30),DA)` `Cross reference on returned/not-returned means tests`
5	DATE MEANS TEST RETURNED	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Date the completed 10-10EZ form was recieved and processed`
6	WHO ENTERED RETURNED MT	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Select the user entering the returned MT data` DESCRIPTION: `User entering the returned MT letter information`
7	COMMENTS	1;0	WORD-PROCESSING #713.27	LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Enter any comments associated with the returned Means Test`
8	60-DAY LETTER DATE	6;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `Enter the 60-day MT anniversary date threshold` DESCRIPTION: `Means Test anniversary date minus 60 days`
9	60-DAY FLAG TO PRINT?	6;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Enter "Y"es for flagged, "N"o for not flagged` DESCRIPTION: `Flag indicates the letter is ready for printing`
10	60-DAY LETTER PRINTED?	6;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Enter "Y"es for printed, "N"o for not printed` DESCRIPTION: `The 60-day letter has been printed`
10.5	60-DAY PRINT DATE	6;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 23, 2001` HELP-PROMPT: `Enter date 60-day letter was printed` DESCRIPTION: `60-Day print date`
11	30-DAY LETTER DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `Enter the 30-day MT anniversary date threshold` DESCRIPTION: `Means Test anniversary date minus 30 days`
12	30-DAY FLAG TO PRINT?	4;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `Enter "Y"es for flagged, "N"o for not flagged` DESCRIPTION: `Flag indicates the letter is ready for printing`
13	30-DAY LETTER PRINTED?	4;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `Enter "Y"es if letter printed, "N"o if it has not` DESCRIPTION: `The 30-day letter has been printed`
13.5	30-DAY PRINT DATE	4;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2002` HELP-PROMPT: `Enter date 30-day letter was printed` DESCRIPTION: `Date the 30-Day letter was printed`
17	ZERO-DAY LETTER DATE	Z;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the 0-day MT anniversary date threshold` DESCRIPTION: `Means Test anniversary date minus 0 days`
18	ZERO-DAY FLAG TO PRINT?	Z;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Enter "Y"es for flagged, "N"o for not flagged` DESCRIPTION: `Flag indicates the letter is ready for printing`
19	ZERO-DAY LETTER PRINTED?	Z;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 12, 2001` HELP-PROMPT: `Enter "Y"es if letter printed, "N"o if it has not` DESCRIPTION: `The 0-day letter has been printed`
19.5	ZERO-DAY PRINT DATE	Z;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 23, 2001` HELP-PROMPT: `Enter date 0-day letter was printed` DESCRIPTION: `0-day letter print date`

Name	Field # of Occurrence
^%DT	.01+1, 3+1, 5+1, 8+1, 10.5+1, 11+1, 13.5+1, 17+1, 19.5+1
$$FMTE^DILIBF	ID3+1
Y^DIQ	ID2+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(713.1	ID2+1
^EAS(713.1 - [#713.1]	ID2+1
^EAS(713.2 - [#713.2]	IXANSL+1*, IXANKL+1!, IXANKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S) , 4(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 3+1, 5+1, 8+1, 10.5+1, 11+1, 13.5+1, 17+1, 19.5+1*
%I	ID2+1*!
>> C	ID2+1*
>> DA	IXANSL+1, IXANKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> DIC	ID2+1
U	ID2+1, ID3+1
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3+1!, 4(XREF 1S) , 4(XREF 1K), 5+1!, 8+1!, 10.5+1!, 11+1!, 13.5+1!, 17+1!, 19.5+1*!
X(1	IXANSL+1, IXANKL+1
X(2	IXANSL+1, IXANKL+1
>> Y	ID2+1*, .01+1, 3+1, 5+1, 8+1, 10.5+1, 11+1, 13.5+1, 17+1, 19.5+1

Customize PDF page

Package: Enrollment Application System

Global: ^EAS(713.2

Information

Description

Directly Accessed By Routines, Total: 15

Accessed By FileMan Db Calls, Total: 12

Pointer To FileMan Files, Total: 2

Fields, Total: 20

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: