Changeset 1181 for BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXRPC10.m

Timestamp:

May 11, 2011, 9:30:11 AM (13 years ago)

Author:

Sam Habiel

Message:

Fixes and enhancements to BMX4

File:

• BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXRPC10.m (modified) (2 diffs)

BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXRPC10.m

@@ -1 @@
-BMXRPC10        ; IHS/OIT/GIS - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ; 08 Jun 2010  8:47 AM
+BMXRPC10        ; IHS/OIT/GIS - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ; 5/11/11 4:35pm
         ;;4.1000;BMX;;Apr 17, 2011
         ;; LOGIN RPCS TO RETURN PATIENTS, VISITS AND FACILITIES.  SUPPORTS MULTI-INDEX PATIENT LOOKUP (DOB, NAME, CHART#, ETC)
+    ; 
+    ; Changes in v 4.1000 to support GT.M
+    ; - In BMXCCXT, there are several lines that rely on the
+    ;   settings in BMX MONITOR file. We don't use that on GT.M
+    ;   as xinetd handles all connection issues.
+    ;   Also, at this point, we don't have integrated windows authentication
+    ;   See below for the specific details.
         ;
 GETFCRS(BMXFACS,BMXDUZ) ; EP - Gets all facilities for a user - returns RECORDSET
@@ -239 +246 @@
         I $E(OPTION,1,3)="BMX" S RESULT=1 Q  ; NO RESTRICTIONS FOR BMX CONTEXT FOR THIS PORT
         K XQY0,XQY
-        I OPTION="" S XQY=0,XQY0="" Q  ;delete context if "" passed in N PORT
-        S PORT=+$P($P,"|",3) I 'PORT Q
-        S IEN=$O(^BMXMON("B",PORT,0)) I 'IEN Q
-        I '$O(^BMXMON(IEN,1,0)) G BC1  ; NO RESTRICTIONS ON CONTEXT FOR THIS PORT
-        S OK=0,CIEN=0
-        F  S CIEN=$O(^BMXMON(IEN,1,CIEN)) Q:'CIEN  D  I OK Q
-        . S %=$P($G(^BMXMON(IEN,1,CIEN,0)),U) I '% Q
-        . S %=$P($G(^DIC(19,%,0)),U) I %="" Q
-        . I %=OPTION S OK=1
-        . Q
-        I 'OK S (XWBSEC,RESULT)="The context '"_OPTION_"' is not registered with port "_PORT_"." Q
+    I OPTION="" S XQY=0,XQY0="" Q  ;delete context if "" passed in N PORT
+    ; 
+    ; Following lines are addition for 4.1000; GT.M does not use BMXMON
+    D:^%ZOSF("OS")["OpenM"  ; Doesn't apply to GT.M; Only Cache
+    . S PORT=+$P($P,"|",3) I 'PORT Q
+        . S IEN=$O(^BMXMON("B",PORT,0)) I 'IEN Q
+        . I '$O(^BMXMON(IEN,1,0)) G BC1  ; NO RESTRICTIONS ON CONTEXT FOR THIS PORT
+        . S OK=0,CIEN=0
+        . F  S CIEN=$O(^BMXMON(IEN,1,CIEN)) Q:'CIEN  D  I OK Q
+        . . S %=$P($G(^BMXMON(IEN,1,CIEN,0)),U) I '% Q
+        . . S %=$P($G(^DIC(19,%,0)),U) I %="" Q
+        . . I %=OPTION S OK=1
+        . . Q
+        . I 'OK S (XWBSEC,RESULT)="The context '"_OPTION_"' is not registered with port "_PORT_"." Q
 BC1     S XWB1=$$OPTLK^XQCS(OPTION)
         I XWB1="" S (XWBSEC,RESULT)="The context '"_OPTION_"' does not exist on server." Q  ;P10