Global: ^LRO(67.9

FileMan FileNo	FileMan Filename	Package
67.9	LAB MONTHLY WORKLOADS	Lab Service

FileMan FileNo

FileMan Filename

Package

67.9

LAB MONTHLY WORKLOADS

Lab Service

Description

This file is used to collect workload data in preparation for transmission to the National Data Base. Each months LMIP reportable statistics is compiled into this file. The file is reviewed by the Laboratory Approving Official, the a mail message is prepared and forwarded to the user. The user in turn forwards the mail message to the appropriate Domain. This file should be archived before purging the data. THIS FILE SHOULD NOT BE LOCALLY EDITED.

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

Package

Total

Routines

Lab Service

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

BLR138PO

Package	Total	Routines
Lab Service	4	LRARLMW LRARLMW1 LRARVER LRCAPAM1

Package

Total

Routines

Lab Service

LRARLMW LRARLMW1 LRARVER LRCAPAM1

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

Package

Total

FileMan Files

Kernel

INSTITUTION(#4)[.01, #67.901(.01)] NEW PERSON(#200)[#67.911(1)]

Fields, Total: 3

Field # Name Loc Type Details

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.

.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

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

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.

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

Name

Field # of Occurrence

^DICR

.01(XREF 2n1.4), .01(XREF 2n2.4)

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)

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)

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

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)

Customize PDF page

Package: Lab Service

Global: ^LRO(67.9

Information

Description

Directly Accessed By Routines, Total: 24

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: