- 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;
- ;
- 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 ;