Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.7 KB
|
Line | |
---|
1 | SPNLCNTR ;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 | ;
|
---|
22 | SCI(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 | ;
|
---|
38 | TABLE ;;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.