| 1 | OCXDI00U ;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 ^OCXDI00V
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 19 | ;
|
|---|
| 20 | ;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51
|
|---|
| 21 | ;;RSUM^10902.181^233258.871^263750.901^9613.171^860.51^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341
|
|---|
| 22 | ;;RSUM^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^86291.511^750.51^471.41^533.41^150.21
|
|---|
| 23 | ;;RND^OCXSEND8^8/04/98 13:21
|
|---|
| 24 | ;;RTN^OCXSENDA^8/04/98 13:21
|
|---|
| 25 | ;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721
|
|---|
| 26 | ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701
|
|---|
| 27 | ;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51
|
|---|
| 28 | ;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51
|
|---|
| 29 | ;;RSUM^46979.421^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^471.41^533.41
|
|---|
| 30 | ;;RND^OCXSENDA^8/04/98 13:21
|
|---|
| 31 | ;;RTN^OCXSENDB^8/04/98 13:21
|
|---|
| 32 | ;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281
|
|---|
| 33 | ;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891
|
|---|
| 34 | ;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641
|
|---|
| 35 | ;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191
|
|---|
| 36 | ;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51
|
|---|
| 37 | ;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181
|
|---|
| 38 | ;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21
|
|---|
| 39 | ;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851
|
|---|
| 40 | ;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681
|
|---|
| 41 | ;;RSUM^196188.751^159169.721^150.21^194.21
|
|---|
| 42 | ;;RND^OCXSENDB^8/04/98 13:21
|
|---|
| 43 | ;;RTN^OCXSENDD^8/04/98 13:21
|
|---|
| 44 | ;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181
|
|---|
| 45 | ;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261
|
|---|
| 46 | ;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271
|
|---|
| 47 | ;1;
|
|---|
| 48 | ;
|
|---|
