OCXDI00A ;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 ^OCXDI00B
;
Q
;
DATA ;
;
;;RSUM^152754.701^150.21^4116.101^150.21^2994.101^150.21^35554.351^96732.581^150.21
;;RND^OCXOCMPG^1/12/99 14:45
;;RTN^OCXOCMPH^10/29/98 12:37
;;RSUM^150.21^194.21^1649.71^28467.281^64393.441^153840.701^150.21^169762.741^110020.591^7235.151^39700.351^132671.611^150.21^194.21^150.21^1286.61^69137.471^48455.401^96685.561^556151.1351^122791.621^41672.361
;;RSUM^150.21^65388.461^45364.391^38751.351^116569.611^92559.551^150.21^194.21^150.21
;;RND^OCXOCMPH^10/29/98 12:37
;;RTN^OCXOCMPI^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^19726.241^150.21^8409.161^150.21^3345.91^150.21^151092.671^36175.321^55868.391^141532.651^498.41^58537.421^151198.691^1172301.1911^35716.321^498.41^29770.291^104399.591^301.31
;;RSUM^16897.221^498.41^23558.251^51051.381^498.41^58776.421^111736.551^139950.671^118567.611^69103.451^68432.481^314256.1011^46570.371^789932.1561^168538.751^41416.341^116537.601^735711.1491^101427.541^470992.1211
;;RSUM^498.41^79678.471^498.41^153902.661^40857.351^301.31^49785.391^150.21^4116.101^150.21^19535.241^150.21^21828.241^203692.821^33848.331^301607.951^15906.221^150.21^18200.231^150.21^11313.171^48247.381
;;RSUM^18595.251^111450.591^9648.181^92516.551^98674.571^40183.351^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^150525.711^57706.431^150.21^191420.751
;;RSUM^202573.771^201373.771^180993.731^150.21
;;RND^OCXOCMPI^10/29/98 12:37
;;RTN^OCXOCMPJ^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^33879.321^150.21^8409.161^150.21^33845.301^418635.1101^391941.1071^471509.1161^324392.981^150.21^74887.561^301.31^20432.251^248175.901^150.21^230910.961^2977.91^17525.251^301.31
;;RSUM^83329.541^372021.1021^20634.261^301.31^26644.291^301646.1001^476311.1231^150.21^284324.1031^301.31^34200.341^301.31^45829.371^54788.421^409285.1141^150.21^47533.371^150.21^283061.1041^8757.151^66411.481
;;RSUM^301.31^83329.541^433743.1101^20634.261^301.31^89631.521^324863.981^368806.1121^73109.491^543107.1301^150.21^443799.1121^150.21^4116.101^150.21^36145.331^150.21^8409.161^427157.1111^400182.1081^480611.1171
;;RSUM^324392.981^150.21^74887.561^301.31^22471.261^234226.871^150.21^230910.961^2977.91^17525.251^301.31^83329.541^380117.1031^20634.261^301.31^28902.301^286548.971^457808.1201^150.21^284324.1031^301.31
;;RSUM^34200.341^301.31^48668.381^54788.421^392747.1111^150.21^47533.371^150.21^283061.1041^8757.151^66411.481^301.31^83329.541^442417.1111^20634.261^301.31^93422.531^324863.981^352673.1091^73109.491^522723.1271
;;RSUM^150.21^452610.1131^150.21^4116.101
;;RND^OCXOCMPJ^10/29/98 12:37
;;RTN^OCXOCMPK^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^36006.331^150.21^8409.161^91131.491^136297.681^324392.981^150.21^426073.1111^399098.1081^479438.1171^150.21^214052.851^433479.1101^121602.591^150.21^23216.261^445481.1111^23135.261
;;RSUM^436037.1101^66905.461^222974.821^150.21^9802.181^274893.891^642738.1421^519662.1281^4116.101^150.21^31733.311^150.21^4212.101^410513.1091^384100.1061^430042.1101^23563.261^150.21^7551.161^455142.1211
;;RSUM^150.21^4116.101^150.21
;;RND^OCXOCMPK^10/29/98 12:37
;;RTN^OCXOCMPL^10/29/98 12:37
;;RSUM^150.21^557.41^150.21^194.21^150.21^40248.341^150.21^403591.1051^150.21^102099.551^301.31^13336.211^134212.641^276049.911^301.31^12906.221^130849.651^276049.911^301.31^11933.201^272216.931^274977.911
;;RSUM^150.21^47699.371^509817.1261^59499.441^168032.701^638009.1371^112634.591^871684.1591^1137546.1871^149581.701^12644.181^219625.831^123332.621^119602.621^60535.421^150.21^114237.581^377469.1071^69994.471
;;RSUM^377561.1071^150.21^534487.1261^23839.271^253381.871^150.21^715424.1421^25783.281^265538.891^150.21^715400.1421^25789.281^265413.891^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261
;;RSUM^3686.101^333197.1031^55662.411^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^9901.171^150.21^7746.141^67772.471^353364.1071^7640.141^369135.1091
;;RSUM^2618.81^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^3829.111^150.21^636.41^150.21^25190.311^9528.181
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00A 4667 printed Dec 13, 2024@02:22:43 Page 2
OCXDI00A ;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 ^OCXDI00B
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^152754.701^150.21^4116.101^150.21^2994.101^150.21^35554.351^96732.581^150.21
+3 ;;RND^OCXOCMPG^1/12/99 14:45
+4 ;;RTN^OCXOCMPH^10/29/98 12:37
+5 ;;RSUM^150.21^194.21^1649.71^28467.281^64393.441^153840.701^150.21^169762.741^110020.591^7235.151^39700.351^132671.611^150.21^194.21^150.21^1286.61^69137.471^48455.401^96685.561^556151.1351^122791.621^41672.361
+6 ;;RSUM^150.21^65388.461^45364.391^38751.351^116569.611^92559.551^150.21^194.21^150.21
+7 ;;RND^OCXOCMPH^10/29/98 12:37
+8 ;;RTN^OCXOCMPI^10/29/98 12:37
+9 ;;RSUM^150.21^194.21^150.21^19726.241^150.21^8409.161^150.21^3345.91^150.21^151092.671^36175.321^55868.391^141532.651^498.41^58537.421^151198.691^1172301.1911^35716.321^498.41^29770.291^104399.591^301.31
+10 ;;RSUM^16897.221^498.41^23558.251^51051.381^498.41^58776.421^111736.551^139950.671^118567.611^69103.451^68432.481^314256.1011^46570.371^789932.1561^168538.751^41416.341^116537.601^735711.1491^101427.541^470992.1211
+11 ;;RSUM^498.41^79678.471^498.41^153902.661^40857.351^301.31^49785.391^150.21^4116.101^150.21^19535.241^150.21^21828.241^203692.821^33848.331^301607.951^15906.221^150.21^18200.231^150.21^11313.171^48247.381
+12 ;;RSUM^18595.251^111450.591^9648.181^92516.551^98674.571^40183.351^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^150525.711^57706.431^150.21^191420.751
+13 ;;RSUM^202573.771^201373.771^180993.731^150.21
+14 ;;RND^OCXOCMPI^10/29/98 12:37
+15 ;;RTN^OCXOCMPJ^10/29/98 12:37
+16 ;;RSUM^150.21^194.21^150.21^33879.321^150.21^8409.161^150.21^33845.301^418635.1101^391941.1071^471509.1161^324392.981^150.21^74887.561^301.31^20432.251^248175.901^150.21^230910.961^2977.91^17525.251^301.31
+17 ;;RSUM^83329.541^372021.1021^20634.261^301.31^26644.291^301646.1001^476311.1231^150.21^284324.1031^301.31^34200.341^301.31^45829.371^54788.421^409285.1141^150.21^47533.371^150.21^283061.1041^8757.151^66411.481
+18 ;;RSUM^301.31^83329.541^433743.1101^20634.261^301.31^89631.521^324863.981^368806.1121^73109.491^543107.1301^150.21^443799.1121^150.21^4116.101^150.21^36145.331^150.21^8409.161^427157.1111^400182.1081^480611.1171
+19 ;;RSUM^324392.981^150.21^74887.561^301.31^22471.261^234226.871^150.21^230910.961^2977.91^17525.251^301.31^83329.541^380117.1031^20634.261^301.31^28902.301^286548.971^457808.1201^150.21^284324.1031^301.31
+20 ;;RSUM^34200.341^301.31^48668.381^54788.421^392747.1111^150.21^47533.371^150.21^283061.1041^8757.151^66411.481^301.31^83329.541^442417.1111^20634.261^301.31^93422.531^324863.981^352673.1091^73109.491^522723.1271
+21 ;;RSUM^150.21^452610.1131^150.21^4116.101
+22 ;;RND^OCXOCMPJ^10/29/98 12:37
+23 ;;RTN^OCXOCMPK^10/29/98 12:37
+24 ;;RSUM^150.21^194.21^150.21^36006.331^150.21^8409.161^91131.491^136297.681^324392.981^150.21^426073.1111^399098.1081^479438.1171^150.21^214052.851^433479.1101^121602.591^150.21^23216.261^445481.1111^23135.261
+25 ;;RSUM^436037.1101^66905.461^222974.821^150.21^9802.181^274893.891^642738.1421^519662.1281^4116.101^150.21^31733.311^150.21^4212.101^410513.1091^384100.1061^430042.1101^23563.261^150.21^7551.161^455142.1211
+26 ;;RSUM^150.21^4116.101^150.21
+27 ;;RND^OCXOCMPK^10/29/98 12:37
+28 ;;RTN^OCXOCMPL^10/29/98 12:37
+29 ;;RSUM^150.21^557.41^150.21^194.21^150.21^40248.341^150.21^403591.1051^150.21^102099.551^301.31^13336.211^134212.641^276049.911^301.31^12906.221^130849.651^276049.911^301.31^11933.201^272216.931^274977.911
+30 ;;RSUM^150.21^47699.371^509817.1261^59499.441^168032.701^638009.1371^112634.591^871684.1591^1137546.1871^149581.701^12644.181^219625.831^123332.621^119602.621^60535.421^150.21^114237.581^377469.1071^69994.471
+31 ;;RSUM^377561.1071^150.21^534487.1261^23839.271^253381.871^150.21^715424.1421^25783.281^265538.891^150.21^715400.1421^25789.281^265413.891^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261
+32 ;;RSUM^3686.101^333197.1031^55662.411^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^9901.171^150.21^7746.141^67772.471^353364.1071^7640.141^369135.1091
+33 ;;RSUM^2618.81^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^3829.111^150.21^636.41^150.21^25190.311^9528.181
+34 ;1;
+35 ;
