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: 69.9004

Package: Lab Service

LABORATORY SITE(#69.9)-->69.9004

Sub-Field: 69.9004


Information

Parent File Name Number Package
LABORATORY SITE(#69.9) EXCEPTED LOCATIONS 69.9004 Lab Service

Details

Field # Name Loc Type Details
.01 EXCEPTED LOCATIONS 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 06, 1997
  • DESCRIPTION:  
    Collections for Saturday's, Sunday's, Holidays, etc. are never skipped for locations in this field.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)]"""""
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.9004^AC^MUMPS
    1)= S %=$P(^SC(X,0),U,2) Q:'$L(%)  S ^LAB(69.9,DA(1),2,"AC",%)=""
    2)= S %=$P(^SC(X,0),U,2) Q:'$L(%)  K ^LAB(69.9,DA(1),2,"AC",%)
  • CROSS-REFERENCE:  69.9004^AXE^MUMPS
    1)= D EXCEPTED^LR7OV1(X,1,1)
    2)= D EXCEPTED^LR7OV1(X,1,0)
    Triggers the LR EXCEPTED LOCATIONS parameter in CPRS.
Info |  Details |  All