Changeset 1192 for BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXRPC3.m

Timestamp:

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

Author:

Sam Habiel

Message:

BMXMON now gets the port number for GT.M in BMX CONNECT STATUS RPC
BMXRPC3 now correctly deals with zero divisions in
VISTA and fixes HTG bug in getting the last selected division from ^DISV

File:

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

BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/routines/BMXRPC3.m

@@ -1 @@
-BMXRPC3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 5/11/11 4:33pm
+BMXRPC3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 5/22/11 4:33pm
         ;;4.1000;BMX;;Apr 17, 2011
    ;
@@ -143 +143 @@
         S BMXSUB="^VA(200,"_BMXDUZ_",2,"
         S BMXFACS="T00030FACILITY_NAME^T00030FACILITY_IEN^T00002MOST_RECENT_LOOKUP"_$C(30)
-        ;F BMXN=1:1 S BMXFN=$O(^VA(200,BMXDUZ,2,BMXFN)) Q:BMXFN=""  D
-        S BMXRCNT=0  ;cmi/maw mod 10/17/2006
         F BMXN=1:1 S BMXFN=$O(^VA(200,BMXDUZ,2,BMXFN)) Q:'BMXFN  D  ;IHS/ANMC/LJF 8/9/01
-        . ;S BMXFACS=BMXFACS_$P(^DIC(4,BMXFN,0),U,1)_"^"_BMXFN_$C(30)
         . S BMXFACS=BMXFACS_$P(^DIC(4,BMXFN,0),U,1)_"^"_BMXFN
-        . ;S BMXRCNT=0  ;cmi/maw orig
-        . ;I $D(^DISV(BMXDUZ,BMXSUB)),^DISV(BMXDUZ,BMXSUB)=BMXFN S BMXRCNT=1
-        . ;I $G(DUZ(2))=BMXFN S BMXRCNT=1  ;cmi/maw orig
-        . S BMXRCNT=BMXRCNT+1  ;cmi/maw mod
-        . S BMXFACS=BMXFACS_"^"_BMXRCNT_$C(30)
-        ;//smh I BMXN=1 S BMXFN=$P(^AUTTSITE(1,0),U,1) D
-        ;//smh . S BMXFACS=BMXFACS_$P(^DIC(4,BMXFN,0),U,1)_"^"_BMXFN_"^"_1_$C(30)
+        . ; S BMXRCNT=BMXRCNT+1  ;cmi/maw mod ; /smh WRONG WRONG WRONG WRONG. MOST RECENT LOOKUP is 1 or 0, not an increment
+    . N BMXSUB S BMXSUB="^VA(200,"_DUZ_",2,"        ; ^DISV subscript
+    . N BMXLAST S BMXLAST=(^DISV(DUZ,BMXSUB)=BMXFN) ; 1 or 0 if division is the same as the one in the subscript 
+        . S BMXFACS=BMXFACS_"^"_BMXLAST_$C(30)          ; append that and add eor
+        ; IF RPMS, RUN THESE
+    ;//smh I BMXN=1 S BMXFN=$P(^AUTTSITE(1,0),U,1) D                            ; rpms only!
+        ;//smh . S BMXFACS=BMXFACS_$P(^DIC(4,BMXFN,0),U,1)_"^"_BMXFN_"^"_1_$C(30)   ; rpms only!
+    ; ELSE IF VISTA, RUN THESE
+    ; VISTA Only: If we have no results, use kernel's DUZ(2) set during sign-on
+    ; Equivalent to the RPMS lines above...
+    I BMXN=1 S BMXFACS=BMXFACS_$P(^DIC(4,DUZ(2),0),U,1)_U_DUZ(2)_U_1_$C(30)
         S BMXFACS=BMXFACS_$C(31)
         Q