| [613] | 1 | OCXDI008 ;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 | ;
|
|---|
| 5 | S ;
|
|---|
| 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 ^OCXDI009
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 19 | ;
|
|---|
| 20 | ;;RSUM^83566.511^87725.521^25934.311^38545.341^27929.301^73590.501^194.21^150.21^9570.171^150.21^48946.371^53400.381^150.21^19923.241^19231.231^25300.281^150.21^74517.501^79033.521^77520.501^77239.511^119413.621
|
|---|
| 21 | ;;RSUM^85078.521^44876.401^62422.431^8306.171^23309.291^38430.381^89946.571^65495.471^229149.811^11927.201^117382.571^77343.491^83141.511^150.21^74601.501^79112.521^77599.501^77302.511^119537.621^150.21^54806.391
|
|---|
| 22 | ;;RSUM^150.21^169209.761^4833.111^334173.1031^351863.1061^32138.311^19730.251^228714.871^150.21^227454.851^150.21^32951.321^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001^150.21
|
|---|
| 23 | ;;RND^OCXOCMP8^10/29/98 12:37
|
|---|
| 24 | ;;RTN^OCXOCMP9^10/29/98 12:37
|
|---|
| 25 | ;;RSUM^150.21^194.21^1023.61^8409.161^150.21^76625.501^150.21^3146.91^150.21^94164.561^35094.341^30722.341^41320.371^188611.781^11100.171^235078.891^34554.361^197632.791^187049.791^389065.1101^387835.1101
|
|---|
| 26 | ;;RSUM^4971.111^189301.781^4762.111^339230.1041^354375.1061^368740.1081^361872.1071^150.21^212968.821^205493.811^468579.1221^34554.361^223833.851^150.21^35739.351^9528.161^124321.641^218605.841^150.21^8682.161
|
|---|
| 27 | ;;RSUM^214624.841^62357.411^178041.751^184082.761^97248.551^357352.1061^13723.201^7074.141^38718.351^14312.201^77678.491^489498.1281^121635.621^74123.491^175669.751^121635.621^74123.491^150.21^74532.501^150.21
|
|---|
| 28 | ;;RSUM^61977.421^150.21^92878.511^9296.161^53768.401^126128.631^15400.231^438396.1071^98932.571^86568.551^398451.1101^716195.1461^30455.301^603611.1381^42616.351^341150.1011^388889.1081^66126.441^509673.1211
|
|---|
| 29 | ;;RSUM^32615.351^116505.591^70939.481^34554.361^61131.441^301.31^7137.151^28004.281^63345.441^42616.351^341150.1011^388889.1081^66126.441^509673.1211^32615.351^116809.591^70939.481^34554.361^61131.441^301.31
|
|---|
| 30 | ;;RSUM^26114.271^133485.671^127667.651^63113.441^42616.351^341150.1011^388889.1081^60715.421^4441.111^498.41^32615.351^116505.591^70939.481^34554.361^61131.441^194.21^150.21^8548.161^150.21^38025.361^150.21
|
|---|
| 31 | ;;RSUM^15945.221^150.21^2554.81^182270.781^96317.571^150.21^16702.221^150.21^3447.101^8331.161^35535.351^405085.1171^5099.131^150.21^38125.361^108811.581^482.41^150.21
|
|---|
| 32 | ;;RND^OCXOCMP9^10/29/98 12:37
|
|---|
| 33 | ;;RTN^OCXOCMPA^10/29/98 12:37
|
|---|
| 34 | ;;RSUM^150.21^194.21^150.21^18289.231^150.21^18324.241^2749.91^51333.401^53651.411^189196.771^159166.711^93308.561^93884.561^65289.451^150.21^7913.151^150.21^1531.71^11353.211^5416.131^7001.161^642.41^150.21
|
|---|
| 35 | ;;RSUM^313013.821^125503.531^150.21^11051.201^92767.501^129618.611^66062.451^66151.451^63276.441^64210.451^167965.681^106849.591^155844.711^71504.461^50701.391^573578.1101^161784.711^41407.351^331303.971
|
|---|
| 36 | ;;RSUM^33128.301^150.21
|
|---|
| 37 | ;;RND^OCXOCMPA^10/29/98 12:37
|
|---|
| 38 | ;;RTN^OCXOCMPB^10/29/98 12:37
|
|---|
| 39 | ;;RSUM^150.21^194.21^150.21^36791.331^150.21^8409.161^109294.541^70365.441^22033.271^35162.331^150.21^84957.541^200570.751^150.21^268621.911^4989.111^301.31^10898.171^301.31^11380.181^485168.1271^1216029.1911
|
|---|
| 40 | ;;RSUM^382847.1091^295505.941^301.31^25095.261^301.31^197336.741^359035.1011^372716.1031^359077.1011^301.31^4971.111^301.31^21903.251^301.31^8207.161^256420.851^54642.381^301.31^15878.211^301.31^10682.171
|
|---|
| 41 | ;;RSUM^47905.371^498.41^49905.401^49933.401^498.41^92726.541^35351.321^45883.381^324182.1021^741.51^35675.331^15479.211^91854.561^9419.171^287075.1011^72077.511^14395.221^66655.481^95271.571^259209.971^741.51
|
|---|
| 42 | ;;RSUM^35322.331^3457.101^331956.1081^332081.1081^741.51^232125.901^57370.421^15193.221^498.41^210000.821^125796.621^150.21^20214.241^71781.461^339956.1001^22033.271^4116.101^150.21^3685.111^620.41^22369.281
|
|---|
| 43 | ;;RSUM^8186.151^140284.681^194.21^150.21^2010.81^174959.751^150.21^1919.81^102913.591^172114.771^14292.211^546.41^150.21^1002212.1561^150.21
|
|---|
| 44 | ;;RND^OCXOCMPB^10/29/98 12:37
|
|---|
| 45 | ;;RTN^OCXOCMPC^10/29/98 12:37
|
|---|
| 46 | ;;RSUM^150.21^194.21^150.21^16581.221^150.21^482.41^256577.831^150.21^154850.661^150.21^24723.281^150.21^22727.251^150.21^71659.491^149152.691^301.31^144873.681^301.31^117409.631^301.31^87058.541^297463.971
|
|---|
| 47 | ;;RSUM^17290.231^301.31^146722.671^301.31^65572.461^297463.971^5351.141^17290.231^34227.321^9260.161^301.31^51089.401^150.21^24185.261^150.21^17673.251^150.21^1297.61^7182.141^27494.301^194.21^4649.121^150.21
|
|---|
| 48 | ;1;
|
|---|
| 49 | ;
|
|---|
