Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 69.9006

Package: Lab Service

LABORATORY SITE(#69.9)-->69.9006

Sub-Field: 69.9006


Information

Parent File Name Number Package
LABORATORY SITE(#69.9) IMMED LAB COLLECT DIV. 69.9006 Lab Service

Details

Field # Name Loc Type Details
.01 IMMED COLLECTION DIV. 0;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  DEC 03, 1991
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 HOLIDAYS ? 0;2 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 02, 1991
.05 IMMED LAB COLLECT PRINTER 0;3 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • INPUT TRANSFORM:  S:Y>0 X=$P(Y,U,2)
  • LAST EDITED:  JUL 20, 1993
  • DESCRIPTION:  
    This is the printer to which Immediate Lab Collect request will print. It is recommended that this printer be different than the printer used for logging routine lab collect.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 MINIMUM RESPONSE TIME 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 03, 1991
  • HELP-PROMPT:  Number of minutes lead time for collection, number 1-60
.07 MAXIUM HOURS AHEAD ALLOWED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>96)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 03, 1991
  • HELP-PROMPT:  Number 1-96 hrs to allow orders into the future
1 SUNDAY SUN;1 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 02, 1991
1.1 SUN START TIME SUN;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.9006^AC^MUMPS
    1)= Q
    2)= Q
1.2 SUN END TIME SUN;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"SUN"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Number between 1 and 2359, 0 Decimal Digits [AND Must be greater than Start Time]
  • TECHNICAL DESCR:  I am using the DG variable in the input transform because FM doesn't set the zeroth node until after I need to check to ensure that the end time is greater than the start time. I have mentioned this fact to the FM
    developers. This is a work around until this can be addressed by the developers.
    NOTE: This problem only occurs when you are editing the field for the first time.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 MONDAY MON;1 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 02, 1991
2.1 MON START TIME MON;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AD^MUMPS
    1)= Q
    2)= Q
2.2 MON END TIME MON;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"MON"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 TUESDAY TUE;1 SET
  • '1' FOR Y;

  • LAST EDITED:  DEC 02, 1991
3.1 TUE START TIME TUE;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AE^MUMPS
    1)= Q
    2)= Q
3.2 TUE END TIME TUE;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"TUE"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 WEDNESDAY WED;1 SET
  • '1' FOR Y;

  • LAST EDITED:  DEC 03, 1991
4.1 WED START TIME WED;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AF^MUMPS
    1)= Q
    2)= Q
4.2 WED END TIME WED;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"WED"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 THURSDAY THU;1 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 03, 1991
5.1 THU START TIME THU;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AG^MUMPS
    1)= Q
    2)= Q
5.2 THU END TIME THU;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"THU"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 FRIDAY FRI;1 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 03, 1991
6.1 FRI START TIME FRI;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AH^MUMPS
    1)= Q
    2)= Q
6.2 FRI END TIME FRI;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"FRI"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 SATURDAY SAT;1 SET
  • '1' FOR Y;

  • LAST EDITED:  DEC 03, 1991
7.1 SAT START TIME SAT;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • CROSS-REFERENCE:  69.9006^AI^MUMPS
    1)= Q
    2)= Q
7.2 SAT END TIME SAT;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"SAT"),U,2)) X
  • LAST EDITED:  JAN 14, 1992
  • HELP-PROMPT:  Type a Number between 1 and 2359, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 IMMED COLLECT ON 0;6 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 19, 1992
Info |  Details