BITEST.m

BITEST ;IHS/CMI/MWR - TEST SPEED OF FORECASTING.; MAY 10, 2010

 ;;8.5;IMMUNIZATION;;SEP 01,2011

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;  TEST SPEED OF IMMSERVE FORECASTING.

 ;

 ;

 ;----------

BEGIN ;EP

 N BIERR,BIFORC,BIHX,BIPROF,BITTTB,BITTTE

 ;

 ;---> Build a sample Immunization History.

 S BIHX="0^12172005^0^0^0^0^0^0^R^I^I^1^1^1^1^1^1^1^1^0^1^1^1^IHS_10^0^0"

 S BIHX=BIHX_"^HOGU,SYLVIA  Chart#: 00-00-20^20^09202003^U"

 S BIHX=BIHX_"^0^0^0^0^0^0^0^0^0^0^0^1^0^0^0^0^0^5^2022^49^0^0^0"

 S BIHX=BIHX_"^09212003^0^2085^3^0^0^0^01012004^0^2033^3^0^0^0"

 S BIHX=BIHX_"^01012004^0^2033^3^0^0^0^10112005^0^2086^83^0^0^0^01012004"

 S BIHX=BIHX_"^0^2084^50^0^0^0^01012004^0^"

 ;

 ;

 ;---> Ensure correct call to $$DEL^%ZISH.

 N X S X=$E("BIXQY0",3,6) I '$D(@X) N @X S @X="A"

 ;

 ;---> Multiple calls to ImmServe and get Forecast and Profile.

 W !!," Begin..."

 N BISTART S BISTART=$H,BISTART=$P(BISTART,",",2)

 N I

 F I=1:1:1000 D

 .D RUN^BIXCALL(BIHX,.BIPROF,.BIFORC,.BIERR)

 ;

 ;---> Report Total Time.

 W !," Seconds: ",$P($H,",",2)-BISTART

 Q

BITEST    ;IHS/CMI/MWR - TEST SPEED OF FORECASTING.; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;;SEP 01,2011

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;  TEST SPEED OF IMMSERVE FORECASTING.

 +4       ;

 +5       ;

 +6       ;----------

BEGIN     ;EP

 +1        NEW BIERR,BIFORC,BIHX,BIPROF,BITTTB,BITTTE

 +2       ;

 +3       ;---> Build a sample Immunization History.

 +4        SET BIHX="0^12172005^0^0^0^0^0^0^R^I^I^1^1^1^1^1^1^1^1^0^1^1^1^IHS_10^0^0"

 +5        SET BIHX=BIHX_"^HOGU,SYLVIA  Chart#: 00-00-20^20^09202003^U"

 +6        SET BIHX=BIHX_"^0^0^0^0^0^0^0^0^0^0^0^1^0^0^0^0^0^5^2022^49^0^0^0"

 +7        SET BIHX=BIHX_"^09212003^0^2085^3^0^0^0^01012004^0^2033^3^0^0^0"

 +8        SET BIHX=BIHX_"^01012004^0^2033^3^0^0^0^10112005^0^2086^83^0^0^0^01012004"

 +9        SET BIHX=BIHX_"^0^2084^50^0^0^0^01012004^0^"

 +10      ;

 +11      ;

 +12      ;---> Ensure correct call to $$DEL^%ZISH.

 +13       NEW X

           SET X=$EXTRACT("BIXQY0",3,6)

           IF '$DATA(@X)

               NEW @X

               SET @X="A"

 +14      ;

 +15      ;---> Multiple calls to ImmServe and get Forecast and Profile.

 +16       WRITE !!," Begin..."

 +17       NEW BISTART

           SET BISTART=$HOROLOG

           SET BISTART=$PIECE(BISTART,",",2)

 +18       NEW I

 +19       FOR I=1:1:1000

               Begin DoDot:1

 +20               DO RUN^BIXCALL(BIHX,.BIPROF,.BIFORC,.BIERR)

               End DoDot:1

 +21      ;

 +22      ;---> Report Total Time.

 +23       WRITE !," Seconds: ",$PIECE($HOROLOG,",",2)-BISTART

 +24       QUIT