source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLCNTR.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: 1.7 KB
Line 
1SPNLCNTR ;HIRMFO-WAA; SCI Center indicator;7/1/96
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 ;;
4 ; This function takes a VAMC pointer from the institution file
5 ; and compares it to a list of SCI station number and returns
6 ; 1/0 value.
7 ;
8 ;Entry point is SCI
9 ;Input
10 ; SPNLVA = Pointer value to local institution file.
11 ; (Please note this is not the station number
12 ; is is the IEN of a station with in the Institution
13 ; File. For example 486 may be the IEN with in
14 ; the institution file for HINES VAMC but HINES station
15 ; Number is 578)
16 ;
17 ;Output
18 ; SPNLANS = This varable is a binary indicator. 1 (one) indicates
19 ; that the pointer from SPNLVA is a SCI center. 0 (zero)
20 ; indicates that the Site is NOT a SCI center.
21 ;
22SCI(SPNLVA) ; Main entry point
23 S SPNLANS=0
24 N SPNLSITE
25 S SPNLSITE=+$G(^DIC(4,+SPNLVA,99)) ; Get the site Number
26 I SPNLSITE D
27 .N SPNLCNT,SPNLTAB
28 .F SPNLCNT=1:1 S SPNLTAB=$P($T(TABLE+SPNLCNT),";",3) Q:'+SPNLTAB D Q:SPNLANS
29 ..I $P(SPNLTAB,U)=+SPNLVA S SPNLANS=1
30 ..Q
31 .Q
32 Q SPNLANS
33 ; Table is a listing of all SCI Center Numbers and Names
34 ; the format of the data is as follows.
35 ;
36 ;<tab>;;STATION_NUMBER^SITE_NAME
37 ;
38TABLE ;;Start of the table
39 ;;501^ALBUQUERQUE
40 ;;509^AUGUSTA
41 ;;525^BROCKTON/WEST ROXBURY
42 ;;526^BRONX
43 ;;533^CASTLE POINT
44 ;;541^CLEVELAND
45 ;;546^MIAMI
46 ;;549^DALLAS
47 ;;561^EAST ORANGE
48 ;;578^HINES
49 ;;580^HOUSTON
50 ;;590^HAMPTON
51 ;;600^LONG BEACH
52 ;;614^MEMPHIS
53 ;;640^PALO ALTO
54 ;;652^RICHMOND
55 ;;657^ST. LOUIS
56 ;;663^SEATTLE
57 ;;664^SAN DIEGO
58 ;;665^SEPULVEDA
59 ;;671^SAN ANTONIO
60 ;;672^SAN JUAN
61 ;;673^TAMPA
62 ;;688^WASHINGTON DC
63 ;;695^MILWAUKEE
64 ;;
Note: See TracBrowser for help on using the repository browser.