Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LRO(68.2

Package: Lab Service

Global: ^LRO(68.2


Information

FileMan FileNo FileMan Filename Package
68.2 LOAD/WORK LIST Lab Service

Description

Directly Accessed By Routines, Total: 88

Package Total Routines
Lab Service 48 LRLL    ^LRO(68.2    LR232    LR287    LR302A    LRCAPV    LRCKF68    LRCKF68A
LRCKFLA    LRCKFLAA    LRDOWN    LRDOWN1    LRFLAG    LRGP    LRGP1    LRGP2
LRGV    LRKDIFF3    LRLL1    LRLL1A    LRLL2    LRLL3    LRLLP    LRLLP2
LRLLP3    LRLLP4    LRLLP5    LRLLS    LRLLS2    LRLLS3    LRLLU    LRLNCV
LRMILL    LRMIV1    LROLOVER    LRSETUP    LRVER5    LRVR    LRVR1    LRVR4
LRVRA    ^LAB(62.4    LRVRPOC    LRVRPOCU    LRVRW    LRWRKLST    PROFILE    TEST
Automated Lab Instruments 35 LA7ADL1    LA7PCFG    LA7UID1    LA7UIIN1    LA7VCIN    LA7VCIN4    LA7VIN    LA7VIN4
LA7VLIN    LA7VLIN4    LA7VQIN    LA7VQIN4    LA7VRIN    LA7VRIN4    LACOAGX2    LADIMD
LADOWN    LADOWN1    LAEKT7D    LAEPXD    LAGEN    LAH717D    LAHT1KD    LAKDIFF3
LAMIAUT7    LAMIAUT8    LAMILL    LAMIVTKD    LAMIVTLD    LAMIVTLG    LAPERD    LAPMAXD
LASMAC4    LASMACA    LAXSYMBL    
IHS Changes To Lab 4 BLRLIIN1    BLRQIIN1    BLRRIIN1    BLRUIIN1    

Accessed By FileMan Db Calls, Total: 19

Package Total Routines
Lab Service 14 LR287    LRCAPV    LRCKFLAA    LRFLAG    LRGP1    LRLL    LRLLP    LRLLS
LRLNCV    LRMILL    LRMIV    LRVR    LRVRPOC    LRVRPOCU    
Automated Lab Instruments 4 LA7PCFG    LADOWN    LAMIAUT7    LAMILL    
IHS Changes To Lab 1 BLRRLMU3    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Changes To Lab 1 BLR MASTER CONTROL(#9009029)[3025]    
Lab Service 1 AUTO INSTRUMENT(#62.4)[3]    

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
Lab Service 8 LABORATORY TEST(#60)[#68.222(.01)#68.24(.01)#68.3(.01)]
TOPOGRAPHY FIELD(#61)[#68.22(4)#68.24(1)#68.27(.01)]
COLLECTION SAMPLE(#62)[#68.24(4)]    URGENCY(#62.05)[#68.222(.02)]    EXECUTE CODE(#62.07)[.02.07.12]
LAB CONTROL NAME(#62.3)[#68.26(.01)#68.28(.01)#68.29(.01)]
WKLD SUFFIX CODES(#64.2)[.14#68.24(3)]    ACCESSION(#68)[11.51.7#68.21(4)#68.22(.01)#68.23(2)]    
Kernel 3 SECURITY KEY(#19.1)[51]    INSTITUTION(#4)[#68.23(2.3)]    NEW PERSON(#200)[#68.21(3)]    

Fields, Total: 28

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  DEC 13, 1991
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    Name of the load or work list.
  • CROSS-REFERENCE:  68.2^B
    1)= S ^LRO(68.2,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(68.2,"B",$E(X,1,30),DA)
.02 LOAD TRANSFORM 0;2 POINTER TO EXECUTE CODE FILE (#62.07) EXECUTE CODE(#62.07)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 30, 1984
  • DESCRIPTION:  
    This entry controls the algorithm for placing work on the list.  Inquire to the EXECUTE CODES file (Loadlist types) for specifics.  Leave this blank unless you want more sophisticated placement.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)[""L"""
  • EXPLANATION:  EXECUTE CODES APPROPRIATE FOR LOAD TRANSFORM
.03 TYPE 0;3 SET
************************REQUIRED FIELD************************
  • '0' FOR SEQUENCE/BATCH;
  • '1' FOR TRAY,CUP;
  • '2' FOR POINT OF CARE;

  • LAST EDITED:  OCT 04, 2001
  • DESCRIPTION:  
    Determines if this list is a sequence/batch, tray,cup or Point of Care (POC) type of load/work list.
  • TECHNICAL DESCR:  Point of Care (POC) is a type of interface that downloads and stores results for a bed side analyzer (device) ie. Glucometers
    Accession and verification procedures are modified to accommodate POC type of data storage. POC results are not verified in the classical laboratory method.
.04 CUPS PER TRAY 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 25, 1984
  • HELP-PROMPT:  Enter the number of samples on a tray or rack (0 if not a tray instrument)
  • DESCRIPTION:  
    Contains number of cups per tray if a tray,cup type.
.05 FULL TRAY'S ONLY 0;5 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 02, 1984
  • HELP-PROMPT:  ANSWER YES IF YOU WANT ONLY FULL TRAY'S PUT ON THE LIST
  • DESCRIPTION:  
    If you want to accept full trays only set this field to YES.
.06 EXPAND PANELS ON PRINT 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 04, 1984
  • HELP-PROMPT:  ANSWER YES IF YOU WANT ALL TEST PANELS ENPANDED WHEN PRINTED.
  • DESCRIPTION:  
    If you want test panels expanded to display all tests when printed, this field must contain YES.
.07 INITIAL SETUP 0;7 POINTER TO EXECUTE CODE FILE (#62.07) EXECUTE CODE(#62.07)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 10, 1984
  • DESCRIPTION:  
    This code would be used each time a load or work list is built for the first time after it has been "cleared".  "Special" initialization may be customized through the EXECUTE CODE chosen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)[""L"""
  • EXPLANATION:  EXECUTE CODES APPROPRIATE FOR INITIAL SETUP
.08 VERIFY BY 0;8 SET
  • 'A' FOR ACCESSION;
  • 'M' FOR MACHINE SEQUENCE;
  • 'T' FOR TRAY;
  • 'W' FOR WORKLIST;

  • LAST EDITED:  AUG 22, 1984
  • HELP-PROMPT:  This entry will force the way this Load/Work list works.
  • DESCRIPTION:  
    Determines the method of verification for this list.
.09 SUPPRESS SEQUENCE # 0;9 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  NOV 30, 1993
  • DESCRIPTION:  
    "YES" will suppress the sequence # listing.
.1 INCLUDE UNCOLLECTED ACCESSIONS 0;10 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 04, 1985
  • HELP-PROMPT:  A 'YES' IN THIS FIELD WILL INCLUDE ALL ACCESSION THAT HAVE TESTS FOR THE PROFILE.
  • DESCRIPTION:  
    This field is used to tell the load list routine whether to include (if set to YES) ALL accessions that have the tests in the profile, or (if set to NO) only accessions that have ARRIVED in the lab.
.11 SHORT TEST LIST 0;11 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 22, 1985
  • HELP-PROMPT:  Enter YES if you want a short list of the tests.
  • DESCRIPTION:  
    If this field contains "YES" a short test list will be generated.
.12 AUTO MICRO EDIT TEMPLATE 0;13 POINTER TO EXECUTE CODE FILE (#62.07) EXECUTE CODE(#62.07)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 05, 1989
  • HELP-PROMPT:  Enter the execute code to be used when verifying Auto Micro results
  • DESCRIPTION:  
    Select Execute Code to be associated with this Load/worklist.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""E"""
  • EXPLANATION:  SELECT ONLY EDIT TYPE TEMPLATES
.14 WKLD METHOD SUF;1 POINTER TO WKLD SUFFIX CODES FILE (#64.2) WKLD SUFFIX CODES(#64.2)

  • LAST EDITED:  SEP 18, 2001
  • DESCRIPTION:  This field will be used as default response when setting up WKLD code during verification. This field updated after the technologist confirm the method for this particular verification session. The name and suffix number
    are automatically stuff for the user.
  • CROSS-REFERENCE:  ^^TRIGGER^68.2^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(68.2,.14,1,1,1.1) S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,2)=DIV,DIH=68.2,DIG=.15 D
    ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,2)=DIV,DIH=68.2,DIG=.15 D ^DICR
    3)= Sets the WKLD CODE SUFFIX NAME into .15
    CREATE VALUE)= WKLD METHOD:NAME
    DELETE VALUE)= @
    FIELD)= WKLD CODE METHOD NAME
    This trigger will stuff the WKLD CODE SUFFIX name (.01) into field #.15.
  • CROSS-REFERENCE:  ^^TRIGGER^68.2^.16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(68.2,.14,1,2,1.1) S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,3)=DIV,DIH=68.2,DIG=.16 D
    ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,3)=DIV,DIH=68.2,DIG=.16 D ^DICR
    3)= Sets the WKLD CODE SUFFIX number into .16
    CREATE VALUE)= WKLD METHOD:WKLD SUFFIX CODE
    DELETE VALUE)= @
    FIELD)= WKLD CODE SUFFIX
    This trigger will stuff the WKLD CODE SUFFIX number into field # .16.
.15 WKLD CODE METHOD NAME SUF;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1990
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    The field should contain the subsection which should receive credit for workload any time a user selects this worklist.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the WKLD METHOD field of the LOAD/WORK LIST File
.16 WKLD CODE SUFFIX SUF;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<4) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This field indicates what is the standard default method used by this particular LOAD/WORK LIST. This suffix is appended to prefix or procedure wkld code for each test verified.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the WKLD METHOD field of the LOAD/WORK LIST File
1 MAJOR ACCESSION AREA SUF;7 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  DEC 27, 1990
  • DESCRIPTION:  This field contains the major accession area which should recieve the workload credit. Anytime a user selects this worklist the entry will be used to tally workload.
    NOTE: THIS FIELD IS ASSOCIATED WITH WORKLOAD.
1.5 LAB SUBSECTION SUF;8 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  DEC 27, 1990
  • DESCRIPTION:  
    This is the next level down from the Major Accession area. An example might be, chemistry is the major accession area and Sp chemistry would be the lab subsection.
1.7 WORK AREA SUF;9 POINTER TO ACCESSION FILE (#68) 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:  FEB 20, 1991
  • DESCRIPTION:  This is the lowest level of work distribution. Generally this would indicate the work bench where the work is to be done. An example might be Chemistry (major accession area), Sp Chemistry (lab sub section) and Drug
    screens (work area).
    Note: The default for, major accession area, lab sub section and work area is the entry above it. The order is as follows:
    Major accession area           Default is the accession area of the test.
    Lab Subsection                 Default is the Major accession area.
    Work Area                      Default is the Lab Subsection.
    If none of these fields are filled in, then the default answer for all is the accession area of the test. This means the reports will not be broken down into separate areas for any management reports.
  • SCREEN:  S DIC("S")="I $L($P(^(0),U,17))"
  • EXPLANATION:  Select only accession area identified as work areas.
2 RUN or TRAY NUMBER 1;0 Multiple #68.21 68.21

  • DESCRIPTION:  
    All data in this multiple field is computer generated.
    WRITE AUTHORITY:  ^
11 DATE OF SETUP 2;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 1984
  • DESCRIPTION:  
    The date the load/work list was created is stored here.
12 FIRST TRAY 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 20, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    The first tray built on the last "build" is stored here.
13 STARTING CUP 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 30, 1984
  • HELP-PROMPT:  THIS IS THE STARTING CUP FOR THE LAST RUN
  • DESCRIPTION:  
    The starting cup (or sequence number) on the last "build" is stored here.
14 LAST TRAY 2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  THIS IS THE STARTING CUP FOR THE LAST RUN
  • DESCRIPTION:  
    The last tray built on the last "build" is stored here.
15 LAST CUP 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 20, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
  • DESCRIPTION:  
    The last cup (or sequence number) on the last "build" is stored here.
30 BUILDING IN PROGRESS 3;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 10, 1985
  • HELP-PROMPT:  THIS FIELD SHOULD NOT BE EDITED WHEN CREATING A NEW LOAD LIST.
  • DESCRIPTION:  While the load list is being built, the program sets this flag to YES. At the completion of building, this flag is returned to NO. The purpose is to keep multiple users from competing for the same load list at the same
    time.  If the flag is left set, set to NO to continue building load lists.
50 PROFILE 10;0 Multiple #68.23 68.23

  • DESCRIPTION:  
    Only ONE load or work list can exist at a time.  But more than one profile can be defined to make "alternate" groupings of tests for the load/worklist which might be used on an infrequent or non-standard basis.
  • IDENTIFIED BY:  ACCESSION AREA(#2)[R]
51 USER ACCESS AUTHORIZATION 0;12 POINTER TO SECURITY KEY FILE (#19.1) SECURITY KEY(#19.1)

  • LAST EDITED:  NOV 14, 1988
  • DESCRIPTION:  
    If left blank, any lab person may access this load/worklist. If filled in only lab person holding the authorization may use this load/worklist.
52 ADDITIONAL LAB TESTS 4;0 POINTER Multiple #68.3 68.3

  • DESCRIPTION:  
    To used for any additional WKLD codes used for this particular W/L.

External References

Name Field # of Occurrence
^%DT 11+1
^DIC .02+1, .07+1, .12+1, 1.7+1
^DICR .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(68.2 .14(XREF 1S), .14(XREF 2S)
^LAB(64.2 - [#64.2] .14(XREF 1n1.1), .14(XREF 2n1.1)
^LRO(68.2 - [#68.2] .01(XREF 1S), .01(XREF 1K), .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)

Naked Globals

Name Field # of Occurrence
^("SUF" .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
^(0 .14(XREF 1n1.1), .14(XREF 2n1.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 11+1*
>> D0 .14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
DIC .02+1!*, .07+1!*, .12+1!*, 1.7+1!*
DIC("S" .02+1*, .02SCR+1*, .07+1*, .07SCR+1*, .12+1*, .12SCR+1*, 1.7+1*, 1.7SCR+1*
>> DIE .02+1, .07+1, .12+1, 1.7+1
>> DIG .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> DIH .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> DIU .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
DIV .14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
DIV(0 .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> I(0 .14(XREF 1n1.1), .14(XREF 2n1.1)
U .14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .04+1!, .07+1*!, .12+1*!, .14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K)
.14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K), .15+1!, .16+1!, 1.7+1*!, 11+1*!, 12+1!, 13+1!, 14+1!
, 15+1!
Y .02+1, .07+1, .12+1, .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K), 1.7+1, 11+1
Y(1 .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
Y(101 .14(XREF 1n1.1), .14(XREF 2n1.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All