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

Package: Lab Service

LAB MONTHLY WORKLOADS(#67.9)-->67.901

Sub-Field: 67.901


Information

Parent File Name Number Package
LAB MONTHLY WORKLOADS(#67.9) DIVISION 67.901 Lab Service

Details

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

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • OUTPUT TRANSFORM:  S Y=$P(^DIC(4,+Y,0),U,1)
  • LAST EDITED:  AUG 18, 1992
  • DESCRIPTION:  
    This field contains what division this site is identified by.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^67.901^.5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.901,.01,1,1,1.1) X ^DD(67.901,.01,1,1,1.4)
    1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
    1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(67.901,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
    DELETE VALUE)= S X=""
    FIELD)= #.5
  • CROSS-REFERENCE:  67.901^B
    1)= S ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)
.5 PRINT NAME DIVISION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JUL 08, 1992
  • HELP-PROMPT:  Answer must be 3-35 characters in length.
  • DESCRIPTION:  
    This is the print name of the division.
    UNEDITABLE
  • NOTES:  TRIGGERED by the DIVISION field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File
1 MONTH 1;0 DATE Multiple #67.911 67.911

  • DESCRIPTION:  
    Multiple field. Contains information about the monthly data.
Info |  Details |  All