Global: ^LAB(65.9

FileMan FileNo	FileMan Filename	Package
65.9	LAB LETTER	Lab Service

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Lab Service	2	LRBLDA LRBLS

Pointer To FileMan Files, Total: 1

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.` LAST EDITED: `AUG 24, 1994`
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` 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)`
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)`
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)`
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)`

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

Customize PDF page

Package: Lab Service

Global: ^LAB(65.9

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 23

Found Entries, Total: 10