OCXDI00R ;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 ^OCXDI00S
;
Q
;
DATA ;
;
;;RSUM^646.41^150.21^76418.481^150.21
;;RND^OCXRU2^APR 30,1999 at 15:07
;;RTN^OCXRU3^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^25317.221^194.21^150.21^32797.311^150.21^150.21^63684.421^150.21^141098.701^227558.891^30509.321^150.21^9676.181^639222.1341^150.21^64901.441^82568.501^150.21^482.41^150.21^19533.241
;;RSUM^150.21^34434.311^150.21^9676.181^688709.1381^150.21^77911.531^210473.861^13919.231^52202.401^150.21^96215.581^50817.391^150.21^482.41^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
;;RND^OCXRU3^APR 30,1999 at 15:07
;;RTN^OCXRU4^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^18568.191^194.21^150.21^50059.381^150.21^40735.331^150.21^101437.601^17380.241^160879.731^23999.281^48598.401^2531.81^9323.171^732636.1451^144087.661^213222.801^150.21^2065.71^150.21
;;RSUM^47407.371^150.21^53696.381^150.21^101437.601^17380.241^160879.731^23999.281^9676.181^776560.1491^139741.651^100708.551^150.21^2065.71^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
;;RND^OCXRU4^APR 30,1999 at 15:07
;;RTN^OCXRULE^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^150.21^163935.691^150.21^1435.61^374594.1031^1798.81^678.51^113672.491^95861.491^285290.871^69790.461^120114.501^121003.611^139306.651^37500.341^345062.1041^6266.141^150.21^909.51^150.21
;;RSUM^36501.321^150.21^139987.671^132027.661^103136.571^153954.701^498.41^360455.1091^173584.771^91623.551^498.41^185781.741^38948.341^131294.611^16452.231^7772.151^63902.451^7210.151^9063.161^116854.571
;;RSUM^498.41^175297.721^150.21^14200.211^150.21^6544.141^12386.191^68380.471^94245.561^48732.381^150.21^127507.641^35697.291^279436.771^160943.651^150.21^194.21^150.21^40079.391^150.21^33701.311^57533.391
;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21
;;RND^OCXRULE^APR 30,1999 at 15:07
;;RTN^OCXSEND^8/04/98 13:21
;;RSUM^150.21^324.31^17096.221^35127.331^60996.421^19171.231^345012.1041^8688.171^8714.171^150.21^103594.471^150.21^284049.861^150.21^29566.311^678.51^140060.531^117764.521^301.31^1055361.1601^150.21^6512.131
;;RSUM^299200.821^206663.701^350568.891^468.41^150.21^1878.71^150.21^31879.281^150.21^59000.371^150.21^182102.651^150.21^175487.641^150.21^175577.641^150.21^175667.641^150.21^175757.641^150.21^175847.641
;;RSUM^150.21^48209.381^150.21^76370.441^150.21^194.21^150.21^24345.271^41556.331^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21^86079.541^150.21^3708.111^55911.421^39072.361
;;RSUM^2804.91^150.21^1243.61^150.21^97991.461^6457.131^2933.91^260482.821^150.21^79931.511^18807.251^39228.341^150.21^167467.741^18807.251^39228.341^150.21^197670.811^18807.251^39228.341^150.21^103208.551
;;RSUM^150.21^194.21^150.21^5099.131^150.21^636.41^25602.291^59094.461^150.21^212769.821^150.21
;;RND^OCXSEND^8/04/98 13:21
;;RTN^OCXSEND1^8/04/98 13:21
;;RSUM^150.21^324.31^150.21^9234.161^150.21^207074.811^150.21^194.21^150.21^9661.171^150.21^60480.411^208522.801^57460.431^517486.1231^189636.851^4720.121^97455.551^22341.271^135587.661^150.21^6542.151^255620.801
;;RSUM^91118.451^236339.891^8076.161^17042.241^159411.721^214823.901^112659.561^151719.741^5398.131^150.21^8815.181^38026.321^5500.131^125309.671^16000.231^18239.231^114036.631^38964.341^22454.281^112890.601
;;RSUM^71649.481^27947.291^43052.361^45521.371^150.21^108384.561^5629.141^38923.341^41298.351^150.21^486.41^150.21^1716.71^150.21^38152.361^97809.571^109360.591^31493.321^38683.351^36369.341^36322.341^32308.321
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00R 4695 printed Nov 22, 2024@17:32:58 Page 2
OCXDI00R ;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 ^OCXDI00S
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^646.41^150.21^76418.481^150.21
+3 ;;RND^OCXRU2^APR 30,1999 at 15:07
+4 ;;RTN^OCXRU3^APR 30,1999 at 15:07
+5 ;;RSUM^150.21^324.31^25317.221^194.21^150.21^32797.311^150.21^150.21^63684.421^150.21^141098.701^227558.891^30509.321^150.21^9676.181^639222.1341^150.21^64901.441^82568.501^150.21^482.41^150.21^19533.241
+6 ;;RSUM^150.21^34434.311^150.21^9676.181^688709.1381^150.21^77911.531^210473.861^13919.231^52202.401^150.21^96215.581^50817.391^150.21^482.41^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
+7 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
+8 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
+9 ;;RND^OCXRU3^APR 30,1999 at 15:07
+10 ;;RTN^OCXRU4^APR 30,1999 at 15:07
+11 ;;RSUM^150.21^324.31^18568.191^194.21^150.21^50059.381^150.21^40735.331^150.21^101437.601^17380.241^160879.731^23999.281^48598.401^2531.81^9323.171^732636.1451^144087.661^213222.801^150.21^2065.71^150.21
+12 ;;RSUM^47407.371^150.21^53696.381^150.21^101437.601^17380.241^160879.731^23999.281^9676.181^776560.1491^139741.651^100708.551^150.21^2065.71^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
+13 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
+14 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
+15 ;;RND^OCXRU4^APR 30,1999 at 15:07
+16 ;;RTN^OCXRULE^APR 30,1999 at 15:07
+17 ;;RSUM^150.21^324.31^150.21^163935.691^150.21^1435.61^374594.1031^1798.81^678.51^113672.491^95861.491^285290.871^69790.461^120114.501^121003.611^139306.651^37500.341^345062.1041^6266.141^150.21^909.51^150.21
+18 ;;RSUM^36501.321^150.21^139987.671^132027.661^103136.571^153954.701^498.41^360455.1091^173584.771^91623.551^498.41^185781.741^38948.341^131294.611^16452.231^7772.151^63902.451^7210.151^9063.161^116854.571
+19 ;;RSUM^498.41^175297.721^150.21^14200.211^150.21^6544.141^12386.191^68380.471^94245.561^48732.381^150.21^127507.641^35697.291^279436.771^160943.651^150.21^194.21^150.21^40079.391^150.21^33701.311^57533.391
+20 ;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21
+21 ;;RND^OCXRULE^APR 30,1999 at 15:07
+22 ;;RTN^OCXSEND^8/04/98 13:21
+23 ;;RSUM^150.21^324.31^17096.221^35127.331^60996.421^19171.231^345012.1041^8688.171^8714.171^150.21^103594.471^150.21^284049.861^150.21^29566.311^678.51^140060.531^117764.521^301.31^1055361.1601^150.21^6512.131
+24 ;;RSUM^299200.821^206663.701^350568.891^468.41^150.21^1878.71^150.21^31879.281^150.21^59000.371^150.21^182102.651^150.21^175487.641^150.21^175577.641^150.21^175667.641^150.21^175757.641^150.21^175847.641
+25 ;;RSUM^150.21^48209.381^150.21^76370.441^150.21^194.21^150.21^24345.271^41556.331^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21^86079.541^150.21^3708.111^55911.421^39072.361
+26 ;;RSUM^2804.91^150.21^1243.61^150.21^97991.461^6457.131^2933.91^260482.821^150.21^79931.511^18807.251^39228.341^150.21^167467.741^18807.251^39228.341^150.21^197670.811^18807.251^39228.341^150.21^103208.551
+27 ;;RSUM^150.21^194.21^150.21^5099.131^150.21^636.41^25602.291^59094.461^150.21^212769.821^150.21
+28 ;;RND^OCXSEND^8/04/98 13:21
+29 ;;RTN^OCXSEND1^8/04/98 13:21
+30 ;;RSUM^150.21^324.31^150.21^9234.161^150.21^207074.811^150.21^194.21^150.21^9661.171^150.21^60480.411^208522.801^57460.431^517486.1231^189636.851^4720.121^97455.551^22341.271^135587.661^150.21^6542.151^255620.801
+31 ;;RSUM^91118.451^236339.891^8076.161^17042.241^159411.721^214823.901^112659.561^151719.741^5398.131^150.21^8815.181^38026.321^5500.131^125309.671^16000.231^18239.231^114036.631^38964.341^22454.281^112890.601
+32 ;;RSUM^71649.481^27947.291^43052.361^45521.371^150.21^108384.561^5629.141^38923.341^41298.351^150.21^486.41^150.21^1716.71^150.21^38152.361^97809.571^109360.591^31493.321^38683.351^36369.341^36322.341^32308.321
+33 ;1;
+34 ;
