OCXDI004 ;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 ^OCXDI005
;
Q
;
DATA ;
;
;;RSUM^32723.311^6732.141^14263.201^14904.201^16691.211^28324.281^14912.201^11235.171^25095.261^20482.241^14920.201^11243.171^15322.211^12736.181^14937.201^24666.261^16506.211^18963.231^9521.161^11009.171
;;RSUM^25201.261^14980.201^18647.231^16730.211^14970.201^36863.321^25199.261^14987.201^24306.261^16746.211^33661.301^45092.351^13409.191^11299.171^34771.311^22466.251^14918.201^533.41^150.21
;;RND^OCXBDTD^8/04/98 13:21
;;RTN^OCXDEBUG^10/29/98 12:37
;;RSUM^150.21^2237.81^150.21^7552.141^150.21^152205.631^150.21^15336.221^351280.1051^77151.501^150.21^435701.1111^194.21^150.21^243293.801^150.21^147358.611^150.21^9729.171^31485.301^150.21^152205.631^33858.321
;;RSUM^150.21^434.41^45912.381^50632.421^15336.221^351280.1051^77151.501^150.21^10805.171^66148.411^64767.411^66224.441^239398.861^48953.371^2540.81^18614.231^194.21^150.21^2386.81^6872.141^133228.611^91284.561
;;RSUM^121325.631^151077.701^117908.651^156072.741^167805.711^968.61^194.21^150.21^38325.331^150.21^129564.641^150.21^12970.191^150.21^25040.271^150.21^53472.421^150.21^6168.131^76927.511^14376.221^24248.291
;;RSUM^150.21^25657.301^17652.231^18539.231^5572.121^97325.571^7577.141^23301.291^28129.301^100277.571^12275.191^59384.411^7366.151^876.61^121031.611^53416.391^43530.371^17074.221^150.21^28206.311^43522.351
;;RSUM^97325.571^43387.371^42748.391^41841.381^7366.151^43604.351^43530.371^150.21^28537.311^33296.301^97325.571^43387.371^42748.391^41841.381^7366.151^83728.491^43530.371^150.21^28559.311^19586.231^97325.571
;;RSUM^43387.371^42748.391^41841.381^7366.151^61352.421^43530.371^194.21^150.21^8652.161^150.21^3621.101^34463.331^34810.341^11833.211^113657.661^5734.131^6442.151^150.21^4051.111^3749.101^1882.71^50506.411
;;RSUM^114970.621^294070.1001^194.21^150.21^145326.641^150.21^16396.211^25720.251^105677.471^87613.441^193475.631^128792.511^62263.361^139294.541^150.21^300312.981^150.21^194.21^150.21^33701.311^57533.391
;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^1251.61^150.21^61292.411^150.21^120108.631^36843.341^32923.331^17809.251^28340.321^115224.651^48786.391^23636.291^17836.251
;;RSUM^28367.321^115351.651^39670.351^62390.411^49549.391^150.21^124313.541^99289.571^18689.251^35017.291^33359.331^283238.891^150.21^194.21^150.21
;;RND^OCXDEBUG^10/29/98 12:37
;;RTN^OCXF20^10/29/98 12:37
;;RSUM^194.21^150.21^150.21^28801.291^150.21^111230.621^150.21^24680.271^150.21^111126.621^150.21^16695.221^150.21^111178.621^150.21^61183.421^150.21^90266.591^150.21^82954.521^150.21^61365.421^150.21^90266.591
;;RSUM^150.21^80315.511^150.21
;;RND^OCXF20^10/29/98 12:37
;;RTN^OCXF21^10/29/98 12:37
;;RSUM^194.21^150.21^150.21^150.21^27960.291^150.21^104216.571^150.21^31912.311^150.21^95969.551^150.21^17246.231^150.21^79231.501^150.21^82835.491^150.21^237348.861^150.21^83029.491^150.21^237824.861^150.21
;;RND^OCXF21^10/29/98 12:37
;;RTN^OCXF22^10/29/98 12:37
;;RSUM^194.21^150.21^150.21^1990.81^20915.291^5811.141^150.21^58792.411^150.21^205623.841^150.21^46788.371^150.21^378528.1141^150.21^45606.361^150.21^111282.621^150.21^150.21^47535.371^150.21^112738.621^150.21
;;RSUM^94749.521^150.21^112734.621^150.21^150.21^99339.531^150.21^112842.621^150.21^84536.491^150.21^111178.621^150.21^118406.581^150.21^145393.701^150.21^117413.581^150.21^114123.631^150.21^82913.491^150.21
;;RSUM^90266.591^150.21^94393.551^150.21^83143.491^150.21^90266.591^150.21^90209.541^150.21^49594.401^150.21^102121.541^150.21^40291.361^150.21^91003.511^150.21^42685.371^150.21^77851.471^150.21^37884.351
;;RSUM^150.21^114095.571^150.21^60371.441^150.21^114373.571^150.21^60417.441^150.21^125048.611^150.21^28956.301^150.21^118554.591^150.21^30992.311^150.21
;;RND^OCXF22^10/29/98 12:37
;;RTN^OCXF23^10/29/98 12:37
;;RSUM^194.21^150.21^150.21^5950.141^150.21^92804.581^150.21^5135.131^150.21^92559.581^150.21^3072.101^150.21^29081.331^150.21^3743.111^150.21^27603.321^150.21^4449.121^150.21^29081.331^150.21
;;RND^OCXF23^10/29/98 12:37
;;RTN^OCXFMGR^8/04/98 16:08
;;RSUM^194.21^150.21^4550.131^150.21
;;RND^OCXFMGR^8/04/98 16:08
;;RTN^OCXGENE^3/1/99 12:37
;;RSUM^150.21^150.21^194.21^37864.331^150.21^11918.171^27492.331^19228.241^51762.381^194.21^33183.311^150.21^19599.221^27492.331^4773.121^51762.381^93867.501^127853.621^15376.241^194.21^150.21^45587.361^150.21
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI004 4815 printed Oct 16, 2024@18:23:14 Page 2
OCXDI004 ;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 ^OCXDI005
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^32723.311^6732.141^14263.201^14904.201^16691.211^28324.281^14912.201^11235.171^25095.261^20482.241^14920.201^11243.171^15322.211^12736.181^14937.201^24666.261^16506.211^18963.231^9521.161^11009.171
+3 ;;RSUM^25201.261^14980.201^18647.231^16730.211^14970.201^36863.321^25199.261^14987.201^24306.261^16746.211^33661.301^45092.351^13409.191^11299.171^34771.311^22466.251^14918.201^533.41^150.21
+4 ;;RND^OCXBDTD^8/04/98 13:21
+5 ;;RTN^OCXDEBUG^10/29/98 12:37
+6 ;;RSUM^150.21^2237.81^150.21^7552.141^150.21^152205.631^150.21^15336.221^351280.1051^77151.501^150.21^435701.1111^194.21^150.21^243293.801^150.21^147358.611^150.21^9729.171^31485.301^150.21^152205.631^33858.321
+7 ;;RSUM^150.21^434.41^45912.381^50632.421^15336.221^351280.1051^77151.501^150.21^10805.171^66148.411^64767.411^66224.441^239398.861^48953.371^2540.81^18614.231^194.21^150.21^2386.81^6872.141^133228.611^91284.561
+8 ;;RSUM^121325.631^151077.701^117908.651^156072.741^167805.711^968.61^194.21^150.21^38325.331^150.21^129564.641^150.21^12970.191^150.21^25040.271^150.21^53472.421^150.21^6168.131^76927.511^14376.221^24248.291
+9 ;;RSUM^150.21^25657.301^17652.231^18539.231^5572.121^97325.571^7577.141^23301.291^28129.301^100277.571^12275.191^59384.411^7366.151^876.61^121031.611^53416.391^43530.371^17074.221^150.21^28206.311^43522.351
+10 ;;RSUM^97325.571^43387.371^42748.391^41841.381^7366.151^43604.351^43530.371^150.21^28537.311^33296.301^97325.571^43387.371^42748.391^41841.381^7366.151^83728.491^43530.371^150.21^28559.311^19586.231^97325.571
+11 ;;RSUM^43387.371^42748.391^41841.381^7366.151^61352.421^43530.371^194.21^150.21^8652.161^150.21^3621.101^34463.331^34810.341^11833.211^113657.661^5734.131^6442.151^150.21^4051.111^3749.101^1882.71^50506.411
+12 ;;RSUM^114970.621^294070.1001^194.21^150.21^145326.641^150.21^16396.211^25720.251^105677.471^87613.441^193475.631^128792.511^62263.361^139294.541^150.21^300312.981^150.21^194.21^150.21^33701.311^57533.391
+13 ;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^1251.61^150.21^61292.411^150.21^120108.631^36843.341^32923.331^17809.251^28340.321^115224.651^48786.391^23636.291^17836.251
+14 ;;RSUM^28367.321^115351.651^39670.351^62390.411^49549.391^150.21^124313.541^99289.571^18689.251^35017.291^33359.331^283238.891^150.21^194.21^150.21
+15 ;;RND^OCXDEBUG^10/29/98 12:37
+16 ;;RTN^OCXF20^10/29/98 12:37
+17 ;;RSUM^194.21^150.21^150.21^28801.291^150.21^111230.621^150.21^24680.271^150.21^111126.621^150.21^16695.221^150.21^111178.621^150.21^61183.421^150.21^90266.591^150.21^82954.521^150.21^61365.421^150.21^90266.591
+18 ;;RSUM^150.21^80315.511^150.21
+19 ;;RND^OCXF20^10/29/98 12:37
+20 ;;RTN^OCXF21^10/29/98 12:37
+21 ;;RSUM^194.21^150.21^150.21^150.21^27960.291^150.21^104216.571^150.21^31912.311^150.21^95969.551^150.21^17246.231^150.21^79231.501^150.21^82835.491^150.21^237348.861^150.21^83029.491^150.21^237824.861^150.21
+22 ;;RND^OCXF21^10/29/98 12:37
+23 ;;RTN^OCXF22^10/29/98 12:37
+24 ;;RSUM^194.21^150.21^150.21^1990.81^20915.291^5811.141^150.21^58792.411^150.21^205623.841^150.21^46788.371^150.21^378528.1141^150.21^45606.361^150.21^111282.621^150.21^150.21^47535.371^150.21^112738.621^150.21
+25 ;;RSUM^94749.521^150.21^112734.621^150.21^150.21^99339.531^150.21^112842.621^150.21^84536.491^150.21^111178.621^150.21^118406.581^150.21^145393.701^150.21^117413.581^150.21^114123.631^150.21^82913.491^150.21
+26 ;;RSUM^90266.591^150.21^94393.551^150.21^83143.491^150.21^90266.591^150.21^90209.541^150.21^49594.401^150.21^102121.541^150.21^40291.361^150.21^91003.511^150.21^42685.371^150.21^77851.471^150.21^37884.351
+27 ;;RSUM^150.21^114095.571^150.21^60371.441^150.21^114373.571^150.21^60417.441^150.21^125048.611^150.21^28956.301^150.21^118554.591^150.21^30992.311^150.21
+28 ;;RND^OCXF22^10/29/98 12:37
+29 ;;RTN^OCXF23^10/29/98 12:37
+30 ;;RSUM^194.21^150.21^150.21^5950.141^150.21^92804.581^150.21^5135.131^150.21^92559.581^150.21^3072.101^150.21^29081.331^150.21^3743.111^150.21^27603.321^150.21^4449.121^150.21^29081.331^150.21
+31 ;;RND^OCXF23^10/29/98 12:37
+32 ;;RTN^OCXFMGR^8/04/98 16:08
+33 ;;RSUM^194.21^150.21^4550.131^150.21
+34 ;;RND^OCXFMGR^8/04/98 16:08
+35 ;;RTN^OCXGENE^3/1/99 12:37
+36 ;;RSUM^150.21^150.21^194.21^37864.331^150.21^11918.171^27492.331^19228.241^51762.381^194.21^33183.311^150.21^19599.221^27492.331^4773.121^51762.381^93867.501^127853.621^15376.241^194.21^150.21^45587.361^150.21
+37 ;1;
+38 ;
