- 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/GMRAPL.m
r628 r636 1 1 GMRAPL ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION ;5/2/97 14:13 2 ;;4.0;Adverse Reaction Tracking;**7 ,33**;Mar 29, 1996;Build 53 EN1 ; This routine will loop th rough the GMRA patient allergy file4 ; to find all patient within the date range that meet the criter ia2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996 3 EN1 ; This routine will loop thourgh the GMRA patient allergy file 4 ; to find all patient within the date range that meet the critera 5 5 ; and then display all the data for those patients first by location 6 6 ; then by date/time range of the reaction. … … 32 32 ..S GMRATYP=$P(GMRAPA(0),U,20) ; Get the reaction types FDO 33 33 ..S (GMRANAM,GMRALOC,GMRAVIP)="" 34 ..Q:'$$PRDTST^GMRAUTL1($P($G(GMRAPA(0)),U)) ;GMRA*4*33 Exclude test patient from report if production or legacy environment35 34 ..D VAD^GMRAUTL1($P(GMRAPA(0),U),$P(GMRAPA(0),U,4),.GMRALOC,.GMRANAM,"","","","",.GMRAVIP) 36 35 ..I GMRALOC'="",+$G(^DIC(42,GMRALOC,44)) S GMRALOC=$P($G(^SC(+$G(^DIC(42,GMRALOC,44)),0)),U)
Note:
See TracChangeset
for help on using the changeset viewer.