STANDARD DATA DICTIONARY #65.9 -- LAB LETTER FILE 9/29/25 PAGE 1
STORED IN ^LAB(65.9, (10 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File stores lab consultations and blood donor letters.
CROSS
REFERENCED BY: NAME(B)
65.9,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
The name of the lab letter entered
CROSS-REFERENCE: 65.9^B
1)= S ^LAB(65.9,"B",$E(X,1,30),DA)=""
2)= K ^LAB(65.9,"B",$E(X,1,30),DA)
65.9,.02 SCREEN 0;2 SET (Required)
'0' FOR PRE-VISIT;
'1' FOR POST-VISIT;
'2' FOR CONSULT;
'3' FOR LETTER;
LAST EDITED: JUN 29, 1992
DESCRIPTION:
Screens entries for pre and post donor visits, consults and letters.
65.9,.03 TOP MARGIN OF PAGE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 1 and 20
DESCRIPTION: Number of blank lines from top of page
to first line of print.
65.9,.04 BOTTOM MARGIN OF PAGE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Type a Number between 1 and 20
DESCRIPTION: Number of lines to be blank from last line of letter text
to bottom of page.
65.9,.05 LEFT LETTER TEXT MARGIN 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Type a Number between 0 and 30
DESCRIPTION: The number of columns to indent to the right
of the left edge of the page.
65.9,.06 RIGHT LETTER TEXT MARGIN 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Type a Number between 0 and 30
DESCRIPTION: The number of columns to indent to the left of
the right side of the page.
65.9,.07 DOUBLE SPACE 0;7 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: FEB 15, 1989
DESCRIPTION:
This field indicates if double spacing should be used when printing this letter.
65.9,.08 RIGHT JUSTIFY TEXT 0;8 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
DESCRIPTION:
Right-justify the letter text over to the right margin.
65.9,.09 ACCESSION AREA 0;9 POINTER TO ACCESSION FILE (#68) (Required)
INPUT TRANSFORM: S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This field contains which accession area this letter is associated with.
SCREEN: S DIC("S")="I '$L($P(^(0),U,17))"
EXPLANATION: You can not select a accession area designated Work Area.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.9,1.1 SENDER LINES LEFT MARGIN 1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>40)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Type a Number between 0 and 40
DESCRIPTION:
This field is used to set up the left margin of the letter during printing.
65.9,1.2 SENDER LINE 1 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
Line 1 name where letter is sent
65.9,1.3 SENDER LINE 2 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
Line 2 where letter is sent
65.9,1.4 SENDER LINE 3 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
Line 3 where letter is sent
65.9,1.5 SENDER LINE 4 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
Line 4 where letter is sent
65.9,1.6 SENDER LINE 5 1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 15, 1989
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
Line 5 where letter is sent
65.9,2 LETTER TEXT 2;0 WORD-PROCESSING #65.91
DESCRIPTION:
This field contains the text (body) of the letter.
LAST EDITED: AUG 24, 1994
65.9,3.1 SENDER NAME LINE 1 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: FEB 22, 1989
HELP-PROMPT: Answer must be 2-40 characters in length.
DESCRIPTION:
Name of sender of line 1
65.9,3.2 SENDER NAME LINE 2 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: FEB 22, 1989
HELP-PROMPT: Answer must be 2-40 characters in length.
DESCRIPTION:
Name of sender of line 2
65.9,3.3 LINES FROM TEXT TO SENDER NAME 3;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 22, 1989
HELP-PROMPT: Type a Number between 1 and 10
DESCRIPTION: The number of blank lines from the bottom of the letter
to the name of the sender.
65.9,4 PARAGRAPH 1 4;0 WORD-PROCESSING #65.94
DESCRIPTION:
Text of first paragraph
LAST EDITED: MAR 12, 1989
CROSS-REFERENCE: 65.94^B
1)= S ^LAB(65.9,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^LAB(65.9,DA(1),4,"B",$E(X,1,30),DA)
65.9,5 PARAGRAPH 2 5;0 WORD-PROCESSING #65.95
DESCRIPTION:
Text of second paragraph
LAST EDITED: MAR 12, 1989
CROSS-REFERENCE: 65.95^B
1)= S ^LAB(65.9,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(65.9,DA(1),5,"B",$E(X,1,30),DA)
65.9,6 PARAGRAPH 3 6;0 WORD-PROCESSING #65.96
DESCRIPTION:
Text of third paragraph
LAST EDITED: MAR 12, 1989
CROSS-REFERENCE: 65.96^B
1)= S ^LAB(65.9,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^LAB(65.9,DA(1),6,"B",$E(X,1,30),DA)
65.9,7 PARAGRAPH 4 7;0 WORD-PROCESSING #65.97
DESCRIPTION:
Text of fourth paragraph
LAST EDITED: MAR 12, 1989
CROSS-REFERENCE: 65.97^B
1)= S ^LAB(65.9,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^LAB(65.9,DA(1),7,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
ACCESSION (#68) ACCESSION AREA (#.09)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):