Global: ^EAS(713.2

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

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`

Customize PDF page

Package: Enrollment Application System

Global: ^EAS(713.2

Information

Description

Accessed By FileMan Db Calls, Total: 12

Pointer To FileMan Files, Total: 2

Fields, Total: 20