source: FOIAVistA/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRACMR2.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 725 bytes
Line 
1GMRACMR2 ;HIRMFO/WAA-This routine will find all valid patient ;12/16/97 10:34
2 ;;4.0;Adverse Reaction Tracking;**9**;Mar 29, 1996
3EN1 ;Use ACRP APIs to gather appointment data
4 Q:GMRASEL'["2"
5 N GMTSQRY
6 D OPEN^SDQ(.GMTSQRY)
7 D INDEX^SDQ(.GMTSQRY,"DATE/TIME","SET")
8 D DATE^SDQ(.GMTSQRY,GMRAST,GMRAED,"SET")
9 D SCANCB^SDQ(.GMTSQRY,"D CB^GMRACMR2(Y,Y0)","SET")
10 D ACTIVE^SDQ(.GMTSQRY,"TRUE","SET")
11 D SCAN^SDQ(.GMTSQRY,"FORWARD")
12 D CLOSE^SDQ(.GMTSQRY)
13 K GMRAX,GMRADFN,GMRADATE
14 Q
15CB(GMTS,GMTS0) ;Callback execution, handles each entry from data set
16 I $P(GMTS0,U,12)'=2&($P(GMTS0,U,12)'=8) Q ;Only count inpatient and checked-out appts
17 S GMRAX=$P(GMTS0,U,4),GMRADFN=$P(GMTS0,U,2),GMRADATE=$P(GMTS0,U) D SETPT^GMRACMR3
18 Q
Note: See TracBrowser for help on using the repository browser.