| [613] | 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
|
|---|
