16 lines
724 B
Mathematica
16 lines
724 B
Mathematica
|
ECXLRED ;ALB/TMD - Add/Edit Lab Results Translation Values ; 8/1/02 10:27am
|
||
|
|
;;3.0;DSS EXTRACTS;**46**;Dec 22, 1997
|
||
|
|
;
|
||
|
|
EN ; Entry point
|
||
|
|
N X,Y,DA,DR,DIC,DIE,DLAYGO
|
||
|
|
W @IOF
|
||
|
|
W "ADD/EDIT LAB RESULTS TRANSLATION TABLE",!!!
|
||
|
|
I '$O(^ECX(727.7,0)) W "Lab Results Translation file does not exist",!! R X:5 K X Q
|
||
|
|
W "This option allows the editing of existing entries or the addition of new"
|
||
|
|
W !,"entries in the LAB RESULTS TRANSLATION file (#727.7). Free text results"
|
||
|
|
W !,"(non-numeric) are stored in this file with their corresponding translation codes",!!
|
||
|
|
S QFLG=0 F Q:QFLG D
|
||
|
|
.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
|
||
|
|
.I '$P(Y,U,3) S DIE=DIC,DA=+Y,DR=".01;1" D ^DIE
|
||
|
|
Q
|