OCXDI00M ;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 ^OCXDI00N
;
Q
;
DATA ;
;
;;RSUM^6228.131^2148.71^13025.201^30892.301^15996.211^11197.211^5675.121^11214.211^3334.91^2148.71^19164.231^11197.211^7628.141^11214.211^2077.71^9294.191^5650.121^25223.321^8308.151^22271.301^9142.151^25246.321
;;RSUM^4330.101^22294.301^41767.291^25269.321^533.41^150.21
;;RND^OCXRU002^APR 30,1999 at 15:06
;;RTN^OCXRU003^APR 30,1999 at 15:06
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5112.121^150.21^194.21^150.21^1224.61^150.21^31105.291^22317.301^2117.81^25292.321^10832.171^22340.301^247489.751
;;RSUM^25315.321^9041.151^22363.301^61704.351^25338.321^16637.211^22386.301^1357.61^2148.71^15944.211^11197.211^5650.121^11214.211^5650.121^26801.331^18321.221^23755.311^218797.701^26825.331^9201.151^23779.311
;;RSUM^1417.61^26849.331^9041.151^23803.311^29399.241^25361.321^8308.151^22409.301^11621.171^25384.321^4330.101^22432.301^15804.181^25407.321^10832.171^22455.301^1261.61^2148.71^16288.211^11197.211^5796.121
;;RSUM^11214.211^5796.121^9294.191^5650.121^25223.321^8308.151^22271.301^9324.151^25246.321^4330.101^22294.301^17851.191^25269.321^9041.151^22317.301^32094.251^25292.321^16637.211^22340.301^1357.61^2148.71
;;RSUM^12921.201^47754.371^52503.391^11254.211^31581.301^11271.211^20447.231^9366.191^10791.171^25445.321^18863.231^25469.321^1363.61^2148.71^50715.381^11254.211^30180.291^11271.211^20447.231^9366.191^9751.161
;;RSUM^25445.321^18863.231^25469.321^1363.61^2148.71^46326.361^11254.211^26844.271^11271.211^20447.231^9366.191^9691.161^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71
;;RSUM^41038.341^11254.211^22888.251^11271.211^20447.231^9366.191^8379.151^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^54675.391^11254.211^33195.301^11271.211^20447.231
;;RSUM^9366.191^11038.171^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^13008.201^57226.401^18134.221^11276.211^6872.131^11293.211^7628.141^11327.211^6872.131^25467.321
;;RSUM^37247.321^22515.301^26844.271^2148.71^24066.261^11276.211^10806.171^11293.211^7628.141^11327.211^9450.161^25490.321^37247.321^22538.301^22888.251^25465.321^4988.111^2148.71^25757.271^11276.211^11840.181
;;RSUM^11293.211^5675.121^11310.211^31581.301^11327.211^6353.131^25444.321^37247.321^22492.301^31581.301^25465.321^3989.101^2148.71^24485.261^11276.211^10955.171^11293.211^5675.121^11310.211^30180.291^11327.211
;;RSUM^5683.121^25444.321^37247.321^22492.301^30180.291^25465.321^3448.91^533.41^150.21
;;RND^OCXRU003^APR 30,1999 at 15:06
;;RTN^OCXRU004^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^5124.121^150.21^194.21^150.21^1224.61^150.21^2148.71^23375.251^11276.211^10115.161^11293.211^7628.141^11327.211^10115.161
;;RSUM^25490.321^37247.321^22538.301^33195.301^25465.321^9815.161^2148.71^13042.201^33540.311^14637.201^11221.211^4884.111^25289.321^7507.141^22337.301^7628.141^2148.71^20228.241^11221.211^8360.151^11238.211
;;RSUM^6647.131^25289.321^7507.141^22337.301^7628.141^2148.71^10333.171^11221.211^2614.81^25289.321^7507.141^22337.301^5796.121^2148.71^20927.241^11221.211^8708.151^25289.321^7507.141^22337.301^7628.141^2148.71
;;RSUM^20476.241^11221.211^8392.151^25289.321^7507.141^22337.301^7628.141^2148.71^34865.311^11221.211^18218.221^25289.321^7507.141^22337.301^7628.141^2148.71^28004.291^11221.211^13616.201^25289.321^7507.141
;;RSUM^22337.301^5675.121^2148.71^12957.201^28528.291^16401.211^11199.211^5889.121^25227.321^3229.91^22275.301^1369.61^2148.71^12923.201^22242.261^37931.321^11210.211^20297.231^11227.211^5889.121^11261.211
;;RSUM^2473.81^11278.211^8360.151^25279.321^30000.291^25302.321^34849.311^22350.301^1369.61^25325.321^18940.231^22373.301^15108.221^25348.321^20206.241^25371.321^26577.271^22419.301^2473.81^25394.321^18179.221
;;RSUM^2148.71^48996.361^11210.211^28455.271^11227.211^5889.121^11261.211^2473.81^11278.211^2614.81^11295.211^1810.71^25279.321^20206.241^25302.321^30000.291^25325.321^18940.231^22373.301^14989.221^2148.71
;;RSUM^22710.251^11210.211^9792.161^11227.211^5889.121^11278.211^2614.81^11295.211^1810.71^25279.321^18940.231^22327.301^2591.81^2148.71^38888.321^11210.211^20903.231^11227.211^5889.121^11261.211^2767.81
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00M 4752 printed Nov 22, 2024@17:32:53 Page 2
OCXDI00M ;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 ^OCXDI00N
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^6228.131^2148.71^13025.201^30892.301^15996.211^11197.211^5675.121^11214.211^3334.91^2148.71^19164.231^11197.211^7628.141^11214.211^2077.71^9294.191^5650.121^25223.321^8308.151^22271.301^9142.151^25246.321
+3 ;;RSUM^4330.101^22294.301^41767.291^25269.321^533.41^150.21
+4 ;;RND^OCXRU002^APR 30,1999 at 15:06
+5 ;;RTN^OCXRU003^APR 30,1999 at 15:06
+6 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5112.121^150.21^194.21^150.21^1224.61^150.21^31105.291^22317.301^2117.81^25292.321^10832.171^22340.301^247489.751
+7 ;;RSUM^25315.321^9041.151^22363.301^61704.351^25338.321^16637.211^22386.301^1357.61^2148.71^15944.211^11197.211^5650.121^11214.211^5650.121^26801.331^18321.221^23755.311^218797.701^26825.331^9201.151^23779.311
+8 ;;RSUM^1417.61^26849.331^9041.151^23803.311^29399.241^25361.321^8308.151^22409.301^11621.171^25384.321^4330.101^22432.301^15804.181^25407.321^10832.171^22455.301^1261.61^2148.71^16288.211^11197.211^5796.121
+9 ;;RSUM^11214.211^5796.121^9294.191^5650.121^25223.321^8308.151^22271.301^9324.151^25246.321^4330.101^22294.301^17851.191^25269.321^9041.151^22317.301^32094.251^25292.321^16637.211^22340.301^1357.61^2148.71
+10 ;;RSUM^12921.201^47754.371^52503.391^11254.211^31581.301^11271.211^20447.231^9366.191^10791.171^25445.321^18863.231^25469.321^1363.61^2148.71^50715.381^11254.211^30180.291^11271.211^20447.231^9366.191^9751.161
+11 ;;RSUM^25445.321^18863.231^25469.321^1363.61^2148.71^46326.361^11254.211^26844.271^11271.211^20447.231^9366.191^9691.161^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71
+12 ;;RSUM^41038.341^11254.211^22888.251^11271.211^20447.231^9366.191^8379.151^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^54675.391^11254.211^33195.301^11271.211^20447.231
+13 ;;RSUM^9366.191^11038.171^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^13008.201^57226.401^18134.221^11276.211^6872.131^11293.211^7628.141^11327.211^6872.131^25467.321
+14 ;;RSUM^37247.321^22515.301^26844.271^2148.71^24066.261^11276.211^10806.171^11293.211^7628.141^11327.211^9450.161^25490.321^37247.321^22538.301^22888.251^25465.321^4988.111^2148.71^25757.271^11276.211^11840.181
+15 ;;RSUM^11293.211^5675.121^11310.211^31581.301^11327.211^6353.131^25444.321^37247.321^22492.301^31581.301^25465.321^3989.101^2148.71^24485.261^11276.211^10955.171^11293.211^5675.121^11310.211^30180.291^11327.211
+16 ;;RSUM^5683.121^25444.321^37247.321^22492.301^30180.291^25465.321^3448.91^533.41^150.21
+17 ;;RND^OCXRU003^APR 30,1999 at 15:06
+18 ;;RTN^OCXRU004^APR 30,1999 at 15:07
+19 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5124.121^150.21^194.21^150.21^1224.61^150.21^2148.71^23375.251^11276.211^10115.161^11293.211^7628.141^11327.211^10115.161
+20 ;;RSUM^25490.321^37247.321^22538.301^33195.301^25465.321^9815.161^2148.71^13042.201^33540.311^14637.201^11221.211^4884.111^25289.321^7507.141^22337.301^7628.141^2148.71^20228.241^11221.211^8360.151^11238.211
+21 ;;RSUM^6647.131^25289.321^7507.141^22337.301^7628.141^2148.71^10333.171^11221.211^2614.81^25289.321^7507.141^22337.301^5796.121^2148.71^20927.241^11221.211^8708.151^25289.321^7507.141^22337.301^7628.141^2148.71
+22 ;;RSUM^20476.241^11221.211^8392.151^25289.321^7507.141^22337.301^7628.141^2148.71^34865.311^11221.211^18218.221^25289.321^7507.141^22337.301^7628.141^2148.71^28004.291^11221.211^13616.201^25289.321^7507.141
+23 ;;RSUM^22337.301^5675.121^2148.71^12957.201^28528.291^16401.211^11199.211^5889.121^25227.321^3229.91^22275.301^1369.61^2148.71^12923.201^22242.261^37931.321^11210.211^20297.231^11227.211^5889.121^11261.211
+24 ;;RSUM^2473.81^11278.211^8360.151^25279.321^30000.291^25302.321^34849.311^22350.301^1369.61^25325.321^18940.231^22373.301^15108.221^25348.321^20206.241^25371.321^26577.271^22419.301^2473.81^25394.321^18179.221
+25 ;;RSUM^2148.71^48996.361^11210.211^28455.271^11227.211^5889.121^11261.211^2473.81^11278.211^2614.81^11295.211^1810.71^25279.321^20206.241^25302.321^30000.291^25325.321^18940.231^22373.301^14989.221^2148.71
+26 ;;RSUM^22710.251^11210.211^9792.161^11227.211^5889.121^11278.211^2614.81^11295.211^1810.71^25279.321^18940.231^22327.301^2591.81^2148.71^38888.321^11210.211^20903.231^11227.211^5889.121^11261.211^2767.81
+27 ;1;
+28 ;
