source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAMAN.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 663 bytes
RevLine 
[613]1GMRAMAN ;HIRMFO/WAA-MAN REPORT COMPLETION SYSTEM ;12/1/95 13:07
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3EN1 ;
4 S GMRAOUT=+($G(GMRAOUT))
5 S GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1'>0 EXIT1
6 S GMRAPA=0 D ^GMRADSP7
7MAN1 ;V=Old line
8 ;I $P(GMRAPA(0),U,6)'="o"!($P(GMRAPA(0),U,20)'["D") W !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",! G EXIT
9 ;v=New line
10 I $P(GMRAPA(0),U,20)'["D" W !,"YOU CAN ONLY EDIT DRUG REACTIONS",! G EXIT
11 W @IOF,!,"MANUFACTURER Report Completion"
12 S DIE="^GMR(120.85,",DA=GMRAPA1,DR="28;29;53;64;65"
13 D ^DIE
14 G EXIT
15 Q
16EXIT ;EXIT
17 D UNLOCK^GMRAUTL(120.85,GMRAPA1)
18EXIT1 ;EXIT WITH NO LOCK
19 K ^TMP($J),^TMP("GMRA",$J)
20 D KILL^XUSCLEAN
21 Q
Note: See TracBrowser for help on using the repository browser.