[613] | 1 | SPNLGIFU ; ISC-SF/GMB - SCD GATHER PATIENT FOLLOW-UP LOSS RISKS; 4 JUL 94 [ 07/11/94 8:43 AM ] ;6/23/95 11:30
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
| 3 | GATHER(DFN,FDATE,TDATE,SINCE) ;
|
---|
| 4 | ; DFN Patient's internal entry number in the Patient file
|
---|
| 5 | ; FDATE "From" date
|
---|
| 6 | ; TDATE "Thru" date, default=today
|
---|
| 7 | ; Gathers patients who have not been seen since the SINCE date.
|
---|
| 8 | ; Data will be rolled up into the following global:
|
---|
| 9 | ; ^TMP("SPN",$J,"FU",
|
---|
| 10 | ; with the following nodes:
|
---|
| 11 | ; date last seen,name^ssn) =""
|
---|
| 12 | N VADM,VA,ISDEAD,SSNLAST4,SEEN,LASTSEEN,NAME
|
---|
| 13 | ;N SEENIP,SEENOP,SEENCH,SEENRX,SEENRA
|
---|
| 14 | D DEM^VADPT ; Get patient demographics
|
---|
| 15 | ; We will ignore dead patients
|
---|
| 16 | S ISDEAD=+$P($G(VADM(6)),U,1)
|
---|
| 17 | Q:ISDEAD
|
---|
| 18 | S NAME=VADM(1)
|
---|
| 19 | S SSNLAST4=VA("BID")
|
---|
| 20 | D SEEN^SPNLGUSN(DFN,FDATE,TDATE,.SEEN,.LASTSEEN) ;,.SEENIP,.SEENOP,.SEENCH,.SEENRX,.SEENRA)
|
---|
| 21 | I LASTSEEN<SINCE S ^TMP("SPN",$J,"FU",LASTSEEN,NAME_"^"_SSNLAST4)=""
|
---|
| 22 | Q
|
---|