Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries  | All
Print Page as PDF
Global: ^LAB(65.9

Package: Lab Service

Global: ^LAB(65.9


Information

FileMan FileNo FileMan Filename Package
65.9 LAB LETTER Lab Service

Description

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)

Found Entries, Total: 10

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    
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries  | All