Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^LRO(64.03,0)="WKLD LOG FILE^64.03^"
^LRO(64.1,0)="WKLD DATA^64.1P^"
^LRO(67.9,0)="LAB MONTHLY WORKLOADS^67.9P^"
^LRO(68,0)="ACCESSION^68I^36^22"
^LRO(68,1,0)="CHEM-20^CH^D^^3^^^2^1^^SMAC^^4^^^^^^CP"
^LRO(68,1,.1)="S LRAD=DT"
^LRO(68,1,3,0)="^68.03PA^1^1"
^LRO(68,1,3,1,0)="1"
^LRO(68,1,3,"B",1,1)=""
^LRO(68,3,0)="COAG^CH^D^^3^^^15^1^^COAG^^8^^^^^^CP"
^LRO(68,3,.1)="S LRAD=DT"
^LRO(68,3,3,0)="^68.03PA^1^1"
^LRO(68,3,3,1,0)="1"
^LRO(68,3,3,"B",1,1)=""
^LRO(68,6,0)="RIA^CH^Y^^1^^^30^1^^RIA^^4^^^^^^CP"
^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"
^LRO(68,6,3,0)="^68.03PA^1^1"
^LRO(68,6,3,1,0)="1"
^LRO(68,6,3,"B",1,1)=""
^LRO(68,7,0)="URINALYSIS^CH^D^^3^^^20^1^^URINE^^16^^^^^^CP"
^LRO(68,7,.1)="S LRAD=DT"
^LRO(68,7,3,0)="^68.03PA^1^1"
^LRO(68,7,3,1,0)="1"
^LRO(68,7,3,"B",1,1)=""
^LRO(68,9,0)="GAS^CH^D^^3^^^40^1^^GAS^^4^^^^^^CP"
^LRO(68,9,.1)="S LRAD=DT"
^LRO(68,9,3,0)="^68.03PA^1^1"
^LRO(68,9,3,1,0)="1"
^LRO(68,9,3,"B",1,1)=""
^LRO(68,10,0)="HEMATOLOGY^CH^D^^3^6^^10^1^^HE^^8^^^^^^CP"
^LRO(68,10,.1)="S LRAD=DT"
^LRO(68,10,.2)="S LRMACH=$S(LRMETH]"""":$O(^LAB(62.4,""D"",LRMETH,0)),1:"""") S:LRMACH<1 LRMACH=99 D LABULL^LRQCC"
^LRO(68,10,3,0)="^68.03PA^1^1"
^LRO(68,10,3,1,0)="1"
^LRO(68,10,3,"B",1,1)=""
^LRO(68,11,0)="CHEMISTRY^CH^D^^3^11^^1^1^^CH^0^4^^^^^^CP"
^LRO(68,11,.1)="S LRAD=DT"
^LRO(68,11,.2)="I $P(^LRO(68,LRAA,1,LRAD,1,LRAN,0),U,2)=62.3 S LRTEST="""" D ^LRMRSHRT"
^LRO(68,11,3,0)="^68.03PA^1^1"
^LRO(68,11,3,1,0)="1"
^LRO(68,11,3,"B",1,1)=""
^LRO(68,12,0)="MICROBIOLOGY^MI^Y^^1^^^900^1^^MICRO^^10^^^^^^CP"
^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"
^LRO(68,12,3,0)="^68.03PA^1^1"
^LRO(68,12,3,1,0)="1"
^LRO(68,12,3,"B",1,1)=""
^LRO(68,15,0)="SURGICAL PATHOLOGY^SP^Y^^1^^^^1^^SP^^17^^^^^^AP"
^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"
^LRO(68,15,3,0)="^68.03PA^1^1"
^LRO(68,15,3,1,0)="1"
^LRO(68,15,3,"B",1,1)=""
^LRO(68,16,0)="EM^EM^Y^^1^^^60^1^1^EM^^7^^^^^^AP"
^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"
^LRO(68,16,3,0)="^68.03PA^1^1"
^LRO(68,16,3,1,0)="1"
^LRO(68,16,3,"B",1,1)=""
^LRO(68,17,0)="SEROLOGY^CH^D^^3^^^51^1^^SEROL^^13^^^^^^CP"
^LRO(68,17,.1)="S LRAD=DT"
^LRO(68,17,3,0)="^68.03PA^1^1"
^LRO(68,17,3,1,0)="1"
^LRO(68,17,3,"B",1,1)=""
^LRO(68,18,0)="SEND OUT^CH^Q^^4^^^52^1^^SEND^^4^^^^^^CP"
^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"
^LRO(68,18,3,0)="^68.03PA^1^1"
^LRO(68,18,3,1,0)="1"
^LRO(68,18,3,"B",1,1)=""
^LRO(68,19,0)="CYTOPATHOLOGY^CY^Y^^1^^^^1^1^CY^^18^^^^^^AP"
^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"
^LRO(68,19,3,0)="^68.03PA^1^1"
^LRO(68,19,3,1,0)="1"
^LRO(68,19,3,"B",1,1)=""
^LRO(68,20,0)="TOXICOLOGY^CH^D^^3^^^4^1^^TOX^^4^^^^^^CP"
^LRO(68,20,.1)="S LRAD=DT"
^LRO(68,20,3,0)="^68.03PA^1^1"
^LRO(68,20,3,1,0)="1"
^LRO(68,20,3,"B",1,1)=""
^LRO(68,24,0)="DIF/PLT/EST/RBC/MORP^CH^D^^3^^^11^1^^DIFFS^^8^^^^^^CP"
^LRO(68,24,.1)="S LRAD=DT"
^LRO(68,24,3,0)="^68.03PA^1^1"
^LRO(68,24,3,1,0)="1"
^LRO(68,24,3,"B",1,1)=""
^LRO(68,25,0)="RETIC COUNT^CH^D^^3^^^12^1^^RETIC^^8^^^^^^CP"
^LRO(68,25,.1)="S LRAD=DT"
^LRO(68,25,3,0)="^68.03PA^1^1"
^LRO(68,25,3,1,0)="1"
^LRO(68,25,3,"B",1,1)=""
^LRO(68,26,0)="SED RATES^CH^D^^3^^^13^1^^SED^^8^^^^^^CP"
^LRO(68,26,.1)="S LRAD=DT"
^LRO(68,26,3,0)="^68.03PA^1^1"
^LRO(68,26,3,1,0)="1"
^LRO(68,26,3,"B",1,1)=""
^LRO(68,28,0)="MANUAL CHEM^CH^D^^3^^^3^1^^MANCH^^4^^^^^^CP"
^LRO(68,28,.1)="S LRAD=DT"
^LRO(68,28,3,0)="^68.03PA^1^1"
^LRO(68,28,3,1,0)="1"
^LRO(68,28,3,"B",1,1)=""
^LRO(68,29,0)="BLOOD BANK^BB^D^^3^^^^1^1^BB^^2^^^^^^CP"
^LRO(68,29,.1)="S LRAD=DT"
^LRO(68,29,3,0)="^68.03PA^1^1"
^LRO(68,29,3,1,0)="1"
^LRO(68,29,3,"B",1,1)=""
^LRO(68,32,0)="AUTOPSY^AU^Y^^1^^^70^1^1^AU^^20^^^^^^AP"
^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"
^LRO(68,32,3,0)="^68.03PA^1^1"
^LRO(68,32,3,1,0)="1"
^LRO(68,32,3,"B",1,1)=""
^LRO(68,35,0)="STAT LAB^CH^D^^3^^^5^1^^SL^^4^^^^^^CP"
^LRO(68,35,.1)="S LRAD=DT"
^LRO(68,35,3,0)="^68.03PA^1^1"
^LRO(68,35,3,1,0)="1"
^LRO(68,35,3,"B",1,1)=""
^LRO(68,36,0)="TEST MONTHLY^CH^M^^2^^^567^1^^MONTH^^4^^^^^^CP"
^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"
^LRO(68,36,3,0)="^68.03PA^1^1"
^LRO(68,36,3,1,0)="1"
^LRO(68,36,3,"B",1,1)=""
^LRO(68,"AD",2,29)=""
^LRO(68,"AD",4,1)=""
^LRO(68,"AD",4,6)=""
^LRO(68,"AD",4,9)=""
^LRO(68,"AD",4,11)=""
^LRO(68,"AD",4,18)=""
^LRO(68,"AD",4,20)=""
^LRO(68,"AD",4,28)=""
^LRO(68,"AD",4,35)=""
^LRO(68,"AD",4,36)=""
^LRO(68,"AD",7,16)=""
^LRO(68,"AD",8,3)=""
^LRO(68,"AD",8,10)=""
^LRO(68,"AD",8,24)=""
^LRO(68,"AD",8,25)=""
^LRO(68,"AD",8,26)=""
^LRO(68,"AD",10,12)=""
^LRO(68,"AD",13,17)=""
^LRO(68,"AD",16,7)=""
^LRO(68,"AD",17,15)=""
^LRO(68,"AD",18,19)=""
^LRO(68,"AD",20,32)=""
^LRO(68,"B","AU",32)="1"
^LRO(68,"B","AUTOPSY",32)=""
^LRO(68,"B","BB",29)="1"
^LRO(68,"B","BLOOD BANK",29)=""
^LRO(68,"B","CH",11)="1"
^LRO(68,"B","CHEM-20",1)=""
^LRO(68,"B","CHEMISTRY",11)=""
^LRO(68,"B","COAG",3)=""
^LRO(68,"B","CY",19)="1"
^LRO(68,"B","CYTOPATHOLOGY",19)=""
^LRO(68,"B","DIF/PLT/EST/RBC/MORP",24)=""
^LRO(68,"B","DIFFS",24)="1"
^LRO(68,"B","DIFFS, PLT. EST, RBC MORPHS",24)=""
^LRO(68,"B","EM",16)=""
^LRO(68,"B","GAS",9)=""
^LRO(68,"B","HE",10)="1"
^LRO(68,"B","HEMATOLOGY",10)=""
^LRO(68,"B","MANCH",28)="1"
^LRO(68,"B","MANUAL CHEM",28)=""
^LRO(68,"B","MICRO",12)="1"
^LRO(68,"B","MICROBIOLOGY",12)=""
^LRO(68,"B","MONTH",36)="1"
^LRO(68,"B","RETIC",25)="1"
^LRO(68,"B","RETIC COUNT",25)=""
^LRO(68,"B","RIA",6)=""
^LRO(68,"B","SED",26)="1"
^LRO(68,"B","SED RATES",26)=""
^LRO(68,"B","SEND",18)="1"
^LRO(68,"B","SEND OUT",18)=""
^LRO(68,"B","SEROL",17)="1"
^LRO(68,"B","SEROLOGY",17)=""
^LRO(68,"B","SL",35)="1"
^LRO(68,"B","SMAC",1)="1"
^LRO(68,"B","SP",15)="1"
^LRO(68,"B","STAT LAB",35)=""
^LRO(68,"B","SURGICAL PATHOLOGY",15)=""
^LRO(68,"B","TEST MONTHLY",36)=""
^LRO(68,"B","TOX",20)="1"
^LRO(68,"B","TOXICOLOGY",20)=""
^LRO(68,"B","URINALYSIS",7)=""
^LRO(68,"B","URINE",7)="1"
^LRO(68,"VR")="5.2"
^LRO(68.2,0)="LOAD/WORK LIST^68.2^"
^LRO(69,0)="LAB ORDER ENTRY^69D^"
^LRO(69.1,0)="COLLECTION LIST^69.1^"
^LRO(69.2,0)="LAB SECTION PRINT^69.2P^"
^LRO(69.6,0)="LAB PENDING ORDERS ENTRY^69.6I^^0"