|
Last change
on this file since 808 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
663 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | GMRAMAN ;HIRMFO/WAA-MAN REPORT COMPLETION SYSTEM ;12/1/95 13:07
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
|---|
| 3 | EN1 ;
|
|---|
| 4 | S GMRAOUT=+($G(GMRAOUT))
|
|---|
| 5 | S GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1'>0 EXIT1
|
|---|
| 6 | S GMRAPA=0 D ^GMRADSP7
|
|---|
| 7 | MAN1 ;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
|
|---|
| 16 | EXIT ;EXIT
|
|---|
| 17 | D UNLOCK^GMRAUTL(120.85,GMRAPA1)
|
|---|
| 18 | EXIT1 ;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.
