- 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/GMRAPST1.m
r628 r636 1 1 GMRAPST1 ;HIRMFO/WAA- PRINT LISTING OF FATAL REACTIONS ;3/5/97 14:45 2 ;;4.0;Adverse Reaction Tracking;**7 ,33**;Mar 29, 1996;Build 52 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996 3 3 EN1 ; This routine will loop through the ADT entry point to get all 4 4 ; the entries where the patient has died. … … 31 31 ..Q:$P(GMRAPA1(0),U,3)'="y" ; If patient did not die of the reaction 32 32 ..S GMRADFN=$P(GMRAPA1(0),U,2),GMRADDT=$P(GMRAPA1(0),U) ; reaction date 33 ..Q:'$$PRDTST^GMRAUTL1(GMRADFN) ;GMRA*4*33 Exclude test patient from report in production or legacy environments.34 33 ..S (GMRAPID,GMRANAME)="" 35 34 ..D VAD^GMRAUTL1(GMRADFN,GMRADDT,"",.GMRANAME,"",.GMRAPID) … … 68 67 D CLOSE^GMRAUTL 69 68 Q 70 ;has the patient died with in the date69 ;has the patient died with inthe dat 71 70 HEAD ; Print header information 72 71 I GMRAPG'=1 Q:$Y<(IOSL-4)
Note:
See TracChangeset
for help on using the changeset viewer.