GMRAPEV0.m

GMRAPEV0 ;HIRMFO/RM,WAA-VERIFIED A/AR FIELDS EDIT ; 1/13/91

 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996

EN1 ; EDIT FIELDS FOR VERIFIER

 K GMRAVFY S GMRAVER=0 D EN1^GMRAPEE0 G Q1:GMRAOUT!GMRAERR

 G:$P(GMRAPA(0),"^",16) Q1

EN2 ;The is the entry point for GMRAVFY routine

 ; Variable GMRAVFY is defined if coming from GMRAVFY routine.

 D EN1^GMRAPED0 G:GMRAOUT Q1

 I '$D(GMRAVFY) S GMRAVCM="V" D ENDING^GMRAPEM1

 K GMRAHEAD S GMRAPRNT=0 D EN1^GMRADSP2

YNVER W !,"Change status of this allergy/adverse reaction to verified" S %=0 D YN^DICN I '% W !?4,$C(7),"ANSWER YES IF THIS ALLERGY/ADVERSE REACTION IS TO BE VERIFIED,",!?4,"ELSE ANSWER NO." G YNVER

 S:%=-1 GMRAOUT=1 I %=1 S GMRAVER=1,DA=GMRAPA,DIE="^GMR(120.8,",DR="19////1;20///N;21////"_DUZ D ^DIE K DIE,DR,DA D  ; Execute the event point for this reaction

 .Q:'$D(GMRAPA)  S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0)) Q:GMRAPA(0)=""

 .N OROLD,DFN S DFN=$P(GMRAPA(0),U)

 .D INP^VADPT S X=$O(^ORD(101,"B","GMRA VERIFY DATA",0))_";ORD(101," D EN^XQOR:X K VAIN,X

 .Q

Q1 S GMRAPA(0)=$S($D(^GMR(120.8,GMRAPA,0)):^(0),1:"")

 K %,DA,DIC,DIE,DR,GMRAPG,GMRAPRNT

 Q

GMRAPEV0  ;HIRMFO/RM,WAA-VERIFIED A/AR FIELDS EDIT ; 1/13/91

 +1       ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996

EN1       ; EDIT FIELDS FOR VERIFIER

 +1        KILL GMRAVFY

           SET GMRAVER=0

           DO EN1^GMRAPEE0

           IF GMRAOUT!GMRAERR

               GOTO Q1

 +2        IF $PIECE(GMRAPA(0),"^",16)

               GOTO Q1

EN2       ;The is the entry point for GMRAVFY routine

 +1       ; Variable GMRAVFY is defined if coming from GMRAVFY routine.

 +2        DO EN1^GMRAPED0

           IF GMRAOUT

               GOTO Q1

 +3        IF '$DATA(GMRAVFY)

               SET GMRAVCM="V"

               DO ENDING^GMRAPEM1

 +4        KILL GMRAHEAD

           SET GMRAPRNT=0

           DO EN1^GMRADSP2

YNVER      WRITE !,"Change status of this allergy/adverse reaction to verified"

           SET %=0

           DO YN^DICN

           IF '%

               WRITE !?4,$CHAR(7),"ANSWER YES IF THIS ALLERGY/ADVERSE REACTION IS TO BE VERIFIED,",!?4,"ELSE ANSWER NO."

               GOTO YNVER

 +1       ; Execute the event point for this reaction

           IF %=-1

               SET GMRAOUT=1

           IF %=1

               SET GMRAVER=1

               SET DA=GMRAPA

               SET DIE="^GMR(120.8,"

               SET DR="19////1;20///N;21////"_DUZ

               DO ^DIE

               KILL DIE,DR,DA

               Begin DoDot:1

 +2                IF '$DATA(GMRAPA)

                       QUIT 

                   SET GMRAPA(0)=$GET(^GMR(120.8,GMRAPA,0))

                   IF GMRAPA(0)=""

                       QUIT 

 +3                NEW OROLD,DFN

                   SET DFN=$PIECE(GMRAPA(0),U)

 +4                DO INP^VADPT

                   SET X=$ORDER(^ORD(101,"B","GMRA VERIFY DATA",0))_";ORD(101,"

                   IF X

                       DO EN^XQOR

                   KILL VAIN,X

 +5                QUIT 

               End DoDot:1

Q1         SET GMRAPA(0)=$SELECT($DATA(^GMR(120.8,GMRAPA,0)):^(0),1:"")

 +1        KILL %,DA,DIC,DIE,DR,GMRAPG,GMRAPRNT

 +2        QUIT