OCXDI00O ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
S ;
;
D DOT^OCXDIAG
;
;
K REMOTE,LOCAL,OPCODE,REF
F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
.S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
;
G ^OCXDI00P
;
Q
;
DATA ;
;
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5160.121^150.21^194.21^150.21^1224.61^150.21^33994.321^10417.201^179387.761^10437.201^177217.721^10457.201^265369.1001
;;RSUM^10477.201^2835.101^10497.201^65995.451^10517.201^2835.101^10537.201^3983.121^10557.201^2835.101^2148.71^52457.381^11238.211^31247.291^11255.211^4195.101^9457.191^13313.201^9476.191^2835.101^9495.191
;;RSUM^39227.341^9514.191^274424.811^9533.191^235586.871^9552.191^9758.171^9571.191^2835.101^2148.71^77590.481^11238.211^51628.391^11255.211^5616.121^9457.191^359386.891^9476.191^2835.101^9495.191^29767.311
;;RSUM^9514.191^383338.1101^9533.191^6348.141^9552.191^2835.101^2148.71^33048.301^11238.211^16932.211^11255.211^3456.91^9457.191^105475.571^9476.191^2835.101^9495.191^147155.771^9514.191^321304.1031^9533.191
;;RSUM^16439.221^9552.191^2835.101^2148.71^34965.311^11238.211^18291.221^11255.211^7050.131^7687.171^1261.61^7704.171^216378.681^7721.171^187446.651^7738.171^31621.271^7755.171^1261.61^9457.191^42690.351
;;RSUM^9476.191^2835.101^9495.191^3055.101^9514.191^2835.101^2148.71^32184.301^11238.211^16284.211^11255.211^5968.121^9457.191^652018.1211^9476.191^2835.101^9495.191^689259.1501^9514.191^2835.101^9533.191
;;RSUM^48507.401^9552.191^120563.641^9571.191^67068.441^9590.191^2835.101^9609.191^140328.621^10417.201^2835.101^10437.201^17751.241^10457.201^45653.361^10477.201^2835.101^10497.201^179212.731^10517.201^2835.101
;;RSUM^10537.201^11056.181^10557.201^41987.351^10577.201^50547.401^10597.201^149115.661^10436.201^2835.101^10456.201^27740.301^10476.201^220618.821^10496.201^67229.451^10516.201^2835.101^10536.201^11056.181
;;RSUM^10556.201^126106.591^10576.201^50105.381^10596.201^52216.401^10616.201^48018.381^10455.201^533.41^150.21
;;RND^OCXRU007^APR 30,1999 at 15:07
;;RTN^OCXRU008^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5172.121^150.21^194.21^150.21^1224.61^150.21^281068.941^10475.201^91035.531^10495.201^2835.101^10515.201^11056.181
;;RSUM^10535.201^42593.351^10555.201^51208.401^10575.201^48866.381^10595.201^175658.711^10615.201^89169.531^10635.201^2835.101^10474.201^211922.831^10494.201^3354.111^10514.201^10644.181^10534.201^53132.401
;;RSUM^10554.201^12139.191^10574.201^44072.361^10594.201^60464.421^10614.201^66192.451^10634.201^52820.411^10654.201^111402.581^10493.201^323298.1011^10513.201^102048.571^10533.201^3354.111^10553.201^249743.881
;;RSUM^10573.201^11715.191^10593.201^57506.421^10613.201^13268.201^10633.201^46163.371^10653.201^178433.731^10673.201^55094.421^10512.201^354649.1061^10532.201^108606.591^10552.201^2835.101^10572.201^3995.121
;;RSUM^10592.201^2835.101^10612.201^173731.671^10632.201^111578.531^10652.201^72089.471^10672.201^221838.871^10692.201^15377.211^10531.201^141229.641^10551.201^2835.101^10571.201^3055.101^10591.201^2835.101
;;RSUM^10611.201^2835.101^2148.71^50845.381^11238.211^30211.291^11255.211^4760.111^9457.191^21990.261^9476.191^2835.101^9495.191^12332.211^9514.191^128933.621^9533.191^3571.121^2148.71^49380.371^11238.211
;;RSUM^28764.281^11255.211^5971.121^7687.171^403018.951^7704.171^62581.401^9457.191^403018.951^9476.191^62581.401^9495.191^158628.781^9514.191^50007.431^9533.191^8520.161^9552.191^86598.501^9571.191^167552.741
;;RSUM^9590.191^317023.1061^9609.191^50488.431^10417.201^2835.101^2148.71^96922.531^11238.211^67126.441^11255.211^4174.101^9457.191^207267.791^9476.191^2835.101^533.41^150.21
;;RND^OCXRU008^APR 30,1999 at 15:07
;;RTN^OCXRU009^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5268.121^150.21^194.21^150.21^1224.61^150.21^9495.191^94320.591^9514.191^216831.871^9533.191^6507.151^2148.71^12980.201
;;RSUM^49859.381^36890.321^11216.211^19637.231^11233.211^3413.91^9298.191^9677.161^2148.71^30589.291^11216.211^15217.201^11233.211^2009.71^9298.191^13728.191^2148.71^53117.391^11216.211^32012.301^11233.211
;;RSUM^2473.81^9298.191^9677.161^2148.71^12946.201^46560.371^30577.291^11205.211^15217.201^11222.211^15217.201^2148.71^51479.381^11205.211^30755.291^11222.211^32012.301^2148.71^45523.361^11205.211^26266.271
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00O 4669 printed Dec 13, 2024@02:22:56 Page 2
OCXDI00O ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
S ;
+1 ;
+2 DO DOT^OCXDIAG
+3 ;
+4 ;
+5 KILL REMOTE,LOCAL,OPCODE,REF
+6 FOR LINE=1:1:500
SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)
if TEXT
QUIT
IF $LENGTH(TEXT)
Begin DoDot:1
+7 SET ^TMP("OCXDIAG",$JOB,$ORDER(^TMP("OCXDIAG",$JOB,"A"),-1)+1)=TEXT
End DoDot:1
if QUIT
QUIT
+8 ;
+9 GOTO ^OCXDI00P
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5160.121^150.21^194.21^150.21^1224.61^150.21^33994.321^10417.201^179387.761^10437.201^177217.721^10457.201^265369.1001
+3 ;;RSUM^10477.201^2835.101^10497.201^65995.451^10517.201^2835.101^10537.201^3983.121^10557.201^2835.101^2148.71^52457.381^11238.211^31247.291^11255.211^4195.101^9457.191^13313.201^9476.191^2835.101^9495.191
+4 ;;RSUM^39227.341^9514.191^274424.811^9533.191^235586.871^9552.191^9758.171^9571.191^2835.101^2148.71^77590.481^11238.211^51628.391^11255.211^5616.121^9457.191^359386.891^9476.191^2835.101^9495.191^29767.311
+5 ;;RSUM^9514.191^383338.1101^9533.191^6348.141^9552.191^2835.101^2148.71^33048.301^11238.211^16932.211^11255.211^3456.91^9457.191^105475.571^9476.191^2835.101^9495.191^147155.771^9514.191^321304.1031^9533.191
+6 ;;RSUM^16439.221^9552.191^2835.101^2148.71^34965.311^11238.211^18291.221^11255.211^7050.131^7687.171^1261.61^7704.171^216378.681^7721.171^187446.651^7738.171^31621.271^7755.171^1261.61^9457.191^42690.351
+7 ;;RSUM^9476.191^2835.101^9495.191^3055.101^9514.191^2835.101^2148.71^32184.301^11238.211^16284.211^11255.211^5968.121^9457.191^652018.1211^9476.191^2835.101^9495.191^689259.1501^9514.191^2835.101^9533.191
+8 ;;RSUM^48507.401^9552.191^120563.641^9571.191^67068.441^9590.191^2835.101^9609.191^140328.621^10417.201^2835.101^10437.201^17751.241^10457.201^45653.361^10477.201^2835.101^10497.201^179212.731^10517.201^2835.101
+9 ;;RSUM^10537.201^11056.181^10557.201^41987.351^10577.201^50547.401^10597.201^149115.661^10436.201^2835.101^10456.201^27740.301^10476.201^220618.821^10496.201^67229.451^10516.201^2835.101^10536.201^11056.181
+10 ;;RSUM^10556.201^126106.591^10576.201^50105.381^10596.201^52216.401^10616.201^48018.381^10455.201^533.41^150.21
+11 ;;RND^OCXRU007^APR 30,1999 at 15:07
+12 ;;RTN^OCXRU008^APR 30,1999 at 15:07
+13 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5172.121^150.21^194.21^150.21^1224.61^150.21^281068.941^10475.201^91035.531^10495.201^2835.101^10515.201^11056.181
+14 ;;RSUM^10535.201^42593.351^10555.201^51208.401^10575.201^48866.381^10595.201^175658.711^10615.201^89169.531^10635.201^2835.101^10474.201^211922.831^10494.201^3354.111^10514.201^10644.181^10534.201^53132.401
+15 ;;RSUM^10554.201^12139.191^10574.201^44072.361^10594.201^60464.421^10614.201^66192.451^10634.201^52820.411^10654.201^111402.581^10493.201^323298.1011^10513.201^102048.571^10533.201^3354.111^10553.201^249743.881
+16 ;;RSUM^10573.201^11715.191^10593.201^57506.421^10613.201^13268.201^10633.201^46163.371^10653.201^178433.731^10673.201^55094.421^10512.201^354649.1061^10532.201^108606.591^10552.201^2835.101^10572.201^3995.121
+17 ;;RSUM^10592.201^2835.101^10612.201^173731.671^10632.201^111578.531^10652.201^72089.471^10672.201^221838.871^10692.201^15377.211^10531.201^141229.641^10551.201^2835.101^10571.201^3055.101^10591.201^2835.101
+18 ;;RSUM^10611.201^2835.101^2148.71^50845.381^11238.211^30211.291^11255.211^4760.111^9457.191^21990.261^9476.191^2835.101^9495.191^12332.211^9514.191^128933.621^9533.191^3571.121^2148.71^49380.371^11238.211
+19 ;;RSUM^28764.281^11255.211^5971.121^7687.171^403018.951^7704.171^62581.401^9457.191^403018.951^9476.191^62581.401^9495.191^158628.781^9514.191^50007.431^9533.191^8520.161^9552.191^86598.501^9571.191^167552.741
+20 ;;RSUM^9590.191^317023.1061^9609.191^50488.431^10417.201^2835.101^2148.71^96922.531^11238.211^67126.441^11255.211^4174.101^9457.191^207267.791^9476.191^2835.101^533.41^150.21
+21 ;;RND^OCXRU008^APR 30,1999 at 15:07
+22 ;;RTN^OCXRU009^APR 30,1999 at 15:07
+23 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5268.121^150.21^194.21^150.21^1224.61^150.21^9495.191^94320.591^9514.191^216831.871^9533.191^6507.151^2148.71^12980.201
+24 ;;RSUM^49859.381^36890.321^11216.211^19637.231^11233.211^3413.91^9298.191^9677.161^2148.71^30589.291^11216.211^15217.201^11233.211^2009.71^9298.191^13728.191^2148.71^53117.391^11216.211^32012.301^11233.211
+25 ;;RSUM^2473.81^9298.191^9677.161^2148.71^12946.201^46560.371^30577.291^11205.211^15217.201^11222.211^15217.201^2148.71^51479.381^11205.211^30755.291^11222.211^32012.301^2148.71^45523.361^11205.211^26266.271
+26 ;1;
+27 ;
