- 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/GMRAEF2.m
r628 r636 1 1 GMRAEF2 ;HIRMFO/WAA-FDA EXCEPTION REPORT ;11/29/95 15:01 2 ;;4.0;Adverse Reaction Tracking; **33**;Mar 29, 1996;Build 52 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996 3 3 EN1 ; Entry to PRINT ALL FDA EXCEPTIONS WITHIN A D/T RANGE option 4 4 S GMRAOUT=0 K DIR … … 21 21 .I $$CMPFDA^GMRAEF1(GMRAIEN) Q 22 22 .S GMRDFN=$P(GMRA(0),U) 23 .Q:'$$PRDTST^GMRAUTL1(GMRDFN) ;GMRA*4*33 Exclude test patient from report if production or legacy environment.24 23 .S ^TMP($J,"GMRAEF",GMRDFN,GMRABGDT)=GMRAIEN 25 24 .Q
Note:
See TracChangeset
for help on using the changeset viewer.