source: FOIAVistA/trunk/g/LRO.zwr@ 808

Last change on this file since 808 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 6.7 KB
Line 
1Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
2Cache 13-Sep-2008 18:35:03 ZWR
3^LRO(64.03,0)="WKLD LOG FILE^64.03^"
4^LRO(64.1,0)="WKLD DATA^64.1P^"
5^LRO(67.9,0)="LAB MONTHLY WORKLOADS^67.9P^"
6^LRO(68,0)="ACCESSION^68I^36^22"
7^LRO(68,1,0)="CHEM-20^CH^D^^3^^^2^1^^SMAC^^4^^^^^^CP"
8^LRO(68,1,.1)="S LRAD=DT"
9^LRO(68,1,3,0)="^68.03PA^1^1"
10^LRO(68,1,3,1,0)="1"
11^LRO(68,1,3,"B",1,1)=""
12^LRO(68,3,0)="COAG^CH^D^^3^^^15^1^^COAG^^8^^^^^^CP"
13^LRO(68,3,.1)="S LRAD=DT"
14^LRO(68,3,3,0)="^68.03PA^1^1"
15^LRO(68,3,3,1,0)="1"
16^LRO(68,3,3,"B",1,1)=""
17^LRO(68,6,0)="RIA^CH^Y^^1^^^30^1^^RIA^^4^^^^^^CP"
18^LRO(68,6,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
19^LRO(68,6,3,0)="^68.03PA^1^1"
20^LRO(68,6,3,1,0)="1"
21^LRO(68,6,3,"B",1,1)=""
22^LRO(68,7,0)="URINALYSIS^CH^D^^3^^^20^1^^URINE^^16^^^^^^CP"
23^LRO(68,7,.1)="S LRAD=DT"
24^LRO(68,7,3,0)="^68.03PA^1^1"
25^LRO(68,7,3,1,0)="1"
26^LRO(68,7,3,"B",1,1)=""
27^LRO(68,9,0)="GAS^CH^D^^3^^^40^1^^GAS^^4^^^^^^CP"
28^LRO(68,9,.1)="S LRAD=DT"
29^LRO(68,9,3,0)="^68.03PA^1^1"
30^LRO(68,9,3,1,0)="1"
31^LRO(68,9,3,"B",1,1)=""
32^LRO(68,10,0)="HEMATOLOGY^CH^D^^3^6^^10^1^^HE^^8^^^^^^CP"
33^LRO(68,10,.1)="S LRAD=DT"
34^LRO(68,10,.2)="S LRMACH=$S(LRMETH]"""":$O(^LAB(62.4,""D"",LRMETH,0)),1:"""") S:LRMACH<1 LRMACH=99 D LABULL^LRQCC"
35^LRO(68,10,3,0)="^68.03PA^1^1"
36^LRO(68,10,3,1,0)="1"
37^LRO(68,10,3,"B",1,1)=""
38^LRO(68,11,0)="CHEMISTRY^CH^D^^3^11^^1^1^^CH^0^4^^^^^^CP"
39^LRO(68,11,.1)="S LRAD=DT"
40^LRO(68,11,.2)="I $P(^LRO(68,LRAA,1,LRAD,1,LRAN,0),U,2)=62.3 S LRTEST="""" D ^LRMRSHRT"
41^LRO(68,11,3,0)="^68.03PA^1^1"
42^LRO(68,11,3,1,0)="1"
43^LRO(68,11,3,"B",1,1)=""
44^LRO(68,12,0)="MICROBIOLOGY^MI^Y^^1^^^900^1^^MICRO^^10^^^^^^CP"
45^LRO(68,12,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
46^LRO(68,12,3,0)="^68.03PA^1^1"
47^LRO(68,12,3,1,0)="1"
48^LRO(68,12,3,"B",1,1)=""
49^LRO(68,15,0)="SURGICAL PATHOLOGY^SP^Y^^1^^^^1^^SP^^17^^^^^^AP"
50^LRO(68,15,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
51^LRO(68,15,3,0)="^68.03PA^1^1"
52^LRO(68,15,3,1,0)="1"
53^LRO(68,15,3,"B",1,1)=""
54^LRO(68,16,0)="EM^EM^Y^^1^^^60^1^1^EM^^7^^^^^^AP"
55^LRO(68,16,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
56^LRO(68,16,3,0)="^68.03PA^1^1"
57^LRO(68,16,3,1,0)="1"
58^LRO(68,16,3,"B",1,1)=""
59^LRO(68,17,0)="SEROLOGY^CH^D^^3^^^51^1^^SEROL^^13^^^^^^CP"
60^LRO(68,17,.1)="S LRAD=DT"
61^LRO(68,17,3,0)="^68.03PA^1^1"
62^LRO(68,17,3,1,0)="1"
63^LRO(68,17,3,"B",1,1)=""
64^LRO(68,18,0)="SEND OUT^CH^Q^^4^^^52^1^^SEND^^4^^^^^^CP"
65^LRO(68,18,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000""+(($E(Y,4,5)-1)\3*300+100) S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",4),1:0) Q"
66^LRO(68,18,3,0)="^68.03PA^1^1"
67^LRO(68,18,3,1,0)="1"
68^LRO(68,18,3,"B",1,1)=""
69^LRO(68,19,0)="CYTOPATHOLOGY^CY^Y^^1^^^^1^1^CY^^18^^^^^^AP"
70^LRO(68,19,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
71^LRO(68,19,3,0)="^68.03PA^1^1"
72^LRO(68,19,3,1,0)="1"
73^LRO(68,19,3,"B",1,1)=""
74^LRO(68,20,0)="TOXICOLOGY^CH^D^^3^^^4^1^^TOX^^4^^^^^^CP"
75^LRO(68,20,.1)="S LRAD=DT"
76^LRO(68,20,3,0)="^68.03PA^1^1"
77^LRO(68,20,3,1,0)="1"
78^LRO(68,20,3,"B",1,1)=""
79^LRO(68,24,0)="DIF/PLT/EST/RBC/MORP^CH^D^^3^^^11^1^^DIFFS^^8^^^^^^CP"
80^LRO(68,24,.1)="S LRAD=DT"
81^LRO(68,24,3,0)="^68.03PA^1^1"
82^LRO(68,24,3,1,0)="1"
83^LRO(68,24,3,"B",1,1)=""
84^LRO(68,25,0)="RETIC COUNT^CH^D^^3^^^12^1^^RETIC^^8^^^^^^CP"
85^LRO(68,25,.1)="S LRAD=DT"
86^LRO(68,25,3,0)="^68.03PA^1^1"
87^LRO(68,25,3,1,0)="1"
88^LRO(68,25,3,"B",1,1)=""
89^LRO(68,26,0)="SED RATES^CH^D^^3^^^13^1^^SED^^8^^^^^^CP"
90^LRO(68,26,.1)="S LRAD=DT"
91^LRO(68,26,3,0)="^68.03PA^1^1"
92^LRO(68,26,3,1,0)="1"
93^LRO(68,26,3,"B",1,1)=""
94^LRO(68,28,0)="MANUAL CHEM^CH^D^^3^^^3^1^^MANCH^^4^^^^^^CP"
95^LRO(68,28,.1)="S LRAD=DT"
96^LRO(68,28,3,0)="^68.03PA^1^1"
97^LRO(68,28,3,1,0)="1"
98^LRO(68,28,3,"B",1,1)=""
99^LRO(68,29,0)="BLOOD BANK^BB^D^^3^^^^1^1^BB^^2^^^^^^CP"
100^LRO(68,29,.1)="S LRAD=DT"
101^LRO(68,29,3,0)="^68.03PA^1^1"
102^LRO(68,29,3,1,0)="1"
103^LRO(68,29,3,"B",1,1)=""
104^LRO(68,32,0)="AUTOPSY^AU^Y^^1^^^70^1^1^AU^^20^^^^^^AP"
105^LRO(68,32,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,3)_""0000"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",3),1:0) Q"
106^LRO(68,32,3,0)="^68.03PA^1^1"
107^LRO(68,32,3,1,0)="1"
108^LRO(68,32,3,"B",1,1)=""
109^LRO(68,35,0)="STAT LAB^CH^D^^3^^^5^1^^SL^^4^^^^^^CP"
110^LRO(68,35,.1)="S LRAD=DT"
111^LRO(68,35,3,0)="^68.03PA^1^1"
112^LRO(68,35,3,1,0)="1"
113^LRO(68,35,3,"B",1,1)=""
114^LRO(68,36,0)="TEST MONTHLY^CH^M^^2^^^567^1^^MONTH^^4^^^^^^CP"
115^LRO(68,36,.1)="S %DT="""",X=""T"" D ^%DT S LRAD=$E(Y,1,5)_""00"" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),""^"",4),1:0) Q"
116^LRO(68,36,3,0)="^68.03PA^1^1"
117^LRO(68,36,3,1,0)="1"
118^LRO(68,36,3,"B",1,1)=""
119^LRO(68,"AD",2,29)=""
120^LRO(68,"AD",4,1)=""
121^LRO(68,"AD",4,6)=""
122^LRO(68,"AD",4,9)=""
123^LRO(68,"AD",4,11)=""
124^LRO(68,"AD",4,18)=""
125^LRO(68,"AD",4,20)=""
126^LRO(68,"AD",4,28)=""
127^LRO(68,"AD",4,35)=""
128^LRO(68,"AD",4,36)=""
129^LRO(68,"AD",7,16)=""
130^LRO(68,"AD",8,3)=""
131^LRO(68,"AD",8,10)=""
132^LRO(68,"AD",8,24)=""
133^LRO(68,"AD",8,25)=""
134^LRO(68,"AD",8,26)=""
135^LRO(68,"AD",10,12)=""
136^LRO(68,"AD",13,17)=""
137^LRO(68,"AD",16,7)=""
138^LRO(68,"AD",17,15)=""
139^LRO(68,"AD",18,19)=""
140^LRO(68,"AD",20,32)=""
141^LRO(68,"B","AU",32)="1"
142^LRO(68,"B","AUTOPSY",32)=""
143^LRO(68,"B","BB",29)="1"
144^LRO(68,"B","BLOOD BANK",29)=""
145^LRO(68,"B","CH",11)="1"
146^LRO(68,"B","CHEM-20",1)=""
147^LRO(68,"B","CHEMISTRY",11)=""
148^LRO(68,"B","COAG",3)=""
149^LRO(68,"B","CY",19)="1"
150^LRO(68,"B","CYTOPATHOLOGY",19)=""
151^LRO(68,"B","DIF/PLT/EST/RBC/MORP",24)=""
152^LRO(68,"B","DIFFS",24)="1"
153^LRO(68,"B","DIFFS, PLT. EST, RBC MORPHS",24)=""
154^LRO(68,"B","EM",16)=""
155^LRO(68,"B","GAS",9)=""
156^LRO(68,"B","HE",10)="1"
157^LRO(68,"B","HEMATOLOGY",10)=""
158^LRO(68,"B","MANCH",28)="1"
159^LRO(68,"B","MANUAL CHEM",28)=""
160^LRO(68,"B","MICRO",12)="1"
161^LRO(68,"B","MICROBIOLOGY",12)=""
162^LRO(68,"B","MONTH",36)="1"
163^LRO(68,"B","RETIC",25)="1"
164^LRO(68,"B","RETIC COUNT",25)=""
165^LRO(68,"B","RIA",6)=""
166^LRO(68,"B","SED",26)="1"
167^LRO(68,"B","SED RATES",26)=""
168^LRO(68,"B","SEND",18)="1"
169^LRO(68,"B","SEND OUT",18)=""
170^LRO(68,"B","SEROL",17)="1"
171^LRO(68,"B","SEROLOGY",17)=""
172^LRO(68,"B","SL",35)="1"
173^LRO(68,"B","SMAC",1)="1"
174^LRO(68,"B","SP",15)="1"
175^LRO(68,"B","STAT LAB",35)=""
176^LRO(68,"B","SURGICAL PATHOLOGY",15)=""
177^LRO(68,"B","TEST MONTHLY",36)=""
178^LRO(68,"B","TOX",20)="1"
179^LRO(68,"B","TOXICOLOGY",20)=""
180^LRO(68,"B","URINALYSIS",7)=""
181^LRO(68,"B","URINE",7)="1"
182^LRO(68,"VR")="5.2"
183^LRO(68.2,0)="LOAD/WORK LIST^68.2^"
184^LRO(69,0)="LAB ORDER ENTRY^69D^"
185^LRO(69.1,0)="COLLECTION LIST^69.1^"
186^LRO(69.2,0)="LAB SECTION PRINT^69.2P^"
187^LRO(69.6,0)="LAB PENDING ORDERS ENTRY^69.6I^^0"
Note: See TracBrowser for help on using the repository browser.