1 | GMRAPER1 ;HIRMFO/RM-REACTION EDIT MODULE DELETE REACTIONS ;12/1/95 13:52
|
---|
2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
---|
3 | DELREAC ; DELETE SIGNS/SYMPTOMS FROM PATIENT DATA
|
---|
4 | K DIR S DIR(0)="LOA^1:"_GMRACTR
|
---|
5 | S DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"
|
---|
6 | S DIR("A")="Delete which signs/symptoms: "
|
---|
7 | S DIR("?",1)="PLEASE ENTER THE NUMBERS OF THE SIGNS/SYMPTOMS YOU WOULD LIKE TO DELETE."
|
---|
8 | S DIR("?",2)="RANGES CAN BE SEPARATED BY A HYPHEN (-) AND GROUPS OF NUMBERS,"
|
---|
9 | S DIR("?")="SEPARATED BY A COMMA (,)."
|
---|
10 | D ^DIR K DIR
|
---|
11 | I $D(DTOUT)!($D(DUOUT)) S GMRAOUT=1 Q
|
---|
12 | S GMRADO=Y
|
---|
13 | F Y=1:1:$L(GMRADO,",") S GMRAY=$P(GMRADO,",",Y) I +GMRAY D DEL
|
---|
14 | Q
|
---|
15 | VALD ; VALIDATE CHOICE NUMBER
|
---|
16 | I +GMRAPC(1)'=GMRAPC(1)!(GMRAPC(1)>GMRACTR)!(GMRAPC(1)<1) S GMRAOK=0
|
---|
17 | Q
|
---|
18 | DEL ;
|
---|
19 | S GMRARECN=$P(GMRACHC(GMRAY),"^"),GMRAREAC=$P(GMRACHC(GMRAY),"^",2)
|
---|
20 | I GMRARECN'=GMRAOTH S GMRARDL(GMRARECN)="" K GMRARPR(GMRAREAC,GMRARECN),GMRARAD(GMRARECN)
|
---|
21 | E K GMRAROT(GMRAREAC),GMRARPR(GMRAREAC,GMRARECN) S GMRAROTD(GMRAREAC)=""
|
---|
22 | Q
|
---|