27 lines
1.3 KiB
Mathematica
27 lines
1.3 KiB
Mathematica
GMRAFN1 ;HIRMFO/WAA-FDA PART 1 MEDWATCH FORM ;11/30/95 15:18
|
|
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
|
Q:'GMRAPA1
|
|
K ^TMP($J,"GMR")
|
|
S GMRAPA(0)=$P($G(^GMR(120.85,GMRAPA1,0)),U,2) Q:GMRAPA(0)=""
|
|
Q:'$D(^DPT(GMRAPA(0),0)) S DFN=$P(GMRAPA(0),U) D 1^VADPT S GMRAID=$E(VADM(1),1)_$P($P(VADM(2),U,2),"-",3),GMRASEX=VADM(5),GMRADOB=$P(VADM(3),U) D KVAR^VADPT
|
|
S ^TMP($J,"FDAR",3)=$P(^DPT($P(GMRAPA(0),U),0),U,2)
|
|
S GMRAPA="" D ^GMRADSP7
|
|
S $P(LINE1,"-",133)="",$P(LINE2,"=",133)=""
|
|
S $P(TAB," ",133)=""
|
|
;GMRASUS=SUSPECTED AGENTS,GMRAPG1=TOTAL NUMBER OF PAGES
|
|
;GMRAPG2=CURRENT PAGE,GMRAFST=THIS IS THE FIRST PAGE IF 1
|
|
;IF 0 OTHER PAGE
|
|
S GMRAWEI="",DFN=$P(GMRAPA(0),U),GMRVSTR="WT" D EN6^GMRVUTL S GMRAWEI=$P(X,U,8)
|
|
K GMRAVIT1,GMRAVIT2
|
|
S (GMRAPG1,GMRAPG2,GMRAFST)=1,(GMRAXX,GMRASUS)=0 F S GMRASUS=$O(^GMR(120.85,GMRAPA1,3,GMRASUS)) Q:GMRASUS<1 D
|
|
.S GMRAXX=GMRAXX+1,^TMP($J,"GMR","A",GMRAXX)=$G(^GMR(120.85,GMRAPA1,3,GMRASUS,0))
|
|
.I GMRAXX>2 S:(GMRAXX#2) GMRAPG2=GMRAPG2+1
|
|
.;S GMRAPG2=GMRAPG2+(GMRAXX>1&'(GMRAXX#2))
|
|
.S:$G(^GMR(120.85,GMRAPA1,3,GMRASUS,1))'="" ^TMP($J,"GMR","A",GMRAXX,1)=^GMR(120.85,GMRAPA1,3,GMRASUS,1)
|
|
.S:$G(^GMR(120.85,GMRAPA1,3,GMRASUS,"LIKE"))'="" ^TMP($J,"GMR","A",GMRAXX,"LIKE")=^GMR(120.85,GMRAPA1,3,GMRASUS,"LIKE")
|
|
.Q
|
|
S GMRAPA1(0)=$G(^GMR(120.85,GMRAPA1,0))
|
|
S GMRASUS=0
|
|
F GMRAPG1=GMRAPG1:1:GMRAPG2 D ^GMRAFN2,^GMRAFN3,^GMRAFN4,^GMRAFN5
|
|
Q
|