| [613] | 1 | GMRAFDA ;HIRMFO/WAA-FDA REPORT COMPLETION SYSTEM ;11/29/95 15:16
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
|---|
| 3 | EN1 ; Entry to ENTER/EDIT FDA REPORT DATA TYPE option
|
|---|
| 4 | S GMRAOUT=0,GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1'>0 EXIT
|
|---|
| 5 | S GMRAPA=0 D ^GMRADSP7 D EN2
|
|---|
| 6 | D UNLOCK^GMRAUTL(120.85,GMRAPA1)
|
|---|
| 7 | G EXIT
|
|---|
| 8 | Q
|
|---|
| 9 | EN2 ; ENTRY FROM ENTER/EDIT OPTION GMRAPA1 AND GMRAPA ARE KNOWN
|
|---|
| 10 | I $P(GMRAPA(0),U,20)'["D" W !,"YOU CAN ONLY EDIT DRUG REACTIONS",! Q
|
|---|
| 11 | FDA1 W @IOF,!,"Indicate which FDA Report Sections to be completed:"
|
|---|
| 12 | W !,"1. Reaction Information",!,"2. Suspect Drug(s) Information",!,"3. Concomitant Drugs and History",!,"4. Manufacturer Information",!,"5. Initial Reporter"
|
|---|
| 13 | K DIR S DIR("A")="Choose number(s) of sections to be edited",DIR(0)="LO^1:5"
|
|---|
| 14 | S DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"
|
|---|
| 15 | S DIR("?",1)="ENTER THE NUMBER SECTION OR SECTIONS YOU WISH TO COMPLETE."
|
|---|
| 16 | S DIR("?",2)="YOU CAN ENTER: YOU TYPE SYSTEM WILL DO"
|
|---|
| 17 | S DIR("?",3)=" SECTION --> 1 SECTION 1"
|
|---|
| 18 | S DIR("?",4)=" RANGE --> 2-4 SECTION 2 AND 3 AND 4"
|
|---|
| 19 | S DIR("?",5)=" GROUPS --> 1,3,5 SECTION 1 AND 3 AND 5"
|
|---|
| 20 | D ^DIR K DIR Q:$D(DIRUT)!(+Y'>0)
|
|---|
| 21 | K GMRAGHC F X=1:1 S GMRAX=$P(Y,",",X) Q:GMRAX']"" S GMRAGHC(GMRAX)=""
|
|---|
| 22 | S GMRAOUT=0 F GMRAXXX=0:0 S GMRAXXX=$O(GMRAGHC(GMRAXXX)) Q:GMRAXXX'>0 D @GMRAXXX Q:GMRAOUT
|
|---|
| 23 | G:'GMRAOUT FDA1
|
|---|
| 24 | Q
|
|---|
| 25 | EXIT ;EXIT
|
|---|
| 26 | D KILL^XUSCLEAN
|
|---|
| 27 | Q
|
|---|
| 28 | 1 W @IOF D RXN^GMRAU851 Q:GMRAOUT W ! S DIE="^GMR(120.85,",DA=GMRAPA1,DR="5T;6T;7T;9T;10T;11T;12.1T;12.2T" D ^DIE S:$D(Y) GMRAOUT=1 Q:GMRAOUT K GMRADT,GMRABGDT,GMRAENDT W !! D EN1^GMRALAB0 Q
|
|---|
| 29 | 2 W @IOF K GMRADT,GMRABGDT,GMRAENDT D EN1^GMRAPHR2 K GMRADT,GMRABGDT,GMRAENDT Q
|
|---|
| 30 | 3 W @IOF K GMRADT,GMRABGDT,GMRAENDT D EN1^GMRAPHR1
|
|---|
| 31 | K GMRADT,GMRABGDT,GMRAENDT Q:GMRAOUT
|
|---|
| 32 | W ! S DIE="^GMR(120.85,",DA=GMRAPA1,DR="14" D ^DIE S:$D(Y) GMRAOUT=1
|
|---|
| 33 | Q
|
|---|
| 34 | 4 W @IOF S DIE="^GMR(120.85,",DA=GMRAPA1,DR="53:65" D ^DIE
|
|---|
| 35 | S:$D(Y) GMRAOUT=1 Q
|
|---|
| 36 | 5 N GMRAT W @IOF S DIE="^GMR(120.85,",DA=GMRAPA1
|
|---|
| 37 | S GMRAT=$P($G(^VA(200,DUZ,0)),U,9)
|
|---|
| 38 | S:GMRAT'="" GMRAT=$P($G(^DIC(3.1,GMRAT,0)),U)
|
|---|
| 39 | S DR="43//"_$P(^VA(200,DUZ,0),U)_";44;45;46;47;48;49;50;51T;52T;52.1//"_GMRAT
|
|---|
| 40 | D ^DIE S:$D(Y) GMRAOUT=1
|
|---|
| 41 | Q
|
|---|
