- 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/GMRAPNA.m
r628 r636 1 1 GMRAPNA ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;12/1/95 14:15 2 ;;4.0;Adverse Reaction Tracking;**30 ,33**;Mar 29, 1996;Build 52 ;;4.0;Adverse Reaction Tracking;**30**;Mar 29, 1996 3 3 EN1 ; Entry for LIST BY LOCATION OF UNDOCUMENTED ALLERGIES option 4 4 D EN1^GMRACMR G:GMRAOUT EXIT … … 6 6 D EXIT 7 7 Q 8 DEV ; *** Select output device, force queu ing8 DEV ; *** Select output device, force queueing 9 9 ;***** NOTE: CHECKS TO SEE IF VALID DEVICE IS SELECTED THEN ALL I HAVE TO DO IS RUN TASK MAN. 10 10 S GMRAZIS="" S:GMRASEL'="1," GMRAZIS="Q" … … 37 37 ..Q:'$D(^DPT(GMRADFN,0)) 38 38 ..Q:$$DECEASED^GMRAFX(GMRADFN) ;GMRA*4*30 Prevent deceased patients from appearing on this report. 39 ..Q:'$$PRDTST^GMRAUTL1(GMRADFN) ;GMRA*4*33 Exclude test patient from report if production or legacy environment.40 39 ..S GMRACNT=GMRACNT+1 41 40 ..W !,$P(^DPT(GMRADFN,0),U) S DFN=GMRADFN,VAINDT=$S(GMRADATE="CURRENT":DT,1:GMRADATE) D 1^VADPT W ?30,VA("PID") W:GMRA'="C" ?45,$P(VAIN(2),U,2)
Note:
See TracChangeset
for help on using the changeset viewer.