| 1 | LAMSBLD ;SLC/DLG - BUILD MICROSCAN MIC X-REF IN FILE 62.06 ;7/20/90 09:48 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | B W "ENTER DATA FOR (A)PI, (M)ICROSCAN, OR (V)ITEK ? " R INST:DTIME W ! Q:((INST="^")!(INST=""))
|
|---|
| 4 | S INST=$E(INST,1) S:"AMV"'[INST INST="?"
|
|---|
| 5 | I INST="?" W !,"ENTER THE LETTER IN PARENS FOR INSTRUMENT YOU WANT TO LOAD DRUG INFORMATION ON.",! G B
|
|---|
| 6 | A S U="^",ZZ=0 F AS=0:0 S AS=$O(^LAB(62.06,AS)) Q:AS'>0 D SUS Q:((%<0)&(ZZ=1))
|
|---|
| 7 | W !,"DONE" Q
|
|---|
| 8 | SUS S:'$D(^LAB(62.06,AS,1,0)) ^(0)="^62.061^^"
|
|---|
| 9 | S %=2 W !,"Want to load MicroScan MIC values for ",$P(^LAB(62.06,AS,0),U) D YN^DICN Q:(%=2!(%<0))
|
|---|
| 10 | I %=0 W !,"ANSWER EITHER 'NO' DO NOT LOAD THIS DRUG OR 'YES' TO LOAD." G SUS
|
|---|
| 11 | S DA(1)=AS
|
|---|
| 12 | I INST="A" F XX="0","0.01","0.03","0.06","0.12","0.25","0.5",1,2,4,6,8,16,32,64,128,256,512,1024,1280 S ZZ=0 W "." D LOAD Q:ZZ
|
|---|
| 13 | I INST="M" F XX="0.03","0.06","0.12","0.25","0.5",1,2,4,6,8,16,32,64,128,256 S ZZ=0 W "." D LOAD Q:ZZ
|
|---|
| 14 | I INST="V" F XX="0.06","0.125","0.25","0.5",1,2,4,8,16,20,32,40,64,80,128,160,256,320,500,512,640,1024,1280,2000,2560,5120,10240,20480 S ZZ=0 W "." D LOAD Q:ZZ
|
|---|
| 15 | K DLAYGO
|
|---|
| 16 | Q
|
|---|
| 17 | LOAD ;
|
|---|
| 18 | S DIC(0)="MLQE",DLAYGO=62.06,DIC="^LAB(62.06,"_AS_",1,",X=XX D FILE Q:ZZ S X="<"_XX D FILE Q:ZZ S X=">"_XX D FILE Q
|
|---|
| 19 | FILE I $D(^LAB(62.06,AS,1,"B",X)) S Y=$O(^(X,0)) G DEF ;Already there!
|
|---|
| 20 | D FILE^DICN ;MAKE A NEW ONE
|
|---|
| 21 | DEF S DR=".01;1//"_X,DA=+Y,(DIK,DIE)=DIC D ^DIE S:$D(Y) ZZ=1 S (DIK,DIE)=DIC D IX1^DIK Q
|
|---|
