- 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 Mar 13, 2025@20:44:48 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
