Routine: OCXDI00E

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

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;

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      ;

OCXDI00E.m