source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLGICP.m@ 1068

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

initial load of FOIAVistA 6/30/08 version

File size: 692 bytes
Line 
1SPNLGICP ; ISC-SF/GMB - SCD GATHER CURRENT PATIENT DATA; 4 JUL 94 [ 07/12/94 8:19 AM ] ;6/23/95 11:30
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3GATHER(DFN) ;
4 ; DFN Patient's internal entry number in the Patient file
5 ; Data will be rolled up into the following global:
6 ; ^TMP("SPN",$J,"CP", (The node at this level has the total patient count)
7 ; with the following nodes:
8 ; name^ssn) "Deceased", if dead; "", otherwise
9 N VADM,VA,NAME,SSN,STATUS
10 D DEM^VADPT ; Get patient demographics
11 S NAME=VADM(1)
12 S SSN=VA("PID")
13 S STATUS=$S(VADM(6)>0:"Deceased",1:"")
14 S ^TMP("SPN",$J,"CP",NAME_"^"_SSN)=STATUS
15 S ^("CP")=$G(^TMP("SPN",$J,"CP"))+1 ; count of current patients
16 Q
Note: See TracBrowser for help on using the repository browser.