| [613] | 1 | OCXDI00H ;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 ^OCXDI00I
|
|---|
| 15 | ;
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 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 | ;
|
|---|
