Changeset 1172 for Scheduling/trunk/m/BSDX32.m

Timestamp:

May 8, 2011, 4:11:34 AM (13 years ago)

Author:

Sam Habiel

Message:

Merging Radiology Support branch back to trunk.

Location:

Scheduling/trunk/m

Files:

• . (modified) (1 prop)
• BSDX32.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX32.m

@@ -29 +29 @@
         S BSDXI=0
         ;"SELECT BSDXIEN 'HOSPITAL_LOCATION_ID', NAME 'HOSPITAL_LOCATION', DEFAULT_PROVIDER, STOP_CODE_NUMBER, INACTIVATE_DATE, REACTIVATE_DATE FROM HOSPITAL_LOCATION";
-        S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE"_$C(30)
+        S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE^T00001IS_RADIOLOGY_LOCATION"_$C(30)
         ;
         S BSDXNAM="" F  S BSDXNAM=$O(^SC("B",BSDXNAM)) Q:BSDXNAM=""  D
@@ -50 +50 @@
         . . . Q
         . . Q
+        . ; Decide if this is a radiology location - Check "B" index of ^RA(79.1 global to see if HL is there
+        . N BSDXISRAD S BSDXISRAD=''$DATA(^RA(79.1,"B",BSDXIEN))
         . S BSDXI=BSDXI+1
-        . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_$C(30)
+        . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_U_BSDXISRAD_$C(30)
         . Q
         S BSDXI=BSDXI+1