Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
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

Directly Accessed By Routines, Total: 25

Package Total Routines
Lab Service 22 DIVISION    LR CAP ELROY    LR138PO    LR382A    LRARLMW1    LRCAP64    LRCAP67    LRCAPAM0
LRCAPAM1    LRCAPAM2    LRCAPAM3    LRCAPAM4    LRCAPAM5    LRCAPAMP    LRNIGHT1    LRNIGHT2
LRSETUP    LRXREF    WKLD CODE    ^LRO(67.9    MONTH    TREATING SPECIALITY    

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.

External References

Name Field # of Occurrence
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4)
^DD(67.9 .01(XREF 2S), .01(XREF 2K)
^DIC(4 - [#4] .01(XREF 2n1.1)
^LRO(67.9 - [#67.9] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 2S), .01(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DINUM .01+1*
>> DIU .01(XREF 2S), .01(XREF 2K)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
X .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .1+1!
Y .01(XREF 2S), .01(XREF 2K)
Y(1 .01(XREF 2S), .01(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All