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

Package: Lab Service

LAB REPORTS(#64.5)-->64.56

Sub-Field: 64.56


Information

Parent File Name Number Package
LAB REPORTS(#64.5) REPORT NAME 64.56 Lab Service

Details

Field # Name Loc Type Details
.01 REPORT NAME 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  FEB 06, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is an arbitrary report name.
  • CROSS-REFERENCE:  64.56^B
    1)= S ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)
1 DEVICE .1;1 POINTER TO DEVICE FILE (#3.5)
************************REQUIRED FIELD************************
DEVICE(#3.5)

  • INPUT TRANSFORM:  S PD=$P(X,";",2),X=$P(X,";"),DIC(0)="EMQ" S:$L(PD) DIC("S")="I ^%ZIS(1,+Y,""TYPE"")[""SPL""" D ^DIC S X=$P(Y,U,2)_$S($L(PD):";",1:"")_PD,DIC=DIE K PD K:Y<1 X
  • LAST EDITED:  APR 30, 1987
  • HELP-PROMPT:  ENTER THE DEVICE FOR THIS RANGE OF LOCATIONS
  • DESCRIPTION:  This field should contain the name(s) of the printers that are used to print the cumulative. A starting and ending location needs to be defined for each device. This range should include all locations that desire
    cumulatives.  An example of starting and ending locations for a system using one printer to print all cumulatives would be:
    STARTING LOCATION:           (leave blank)
    ENDING LOCATION: ZZZZZZ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 MANUAL PRINT .1;2 SET
  • '1' FOR YES;

  • LAST EDITED:  JAN 17, 1986
  • HELP-PROMPT:  Enter a "YES" in this field if you want to withhold this report from automatic queuing of the cumulative report.
  • DESCRIPTION:  A "YES" in this field will cause the locations defined in this report not to print with the automatic queuing capabilities of the cumulative report. To print a report with the manual designation of this field, use the
    option LRAC MANUAL and selectively queue this report.
3 FILE ROOM REPORT .1;3 SET
  • '1' FOR YES;

  • LAST EDITED:  JAN 13, 1994
  • HELP-PROMPT:  See description for field #17, SEPARATE FILE ROOM, for additional information on using this field.
  • DESCRIPTION:  This field is used to designate a report to print a file room location. It is used in conjunction with fields #4, "FILE ROOM" and #17 "SEPARATE FILE ROOM". It allows the cumulative to identify those reports which should
    be run when a site wishes to print the file room reports and they are doing so on a schedule separate from the regular cumulative.
    See description for field #17, "SEPARATE FILE ROOM", for additional information on using this field.
  • SCREEN:  S DIC("S")="S LRX=$G(^LAB(64.5,1,3,DA,0)) I $P(LRX,U,2)[""FILE ROOM"",$P(LRX,U,3)[""FILE ROOM"""
  • EXPLANATION:  YES only allowed if starting /ending locations contain "FILE ROOM".
5 STARTING LOCATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  DEC 05, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is where the starting location is defined for a device printing the cumulative report.  If this field is left blank, then the report will start at the first location.
10 ENDING LOCATION 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  DEC 17, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is where the ending location is defined for a device printing the cumulative report.
15 LAST LOCATION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
  • OUTPUT TRANSFORM:  S:$D(^LAC("DEV",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),"^",1)
  • LAST EDITED:  MAR 13, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used by the cumulative routines to specify the last printed location for this device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.56^MUMPS^MUMPS
    1)= S $P(^LAC("DEV",DA,0),"^",1)=X
    2)= S $P(^LAC("DEV",DA,0),"^",1)=""
17 LAST PATIENT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X
  • OUTPUT TRANSFORM:  S:$D(^LAC("DEV",$S($D(DA):DA,1:D0,0))) Y=$P(^(0),"^",2)
  • LAST EDITED:  MAR 13, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used by the cumulative routines to specify the last printed patient for this device.  DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
  • CROSS-REFERENCE:  64.56^MUMPS1^MUMPS
    1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",2)=X
    2)= S $P(^LAC("DEV",DA,0),"^",2)=""
18 LAST LRDFN 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S:$D(^LAC("DEV",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),"^",3)
  • LAST EDITED:  MAR 13, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
  • DESCRIPTION:  
    This field is used by the cumulative routines to specify the last printed DFN.  DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
  • CROSS-REFERENCE:  64.56^MUMPS2^MUMPS
    1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",3)=X
    2)= S $P(^LAC("DEV",DA,0),"^",3)=""
25 STARTING TIME 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S:$D(^LAC("DEV",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),"^",4)
  • LAST EDITED:  MAR 13, 1987
  • DESCRIPTION:  
    This field is used by the cumulative routines to give the starting time of the cumulative for this device.  DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.56^MUMPS3^MUMPS
    1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",4)=X
    2)= S $P(^LAC("DEV",DA,0),"^",4)=""
26 ENDING TIME 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S:$D(^LAC("DEV",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),"^",5)
  • LAST EDITED:  MAR 13, 1987
  • DESCRIPTION:  
    This field is used by the cumulative routines to give the ending time of the cumulative for this device.  DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
  • CROSS-REFERENCE:  64.56^MUMPS4^MUMPS
    1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",5)=X
    2)= S $P(^LAC("DEV",DA,0),"^",5)=""
Info |  Details |  All