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

Package Total Routines
Lab Service 23 DIVISION    LR138PO    LRARLMW1    LRCAP64    LRCAP67    LRCAPAM0    LRCAPAM1    LRCAPAM2
LRCAPAM3    LRCAPAM4    LRCAPAM5    LRCAPAMP    LRCAPED1    LRCAPW1    WKLD CODE    ^LRO(67.9
LRIPRE2    LRNIGHT1    LRNIGHT2    LRSETUP    LRXREF    MONTH    TREATING SPECIALITY    
IHS Changes To Lab 1 BLR138PO    

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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All