GMRAMAN.m

GMRAMAN ;HIRMFO/WAA-MAN REPORT COMPLETION SYSTEM ;12/1/95  13:07

 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996

EN1 ;

 S GMRAOUT=+($G(GMRAOUT))

 S GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1'>0 EXIT1

 S GMRAPA=0 D ^GMRADSP7

MAN1 ;V=Old line

 ;I $P(GMRAPA(0),U,6)'="o"!($P(GMRAPA(0),U,20)'["D") W !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",! G EXIT

 ;v=New line

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

 W @IOF,!,"MANUFACTURER Report Completion"

 S DIE="^GMR(120.85,",DA=GMRAPA1,DR="28;29;53;64;65"

 D ^DIE

 G EXIT

 Q

EXIT ;EXIT

 D UNLOCK^GMRAUTL(120.85,GMRAPA1)

EXIT1 ;EXIT WITH NO LOCK

 K ^TMP($J),^TMP("GMRA",$J)

 D KILL^XUSCLEAN

 Q

GMRAMAN   ;HIRMFO/WAA-MAN REPORT COMPLETION SYSTEM ;12/1/95  13:07

 +1       ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996

EN1       ;

 +1        SET GMRAOUT=+($GET(GMRAOUT))

 +2        SET GMRALAGO=1

           DO EN1^GMRAU85

           IF GMRAPA1'>0

               GOTO EXIT1

 +3        SET GMRAPA=0

           DO ^GMRADSP7

MAN1      ;V=Old line

 +1       ;I $P(GMRAPA(0),U,6)'="o"!($P(GMRAPA(0),U,20)'["D") W !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",! G EXIT

 +2       ;v=New line

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

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

               GOTO EXIT

 +4        WRITE @IOF,!,"MANUFACTURER Report Completion"

 +5        SET DIE="^GMR(120.85,"

           SET DA=GMRAPA1

           SET DR="28;29;53;64;65"

 +6        DO ^DIE

 +7        GOTO EXIT

 +8        QUIT 

EXIT      ;EXIT

 +1        DO UNLOCK^GMRAUTL(120.85,GMRAPA1)

EXIT1     ;EXIT WITH NO LOCK

 +1        KILL ^TMP($JOB),^TMP("GMRA",$JOB)

 +2        DO KILL^XUSCLEAN

 +3        QUIT