Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^LRO(67.9

Package: Lab Service

Global: ^LRO(67.9


Information

FileMan FileNo FileMan Filename Package
67.9 LAB MONTHLY WORKLOADS Lab Service

Description

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Lab Service 4 LRARLMW    LRARLMW1    LRARVER    LRCAPAM1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.01#67.901(.01)]    NEW PERSON(#200)[#67.911(1)]    

Fields, Total: 3

Field # Name Loc Type Details
.01 PRIMARY INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  AUG 18, 1992
  • DESCRIPTION:  
    The reporting institution for this report
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.9^B
    1)= S ^LRO(67.9,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(67.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^67.9^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(67.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.9,.01,1,2,1.1) X ^DD(67.9,.01,1,2,1.4)
    1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),"^",1)
    1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(67.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="@" X ^DD(67.9,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),"^",1)
    DELETE VALUE)= S X="@"
    FIELD)= #.1
    THIS FIELD IS TRIGGERED BY IN THE .01 FIELD
.1 PRINT NAME PRIMARY INSTITUTION 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:  
    The print name of the primary institution
  • EXECUTABLE HELP:  W !,"This field should not be edited."
    WRITE AUTHORITY: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the PRIMARY INSTITUTION field of the LAB MONTHLY WORKLOADS File
1 DIVISION 1;0 POINTER Multiple #67.901 67.901

  • DESCRIPTION:  
    This field contains what division this site is identified by. In most cases the primary and the division are one in the same. This field is used by sites which have multi-divisional operations.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields