source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAREP.m@ 699

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

initial load of WorldVistAEHR

File size: 914 bytes
Line 
1GMRAREP ;HIRMFO/WAA-REPORTER REPORT COMPLETION SYSTEM ; 1/6/93
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3EN1 ;
4 S GMRAOUT=+($G(GMRAOUT))
5 S GMRALAGO=1 D EN1^GMRAU85 G:GMRAPA1<1 EXIT
6 S GMRAPA=0 D ^GMRADSP7
7REP1 ;
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
19EXIT ;
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
Note: See TracBrowser for help on using the repository browser.