GMRAFDA.m

GMRAFDA ;HIRMFO/WAA-FDA REPORT COMPLETION SYSTEM ;02-Nov-2010 15:02;DU

 ;;4.0;Adverse Reaction Tracking;**1002**;Mar 29, 1996;Build 32

EN1 ; Entry to ENTER/EDIT FDA REPORT DATA TYPE option

 S GMRAOUT=0,GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1'>0 EXIT

 S GMRAPA=0 D ^GMRADSP7 D EN2

 D UNLOCK^GMRAUTL(120.85,GMRAPA1)

 G EXIT

 Q

EN2 ; ENTRY FROM ENTER/EDIT OPTION  GMRAPA1 AND GMRAPA ARE KNOWN

 I $P(GMRAPA(0),U,20)'["D" W !,"YOU CAN ONLY EDIT DRUG REACTIONS",! Q

FDA1 W @IOF,!,"Indicate which FDA Report Sections to be completed:"

 W !,"1.  Reaction Information",!,"2.  Suspect Drug(s) Information",!,"3.  Concomitant Drugs and History",!,"4.  Manufacturer Information",!,"5.  Initial Reporter"

 K DIR S DIR("A")="Choose number(s) of sections to be edited",DIR(0)="LO^1:5"

 S DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"

 S DIR("?",1)="ENTER THE NUMBER SECTION OR SECTIONS YOU WISH TO COMPLETE."

 S DIR("?",2)="YOU CAN ENTER:   YOU TYPE          SYSTEM WILL DO"

 S DIR("?",3)="   SECTION  -->    1                  SECTION 1"

 S DIR("?",4)="   RANGE    -->   2-4            SECTION 2 AND 3 AND 4"

 S DIR("?",5)="   GROUPS   -->  1,3,5           SECTION 1 AND 3 AND 5"

 D ^DIR K DIR Q:$D(DIRUT)!(+Y'>0)

 K GMRAGHC F X=1:1 S GMRAX=$P(Y,",",X) Q:GMRAX']""  S GMRAGHC(GMRAX)=""

 S GMRAOUT=0 F GMRAXXX=0:0 S GMRAXXX=$O(GMRAGHC(GMRAXXX)) Q:GMRAXXX'>0  D @GMRAXXX Q:GMRAOUT

 G:'GMRAOUT FDA1

 Q

EXIT ;EXIT

 D KILL^XUSCLEAN

 Q

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

2 W @IOF K GMRADT,GMRABGDT,GMRAENDT D EN1^GMRAPHR2 K GMRADT,GMRABGDT,GMRAENDT Q

3 W @IOF K GMRADT,GMRABGDT,GMRAENDT D EN1^GMRAPHR1

 K GMRAX85,GMRADT,GMRABGDT,GMRAENDT Q:GMRAOUT

 W ! S DIE="^GMR(120.85,",DA=GMRAPA1,DR="14" D ^DIE S:$D(Y) GMRAOUT=1

 Q

4 W @IOF S DIE="^GMR(120.85,",DA=GMRAPA1,DR="53:65" D ^DIE

 S:$D(Y) GMRAOUT=1 Q

5 N GMRAT W @IOF S DIE="^GMR(120.85,",DA=GMRAPA1

 S GMRAT=$P($G(^VA(200,DUZ,0)),U,9)

 S:GMRAT'="" GMRAT=$P($G(^DIC(3.1,GMRAT,0)),U)

 S DR="43//"_$P(^VA(200,DUZ,0),U)_";44;45;46;47;48;49;50;51T;52T;52.1//"_GMRAT

 D ^DIE S:$D(Y) GMRAOUT=1

 Q

GMRAFDA   ;HIRMFO/WAA-FDA REPORT COMPLETION SYSTEM ;02-Nov-2010 15:02;DU

 +1       ;;4.0;Adverse Reaction Tracking;**1002**;Mar 29, 1996;Build 32

EN1       ; Entry to ENTER/EDIT FDA REPORT DATA TYPE option

 +1        SET GMRAOUT=0

           SET GMRALAGO=1

           DO EN1^GMRAU85

           IF GMRAPA1'>0

               GOTO EXIT

 +2        SET GMRAPA=0

           DO ^GMRADSP7

           DO EN2

 +3        DO UNLOCK^GMRAUTL(120.85,GMRAPA1)

 +4        GOTO EXIT

 +5        QUIT 

EN2       ; ENTRY FROM ENTER/EDIT OPTION  GMRAPA1 AND GMRAPA ARE KNOWN

 +1        IF $PIECE(GMRAPA(0),U,20)'["D"

               WRITE !,"YOU CAN ONLY EDIT DRUG REACTIONS",!

               QUIT 

FDA1       WRITE @IOF,!,"Indicate which FDA Report Sections to be completed:"

 +1        WRITE !,"1.  Reaction Information",!,"2.  Suspect Drug(s) Information",!,"3.  Concomitant Drugs and History",!,"4.  Manufacturer Information",!,"5.  Initial Reporter"

 +2        KILL DIR

           SET DIR("A")="Choose number(s) of sections to be edited"

           SET DIR(0)="LO^1:5"

 +3        SET DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"

 +4        SET DIR("?",1)="ENTER THE NUMBER SECTION OR SECTIONS YOU WISH TO COMPLETE."

 +5        SET DIR("?",2)="YOU CAN ENTER:   YOU TYPE          SYSTEM WILL DO"

 +6        SET DIR("?",3)="   SECTION  -->    1                  SECTION 1"

 +7        SET DIR("?",4)="   RANGE    -->   2-4            SECTION 2 AND 3 AND 4"

 +8        SET DIR("?",5)="   GROUPS   -->  1,3,5           SECTION 1 AND 3 AND 5"

 +9        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)!(+Y'>0)

               QUIT 

 +10       KILL GMRAGHC

           FOR X=1:1

               SET GMRAX=$PIECE(Y,",",X)

               IF GMRAX']""

                   QUIT 

               SET GMRAGHC(GMRAX)=""

 +11       SET GMRAOUT=0

           FOR GMRAXXX=0:0

               SET GMRAXXX=$ORDER(GMRAGHC(GMRAXXX))

               IF GMRAXXX'>0

                   QUIT 

               DO @GMRAXXX

               IF GMRAOUT

                   QUIT 

 +12       IF 'GMRAOUT

               GOTO FDA1

 +13       QUIT 

EXIT      ;EXIT

 +1        DO KILL^XUSCLEAN

 +2        QUIT 

1          WRITE @IOF

           DO RXN^GMRAU851

           IF GMRAOUT

               QUIT 

           WRITE !

           SET DIE="^GMR(120.85,"

           SET DA=GMRAPA1

           SET DR="5T;6T;7T;9T;10T;11T;12.1T;12.2T"

           DO ^DIE

           IF $DATA(Y)

               SET GMRAOUT=1

           IF GMRAOUT

               QUIT 

           KILL GMRADT,GMRABGDT,GMRAENDT

           WRITE !!

           DO EN1^GMRALAB0

           QUIT 

2          WRITE @IOF

           KILL GMRADT,GMRABGDT,GMRAENDT

           DO EN1^GMRAPHR2

           KILL GMRADT,GMRABGDT,GMRAENDT

           QUIT 

3          WRITE @IOF

           KILL GMRADT,GMRABGDT,GMRAENDT

           DO EN1^GMRAPHR1

 +1        KILL GMRAX85,GMRADT,GMRABGDT,GMRAENDT

           IF GMRAOUT

               QUIT 

 +2        WRITE !

           SET DIE="^GMR(120.85,"

           SET DA=GMRAPA1

           SET DR="14"

           DO ^DIE

           IF $DATA(Y)

               SET GMRAOUT=1

 +3        QUIT 

4          WRITE @IOF

           SET DIE="^GMR(120.85,"

           SET DA=GMRAPA1

           SET DR="53:65"

           DO ^DIE

 +1        IF $DATA(Y)

               SET GMRAOUT=1

           QUIT 

5          NEW GMRAT

           WRITE @IOF

           SET DIE="^GMR(120.85,"

           SET DA=GMRAPA1

 +1        SET GMRAT=$PIECE($GET(^VA(200,DUZ,0)),U,9)

 +2        IF GMRAT'=""

               SET GMRAT=$PIECE($GET(^DIC(3.1,GMRAT,0)),U)

 +3        SET DR="43//"_$PIECE(^VA(200,DUZ,0),U)_";44;45;46;47;48;49;50;51T;52T;52.1//"_GMRAT

 +4        DO ^DIE

           IF $DATA(Y)

               SET GMRAOUT=1

 +5        QUIT