OCXDI00U ;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 ^OCXDI00V
;
Q
;
DATA ;
;
;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^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^OCXSEND8^8/04/98 13:21
;;RTN^OCXSENDA^8/04/98 13:21
;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721
;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701
;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51
;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51
;;RSUM^46979.421^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^471.41^533.41
;;RND^OCXSENDA^8/04/98 13:21
;;RTN^OCXSENDB^8/04/98 13:21
;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281
;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891
;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641
;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191
;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51
;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181
;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21
;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851
;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681
;;RSUM^196188.751^159169.721^150.21^194.21
;;RND^OCXSENDB^8/04/98 13:21
;;RTN^OCXSENDD^8/04/98 13:21
;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181
;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261
;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00U 4758 printed Nov 22, 2024@17:33 Page 2
OCXDI00U ;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 ^OCXDI00V
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51
+3 ;;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
+4 ;;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
+5 ;;RND^OCXSEND8^8/04/98 13:21
+6 ;;RTN^OCXSENDA^8/04/98 13:21
+7 ;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721
+8 ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701
+9 ;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51
+10 ;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51
+11 ;;RSUM^46979.421^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^471.41^533.41
+12 ;;RND^OCXSENDA^8/04/98 13:21
+13 ;;RTN^OCXSENDB^8/04/98 13:21
+14 ;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281
+15 ;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891
+16 ;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641
+17 ;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191
+18 ;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51
+19 ;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181
+20 ;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21
+21 ;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851
+22 ;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681
+23 ;;RSUM^196188.751^159169.721^150.21^194.21
+24 ;;RND^OCXSENDB^8/04/98 13:21
+25 ;;RTN^OCXSENDD^8/04/98 13:21
+26 ;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181
+27 ;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261
+28 ;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271
+29 ;1;
+30 ;
