OCXDI006 ;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 ^OCXDI007
;
Q
;
DATA ;
;
;;RSUM^41468.371^315918.971^66908.451^909647.1561^306527.991^1069147.1711^498.41^37299.331^71645.481^40137.341^39383.341^100950.541^100644.541^91648.561^498.41^55643.411^7915.151^498.41^90717.531^65489.461
;;RSUM^372442.1061^125431.611^62800.451^581828.1391^5159.121^308072.1021^131109.621^347395.1081^40871.351^176756.741^75151.481^498.41^94037.541^65489.461^799103.1451^294442.971^498.41^5794.121^498.41^484161.1241
;;RSUM^467145.1201^494928.1241^498.41^62988.451^72607.461^146535.671^98930.561^114083.591^9831.171^37324.331^96638.541^11754.191^5725.121^53024.411^431800.1191^76031.461^324243.991^281663.921^350731.1021
;;RSUM^438282.1121^188099.771^254893.921^53380.401^67686.471^1121229.1861^424776.1131^741.51^413068.1181^270116.931^301.31^301.31^80356.491^150.21^11405.171^150.21^4116.101^150.21^3234.101^54314.441^186550.831
;;RSUM^642.41^150.21^31007.301^150.21^204220.781^115067.571^194.21^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
;;RSUM^150525.711^57706.431^150.21
;;RND^OCXOCMP1^12/22/98 13:37
;;RTN^OCXOCMP2^10/29/98 12:37
;;RSUM^150.21^1023.61^150.21^18003.221^76625.501^217276.821^248178.831^18474.241^94090.551^54875.421^499327.1211^13223.191^1015915.1711^1265171.1871^301.31^47638.401^238278.891^86332.541^301.31^30722.341
;;RSUM^5009.111^154861.701^4704.111^30020.301^24980.261^118158.601^116767.601^19858.241^181182.761^498794.1191^72977.461^43128.361^301.31^257347.901^301.31^4971.111^301.31^49178.391^301.31^133718.651^189535.771
;;RSUM^42767.351^211200.801^216369.811^388103.1091^859200.1661^230814.861^741.51^82952.481^741.51^10780.181^171095.691^134615.621^63629.451^307217.951^251448.901^413592.1101^728442.1461^182600.731^652745.1371
;;RSUM^124331.621^888543.1591^1155424.1871^162583.731^16706.211^235558.861^135359.651^131377.651^69301.451^1030.61^50275.381^301.31^72585.451^301.31^226322.851^114327.611^672522.1501^367595.1061^114836.591
;;RSUM^816484.1651^156151.701^188478.791^108079.581^498.41^301.31^96125.531^301.31^634405.1401^301.31^6079.131^9543.161^63305.471^121982.621^76081.511^20596.251^248942.891^301.31^85430.481^301.31^56559.411
;;RSUM^387042.1111^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
;;RSUM^498.41^22234.251^498.41^15245.211^301.31^456411.1221^9543.161^34561.331^200724.871^39898.341^232058.931^22462.251^68169.451^301.31^301.31^23539.261^301.31^13906.201^301.31^27506.281^301.31^79249.531
;;RSUM^301.31^72986.471^63431.441^78494.511^150.21^4116.101^150.21^5370.131^150.21^1928.81^150.21^37233.371^47522.381^102439.591^41528.391^22548.261^35494.351^9756.171^194.21^150.21^10648.181^150.21^17568.221
;;RSUM^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^8683.161^150.21^50418.381^383487.1111^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241
;;RSUM^88173.501^194.21^150.21
;;RND^OCXOCMP2^10/29/98 12:37
;;RTN^OCXOCMP3^10/29/98 12:37
;;RSUM^150.21^1023.61^150.21^18003.221^196550.791^97781.571^30722.341^10525.171^301.31^30515.331^30935.331^301.31^188611.781^8835.161^65335.471^78101.511^285003.951^498.41^333247.1031^267218.911^301.31^8629.161
;;RSUM^301.31^111106.561^301.31^189301.781^498.41^10513.171^116703.621^163343.681^32615.351^150.21^4116.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521
;;RSUM^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21
;;RND^OCXOCMP3^10/29/98 12:37
;;RTN^OCXOCMP4^2/02/99 13:17
;;RSUM^150.21^1023.61^150.21^18003.221^47703.371^9008.161^13566.231^16280.251^55179.421^11420.201^50717.401^150.21^10331.161^150.21^10534.161^150.21^25877.291^136618.651^150.21^5238.121^118024.621^8163.171
;;RSUM^150.21^37290.361^440381.1201^142112.641^182572.721^9536.171^167367.691^481016.1291^38102.361^214451.841^8395.181^292964.991^96831.581^406584.1211^22202.271^218058.861^40872.381^150.21^249632.891^413270.1161
;;RSUM^32615.351^22004.251^216060.841^329960.1031^150.21^9536.171^8163.171^30829.321^140326.641^128396.641^222015.861^15941.201^132463.611^330616.1001^331493.1011^261760.931^304811.1001^351183.1071^400891.1141
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI006 4784 printed Oct 16, 2024@18:23:15 Page 2
OCXDI006 ;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 ^OCXDI007
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^41468.371^315918.971^66908.451^909647.1561^306527.991^1069147.1711^498.41^37299.331^71645.481^40137.341^39383.341^100950.541^100644.541^91648.561^498.41^55643.411^7915.151^498.41^90717.531^65489.461
+3 ;;RSUM^372442.1061^125431.611^62800.451^581828.1391^5159.121^308072.1021^131109.621^347395.1081^40871.351^176756.741^75151.481^498.41^94037.541^65489.461^799103.1451^294442.971^498.41^5794.121^498.41^484161.1241
+4 ;;RSUM^467145.1201^494928.1241^498.41^62988.451^72607.461^146535.671^98930.561^114083.591^9831.171^37324.331^96638.541^11754.191^5725.121^53024.411^431800.1191^76031.461^324243.991^281663.921^350731.1021
+5 ;;RSUM^438282.1121^188099.771^254893.921^53380.401^67686.471^1121229.1861^424776.1131^741.51^413068.1181^270116.931^301.31^301.31^80356.491^150.21^11405.171^150.21^4116.101^150.21^3234.101^54314.441^186550.831
+6 ;;RSUM^642.41^150.21^31007.301^150.21^204220.781^115067.571^194.21^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
+7 ;;RSUM^150525.711^57706.431^150.21
+8 ;;RND^OCXOCMP1^12/22/98 13:37
+9 ;;RTN^OCXOCMP2^10/29/98 12:37
+10 ;;RSUM^150.21^1023.61^150.21^18003.221^76625.501^217276.821^248178.831^18474.241^94090.551^54875.421^499327.1211^13223.191^1015915.1711^1265171.1871^301.31^47638.401^238278.891^86332.541^301.31^30722.341
+11 ;;RSUM^5009.111^154861.701^4704.111^30020.301^24980.261^118158.601^116767.601^19858.241^181182.761^498794.1191^72977.461^43128.361^301.31^257347.901^301.31^4971.111^301.31^49178.391^301.31^133718.651^189535.771
+12 ;;RSUM^42767.351^211200.801^216369.811^388103.1091^859200.1661^230814.861^741.51^82952.481^741.51^10780.181^171095.691^134615.621^63629.451^307217.951^251448.901^413592.1101^728442.1461^182600.731^652745.1371
+13 ;;RSUM^124331.621^888543.1591^1155424.1871^162583.731^16706.211^235558.861^135359.651^131377.651^69301.451^1030.61^50275.381^301.31^72585.451^301.31^226322.851^114327.611^672522.1501^367595.1061^114836.591
+14 ;;RSUM^816484.1651^156151.701^188478.791^108079.581^498.41^301.31^96125.531^301.31^634405.1401^301.31^6079.131^9543.161^63305.471^121982.621^76081.511^20596.251^248942.891^301.31^85430.481^301.31^56559.411
+15 ;;RSUM^387042.1111^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
+16 ;;RSUM^498.41^22234.251^498.41^15245.211^301.31^456411.1221^9543.161^34561.331^200724.871^39898.341^232058.931^22462.251^68169.451^301.31^301.31^23539.261^301.31^13906.201^301.31^27506.281^301.31^79249.531
+17 ;;RSUM^301.31^72986.471^63431.441^78494.511^150.21^4116.101^150.21^5370.131^150.21^1928.81^150.21^37233.371^47522.381^102439.591^41528.391^22548.261^35494.351^9756.171^194.21^150.21^10648.181^150.21^17568.221
+18 ;;RSUM^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^8683.161^150.21^50418.381^383487.1111^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241
+19 ;;RSUM^88173.501^194.21^150.21
+20 ;;RND^OCXOCMP2^10/29/98 12:37
+21 ;;RTN^OCXOCMP3^10/29/98 12:37
+22 ;;RSUM^150.21^1023.61^150.21^18003.221^196550.791^97781.571^30722.341^10525.171^301.31^30515.331^30935.331^301.31^188611.781^8835.161^65335.471^78101.511^285003.951^498.41^333247.1031^267218.911^301.31^8629.161
+23 ;;RSUM^301.31^111106.561^301.31^189301.781^498.41^10513.171^116703.621^163343.681^32615.351^150.21^4116.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521
+24 ;;RSUM^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21
+25 ;;RND^OCXOCMP3^10/29/98 12:37
+26 ;;RTN^OCXOCMP4^2/02/99 13:17
+27 ;;RSUM^150.21^1023.61^150.21^18003.221^47703.371^9008.161^13566.231^16280.251^55179.421^11420.201^50717.401^150.21^10331.161^150.21^10534.161^150.21^25877.291^136618.651^150.21^5238.121^118024.621^8163.171
+28 ;;RSUM^150.21^37290.361^440381.1201^142112.641^182572.721^9536.171^167367.691^481016.1291^38102.361^214451.841^8395.181^292964.991^96831.581^406584.1211^22202.271^218058.861^40872.381^150.21^249632.891^413270.1161
+29 ;;RSUM^32615.351^22004.251^216060.841^329960.1031^150.21^9536.171^8163.171^30829.321^140326.641^128396.641^222015.861^15941.201^132463.611^330616.1001^331493.1011^261760.931^304811.1001^351183.1071^400891.1141
+30 ;1;
+31 ;
