- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAFDA3.m
r628 r636 1 1 GMRAFDA3 ;HIRMFO/WAA-DISPLAY FDA REPORT OVER DT RANGE ;12/1/95 11:34 2 ;;4.0;Adverse Reaction Tracking; **33**;Mar 29, 1996;Build 52 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996 3 3 EN1 ; Entry for PRINT ALL FDA EVENTS WITHIN D/T RANGE option 4 4 S GMRAOUT=0 K DIR … … 41 41 .S GMRAPA(0)=$G(^GMR(120.8,$P(GMRAPA1(0),U,15),0)) Q:GMRAPA(0)="" 42 42 .S DFN=$P(GMRAPA(0),U) D PID^VADPT6 43 .Q:'$$PRDTST^GMRAUTL1(DFN) ;GMRA*4*33 Exclude test patient from report if production or legacy environment.44 43 .S GMRACNT=GMRACNT+1 45 44 .W !,$E($P(^DPT(DFN,0),U),1,23)," (",VA("PID"),")" K VA,DFN
Note:
See TracChangeset
for help on using the changeset viewer.