|
Last change
on this file since 1611 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
