| [613] | 1 | GMRAPEH0 ;HIRMFO/WAA,RM-EDIT A/AR DATA FOR A HISTORICAL ALLERGY ; 1/7/93
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
|---|
| 3 | EN1 ; ENTRY FROM MAIN A/AR EDIT TO EDIT HISTORICAL A/AR
|
|---|
| 4 | D EN1^GMRAPER2(GMRAPA,"120.8",.GMRAOUT) G:GMRAOUT EXIT
|
|---|
| 5 | I $D(^XUSEC("GMRA-ALLERGY VERIFY",DUZ)) D MECH^GMRAPED0
|
|---|
| 6 | G EXIT:GMRAOUT
|
|---|
| 7 | COM S GMRAVCM="O" D ENDING^GMRAPEM1
|
|---|
| 8 | I $D(DTOUT)!$D(Y) S GMRAOUT=1
|
|---|
| 9 | I 'GMRAOUT D COMCHECK
|
|---|
| 10 | I 'GMRAOUT G:GMRAREQ COM
|
|---|
| 11 | S GMRAOUT=0
|
|---|
| 12 | K DA,DR,DIE,DUOUT,DTOUT
|
|---|
| 13 | Q
|
|---|
| 14 | COMCHECK ; CHECK TO SEE IF COMMENTS ARE REQUIRED
|
|---|
| 15 | S GMRAREQ=($P($G(^GMRD(120.84,+GMRASITE,0)),"^",4)=1) Q:'GMRAREQ
|
|---|
| 16 | S X=0,X=$O(^GMR(120.8,GMRAPA,26,X)),GMRAREQ=(X'>0)
|
|---|
| 17 | I GMRAREQ W !!,$C(7),"COMMENTS ARE REQUIRED." D HANGT
|
|---|
| 18 | I $D(DIRUT) S GMRAOUT=1
|
|---|
| 19 | K DIRUT
|
|---|
| 20 | Q
|
|---|
| 21 | HANGT ;Hang for TIMEOUT or press return
|
|---|
| 22 | N DIR
|
|---|
| 23 | S DIR(0)="EA",DIR("A")="Press RETURN to continue"
|
|---|
| 24 | D ^DIR
|
|---|
| 25 | Q
|
|---|
| 26 | EXIT ;
|
|---|
| 27 | K DA,DIK,DR,GMRADT,GMRAR10,GMRAPA1,GMRARAD,GMRARDL,GMRAREC,GMRADATE,GMRARODT,GMRAROT,GMRARPR,GMRAX,GMRAY,GMRAZN
|
|---|
| 28 | Q
|
|---|
