Last change
on this file since 1757 was 628, checked in by George Lilly, 15 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.