Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
725 bytes
|
Line | |
---|
1 | GMRACMR2 ;HIRMFO/WAA-This routine will find all valid patient ;12/16/97 10:34
|
---|
2 | ;;4.0;Adverse Reaction Tracking;**9**;Mar 29, 1996
|
---|
3 | EN1 ;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
|
---|
15 | CB(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.