source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLGIFU.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 926 bytes
Line 
1SPNLGIFU ; 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
3GATHER(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
Note: See TracBrowser for help on using the repository browser.