source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00E.m@ 1582

Last change on this file since 1582 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1OCXDI00E ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI00F
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;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
21 ;;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
22 ;;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
23 ;;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
24 ;;RND^OCXODSP^10/29/98 12:37
25 ;;RTN^OCXODSP1^10/29/98 12:37
26 ;;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
27 ;;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
28 ;;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
29 ;;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
30 ;;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
31 ;;RND^OCXODSP1^10/29/98 12:37
32 ;;RTN^OCXODSP2^10/29/98 12:37
33 ;;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
34 ;;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
35 ;;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
36 ;;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
37 ;;RSUM^13339.201^150.21^122386.631^194.21^150.21
38 ;;RND^OCXODSP2^10/29/98 12:37
39 ;;RTN^OCXODSP3^10/29/98 12:37
40 ;;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
41 ;;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
42 ;;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
43 ;;RSUM^350179.1031^194.21^150.21
44 ;;RND^OCXODSP3^10/29/98 12:37
45 ;;RTN^OCXODSP4^10/29/98 12:37
46 ;;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
47 ;;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
48 ;;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
49 ;1;
50 ;
Note: See TracBrowser for help on using the repository browser.