OCXDI00I ;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 ^OCXDI00J
;
Q
;
DATA ;
;
;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671
;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
;;RND^OCXOED14^10/29/98 12:37
;;RTN^OCXOED15^10/29/98 12:37
;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41
;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311
;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
;;RND^OCXOED15^10/29/98 12:37
;;RTN^OCXOED16^10/29/98 12:37
;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21
;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21
;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311
;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311
;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
;;RND^OCXOED16^10/29/98 12:37
;;RTN^OCXOEDT^10/29/98 12:37
;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^1317.61^150.21
;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241
;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151
;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21
;;RND^OCXOEDT^10/29/98 12:37
;;RTN^OCXOEDT4^10/29/98 12:37
;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21
;;RND^OCXOEDT4^10/29/98 12:37
;;RTN^OCXOEDT5^10/29/98 12:37
;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21
;;RND^OCXOEDT5^10/29/98 12:37
;;RTN^OCXOEDT6^5/27/99 16:52
;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391
;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931
;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581
;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321
;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00I 4723 printed Dec 13, 2024@02:22:50 Page 2
OCXDI00I ;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 ^OCXDI00J
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671
+3 ;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
+4 ;;RND^OCXOED14^10/29/98 12:37
+5 ;;RTN^OCXOED15^10/29/98 12:37
+6 ;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41
+7 ;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311
+8 ;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
+9 ;;RND^OCXOED15^10/29/98 12:37
+10 ;;RTN^OCXOED16^10/29/98 12:37
+11 ;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21
+12 ;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21
+13 ;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311
+14 ;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311
+15 ;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
+16 ;;RND^OCXOED16^10/29/98 12:37
+17 ;;RTN^OCXOEDT^10/29/98 12:37
+18 ;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^1317.61^150.21
+19 ;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241
+20 ;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151
+21 ;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21
+22 ;;RND^OCXOEDT^10/29/98 12:37
+23 ;;RTN^OCXOEDT4^10/29/98 12:37
+24 ;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21
+25 ;;RND^OCXOEDT4^10/29/98 12:37
+26 ;;RTN^OCXOEDT5^10/29/98 12:37
+27 ;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21
+28 ;;RND^OCXOEDT5^10/29/98 12:37
+29 ;;RTN^OCXOEDT6^5/27/99 16:52
+30 ;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391
+31 ;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931
+32 ;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581
+33 ;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321
+34 ;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371
+35 ;1;
+36 ;
