OCXDI00G.m

OCXDI00G ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997

 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 ;

S ;

 ;

 D DOT^OCXDIAG

 ;

 ;

 K REMOTE,LOCAL,OPCODE,REF

 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D  Q:QUIT

 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT

 ;

 G ^OCXDI00H

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^83304.521^33110.311^150.21^23769.271^150.21^10594.171^202639.821^78195.501^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

 ;;RSUM^194.21^150.21^194.21

 ;;RND^OCXOED05^10/29/98  12:37

 ;;RTN^OCXOED06^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^30574.301^150.21^150.21^150.21^67879.421^150.21^150.21^168101.701^150.21^42868.381^150.21^482.41^150.21^150.21^13060.201^150.21^19497.231^255513.941^39822.361^84926.501

 ;;RSUM^8704.171^22780.251^291925.871^104676.581^133066.621^297540.971^468.41^194.21^150.21^150.21^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21

 ;;RSUM^7820.161^150.21^218023.851^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 ;;RND^OCXOED06^10/29/98  12:37

 ;;RTN^OCXOED07^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^3722.111^150.21^8635.151^531654.1271^150.21^194.21^150.21^22867.261^150.21^67879.421^150.21^296591.1021^150.21^8844.151^92298.511^99817.561^150546.731^160059.751

 ;;RSUM^150.21^55073.361^129744.661^678.51^166057.721^205719.851^434.41^215806.831^226342.841^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21

 ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^14377.211^150.21^7741.141^90082.541^75317.491^399479.1151^194.21^150.21^87711.501^150.21^3252.91^193273.791^141378.651^194.21^150.21^79542.481

 ;;RSUM^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

 ;;RND^OCXOED07^10/29/98  12:37

 ;;RTN^OCXOED08^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^168101.701^150.21^22873.281^150.21^482.41^150.21^150.21^6124.141^57915.461^20637.261^194.21^150.21^12753.201^24397.271^194.21

 ;;RSUM^150.21^14478.211^150.21^13083.211^171527.761^88394.561^233746.881^16221.221^13256.211^171527.761^593430.1291^131429.581^202439.851^16875.231^194.21^150.21^1290.61^4938.111^194.21^150.21^150.21^33701.311

 ;;RSUM^57533.391^11108.191^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^88278.511^150.21^3621.101^27666.311^59749.431^39855.351

 ;;RSUM^38487.351^32907.321^12993.211^150.21

 ;;RND^OCXOED08^10/29/98  12:37

 ;;RTN^OCXOED09^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^17040.231^150.21^8635.151^450111.1171^150.21^194.21^150.21^34530.321^150.21^95344.501^150.21^296591.1021^150.21^30494.301^150.21^8844.151^148358.621^51600.431^427978.1221

 ;;RSUM^200940.841^434.41^1036118.1891^277069.991^87180.551^678.51^71047.511^284052.1021^582093.1431^210611.861^87232.551^678.51^16555.241^678.51^75994.531^209907.871^428666.1221^210687.861^152690.691^150.21

 ;;RSUM^194.21^150.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^33110.311^150.21^23769.271^150.21^62393.411^139912.671

 ;;RSUM^75317.491^312797.1011^111112.601^244238.921^194.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351

 ;;RSUM^38487.351^32907.321^12993.211^150.21^26471.281^148970.691^194.21^150.21

 ;;RND^OCXOED09^10/29/98  12:37

 ;;RTN^OCXOED10^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^30476.301^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^482.41^150.21^150.21^12753.201^28736.301^162604.721^46698.391^77116.531^113309.611^4071.111

 ;;RSUM^5255.131^2539.81^371275.1091^5265.131^2539.81^391537.1131^5506.151^404562.1151^194.21^150.21^5230.131^14763.211^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251

 ;;RSUM^82271.531^150.21^150.21^33701.311^57533.391^11108.191^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^88278.511^150.21^3621.101

 ;;RSUM^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 ;1;

 ;

OCXDI00G  ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3       ;

S         ;

 +1       ;

 +2        DO DOT^OCXDIAG

 +3       ;

 +4       ;

 +5        KILL REMOTE,LOCAL,OPCODE,REF

 +6        FOR LINE=1:1:500

               SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)

               IF TEXT

                   QUIT 

               IF $LENGTH(TEXT)

                   Begin DoDot:1

 +7                    SET ^TMP("OCXDIAG",$JOB,$ORDER(^TMP("OCXDIAG",$JOB,"A"),-1)+1)=TEXT

                   End DoDot:1

                   IF QUIT

                       QUIT 

 +8       ;

 +9        GOTO ^OCXDI00H

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^83304.521^33110.311^150.21^23769.271^150.21^10594.171^202639.821^78195.501^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

 +3       ;;RSUM^194.21^150.21^194.21

 +4       ;;RND^OCXOED05^10/29/98  12:37

 +5       ;;RTN^OCXOED06^10/29/98  12:37

 +6       ;;RSUM^150.21^150.21^324.31^150.21^194.21^30574.301^150.21^150.21^150.21^67879.421^150.21^150.21^168101.701^150.21^42868.381^150.21^482.41^150.21^150.21^13060.201^150.21^19497.231^255513.941^39822.361^84926.501

 +7       ;;RSUM^8704.171^22780.251^291925.871^104676.581^133066.621^297540.971^468.41^194.21^150.21^150.21^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21

 +8       ;;RSUM^7820.161^150.21^218023.851^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 +9       ;;RND^OCXOED06^10/29/98  12:37

 +10      ;;RTN^OCXOED07^10/29/98  12:37

 +11      ;;RSUM^150.21^150.21^324.31^150.21^194.21^3722.111^150.21^8635.151^531654.1271^150.21^194.21^150.21^22867.261^150.21^67879.421^150.21^296591.1021^150.21^8844.151^92298.511^99817.561^150546.731^160059.751

 +12      ;;RSUM^150.21^55073.361^129744.661^678.51^166057.721^205719.851^434.41^215806.831^226342.841^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21

 +13      ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^14377.211^150.21^7741.141^90082.541^75317.491^399479.1151^194.21^150.21^87711.501^150.21^3252.91^193273.791^141378.651^194.21^150.21^79542.481

 +14      ;;RSUM^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

 +15      ;;RND^OCXOED07^10/29/98  12:37

 +16      ;;RTN^OCXOED08^10/29/98  12:37

 +17      ;;RSUM^150.21^150.21^324.31^150.21^194.21^19421.241^150.21^150.21^67879.421^150.21^168101.701^150.21^22873.281^150.21^482.41^150.21^150.21^6124.141^57915.461^20637.261^194.21^150.21^12753.201^24397.271^194.21

 +18      ;;RSUM^150.21^14478.211^150.21^13083.211^171527.761^88394.561^233746.881^16221.221^13256.211^171527.761^593430.1291^131429.581^202439.851^16875.231^194.21^150.21^1290.61^4938.111^194.21^150.21^150.21^33701.311

 +19      ;;RSUM^57533.391^11108.191^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^88278.511^150.21^3621.101^27666.311^59749.431^39855.351

 +20      ;;RSUM^38487.351^32907.321^12993.211^150.21

 +21      ;;RND^OCXOED08^10/29/98  12:37

 +22      ;;RTN^OCXOED09^10/29/98  12:37

 +23      ;;RSUM^150.21^150.21^324.31^150.21^194.21^17040.231^150.21^8635.151^450111.1171^150.21^194.21^150.21^34530.321^150.21^95344.501^150.21^296591.1021^150.21^30494.301^150.21^8844.151^148358.621^51600.431^427978.1221

 +24      ;;RSUM^200940.841^434.41^1036118.1891^277069.991^87180.551^678.51^71047.511^284052.1021^582093.1431^210611.861^87232.551^678.51^16555.241^678.51^75994.531^209907.871^428666.1221^210687.861^152690.691^150.21

 +25      ;;RSUM^194.21^150.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^33110.311^150.21^23769.271^150.21^62393.411^139912.671

 +26      ;;RSUM^75317.491^312797.1011^111112.601^244238.921^194.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251^82271.531^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351

 +27      ;;RSUM^38487.351^32907.321^12993.211^150.21^26471.281^148970.691^194.21^150.21

 +28      ;;RND^OCXOED09^10/29/98  12:37

 +29      ;;RTN^OCXOED10^10/29/98  12:37

 +30      ;;RSUM^150.21^150.21^324.31^150.21^194.21^30476.301^150.21^150.21^67879.421^150.21^296591.1021^150.21^168101.701^150.21^482.41^150.21^150.21^12753.201^28736.301^162604.721^46698.391^77116.531^113309.611^4071.111

 +31      ;;RSUM^5255.131^2539.81^371275.1091^5265.131^2539.81^391537.1131^5506.151^404562.1151^194.21^150.21^5230.131^14763.211^194.21^150.21^10054.171^150.21^8752.151^238532.871^87876.531^6976.151^19897.231^476716.1251

 +32      ;;RSUM^82271.531^150.21^150.21^33701.311^57533.391^11108.191^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^88278.511^150.21^3621.101

 +33      ;;RSUM^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 +34      ;1;

 +35      ;