22 lines
663 B
Mathematica
22 lines
663 B
Mathematica
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
|