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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAPEV0 1122 printed Oct 16, 2024@17:41 Page 2
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
