|
Last change
on this file since 767 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
495 bytes
|
| Line | |
|---|
| 1 | LROI ;SLC/CJS - LAB ORDER INFORMATION UPDATE ; 8/25/87 08:46 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | R !,"(N)ormal values or (C)ollection description?: ",LRLX:DTIME G LROI:LRLX="",END:LRLX="^",LROI:"CN"'[LRLX
|
|---|
| 4 | L5 S DR=$S(LRLX["N":"2;3;100",LRLX["C":"2;3;6:9;51;200;300",1:"")
|
|---|
| 5 | S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ",DIE=DIC D ^DIC G END:Y<1 S DA=+Y D ^DIE G L5
|
|---|
| 6 | MIMN S DR="1.6:7",U="^",DIC="^LAB(61.2,",DIC(0)="AELMOQZ",DLAYGO=61,DIE=DIC D ^DIC G END:Y<1 S DA=+Y D ^DIE G MIMN
|
|---|
| 7 | END K DIC,LRLX,DLAYGO Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
