source: FOIAVistA/trunk/r/DSS_EXTRACTS-ECX/ECXLRED.m@ 1757

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 
1ECXLRED ;ALB/TMD - Add/Edit Lab Results Translation Values ; 8/1/02 10:27am
2 ;;3.0;DSS EXTRACTS;**46**;Dec 22, 1997
3 ;
4EN ; 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.