OCXDI00T ;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 ^OCXDI00U
;
Q
;
DATA ;
;
;;RSUM^118164.591^1039.61^77581.491^59687.461^187662.801^226714.801^96612.541^187866.801^213042.781^92692.531^123481.631^117115.571^96612.541^757661.1531^157353.641^115849.571^1039.61^151876.681^3796.101
;;RSUM^750.51^21604.251^71097.471^49660.391^61397.441^750.51^17566.231^6257.131^86797.511^69466.461^35027.351^33654.341^31822.331^31868.331^14502.231^22632.291^1388.71^750.51^52376.391^750.51^10227.171^750.51
;;RSUM^124898.591^750.51^48875.431^33003.321^33446.311^90206.511^68626.451^750.51^2298.91^750.51^30243.301^750.51^65203.421^86693.511^119823.641^138338.661^1039.61^112311.601^4863.121^33206.311^346960.1061
;;RSUM^122528.621^122009.621^1039.61^13395.211^21646.251^57805.421^65024.431^78621.511^39740.361^68989.491^85714.501^750.51^860.51^750.51^30300.301^750.51^47366.361^148020.721^61163.451^16361.221^45518.371
;;RSUM^12946.211^104602.591^90937.521^81380.491^201685.891^215822.921^750.51^860.51^750.51^47114.371^750.51^37712.321^750.51^83113.551^85841.511^311245.981^33091.311^750.51^326719.1021^422182.1171^750.51
;;RSUM^860.51^750.51^18506.251^750.51^86291.511^750.51^361684.1111^750.51^471.41^533.41^150.21
;;RND^OCXSEND5^8/04/98 13:21
;;RTN^OCXSEND6^8/04/98 15:44
;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103427.581^206761.801^150.21^1439.61^150.21^1336.61^161140.661^6319.121^6330.121^750.51^1173.61^26305.231^860.51^750.51
;;RSUM^13269.201^750.51^52306.381^48468.401^52733.421^750.51^31869.281^15533.231^750.51^69468.461^105392.581^750.51^1388.71^750.51^52506.391^750.51^27142.271^750.51^154403.621^750.51^41979.371^115306.591
;;RSUM^6296.141^127365.631^44334.411^78000.501^57550.431^750.51^75087.441^750.51^202781.771^750.51^431550.1161^414490.1121^217259.801^750.51^10902.181^233258.871^263750.901^9613.171^860.51^750.51^52728.391
;;RSUM^750.51^49450.371^76873.531^243329.921^36518.351^13228.211^788955.1511^145427.691^67036.441^1388.71^750.51^33052.311^750.51^6562.151^750.51^23746.251^61803.431^77651.471^3813.101^750.51^28920.301^750.51
;;RSUM^16238.211^337584.1051^60236.421^100157.571^110597.601^188311.741^750.51^860.51^750.51^44381.391^750.51^83502.491^750.51^83772.491^55626.421^105773.611^121038.601^239717.871^750.51^12901.211^13565.191
;;RSUM^146717.681^7438.141^122920.601^207991.841^29970.301^45838.371^92172.531^750.51^6973.141^3536.101^750.51^33683.321^115676.601^750.51^860.51^750.51^206022.841^750.51^8402.161^329305.1001^26219.281^860.51
;;RSUM^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51
;;RSUM^86291.511^750.51^471.41^533.41^150.21
;;RND^OCXSEND6^8/04/98 15:44
;;RTN^OCXSEND7^8/04/98 13:21
;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103484.581^206761.801^150.21^1439.61^150.21^1336.61^161149.661^6319.121^6330.121^750.51^1173.61^31605.251^860.51^750.51
;;RSUM^39493.341^750.51^750.51^72753.451^750.51^153860.731^243329.921^36518.351^750.51^13228.211^667500.1371^750.51^73982.471^92555.531^750.51^1388.71^750.51^24789.271^750.51^41100.341^750.51^13228.211^718415.1411
;;RSUM^750.51^87418.561^225542.891^17822.261^60347.431^750.51^106925.611^58638.421^750.51^1388.71^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51
;;RSUM^10902.181^233258.871^263750.901^9613.171^860.51^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341
;;RSUM^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^86291.511^750.51^471.41^533.41^150.21
;;RND^OCXSEND7^8/04/98 13:21
;;RTN^OCXSEND8^8/04/98 13:21
;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103541.581^206761.801^150.21^1439.61^150.21^1336.61^161158.661^6319.121^6330.121^750.51^1173.61^23776.221^860.51^750.51
;;RSUM^58246.411^750.51^47956.361^750.51^112372.631^22105.271^174811.761^29444.311^56101.431^4364.111^12773.201^763014.1481^157410.691^229542.831^750.51^3796.101^750.51^55351.401^750.51^61991.411^750.51^112372.631
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00T 4701 printed Nov 22, 2024@17:33 Page 2
OCXDI00T ;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 ^OCXDI00U
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^118164.591^1039.61^77581.491^59687.461^187662.801^226714.801^96612.541^187866.801^213042.781^92692.531^123481.631^117115.571^96612.541^757661.1531^157353.641^115849.571^1039.61^151876.681^3796.101
+3 ;;RSUM^750.51^21604.251^71097.471^49660.391^61397.441^750.51^17566.231^6257.131^86797.511^69466.461^35027.351^33654.341^31822.331^31868.331^14502.231^22632.291^1388.71^750.51^52376.391^750.51^10227.171^750.51
+4 ;;RSUM^124898.591^750.51^48875.431^33003.321^33446.311^90206.511^68626.451^750.51^2298.91^750.51^30243.301^750.51^65203.421^86693.511^119823.641^138338.661^1039.61^112311.601^4863.121^33206.311^346960.1061
+5 ;;RSUM^122528.621^122009.621^1039.61^13395.211^21646.251^57805.421^65024.431^78621.511^39740.361^68989.491^85714.501^750.51^860.51^750.51^30300.301^750.51^47366.361^148020.721^61163.451^16361.221^45518.371
+6 ;;RSUM^12946.211^104602.591^90937.521^81380.491^201685.891^215822.921^750.51^860.51^750.51^47114.371^750.51^37712.321^750.51^83113.551^85841.511^311245.981^33091.311^750.51^326719.1021^422182.1171^750.51
+7 ;;RSUM^860.51^750.51^18506.251^750.51^86291.511^750.51^361684.1111^750.51^471.41^533.41^150.21
+8 ;;RND^OCXSEND5^8/04/98 13:21
+9 ;;RTN^OCXSEND6^8/04/98 15:44
+10 ;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103427.581^206761.801^150.21^1439.61^150.21^1336.61^161140.661^6319.121^6330.121^750.51^1173.61^26305.231^860.51^750.51
+11 ;;RSUM^13269.201^750.51^52306.381^48468.401^52733.421^750.51^31869.281^15533.231^750.51^69468.461^105392.581^750.51^1388.71^750.51^52506.391^750.51^27142.271^750.51^154403.621^750.51^41979.371^115306.591
+12 ;;RSUM^6296.141^127365.631^44334.411^78000.501^57550.431^750.51^75087.441^750.51^202781.771^750.51^431550.1161^414490.1121^217259.801^750.51^10902.181^233258.871^263750.901^9613.171^860.51^750.51^52728.391
+13 ;;RSUM^750.51^49450.371^76873.531^243329.921^36518.351^13228.211^788955.1511^145427.691^67036.441^1388.71^750.51^33052.311^750.51^6562.151^750.51^23746.251^61803.431^77651.471^3813.101^750.51^28920.301^750.51
+14 ;;RSUM^16238.211^337584.1051^60236.421^100157.571^110597.601^188311.741^750.51^860.51^750.51^44381.391^750.51^83502.491^750.51^83772.491^55626.421^105773.611^121038.601^239717.871^750.51^12901.211^13565.191
+15 ;;RSUM^146717.681^7438.141^122920.601^207991.841^29970.301^45838.371^92172.531^750.51^6973.141^3536.101^750.51^33683.321^115676.601^750.51^860.51^750.51^206022.841^750.51^8402.161^329305.1001^26219.281^860.51
+16 ;;RSUM^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51
+17 ;;RSUM^86291.511^750.51^471.41^533.41^150.21
+18 ;;RND^OCXSEND6^8/04/98 15:44
+19 ;;RTN^OCXSEND7^8/04/98 13:21
+20 ;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103484.581^206761.801^150.21^1439.61^150.21^1336.61^161149.661^6319.121^6330.121^750.51^1173.61^31605.251^860.51^750.51
+21 ;;RSUM^39493.341^750.51^750.51^72753.451^750.51^153860.731^243329.921^36518.351^750.51^13228.211^667500.1371^750.51^73982.471^92555.531^750.51^1388.71^750.51^24789.271^750.51^41100.341^750.51^13228.211^718415.1411
+22 ;;RSUM^750.51^87418.561^225542.891^17822.261^60347.431^750.51^106925.611^58638.421^750.51^1388.71^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51
+23 ;;RSUM^10902.181^233258.871^263750.901^9613.171^860.51^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341
+24 ;;RSUM^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^86291.511^750.51^471.41^533.41^150.21
+25 ;;RND^OCXSEND7^8/04/98 13:21
+26 ;;RTN^OCXSEND8^8/04/98 13:21
+27 ;;RSUM^150.21^1023.61^150.21^26864.271^71118.441^438550.1181^150.21^26747.291^150.21^103541.581^206761.801^150.21^1439.61^150.21^1336.61^161158.661^6319.121^6330.121^750.51^1173.61^23776.221^860.51^750.51
+28 ;;RSUM^58246.411^750.51^47956.361^750.51^112372.631^22105.271^174811.761^29444.311^56101.431^4364.111^12773.201^763014.1481^157410.691^229542.831^750.51^3796.101^750.51^55351.401^750.51^61991.411^750.51^112372.631
+29 ;1;
+30 ;
