source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI009.m

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

initial load of FOIAVistA 6/30/08 version

File size: 4.5 KB
Line 
1OCXDI009 ;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 ^OCXDI00A
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^13788.221^8644.151^12048.211^63846.481^266286.901^150.21^102625.571^150.21^176832.771^49592.391^57829.431^1940.71^150.21^63445.461^150.21^182652.771^150.21^1919.81^102913.591^172114.771^14292.211^546.41
21 ;;RSUM^150.21^4806.121^150.21^4873.111^16407.221^329524.1101^244918.931^92555.571^1486.61^150.21^5644.131^8637.151^39552.361^24563.271^54320.421^62102.451^131514.651^16720.211^5005.141^1866.71^23700.291^260783.781
22 ;;RSUM^296149.841^68576.501^150.21^117528.661^77312.511^1993.71^150.21^5569.131^150.21^4873.111^197981.811^311500.1021^1486.61^150.21
23 ;;RND^OCXOCMPC^10/29/98 12:37
24 ;;RTN^OCXOCMPD^1/12/99 14:45
25 ;;RSUM^150.21^1023.61^150.21^25129.271^150.21^196550.791^37643.341^386467.1121^166638.681^137275.641^101945.531^498.41^263206.921^20761.261^714809.1491^77218.501^16199.231^437159.1171^498.41^124611.651^24097.281
26 ;;RSUM^386892.1121^477700.1211^43701.361^498.41^34886.341^143124.681^151530.701^498.41^834599.1571^91469.551^24119.281^498.41^32615.351^498.41^134824.681^279529.791^283115.801^192308.721^498.41^39951.371
27 ;;RSUM^15016.201^56271.431^59193.441^741.51^25897.291^74957.491^17435.241^264125.811^127369.561^29591.311^90486.531^264125.811^226670.751^29591.311^90958.511^214572.821^354688.931^27721.301^50022.391^129240.631
28 ;;RSUM^85622.531^168050.741^222271.861^197914.791^245774.901^741.51^16922.231^364423.1031^354688.931^28724.311^403398.1131^177206.761^156974.711^229741.871^233181.861^498.41^35109.331^498.41^404034.1061^498.41
29 ;;RSUM^15199.231^37903.381^91102.511^1075116.1881^81529.491^58071.441^498.41^88115.501^71350.451^498.41^57646.401^498.41^154047.691^109596.601^4150.111^841409.1671^848681.1671^841005.1671^555604.1301^253637.931
30 ;;RSUM^245429.881^150.21^4116.101^150.21
31 ;;RND^OCXOCMPD^1/12/99 14:45
32 ;;RTN^OCXOCMPE^10/29/98 12:37
33 ;;RSUM^150.21^557.41^150.21^194.21^150.21^18944.241^150.21^4133.101^114237.581^366867.1041^199558.781^366959.1041^150.21^521985.1231^109596.571^199211.781^150.21^701322.1391^113496.581^209968.801^150.21^701298.1391
34 ;;RSUM^113488.581^209834.801^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261^3686.101^322995.1001^273806.941^31561.321^194.21^150.21^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271
35 ;;RSUM^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^150.21^20956.251^150.21^105629.541^150.21^105507.601^172047.741^150.21^278977.971^411603.1171^320997.1001^355075.1051
36 ;;RSUM^17580.261^368290.1091^150.21^20393.251^273042.921^1108581.1871^13714.191^5166.131^150.21^354897.1091^259716.901^121427.641^360515.1021^375919.1081^60056.471^150.21^34858.331^150.21^57488.441^150.21
37 ;;RSUM^3889.101^1922.81^150.21^18035.231^150.21^134789.641^88173.501^194.21
38 ;;RND^OCXOCMPE^10/29/98 12:37
39 ;;RTN^OCXOCMPF^10/29/98 12:37
40 ;;RSUM^150.21^194.21^150.21^25144.281^12678.181^40274.371^14862.211^99014.591^8425.171^440082.1061^161906.701^359550.1011^203034.771^79410.531^194.21^150.21^5696.131^150.21^51210.371^358909.1071^368143.1081
41 ;;RSUM^4420.121^117865.591^24788.261^494568.1271^168394.721^150.21^5981.141^150.21^12006.171^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111
42 ;;RSUM^327245.1031^4120.121^57706.431^150.21^5644.131^3970.101^150.21^50703.441^1866.71^23700.291^535579.1191^34172.321^68576.501^150.21^101018.611^14264.231^101118.611^14285.231^150.21^101675.621^150.21
43 ;;RSUM^44012.391^22024.261^150.21^45813.401^13386.201^150.21^1486.61^150.21^1002212.1561^150.21^15084.211^150.21^20367.241^186890.761^149377.701^12644.181^219537.831^123242.621^119602.621^23449.251^7425.161
44 ;;RSUM^149827.701^213429.851^80959.511^56830.421^23527.271^4395.111^150.21^3872.101^150.21
45 ;;RND^OCXOCMPF^10/29/98 12:37
46 ;;RTN^OCXOCMPG^1/12/99 14:45
47 ;;RSUM^150.21^9881.171^150.21^11125.171^19137.251^5397.131^150.21^44142.371^36441.341^20757.261^102378.571^159999.721^169863.761^179814.761^136863.661^172669.771^79092.501^251324.901^80596.531^345369.1061
48 ;;RSUM^410763.1121^10622.181^66659.481^41476.361^27796.311^402833.1091^215076.801^269597.931^75484.551^115261.581^108999.591^93789.591^106258.601^143603.691^678230.1461^372622.971^150.21^36115.341^20757.261
49 ;1;
50 ;
Note: See TracBrowser for help on using the repository browser.