|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
724 bytes
|
| Line | |
|---|
| 1 | ECXLRED ;ALB/TMD - Add/Edit Lab Results Translation Values ; 8/1/02 10:27am
|
|---|
| 2 | ;;3.0;DSS EXTRACTS;**46**;Dec 22, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Entry point
|
|---|
| 5 | N X,Y,DA,DR,DIC,DIE,DLAYGO
|
|---|
| 6 | W @IOF
|
|---|
| 7 | W "ADD/EDIT LAB RESULTS TRANSLATION TABLE",!!!
|
|---|
| 8 | I '$O(^ECX(727.7,0)) W "Lab Results Translation file does not exist",!! R X:5 K X Q
|
|---|
| 9 | W "This option allows the editing of existing entries or the addition of new"
|
|---|
| 10 | W !,"entries in the LAB RESULTS TRANSLATION file (#727.7). Free text results"
|
|---|
| 11 | W !,"(non-numeric) are stored in this file with their corresponding translation codes",!!
|
|---|
| 12 | S QFLG=0 F Q:QFLG D
|
|---|
| 13 | .S DIC=727.7,DIC(0)="AELNV",DIC("DR")=".01;1",DLAYGO=727.7 D ^DIC I Y<0!$D(DUOUT) S QFLG=1 Q
|
|---|
| 14 | .I '$P(Y,U,3) S DIE=DIC,DA=+Y,DR=".01;1" D ^DIE
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
