Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
663 bytes
|
Line | |
---|
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.