Global: ^LAB(65.9

FileMan FileNo	FileMan Filename	Package
65.9	LAB LETTER	Lab Service

Package	Total	Routines
Lab Service	7	LRBLDAA LRBLDAL LRBLJSH LRBLJW LRUCNBB ^LAB(65.9 LRUCN

Package	Total	Routines
Lab Service	2	LRBLDA LRBLS

Package	Total	FileMan Files
Lab Service	1	ACCESSION(#68)[.09]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)
.02	SCREEN	0;2	SET	**********************REQUIRED FIELD********************** '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.
.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.
.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.
.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.
.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.
.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.
.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.
.09	ACCESSION AREA	0;9	POINTER TO ACCESSION FILE (#68)	**********************REQUIRED FIELD********************** ACCESSION(#68) 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`
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.
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
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
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
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
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
2	LETTER TEXT	2;0	WORD-PROCESSING #65.91	DESCRIPTION: This field contains the text (body) of the letter.
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
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
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.
4	PARAGRAPH 1	4;0	WORD-PROCESSING #65.94	DESCRIPTION: Text of first paragraph
5	PARAGRAPH 2	5;0	WORD-PROCESSING #65.95	DESCRIPTION: Text of second paragraph
6	PARAGRAPH 3	6;0	WORD-PROCESSING #65.96	DESCRIPTION: Text of third paragraph
7	PARAGRAPH 4	7;0	WORD-PROCESSING #65.97	DESCRIPTION: Text of fourth paragraph

NAME: ALLO ANTIBODY REPORT	NAME: CYTAPHERESIS	NAME: DIRECT COOMBS TEST REPORT	NAME: DONATION GROUP DRIVE	NAME: INVENTORY WORKSHEET	NAME: NO DONATION	NAME: PLASMAPHERESIS	NAME: RBC ANTIGEN ABSENT, DONOR
NAME: SHIPPING INVOICE	NAME: WHOLE BLOOD

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
DIC	.09+1!*
DIC("S"	.09+1, .09SCR+1
>> DIE	.09+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .04+1!, .05+1!, .06+1!, .09+1*!, 1.1+1!, 1.2+1! , 1.3+1!, 1.4+1!, 1.5+1!, 1.6+1!, 3.1+1!, 3.2+1!, 3.3+1!
>> Y	.09+1

Customize PDF page

Package: Lab Service

Global: ^LAB(65.9

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 23

Found Entries, Total: 10

External References

Global Variables Directly Accessed

Local Variables

Legend: