- GMRAFN4 ;HIRMFO/WAA-FDA MEDWATCH FORM ;11/30/95 15:22
- ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- REL ;This code is to find all the revelant test
- S GMRANOR=0,GMRANOC=0
- I GMRAPG1'=1 G RELCON
- I $D(^GMR(120.85,GMRAPA1,4,0)) S GMRAXX=1 D S GMRANOR=1
- .S GMRAX=0 F S GMRAX=$O(^GMR(120.85,GMRAPA1,4,GMRAX)) Q:GMRAX<1 S ^TMP($J,"GMR","T",GMRAXX)=$G(^GMR(120.85,GMRAPA1,4,GMRAX,0)),GMRAXX=GMRAXX+1
- .K GMRAX,GMRAXX
- .Q
- CON ;This code is to find all the concomitant drug info
- I $D(^GMR(120.85,GMRAPA1,13,0)) S GMRAXX=1,GMRANOC=1 D
- .S GMRAX=0 F S GMRAX=$O(^GMR(120.85,GMRAPA1,13,GMRAX)) Q:GMRAX<1 S ^TMP($J,"GMR","C",(GMRAXX))=^GMR(120.85,GMRAPA1,13,GMRAX,0),GMRAXX=GMRAXX+1
- .K GMRAX,GMRAXX
- .Q
- RELCON W !,"6. Relevant test/laboratory data. including dates",?66,"|10. Concomitant medical products/therapy dates(exclude treatment)"
- W ! I GMRANOR I $D(^TMP($J,"GMR","T",1)) W "PLEASE SEE ATTACHED"
- W ?66,"|" I GMRANOC S GMRACCT=1 D CONCO^GMRAFN5
- W !
- W ?66,"|" I GMRANOC S GMRACCT=2 D CONCO^GMRAFN5
- W !
- W ?66,"|" I GMRANOC S GMRACCT=3 D CONCO^GMRAFN5
- W !
- W ?66,"|" I GMRANOC D
- .I $D(^TMP($J,"GMR","C",5)) W "PLEASE SEE ATTACHED" Q
- .S GMRACCT=4 D CONCO^GMRAFN5
- .Q
- W !
- W ?66,"|",$E(LINE2,68,131)
- W !,$E(LINE1,1,66),"|D. Suspect Medical Devices"
- OTHER ;This code is for other relevant history
- S GMRANOO=0 I GMRAPG1'=1 G OTHER2
- I $D(^GMR(120.85,GMRAPA1,14,0)) S GMRANOO=1 K ^UTILITY($J,"W") S DIWL=5,DIWR=63,DIWF="" S GMRAX=0 D
- .F S GMRAX=$O(^GMR(120.85,GMRAPA1,14,GMRAX)) Q:GMRAX<1 S X=$G(^(GMRAX,0)) D ^DIWP
- .S X=0 F S X=$O(^UTILITY($J,"W",5,X)) Q:X<1 S ^TMP($J,"GMR","O",X)=$G(^UTILITY($J,"W",5,X,0))
- .Q
- OTHER2 W !,"7. Other relevant History, including preexisting medical",?66,"|",$E(LINE1,68,131)
- W !," conditions",?66,"| Note: Please use the actual MedWatch form if the event"
- W ! I GMRANOO W ?5,^TMP($J,"GMR","O",1) K ^(1) S:'$D(^TMP($J,"GMR","O",2)) GMRANOO=0
- W ?66,"| involves a suspected device as well as a suspect drug"
- W ! I GMRANOO W ?5,^TMP($J,"GMR","O",2) K ^(2) S:'$D(^TMP($J,"GMR","O",3)) GMRANOO=0
- W ?66,"|",$E(LINE2,68,131)
- W ! I GMRANOO W ?5,^TMP($J,"GMR","O",3) K ^(3) S:'$D(^TMP($J,"GMR","O",4)) GMRANOO=0
- W ?66,"|E. Reporter"
- W ! I GMRANOO W ?5,^TMP($J,"GMR","O",4) K ^(4) S:'$D(^TMP($J,"GMR","O",5)) GMRANOO=0
- W ?66,"|",$E(LINE1,68,131)
- W ! I GMRANOO D
- .I $D(^TMP($J,"GMR","O",6)) W ?5,"PLEASE SEE ATTACHED" Q
- .W ?5,^TMP($J,"GMR","O",5) K ^(5)
- .Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAFN4 2467 printed Feb 18, 2025@23:05:35 Page 2
- GMRAFN4 ;HIRMFO/WAA-FDA MEDWATCH FORM ;11/30/95 15:22
- +1 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
- REL ;This code is to find all the revelant test
- +1 SET GMRANOR=0
- SET GMRANOC=0
- +2 IF GMRAPG1'=1
- GOTO RELCON
- +3 IF $DATA(^GMR(120.85,GMRAPA1,4,0))
- SET GMRAXX=1
- Begin DoDot:1
- +4 SET GMRAX=0
- FOR
- SET GMRAX=$ORDER(^GMR(120.85,GMRAPA1,4,GMRAX))
- if GMRAX<1
- QUIT
- SET ^TMP($JOB,"GMR","T",GMRAXX)=$GET(^GMR(120.85,GMRAPA1,4,GMRAX,0))
- SET GMRAXX=GMRAXX+1
- +5 KILL GMRAX,GMRAXX
- +6 QUIT
- End DoDot:1
- SET GMRANOR=1
- CON ;This code is to find all the concomitant drug info
- +1 IF $DATA(^GMR(120.85,GMRAPA1,13,0))
- SET GMRAXX=1
- SET GMRANOC=1
- Begin DoDot:1
- +2 SET GMRAX=0
- FOR
- SET GMRAX=$ORDER(^GMR(120.85,GMRAPA1,13,GMRAX))
- if GMRAX<1
- QUIT
- SET ^TMP($JOB,"GMR","C",(GMRAXX))=^GMR(120.85,GMRAPA1,13,GMRAX,0)
- SET GMRAXX=GMRAXX+1
- +3 KILL GMRAX,GMRAXX
- +4 QUIT
- End DoDot:1
- RELCON WRITE !,"6. Relevant test/laboratory data. including dates",?66,"|10. Concomitant medical products/therapy dates(exclude treatment)"
- +1 WRITE !
- IF GMRANOR
- IF $DATA(^TMP($JOB,"GMR","T",1))
- WRITE "PLEASE SEE ATTACHED"
- +2 WRITE ?66,"|"
- IF GMRANOC
- SET GMRACCT=1
- DO CONCO^GMRAFN5
- +3 WRITE !
- +4 WRITE ?66,"|"
- IF GMRANOC
- SET GMRACCT=2
- DO CONCO^GMRAFN5
- +5 WRITE !
- +6 WRITE ?66,"|"
- IF GMRANOC
- SET GMRACCT=3
- DO CONCO^GMRAFN5
- +7 WRITE !
- +8 WRITE ?66,"|"
- IF GMRANOC
- Begin DoDot:1
- +9 IF $DATA(^TMP($JOB,"GMR","C",5))
- WRITE "PLEASE SEE ATTACHED"
- QUIT
- +10 SET GMRACCT=4
- DO CONCO^GMRAFN5
- +11 QUIT
- End DoDot:1
- +12 WRITE !
- +13 WRITE ?66,"|",$EXTRACT(LINE2,68,131)
- +14 WRITE !,$EXTRACT(LINE1,1,66),"|D. Suspect Medical Devices"
- OTHER ;This code is for other relevant history
- +1 SET GMRANOO=0
- IF GMRAPG1'=1
- GOTO OTHER2
- +2 IF $DATA(^GMR(120.85,GMRAPA1,14,0))
- SET GMRANOO=1
- KILL ^UTILITY($JOB,"W")
- SET DIWL=5
- SET DIWR=63
- SET DIWF=""
- SET GMRAX=0
- Begin DoDot:1
- +3 FOR
- SET GMRAX=$ORDER(^GMR(120.85,GMRAPA1,14,GMRAX))
- if GMRAX<1
- QUIT
- SET X=$GET(^(GMRAX,0))
- DO ^DIWP
- +4 SET X=0
- FOR
- SET X=$ORDER(^UTILITY($JOB,"W",5,X))
- if X<1
- QUIT
- SET ^TMP($JOB,"GMR","O",X)=$GET(^UTILITY($JOB,"W",5,X,0))
- +5 QUIT
- End DoDot:1
- OTHER2 WRITE !,"7. Other relevant History, including preexisting medical",?66,"|",$EXTRACT(LINE1,68,131)
- +1 WRITE !," conditions",?66,"| Note: Please use the actual MedWatch form if the event"
- +2 WRITE !
- IF GMRANOO
- WRITE ?5,^TMP($JOB,"GMR","O",1)
- KILL ^(1)
- if '$DATA(^TMP($JOB,"GMR","O",2))
- SET GMRANOO=0
- +3 WRITE ?66,"| involves a suspected device as well as a suspect drug"
- +4 WRITE !
- IF GMRANOO
- WRITE ?5,^TMP($JOB,"GMR","O",2)
- KILL ^(2)
- if '$DATA(^TMP($JOB,"GMR","O",3))
- SET GMRANOO=0
- +5 WRITE ?66,"|",$EXTRACT(LINE2,68,131)
- +6 WRITE !
- IF GMRANOO
- WRITE ?5,^TMP($JOB,"GMR","O",3)
- KILL ^(3)
- if '$DATA(^TMP($JOB,"GMR","O",4))
- SET GMRANOO=0
- +7 WRITE ?66,"|E. Reporter"
- +8 WRITE !
- IF GMRANOO
- WRITE ?5,^TMP($JOB,"GMR","O",4)
- KILL ^(4)
- if '$DATA(^TMP($JOB,"GMR","O",5))
- SET GMRANOO=0
- +9 WRITE ?66,"|",$EXTRACT(LINE1,68,131)
- +10 WRITE !
- IF GMRANOO
- Begin DoDot:1
- +11 IF $DATA(^TMP($JOB,"GMR","O",6))
- WRITE ?5,"PLEASE SEE ATTACHED"
- QUIT
- +12 WRITE ?5,^TMP($JOB,"GMR","O",5)
- KILL ^(5)
- +13 QUIT
- End DoDot:1
- +14 QUIT
