source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPER1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1012 bytes
Line 
1GMRAPER1 ;HIRMFO/RM-REACTION EDIT MODULE DELETE REACTIONS ;12/1/95 13:52
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3DELREAC ; 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
15VALD ; VALIDATE CHOICE NUMBER
16 I +GMRAPC(1)'=GMRAPC(1)!(GMRAPC(1)>GMRACTR)!(GMRAPC(1)<1) S GMRAOK=0
17 Q
18DEL ;
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
Note: See TracBrowser for help on using the repository browser.