©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
OCXDI00Q ;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 ^OCXDI00R
;
Q
;
DATA ;
;
;;RSUM^12895.201^30370.301^19609.231^11172.211^7831.141^25169.321^17776.231^25197.321^18456.221^22217.301^36518.331^25192.321^5711.141^25220.321^18456.221^22240.301^17843.241^25215.321^5709.141^25243.321
;;RSUM^18456.221^22263.301^17771.241^25238.321^12194.211^25266.321^18456.221^22286.301^29597.331^25261.321^17698.231^25289.321^18456.221^22309.301^36340.331^25284.321^7831.141^25312.321^18456.221^533.41^150.21
;;RND^OCXRU00B^APR 30,1999 at 15:30
;;RTN^OCXRU00C^APR 30,1999 at 15:30
;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^150.21^150.21^194.21^150.21^1224.61^150.21^22332.301^28603.281^25307.321^6580.151^25335.321^18456.221^22355.301^19272.251
;;RSUM^25330.321^6654.151^25358.321^18456.221^22378.301^19466.251^25167.321^1363.61^22215.301^52274.431^22241.301^34841.301^22345.301^520630.1101^25190.321^1369.61^22238.301^45316.371^22264.301^34841.301
;;RSUM^22368.301^992888.1531^25213.321^1375.61^22261.301^102152.581^22287.301^34841.301^22391.301^1266180.1721^25236.321^1381.61^22284.301^70209.501^22310.301^34841.301^22414.301^1101950.1611^25259.321^1387.61
;;RSUM^22307.301^25892.291^22333.301^34841.301^22437.301^128195.551^2148.71^12878.201^533.41^150.21
;;RND^OCXRU00C^APR 30,1999 at 15:30
;;RTN^OCXRU1^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^150.21^194.21^150.21^150.21^6156.141^150.21^6057.151^150.21^43444.381^150.21^98878.581^150.21^482.41^150.21^3149.101^150.21^4734.111^2989.91^134282.671^2671.91^37637.371^27720.301^10974.171
;;RSUM^66118.491^569172.1281^20780.241^227273.781^28781.291^7582.151^3638.111^110423.601^150.21^2065.71^150.21^10660.181^150.21^35384.311^108598.601^150.21^207055.811^21873.261^16902.231^235659.851^92206.491
;;RSUM^74623.461^235599.851^83680.471^106767.561^301.31^68626.461^52100.431^173928.771^209980.771^86391.511^174132.771^196950.751^82714.501^112174.601^105127.541^86391.511^728432.1501^143082.611^104446.541
;;RSUM^301.31^139165.651^2065.71^150.21^16756.221^62298.441^42559.361^53585.411^150.21^13270.201^3932.101^76933.481^60715.431^29321.321^28074.311^26392.301^26426.301^10962.201^18147.261^482.41^150.21^44654.361
;;RSUM^150.21^7182.141^150.21^113024.561^150.21^42176.401^27591.291^27539.281^80417.481^60244.421^150.21^1080.61^150.21^24471.271^150.21^56569.391^77036.481^108729.611^126155.631^301.31^101670.571^2946.91
;;RSUM^27509.281^327925.1031^111236.591^111269.591^301.31^9921.181^17164.221^50356.391^56684.401^70005.481^33926.331^61150.461^76228.471^150.21^194.21^150.21^24516.271^150.21^40328.331^135453.691^53312.421
;;RSUM^12461.191^38693.341^9589.181^94549.561^81451.491^72263.461^188302.861^202004.891^150.21^194.21^150.21^39818.341^150.21^31301.291^150.21^73801.521^76223.481^293446.951^27283.281^150.21^385542.1111^401344.1141
;;RSUM^150.21^194.21^150.21^14639.221^150.21^76418.481^150.21^342244.1081^150.21
;;RND^OCXRU1^APR 30,1999 at 15:07
;;RTN^OCXRU2^APR 30,1999 at 15:07
;;RSUM^150.21^324.31^20728.201^194.21^150.21^9603.171^150.21^44698.351^41442.371^45242.391^150.21^25884.251^11744.201^150.21^60870.431^94760.551^150.21^482.41^150.21^44766.361^150.21^21802.241^150.21^141257.591
;;RSUM^150.21^35220.341^104038.561^4040.111^115707.601^37737.381^68955.471^49963.401^150.21^65871.411^150.21^188279.741^150.21^409710.1131^393211.1091^201788.771^150.21^7737.151^217424.841^247076.871^6691.141
;;RSUM^194.21^150.21^44910.361^150.21^42082.341^68023.501^227558.891^30509.321^9676.181^757983.1481^132935.661^58414.411^482.41^150.21^26983.281^150.21^4195.121^150.21^18751.221^53571.401^68294.441^2085.71
;;RSUM^150.21^23367.271^150.21^12218.181^318225.1021^52070.391^90020.541^99932.571^173908.711^150.21^194.21^150.21^37826.361^150.21^73689.461^150.21^74244.461^48213.391^95279.581^109560.571^223871.841^150.21
;;RSUM^9541.181^9980.161^133952.651^4903.111^111187.571^25988.291^24540.271^38932.341^82212.501^150.21^4477.111^1901.71^150.21^28223.291^104591.571^150.21^194.21^150.21^191271.811^150.21^5498.131^310210.971
;;RSUM^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471
;1;
;