Changeset 636 for FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAVFY.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAVFY.m (modified) (2 diffs)

FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAVFY.m

@@ -1 @@
-GMRAVFY ;HIRMFO/WAA,PWC-VERIFY AND SIGN OFF AN AGENT ; 5/23/07 10:32am
- ;;4.0;Adverse Reaction Tracking;**2,33**;Mar 29, 1996;Build 5
+GMRAVFY ;HIRMFO/WAA-VERIFY AND SIGN OFF AN AGENT ;12/1/95  16:06
+ ;;4.0;Adverse Reaction Tracking;**2**;Mar 29, 1996
 EN1 ;This is the main entry point for the verifier option.
  S GMRAVER=0,GMRADRUG=0
@@ -27 +27 @@
  S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0)),GMRATYPE=$P(GMRAPA(0),U,20)
  S DA=GMRAPA,DIE="^GMR(120.8,",DR="19////1;20///N;21////"_DUZ D ^DIE D:'GMRAVER EN1^GMRAVAB S GMRAPA(0)=$S($D(^GMR(120.8,GMRAPA,0)):^(0),1:"")
- I $G(GMRANEW) D  ;send NOTIFICATION bulletin if this is new -- GMRA*4*33
- . I $P(GMRAPA(0),U,6)="o",GMRATYPE["D" D PTBUL^GMRAROBS
+ I $P(GMRAPA(0),U,6)="o",GMRATYPE["D" D PTBUL^GMRAROBS
  I GMRAVER D EN1^GMRAPET0($P(GMRAPA(0),U),GMRAPA,"V",.GMRAOUT) I GMRAOUT S GMRAOUT=0
 Q1 D UNLOCK^GMRAUTL(120.8,GMRAPA)