| [613] | 1 | GMRAREP ;HIRMFO/WAA-REPORTER REPORT COMPLETION SYSTEM ; 1/6/93
|
|---|
| 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<1 EXIT
|
|---|
| 6 | S GMRAPA=0 D ^GMRADSP7
|
|---|
| 7 | REP1 ;
|
|---|
| 8 | I $P(GMRAPA(0),U,20)'["D" W !,"YOU CAN ONLY EDIT DRUG REACTIONS",! D UNLOCK^GMRAUTL(120.85,GMRAPA1) G EXIT
|
|---|
| 9 | W @IOF,!,"Reporter Completion"
|
|---|
| 10 | N GMRAT
|
|---|
| 11 | S GMRAT=$P($G(^VA(200,DUZ,0)),U,9)
|
|---|
| 12 | S:GMRAT'="" GMRAT=$P($G(^DIC(3.1,GMRAT,0)),U)
|
|---|
| 13 | S DIE="^GMR(120.85,",DA=GMRAPA1
|
|---|
| 14 | S DR="43//"_$P(^VA(200,DUZ,0),U)_";44;45;46;47;48;49;50;51T;52T;52.1//"_GMRAT_";63"
|
|---|
| 15 | D ^DIE
|
|---|
| 16 | D UNLOCK^GMRAUTL(120.85,GMRAPA1)
|
|---|
| 17 | G EXIT
|
|---|
| 18 | Q
|
|---|
| 19 | EXIT ;
|
|---|
| 20 | K %,CX,DX,DY,GMRAAR,GMRACHC,GMRACHK,GMRADFN,GMRADIG,GMRADRUG
|
|---|
| 21 | K GMRAFLAG,GMRAG,GMRAIV,GMRALL,GMRALLER,GMRALOC,GMRANAM,GMRANAME
|
|---|
| 22 | K GMRANS,GMRAOTH,GMRAOUT,GMRAPA,GMRAREC,GMRASEX,GMRASWH,GMRAVEDT
|
|---|
| 23 | K GMRAVER,X,^TMP($J),^TMP("GMRA",$J)
|
|---|
| 24 | K GMRANAM,GMRAPA1,GMRAX,GMRASITE
|
|---|
| 25 | D KILL^XUSCLEAN
|
|---|
| 26 | Q
|
|---|
