- 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/GMRAPU.m
r628 r636 1 GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ; 8/27/932 ;;4.0;Adverse Reaction Tracking; **33**;Mar 29, 1996;Build 51 GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ; 8/27/93 2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996 3 3 EN1 ; This routine will loop through the GMRA patient allergy file (120.8) 4 4 ; to find all patients with unverified reactions … … 67 67 .N GMRALOC,GMRANAM,GMALOC,GMRAPA 68 68 .S GMRANAM="",GMRALOC="" 69 .Q:'$$PRDTST^GMRAUTL1(GMADFN) ;GMRA*4*33 Exclude test patients if production or legacy environment.70 69 .D VAD^GMRAUTL1(GMADFN,"",.GMRALOC,.GMRANAM,"","","") I GMRALOC="" S GMALOC="OUTPATIENT" 71 70 .E S GMALOC=$P($G(^DIC(42,GMRALOC,0)),U)
Note:
See TracChangeset
for help on using the changeset viewer.