source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00H.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.5 KB
Line 
1OCXDI00H ;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 ^OCXDI00I
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RND^OCXOED10^10/29/98 12:37
21 ;;RTN^OCXOED11^10/29/98 12:37
22 ;;RSUM^150.21^150.21^324.31^150.21^194.21^3722.111^150.21^8635.151^362313.1051^150.21^194.21^150.21^22867.261^150.21^85858.481^150.21^296591.1021^150.21^53244.401^150.21^240627.871^150.21^8844.151^102838.541
23 ;;RSUM^99788.561^154068.741^149173.731^150.21^59128.381^139721.681^21503.241^79579.521^103425.611^94116.581^876.61^217550.831^181523.781^150.21^599.51^168164.751^186969.781^150.21^194.21^150.21^5364.131^106867.621
24 ;;RSUM^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^23769.271^150.21^37050.331^150.21^192368.801^150.21^313750.1021^150.21
25 ;;RSUM^122809.631^203214.811^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^148970.691^194.21^150.21
26 ;;RND^OCXOED11^10/29/98 12:37
27 ;;RTN^OCXOED12^10/29/98 12:37
28 ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22891.281^150.21^482.41^150.21^150.21^5301.131^53654.441^194.21^150.21^16337.221^150.21
29 ;;RSUM^27429.281^194.21^150.21^14485.211^150.21^19981.231^150.21^13083.211^178688.771^147697.661^156243.681^105616.581^51701.391^185055.741^94090.521^122308.621^68513.481^46656.381^13256.211^178688.771^553201.1261
30 ;;RSUM^131429.581^202877.851^16875.231^194.21^150.21^17859.231^150.21^20833.241^150.21^55996.421^93803.531^65653.471^29138.291^194.21^150.21^1290.61^4938.111^194.21^150.21^150.21^33701.311^57533.391^11108.191
31 ;;RSUM^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^7820.161^150.21^218023.851^150.21^15034.221^150.21^118536.591^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^38563.351
32 ;;RSUM^32907.321^12993.211^150.21^16291.221^150.21^18401.231^43061.351^35328.321^190451.811^356331.1111^50737.421^134385.671^301.31^33176.331^4641.111^376158.1021^186550.671^132735.641^138436.681^62085.451
33 ;;RSUM^99246.571^397219.1111^301.31^8666.171^24387.301^24443.301^41915.411^43264.361^2087.71^150.21
34 ;;RND^OCXOED12^10/29/98 12:37
35 ;;RTN^OCXOED13^10/29/98 12:37
36 ;;RSUM^150.21^150.21^324.31^150.21^194.21^12470.191^150.21^8635.151^62960.461^100914.551^362479.1051^150.21^194.21^150.21^22867.261^150.21^67879.421^296591.1021^19695.241^16686.221^150.21^8844.151^128620.581
37 ;;RSUM^148739.731^198155.841^187628.751^202341.841^150.21^28041.271^150.21^274407.931^432871.1181^216698.841^364019.1091^251671.901^421120.1151^266922.921^434904.1171^278332.941^450653.1191^213736.831^367002.1081
38 ;;RSUM^220294.851^355415.1101^38256.371^400839.1171^460837.1251^150.21^194.21^150.21^17308.231^309264.1021^58571.451^150.21^13326.201^150.21^20547.231^150.21^84460.511^106499.571^86595.521^150.21^150.21^46996.381
39 ;;RSUM^107052.571^98931.541^103143.571^83998.521^63507.441^194.21^150.21^194.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521
40 ;;RSUM^33110.311^150.21^14377.211^150.21^29961.281^150.21^90169.541^78770.501^145897.701^159414.721^127701.641^150.21^112940.611^62021.441^78636.501^150.21^113068.611^62069.441^78716.501^156808.721^170627.741
41 ;;RSUM^132752.651^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^26471.281^107201.591^3773.101^194.21^150.21^21597.251^7334.141^149479.731^119265.641
42 ;;RSUM^101806.581^14895.221^150.21
43 ;;RND^OCXOED13^10/29/98 12:37
44 ;;RTN^OCXOED14^10/29/98 12:37
45 ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^22921.281^150.21^482.41^150.21^6219.141^150.21^2079.71^49816.421^194.21^150.21^17504.231
46 ;;RSUM^150.21^9769.161^35219.321^599.51^83755.491^42343.381^2297.101^13164.201^326956.981^301148.871^209684.781^194.21^150.21^14459.211^150.21^59046.401^150.21^488177.1271^88215.541^150.21^599.51^297339.931
47 ;;RSUM^60472.441^150.21^169719.751^256247.951^236082.891^194.21^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^164196.741^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21
48 ;1;
49 ;
Note: See TracBrowser for help on using the repository browser.