Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRAMAN

GMRAMAN.m

Go to the documentation of this file.
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