Last change
on this file since 1639 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.7 KB
|
Rev | Line | |
---|
[613] | 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.