OCXDI008 ;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 ^OCXDI009
;
Q
;
DATA ;
;
;;RSUM^83566.511^87725.521^25934.311^38545.341^27929.301^73590.501^194.21^150.21^9570.171^150.21^48946.371^53400.381^150.21^19923.241^19231.231^25300.281^150.21^74517.501^79033.521^77520.501^77239.511^119413.621
;;RSUM^85078.521^44876.401^62422.431^8306.171^23309.291^38430.381^89946.571^65495.471^229149.811^11927.201^117382.571^77343.491^83141.511^150.21^74601.501^79112.521^77599.501^77302.511^119537.621^150.21^54806.391
;;RSUM^150.21^169209.761^4833.111^334173.1031^351863.1061^32138.311^19730.251^228714.871^150.21^227454.851^150.21^32951.321^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001^150.21
;;RND^OCXOCMP8^10/29/98 12:37
;;RTN^OCXOCMP9^10/29/98 12:37
;;RSUM^150.21^194.21^1023.61^8409.161^150.21^76625.501^150.21^3146.91^150.21^94164.561^35094.341^30722.341^41320.371^188611.781^11100.171^235078.891^34554.361^197632.791^187049.791^389065.1101^387835.1101
;;RSUM^4971.111^189301.781^4762.111^339230.1041^354375.1061^368740.1081^361872.1071^150.21^212968.821^205493.811^468579.1221^34554.361^223833.851^150.21^35739.351^9528.161^124321.641^218605.841^150.21^8682.161
;;RSUM^214624.841^62357.411^178041.751^184082.761^97248.551^357352.1061^13723.201^7074.141^38718.351^14312.201^77678.491^489498.1281^121635.621^74123.491^175669.751^121635.621^74123.491^150.21^74532.501^150.21
;;RSUM^61977.421^150.21^92878.511^9296.161^53768.401^126128.631^15400.231^438396.1071^98932.571^86568.551^398451.1101^716195.1461^30455.301^603611.1381^42616.351^341150.1011^388889.1081^66126.441^509673.1211
;;RSUM^32615.351^116505.591^70939.481^34554.361^61131.441^301.31^7137.151^28004.281^63345.441^42616.351^341150.1011^388889.1081^66126.441^509673.1211^32615.351^116809.591^70939.481^34554.361^61131.441^301.31
;;RSUM^26114.271^133485.671^127667.651^63113.441^42616.351^341150.1011^388889.1081^60715.421^4441.111^498.41^32615.351^116505.591^70939.481^34554.361^61131.441^194.21^150.21^8548.161^150.21^38025.361^150.21
;;RSUM^15945.221^150.21^2554.81^182270.781^96317.571^150.21^16702.221^150.21^3447.101^8331.161^35535.351^405085.1171^5099.131^150.21^38125.361^108811.581^482.41^150.21
;;RND^OCXOCMP9^10/29/98 12:37
;;RTN^OCXOCMPA^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^18289.231^150.21^18324.241^2749.91^51333.401^53651.411^189196.771^159166.711^93308.561^93884.561^65289.451^150.21^7913.151^150.21^1531.71^11353.211^5416.131^7001.161^642.41^150.21
;;RSUM^313013.821^125503.531^150.21^11051.201^92767.501^129618.611^66062.451^66151.451^63276.441^64210.451^167965.681^106849.591^155844.711^71504.461^50701.391^573578.1101^161784.711^41407.351^331303.971
;;RSUM^33128.301^150.21
;;RND^OCXOCMPA^10/29/98 12:37
;;RTN^OCXOCMPB^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^36791.331^150.21^8409.161^109294.541^70365.441^22033.271^35162.331^150.21^84957.541^200570.751^150.21^268621.911^4989.111^301.31^10898.171^301.31^11380.181^485168.1271^1216029.1911
;;RSUM^382847.1091^295505.941^301.31^25095.261^301.31^197336.741^359035.1011^372716.1031^359077.1011^301.31^4971.111^301.31^21903.251^301.31^8207.161^256420.851^54642.381^301.31^15878.211^301.31^10682.171
;;RSUM^47905.371^498.41^49905.401^49933.401^498.41^92726.541^35351.321^45883.381^324182.1021^741.51^35675.331^15479.211^91854.561^9419.171^287075.1011^72077.511^14395.221^66655.481^95271.571^259209.971^741.51
;;RSUM^35322.331^3457.101^331956.1081^332081.1081^741.51^232125.901^57370.421^15193.221^498.41^210000.821^125796.621^150.21^20214.241^71781.461^339956.1001^22033.271^4116.101^150.21^3685.111^620.41^22369.281
;;RSUM^8186.151^140284.681^194.21^150.21^2010.81^174959.751^150.21^1919.81^102913.591^172114.771^14292.211^546.41^150.21^1002212.1561^150.21
;;RND^OCXOCMPB^10/29/98 12:37
;;RTN^OCXOCMPC^10/29/98 12:37
;;RSUM^150.21^194.21^150.21^16581.221^150.21^482.41^256577.831^150.21^154850.661^150.21^24723.281^150.21^22727.251^150.21^71659.491^149152.691^301.31^144873.681^301.31^117409.631^301.31^87058.541^297463.971
;;RSUM^17290.231^301.31^146722.671^301.31^65572.461^297463.971^5351.141^17290.231^34227.321^9260.161^301.31^51089.401^150.21^24185.261^150.21^17673.251^150.21^1297.61^7182.141^27494.301^194.21^4649.121^150.21
;1;
;
OCXDI008 ;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 ^OCXDI009
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^83566.511^87725.521^25934.311^38545.341^27929.301^73590.501^194.21^150.21^9570.171^150.21^48946.371^53400.381^150.21^19923.241^19231.231^25300.281^150.21^74517.501^79033.521^77520.501^77239.511^119413.621
+3 ;;RSUM^85078.521^44876.401^62422.431^8306.171^23309.291^38430.381^89946.571^65495.471^229149.811^11927.201^117382.571^77343.491^83141.511^150.21^74601.501^79112.521^77599.501^77302.511^119537.621^150.21^54806.391
+4 ;;RSUM^150.21^169209.761^4833.111^334173.1031^351863.1061^32138.311^19730.251^228714.871^150.21^227454.851^150.21^32951.321^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001^150.21
+5 ;;RND^OCXOCMP8^10/29/98 12:37
+6 ;;RTN^OCXOCMP9^10/29/98 12:37
+7 ;;RSUM^150.21^194.21^1023.61^8409.161^150.21^76625.501^150.21^3146.91^150.21^94164.561^35094.341^30722.341^41320.371^188611.781^11100.171^235078.891^34554.361^197632.791^187049.791^389065.1101^387835.1101
+8 ;;RSUM^4971.111^189301.781^4762.111^339230.1041^354375.1061^368740.1081^361872.1071^150.21^212968.821^205493.811^468579.1221^34554.361^223833.851^150.21^35739.351^9528.161^124321.641^218605.841^150.21^8682.161
+9 ;;RSUM^214624.841^62357.411^178041.751^184082.761^97248.551^357352.1061^13723.201^7074.141^38718.351^14312.201^77678.491^489498.1281^121635.621^74123.491^175669.751^121635.621^74123.491^150.21^74532.501^150.21
+10 ;;RSUM^61977.421^150.21^92878.511^9296.161^53768.401^126128.631^15400.231^438396.1071^98932.571^86568.551^398451.1101^716195.1461^30455.301^603611.1381^42616.351^341150.1011^388889.1081^66126.441^509673.1211
+11 ;;RSUM^32615.351^116505.591^70939.481^34554.361^61131.441^301.31^7137.151^28004.281^63345.441^42616.351^341150.1011^388889.1081^66126.441^509673.1211^32615.351^116809.591^70939.481^34554.361^61131.441^301.31
+12 ;;RSUM^26114.271^133485.671^127667.651^63113.441^42616.351^341150.1011^388889.1081^60715.421^4441.111^498.41^32615.351^116505.591^70939.481^34554.361^61131.441^194.21^150.21^8548.161^150.21^38025.361^150.21
+13 ;;RSUM^15945.221^150.21^2554.81^182270.781^96317.571^150.21^16702.221^150.21^3447.101^8331.161^35535.351^405085.1171^5099.131^150.21^38125.361^108811.581^482.41^150.21
+14 ;;RND^OCXOCMP9^10/29/98 12:37
+15 ;;RTN^OCXOCMPA^10/29/98 12:37
+16 ;;RSUM^150.21^194.21^150.21^18289.231^150.21^18324.241^2749.91^51333.401^53651.411^189196.771^159166.711^93308.561^93884.561^65289.451^150.21^7913.151^150.21^1531.71^11353.211^5416.131^7001.161^642.41^150.21
+17 ;;RSUM^313013.821^125503.531^150.21^11051.201^92767.501^129618.611^66062.451^66151.451^63276.441^64210.451^167965.681^106849.591^155844.711^71504.461^50701.391^573578.1101^161784.711^41407.351^331303.971
+18 ;;RSUM^33128.301^150.21
+19 ;;RND^OCXOCMPA^10/29/98 12:37
+20 ;;RTN^OCXOCMPB^10/29/98 12:37
+21 ;;RSUM^150.21^194.21^150.21^36791.331^150.21^8409.161^109294.541^70365.441^22033.271^35162.331^150.21^84957.541^200570.751^150.21^268621.911^4989.111^301.31^10898.171^301.31^11380.181^485168.1271^1216029.1911
+22 ;;RSUM^382847.1091^295505.941^301.31^25095.261^301.31^197336.741^359035.1011^372716.1031^359077.1011^301.31^4971.111^301.31^21903.251^301.31^8207.161^256420.851^54642.381^301.31^15878.211^301.31^10682.171
+23 ;;RSUM^47905.371^498.41^49905.401^49933.401^498.41^92726.541^35351.321^45883.381^324182.1021^741.51^35675.331^15479.211^91854.561^9419.171^287075.1011^72077.511^14395.221^66655.481^95271.571^259209.971^741.51
+24 ;;RSUM^35322.331^3457.101^331956.1081^332081.1081^741.51^232125.901^57370.421^15193.221^498.41^210000.821^125796.621^150.21^20214.241^71781.461^339956.1001^22033.271^4116.101^150.21^3685.111^620.41^22369.281
+25 ;;RSUM^8186.151^140284.681^194.21^150.21^2010.81^174959.751^150.21^1919.81^102913.591^172114.771^14292.211^546.41^150.21^1002212.1561^150.21
+26 ;;RND^OCXOCMPB^10/29/98 12:37
+27 ;;RTN^OCXOCMPC^10/29/98 12:37
+28 ;;RSUM^150.21^194.21^150.21^16581.221^150.21^482.41^256577.831^150.21^154850.661^150.21^24723.281^150.21^22727.251^150.21^71659.491^149152.691^301.31^144873.681^301.31^117409.631^301.31^87058.541^297463.971
+29 ;;RSUM^17290.231^301.31^146722.671^301.31^65572.461^297463.971^5351.141^17290.231^34227.321^9260.161^301.31^51089.401^150.21^24185.261^150.21^17673.251^150.21^1297.61^7182.141^27494.301^194.21^4649.121^150.21
+30 ;1;
+31 ;