OCXDI00E ;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 ^OCXDI00F
;
Q
;
DATA ;
;
;;RSUM^434.41^196617.771^434.41^235992.811^434.41^236462.831^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^329182.961^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671
;;RSUM^83304.521^33110.311^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641
;;RSUM^157079.761^150.21^111375.561^8890.161^8410.151^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21^23368.261^150.21^3988.101^268842.801^17585.241^17827.241^29323.291
;;RSUM^62130.411^150.21^1270.61^65839.471^14342.201^95448.541^194.21^1250.61^65867.471^14342.201^95471.541^194.21^1222.61^65895.471^14342.201^103438.561^194.21^150.21^150.21^280026.891^2872.91^150.21
;;RND^OCXODSP^10/29/98 12:37
;;RTN^OCXODSP1^10/29/98 12:37
;;RSUM^150.21^19591.241^150.21^35454.311^150.21^185727.791^150.21^66012.461^229271.861^243228.881^150.21^434.41^464189.1211^150.21^96521.571^8789.151^678.51^212406.811^42792.401^217888.831^50195.421^15938.211
;;RSUM^357880.1071^301.31^45862.401^117638.591^252272.871^150.21^96558.571^26964.291^678.51^214950.801^405234.1161^418359.1161^416187.1161^444190.1161^432951.1161^423833.1161^437808.1161^720508.1541^720608.1541
;;RSUM^118747.631^150.21^194.21^150.21^150.21^5325.131^150.21^26217.271^8858.181^53775.441^39528.371^426488.1201^294631.991^111555.611^82691.521^82217.481^150.21^7168.161^39528.371^426488.1201^118059.621
;;RSUM^77855.511^85860.531^12673.201^315858.961^150.21^194.21^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101
;;RSUM^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21^13339.201^150.21^122386.631^194.21^150.21
;;RND^OCXODSP1^10/29/98 12:37
;;RTN^OCXODSP2^10/29/98 12:37
;;RSUM^150.21^19591.241^150.21^49865.371^150.21^185787.791^150.21^66042.461^225312.851^243275.881^150.21^434.41^203257.791^216591.831^215276.811^150.21^96557.571^31481.291^74589.511^5755.131^278902.851^212152.751
;;RSUM^8172.161^131247.691^189274.801^8185.161^2680.91^131247.691^157634.751^170701.781^103586.501^196256.811^8198.161^6400.141^131247.691^157634.751^181040.781^103586.501^173091.791^181184.781^98888.491
;;RSUM^274833.941^301.31^263373.941^301.31^322217.1011^150.21^454988.1211^150.21^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21
;;RSUM^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21
;;RSUM^13339.201^150.21^122386.631^194.21^150.21
;;RND^OCXODSP2^10/29/98 12:37
;;RTN^OCXODSP3^10/29/98 12:37
;;RSUM^150.21^33167.311^150.21^35454.311^150.21^282773.971^150.21^66072.461^225499.851^243322.881^150.21^434.41^184325.761^178550.741^150.21^564918.1351^150.21^536496.1171^150.21^204340.791^150.21^142258.661
;;RSUM^150.21^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921
;;RSUM^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21^13339.201^150.21^122386.631^194.21^150.21^23081.261^150.21^3266.91
;;RSUM^350179.1031^194.21^150.21
;;RND^OCXODSP3^10/29/98 12:37
;;RTN^OCXODSP4^10/29/98 12:37
;;RSUM^150.21^38003.331^150.21^119197.571^150.21^343022.961^150.21^46299.391^394920.1041^14854.211^150.21^66126.461^220198.841^243410.881^150.21^434.41^195310.761^183949.761^219283.841^150.21^130070.661^123295.671
;;RSUM^280639.941^150.21^260387.941^123295.671^243092.901^298452.941^150.21^194.21^150.21^4881.121^150.21^11488.171^48919.401^148171.701^230711.871^273411.941^303065.991^4218.101^150.21^10054.171^150.21^8752.151
;;RSUM^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI00E 4721 printed Nov 22, 2024@17:32:46 Page 2
OCXDI00E ;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 ^OCXDI00F
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^434.41^196617.771^434.41^235992.811^434.41^236462.831^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^329182.961^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671
+3 ;;RSUM^83304.521^33110.311^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641
+4 ;;RSUM^157079.761^150.21^111375.561^8890.161^8410.151^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21^23368.261^150.21^3988.101^268842.801^17585.241^17827.241^29323.291
+5 ;;RSUM^62130.411^150.21^1270.61^65839.471^14342.201^95448.541^194.21^1250.61^65867.471^14342.201^95471.541^194.21^1222.61^65895.471^14342.201^103438.561^194.21^150.21^150.21^280026.891^2872.91^150.21
+6 ;;RND^OCXODSP^10/29/98 12:37
+7 ;;RTN^OCXODSP1^10/29/98 12:37
+8 ;;RSUM^150.21^19591.241^150.21^35454.311^150.21^185727.791^150.21^66012.461^229271.861^243228.881^150.21^434.41^464189.1211^150.21^96521.571^8789.151^678.51^212406.811^42792.401^217888.831^50195.421^15938.211
+9 ;;RSUM^357880.1071^301.31^45862.401^117638.591^252272.871^150.21^96558.571^26964.291^678.51^214950.801^405234.1161^418359.1161^416187.1161^444190.1161^432951.1161^423833.1161^437808.1161^720508.1541^720608.1541
+10 ;;RSUM^118747.631^150.21^194.21^150.21^150.21^5325.131^150.21^26217.271^8858.181^53775.441^39528.371^426488.1201^294631.991^111555.611^82691.521^82217.481^150.21^7168.161^39528.371^426488.1201^118059.621
+11 ;;RSUM^77855.511^85860.531^12673.201^315858.961^150.21^194.21^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101
+12 ;;RSUM^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21^13339.201^150.21^122386.631^194.21^150.21
+13 ;;RND^OCXODSP1^10/29/98 12:37
+14 ;;RTN^OCXODSP2^10/29/98 12:37
+15 ;;RSUM^150.21^19591.241^150.21^49865.371^150.21^185787.791^150.21^66042.461^225312.851^243275.881^150.21^434.41^203257.791^216591.831^215276.811^150.21^96557.571^31481.291^74589.511^5755.131^278902.851^212152.751
+16 ;;RSUM^8172.161^131247.691^189274.801^8185.161^2680.91^131247.691^157634.751^170701.781^103586.501^196256.811^8198.161^6400.141^131247.691^157634.751^181040.781^103586.501^173091.791^181184.781^98888.491
+17 ;;RSUM^274833.941^301.31^263373.941^301.31^322217.1011^150.21^454988.1211^150.21^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21
+18 ;;RSUM^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21
+19 ;;RSUM^13339.201^150.21^122386.631^194.21^150.21
+20 ;;RND^OCXODSP2^10/29/98 12:37
+21 ;;RTN^OCXODSP3^10/29/98 12:37
+22 ;;RSUM^150.21^33167.311^150.21^35454.311^150.21^282773.971^150.21^66072.461^225499.851^243322.881^150.21^434.41^184325.761^178550.741^150.21^564918.1351^150.21^536496.1171^150.21^204340.791^150.21^142258.661
+23 ;;RSUM^150.21^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921
+24 ;;RSUM^153169.671^50768.391^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^150.21^13339.201^150.21^122386.631^194.21^150.21^23081.261^150.21^3266.91
+25 ;;RSUM^350179.1031^194.21^150.21
+26 ;;RND^OCXODSP3^10/29/98 12:37
+27 ;;RTN^OCXODSP4^10/29/98 12:37
+28 ;;RSUM^150.21^38003.331^150.21^119197.571^150.21^343022.961^150.21^46299.391^394920.1041^14854.211^150.21^66126.461^220198.841^243410.881^150.21^434.41^195310.761^183949.761^219283.841^150.21^130070.661^123295.671
+29 ;;RSUM^280639.941^150.21^260387.941^123295.671^243092.901^298452.941^150.21^194.21^150.21^4881.121^150.21^11488.171^48919.401^148171.701^230711.871^273411.941^303065.991^4218.101^150.21^10054.171^150.21^8752.151
+30 ;;RSUM^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^34822.321^150.21^6397.131^150.21^15738.201^150.21^37072.341^44651.391^257989.921^153169.671^50768.391^194.21^150.21^79542.481^150.21
+31 ;1;
+32 ;
