Global: ^LRO(67.9

Information

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.

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

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

.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.

Customize PDF page

Package: Lab Service