source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI005.m@ 1452

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

initial load of FOIAVistA 6/30/08 version
File size: 4.5 KB
Line 
1OCXDI005 ;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 ^OCXDI006
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^150.21^89952.511^26105.261^150.21^7322.141^42908.361^1830.71^150.21^17298.231^24196.261^150.21^33897.311^150.21^51954.381^150.21
21 ;;RSUM^25306.261^150.21^194.21^150.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^13653.201^150.21^14109.171^150.21^39768.351^61169.441^2617.81^10384.171^28029.281^28462.281
22 ;;RSUM^79752.491^150.21^1964.71^150.21^150.21^146956.571^150.21^6609.141^14086.201^150.21
23 ;;RND^OCXGENE^3/1/99 12:37
24 ;;RTN^OCXLOG1^8/04/98 16:01
25 ;;RSUM^150.21^324.31^150.21^139172.621^108082.541^31711.311^332151.1021^150.21^119955.551^150.21^214408.831^213940.821^162119.721^1457.71^9674.201^192820.771^8091.151^45418.391^1069642.1761^1279048.1881^16727.211
26 ;;RSUM^20419.241^10702.211^741.51^202084.741^31570.301^75369.501^655088.1401^1050998.1721^1431326.1981^741.51^21484.281^1251984.1951^43679.381^97298.531^76258.471^69866.461^921440.1571^312839.1001^1081821.1721
27 ;;RSUM^741.51^25820.271^741.51^72498.491^799103.1451^59147.421^58946.411^29196.301^741.51^6663.131^741.51^491990.1251^474932.1211^502922.1251^741.51^10911.181^47302.361^741.51^150.21^61179.411^150.21^150.21
28 ;;RSUM^88002.541^119923.611^1105.61^74794.541^71752.471^301.31^14828.211^301.31^218757.841^9131.161^19659.241^66199.441^150739.671^125417.621^51895.381^157589.681^741.51^301.31^183576.781^12369.181^19659.241
29 ;;RSUM^66199.441^65099.481^75906.521^53110.411^13966.191^125417.621^51895.381^157589.681^5546.121^150.21^7039.141^150.21^16467.231^188788.771^259268.831^151320.711^314304.991^273479.931^82285.441^301.31^194.21
30 ;;RSUM^150.21^4727.121^19799.261^93152.551^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^37972.321^273654.921^10931.191^20114.271^84497.511^42630.381^3579.111^90907.521^47025.391^3523.111
31 ;;RSUM^29732.291^73448.501^33586.331^150.21^22762.291^1432.61^118297.581^3727.101^150.21^5700.131^150.21^6496.131^16110.211^21497.261^76020.491^3591.101^26330.291^159531.711^194.21^150.21
32 ;;RND^OCXLOG1^8/04/98 16:01
33 ;;RTN^OCXOCMP^2/02/99 13:39
34 ;;RSUM^150.21^557.41^150.21^2030.71^150.21^307129.921^13722.201^160239.601^200334.681^718.51^150.21^245657.741^110827.531^150.21^153328.591^118186.541^83317.461^63740.421^150.21^228424.711^178150.641^185459.661
35 ;;RSUM^141097.601^909.51^150.21^16690.221^150.21^54290.401^150.21^181934.651^18546.231^467058.1041^7145.141^150.21^54326.401^150.21^113300.621^145046.681^83272.541^150.21^54362.401^150.21^93806.471^18546.231
36 ;;RSUM^281589.811^7145.141^150.21^54398.401^150.21^178881.771^239163.881^224092.791^150.21^54434.401^150.21^86638.451^18546.231^303245.841^7145.141^150.21^54470.401^150.21^219234.851^199445.751^150.21^54506.401
37 ;;RSUM^150.21^58802.381^18546.231^280332.811^7145.141^150.21^54542.401^150.21^369699.1121^170051.701^150.21^54578.401^150.21^65617.401^18546.231^326023.871^7145.141^150.21^56249.411^150.21^374691.1131^190620.731
38 ;;RSUM^150.21^56323.411^150.21^97637.481^18546.231^244580.761^7145.141^150.21^56360.411^150.21^152325.711^320628.1031^230097.801^150.21^56397.411^150.21^56692.371^18546.231^223524.731^7145.141^150.21^56434.411
39 ;;RSUM^150.21^153745.711^112985.591^150.21^56471.411^150.21^51420.351^18546.231^223540.731^7145.141^150.21^56508.411^150.21^153761.711^113051.591^136576.621^150.21^56545.411^150.21^39675.311^18546.231^223556.731
40 ;;RSUM^7145.141^150.21^56582.411^150.21^153795.711^123295.621^99977.491^150.21^56285.411^150.21^7497.161^150.21^194.21^150.21^4857.121^20348.251^53002.391^194.21^150.21^6678.141^14046.191^20348.251^53002.391
41 ;;RSUM^9177.151^194.21^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
42 ;;RSUM^1452.61^150.21^87802.551^150.21^86865.561^150.21^150.21^21411.291^150.21
43 ;;RND^OCXOCMP^2/02/99 13:39
44 ;;RTN^OCXOCMP1^12/22/98 13:37
45 ;;RSUM^150.21^1023.61^150.21^18003.221^230131.851^88085.491^88816.491^61953.441^69505.481^203313.801^68790.461^940673.1651^1134758.1771^645829.1391^1038985.1711^1417205.1971^32615.351^19958.271^1239168.1941
46 ;1;
47 ;
Note: See TracBrowser for help on using the repository browser.