OCXDI00D ;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 ^OCXDI00E
;
Q
;
DATA ;
;
;;RSUM^84907.531^122872.651^34619.351^388453.1111^53697.431^36112.341^88090.541^54989.431^88090.541^34619.351^5135.141^34912.361^162406.771^17264.251^27085.311^122586.621^69656.491^20381.251^114133.541^194.21
;;RSUM^790.51^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^194.21^150.21^35365.341^194.21^150.21^2017.81^150.21^2730.91^45263.401^11094.201^1452.61
;;RSUM^150.21^1317.61^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^122183.551^87048.471^67524.431^127506.561^150.21^3838.101^478916.1131^39409.331^7497.161
;;RSUM^150.21^12620.201^150.21^194.21^150.21^6801.141^8869.171^301.31^23964.251^27616.291^80054.531^23697.261^19830.281^19044.251^4575.131^141865.681^135604.601^318305.891^49144.411^60257.461^422361.1111
;;RSUM^64478.431^17648.231^187278.681^66156.451^28793.301^10657.181^5121.121^4706.121^2521.81^150.21^194.21^150.21^87802.551^150.21^86865.561^150.21^2807.91^323976.1021^21988.281^194.21^150.21^3460.101^150.21
;;RSUM^323976.1021^20870.281^194.21^150.21^5445.131^150.21^175870.681^3429.91^150.21^43001.371^71350.471^31428.301^10181.171^201444.771^58480.391^15144.221^150.21^4670.111^150.21^194.21^150.21^1277.61^150.21
;;RSUM^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^10546.181^85171.501^150.21^184791.751^150.21^156740.631^150.21^3838.101^723864.1381^47296.361^7497.161
;;RSUM^150.21^12620.201^150.21^24233.261^150.21^194.21^150.21
;;RND^OCXOCMPV^2/02/99 16:06
;;RTN^OCXOCMPZ^8/04/98 16:10
;;RSUM^150.21^557.41^150.21^3628.101^53382.441^29928.311^58506.421^76904.481^60382.431^301.31^57648.431^14868.231^64756.451^301.31^43782.361^1105.61^876.61^12559.211^62206.441^65294.441^61723.441^151525.681
;;RSUM^678.51^62206.441^65294.441^61723.441^63133.431^82315.491^65051.441^150.21^194.21^150.21^15664.221^150.21^1928.81^40781.381^35223.361^43885.381^194.21^150.21^8487.161^150.21^1928.81^50161.431^39025.391
;;RSUM^20900.271^150.21
;;RND^OCXOCMPZ^8/04/98 16:10
;;RTN^OCXOCONV^10/29/98 12:37
;;RSUM^150.21^557.41^150.21^60943.401^7119.141^150.21^305184.881^150.21^43282.371^141057.601^74357.481^267310.901^150.21^534593.1281^150.21^147461.591^158947.711^167947.641^229496.851^51858.381^8284.151^9575.161
;;RSUM^13188.201^18181.231^9662.161^150.21^7570.161^468.41^6801.151^150.21^132278.591^328603.881^360303.921^122709.541^91673.521^123217.531^98631.551^10772.171^24829.271^40256.351^13512.191^23534.251^150.21
;;RSUM^7570.161^468.41^6801.151^150.21^194.21^2593.91^12845.211^10306.171^32262.351^13201.211^7589.151^18323.241^18389.241^19684.251^30509.321^4189.111^88806.551^4906.121^116923.601^150.21^634.41^150.21^87802.551
;;RSUM^150.21^93407.581^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
;;RND^OCXOCONV^10/29/98 12:37
;;RTN^OCXODGPM^4/30/99 15:03
;;RSUM^150.21^150.21^194.21^8908.161^150.21^11918.171^27492.331^19228.241^10332.171^194.21^2897.91^150.21^19599.221^27492.331^4773.121^10332.171^81860.481^127853.621^15376.241^194.21^150.21^7691.151^150.21
;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^111175.551^150.21^17298.231^66917.431^150.21^102370.581^150.21^63787.431^150.21^25306.261^150.21^194.21^150.21^2523.91^6727.131
;;RSUM^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^28931.301^150.21^14109.171^150.21^44703.381^24402.251^16913.251^23697.281^21523.271^20843.271^22123.271^678.51^150.21^61169.441^2617.81^10384.171
;;RSUM^30763.311^28478.301^28823.301^29132.301^73662.491^150.21^1964.71^150.21^146956.571^150.21^6728.141^11843.181^194.21^150.21^7083.141^150.21^54295.431^150.21
;;RND^OCXODGPM^4/30/99 15:03
;;RTN^OCXODIC^10/29/98 12:37
;;RSUM^150.21^557.41^194.21^150.21^150.21^103828.611^150.21^16628.221^150.21^17923.231^53063.411^150.21^16088.221^150.21
;;RND^OCXODIC^10/29/98 12:37
;;RTN^OCXODSP^10/29/98 12:37
;;RSUM^150.21^150.21^324.31^150.21^150.21^557.41^150.21^27280.271^150.21^46457.381^4409.111^150.21^341950.1011^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^103052.521^165448.721
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00D 4617 printed Dec 13, 2024@02:22:45 Page 2
OCXDI00D ;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 ^OCXDI00E
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^84907.531^122872.651^34619.351^388453.1111^53697.431^36112.341^88090.541^54989.431^88090.541^34619.351^5135.141^34912.361^162406.771^17264.251^27085.311^122586.621^69656.491^20381.251^114133.541^194.21
+3 ;;RSUM^790.51^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^194.21^150.21^35365.341^194.21^150.21^2017.81^150.21^2730.91^45263.401^11094.201^1452.61
+4 ;;RSUM^150.21^1317.61^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^122183.551^87048.471^67524.431^127506.561^150.21^3838.101^478916.1131^39409.331^7497.161
+5 ;;RSUM^150.21^12620.201^150.21^194.21^150.21^6801.141^8869.171^301.31^23964.251^27616.291^80054.531^23697.261^19830.281^19044.251^4575.131^141865.681^135604.601^318305.891^49144.411^60257.461^422361.1111
+6 ;;RSUM^64478.431^17648.231^187278.681^66156.451^28793.301^10657.181^5121.121^4706.121^2521.81^150.21^194.21^150.21^87802.551^150.21^86865.561^150.21^2807.91^323976.1021^21988.281^194.21^150.21^3460.101^150.21
+7 ;;RSUM^323976.1021^20870.281^194.21^150.21^5445.131^150.21^175870.681^3429.91^150.21^43001.371^71350.471^31428.301^10181.171^201444.771^58480.391^15144.221^150.21^4670.111^150.21^194.21^150.21^1277.61^150.21
+8 ;;RSUM^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^10546.181^85171.501^150.21^184791.751^150.21^156740.631^150.21^3838.101^723864.1381^47296.361^7497.161
+9 ;;RSUM^150.21^12620.201^150.21^24233.261^150.21^194.21^150.21
+10 ;;RND^OCXOCMPV^2/02/99 16:06
+11 ;;RTN^OCXOCMPZ^8/04/98 16:10
+12 ;;RSUM^150.21^557.41^150.21^3628.101^53382.441^29928.311^58506.421^76904.481^60382.431^301.31^57648.431^14868.231^64756.451^301.31^43782.361^1105.61^876.61^12559.211^62206.441^65294.441^61723.441^151525.681
+13 ;;RSUM^678.51^62206.441^65294.441^61723.441^63133.431^82315.491^65051.441^150.21^194.21^150.21^15664.221^150.21^1928.81^40781.381^35223.361^43885.381^194.21^150.21^8487.161^150.21^1928.81^50161.431^39025.391
+14 ;;RSUM^20900.271^150.21
+15 ;;RND^OCXOCMPZ^8/04/98 16:10
+16 ;;RTN^OCXOCONV^10/29/98 12:37
+17 ;;RSUM^150.21^557.41^150.21^60943.401^7119.141^150.21^305184.881^150.21^43282.371^141057.601^74357.481^267310.901^150.21^534593.1281^150.21^147461.591^158947.711^167947.641^229496.851^51858.381^8284.151^9575.161
+18 ;;RSUM^13188.201^18181.231^9662.161^150.21^7570.161^468.41^6801.151^150.21^132278.591^328603.881^360303.921^122709.541^91673.521^123217.531^98631.551^10772.171^24829.271^40256.351^13512.191^23534.251^150.21
+19 ;;RSUM^7570.161^468.41^6801.151^150.21^194.21^2593.91^12845.211^10306.171^32262.351^13201.211^7589.151^18323.241^18389.241^19684.251^30509.321^4189.111^88806.551^4906.121^116923.601^150.21^634.41^150.21^87802.551
+20 ;;RSUM^150.21^93407.581^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
+21 ;;RND^OCXOCONV^10/29/98 12:37
+22 ;;RTN^OCXODGPM^4/30/99 15:03
+23 ;;RSUM^150.21^150.21^194.21^8908.161^150.21^11918.171^27492.331^19228.241^10332.171^194.21^2897.91^150.21^19599.221^27492.331^4773.121^10332.171^81860.481^127853.621^15376.241^194.21^150.21^7691.151^150.21
+24 ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^111175.551^150.21^17298.231^66917.431^150.21^102370.581^150.21^63787.431^150.21^25306.261^150.21^194.21^150.21^2523.91^6727.131
+25 ;;RSUM^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^28931.301^150.21^14109.171^150.21^44703.381^24402.251^16913.251^23697.281^21523.271^20843.271^22123.271^678.51^150.21^61169.441^2617.81^10384.171
+26 ;;RSUM^30763.311^28478.301^28823.301^29132.301^73662.491^150.21^1964.71^150.21^146956.571^150.21^6728.141^11843.181^194.21^150.21^7083.141^150.21^54295.431^150.21
+27 ;;RND^OCXODGPM^4/30/99 15:03
+28 ;;RTN^OCXODIC^10/29/98 12:37
+29 ;;RSUM^150.21^557.41^194.21^150.21^150.21^103828.611^150.21^16628.221^150.21^17923.231^53063.411^150.21^16088.221^150.21
+30 ;;RND^OCXODIC^10/29/98 12:37
+31 ;;RTN^OCXODSP^10/29/98 12:37
+32 ;;RSUM^150.21^150.21^324.31^150.21^150.21^557.41^150.21^27280.271^150.21^46457.381^4409.111^150.21^341950.1011^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^103052.521^165448.721
+33 ;1;
+34 ;
