BIPOST.m

BIPOST ;IHS/CMI/MWR - POST-INIT ROUTINE; OCT 15, 2010

 ;;8.5;IMMUNIZATION;**16**;MAR 01,2018

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

 ;;  PATCH 3: Set MenCY-Hib (148) and Flu-nasal4 (149) and all Skin Tests

 ;;           in the Vaccine Table to Inactive.   START+30

 ;;  PATCH 3: Set all Skin Tests in the Skin Test table to Inactive, except

 ;;           PPD and Tetanus. START+38

 ;;  PATCH 4, v8.5: Update Source options in Imm Lot File.  START+9

 ;;  PATCH 5, v8.5: Remove dash from Eligibility Codes.

 ;;  PATCH 5, v8.5: Add SNOMED Codes to all Contraindications.

 ;;  PATCH 5, v8.5: Restandardize Vaccine Table, with updates from BITN.

 ;;  PATCH 6, v8.5: Restandardize Vaccine Table, with updates from BITN.

 ;;  PATCH 8: Changes to Set Mening C CVX 103 vaccine to Inactive.  START+55

 ;;  PATCH 9:  Restandardize Vaccine Table, with updates from BITN. START+49

 ;;            Changes to force specified vaccines active.  START+52

 ;;            Update Taxonomies.  START+142

 ;;  PATCH 10: Restandardize Vaccine Table, with updates from BITN. START+49

 ;;            Changes to force specified vaccines active.  START+56

 ;;            Update BI TABLE DATA ELEMENTS File.  START+154

 ;;  PATCH 12: Restandardize Vaccine Table, with updates from BITN.

 ;;  PATCH 13: Restandardize Vaccine Table, with updates from BITN (and BIMAN below).

 ;;  PATCH 14: Make old Rabies CVX 18 inactive.

 ;;            Set High Risk parameter selection = zero/none.

 ;;  PATCH 15: Restandardize Vaccine Table, make CVX 186 Active.  START+54

 ;;  PATCH 16: Add new vaccines & manufacturers, restandardize Vaccine Table, START

 ;

 ;

 ;----------

START ;EP

 ;---> Update software after KIDS installation.

 ;

 D SETVARS^BIUTL5 S BIPOP=0

 ;S IOP=$I D ^%ZIS

 ;

 ;W !!!?3,"Please hold..."

 ;

 ;

 ;********** PATCH 5, v8.5, JUL 01,2013, IHS/CMI/MWR

 ;---> Remove dash from Eligibility Codes.

 ;N N S N=0 F  S N=$O(^BIELIG(N)) Q:'N  D

 ;.N X S X=$P($G(^BIELIG(N,0)),U)

 ;.Q:(X="")  Q:(X'["-")

 ;.N Y S Y=$P(X,"-")_$P(X,"-",2)

 ;.;W !,X,"   ",Y Q

 ;.S $P(^BIELIG(N,0),U)=Y

 ;N I F I="AC","B","C","D","E","F","U" K ^BIELIG(I)

 ;S DIK="^BIELIG("

 ;D IXALL^DIK

 ;

 ;

 ;********** PATCH 5, v8.5, JUL 01,2013, IHS/CMI/MWR

 ;---> Back-populate SNOMED Codes to all Contraindications.

 ;D

 ;.;---> If BCQM IHS CODE MAPPING Version 1.0 is not loaded, abort back-pop.

 ;.I '($L($T(MM^BCQMAPI))) D  Q

 ;..D TEXT2,DIRZ^BIUTL3()

 ;.D SNOMED^BIUTLFIX

 ;

 ;

 ;********** PATCH 13, v8.5, AUG 01,2016, IHS/CMI/MWR

 ;---> Update Manufacturer Table.

 ;S ^BIMAN(169,0)="PaxVax^PAX^1^PaxVax"

 ;S ^BIMAN(170,0)="MCM Vaccine Company^MCM^1^MCM Vaccine Company"

 ;S ^BIMAN(171,0)="Seqirus^SEQ^1^Seqirus"

 ;S ^BIMAN(172,0)="VALNEVA^VAL^1^Valneva"

 ;

 ;**********

 ;

 ;********** PATCH 4, v8.5, DEC 01,2012, IHS/CMI/MWR

 ;---> Update Source options in Imm Lot File.

 ;N BIX S BIX="^DD(9999999.41,.13,0)"

 ;S @BIX="VACCINE SOURCE^S^v:VFC;n:NON-VFC;o:Other State;i:IHS/Tribal;^0;13^Q"

 ;**********

 ;

 ;---> Reindex any Listman Hidden Menus.

 ;D LISTMENU^BIUTLFIX

 ;

 ;

 ;---> Re-Standardize the Vaccine Table.

 D RESTAND^BIRESTD()

 ;

 ;

 ;********** PATCH 15, v8.5, SEP 30,2017, IHS/CMI/MWR

 ;---> Force vaccines Active or Inactive by CVX Code.

 ;---> Insert CVX Codes into For loop below.

 ;

 ;---> Make these CVX's ACTIVE:

 ;N BICVX F BICVX=150,158,168,185 D

 ;N BICVX F BICVX=186 D

 .N N S N=$$HL7TX^BIUTL2(BICVX)

 .;---> Quit if CVX is Unknown.

 .Q:(N=137)

 .;---> 0=ACTIVE.

 .S $P(^AUTTIMM(N,0),U,7)=0

 .S $P(^BITN(N,0),U,7)=0

 .;

 ;---> Make these CVX's INACTIVE:

 ;N BICVX F BICVX=123,125,126,127,147,160 D

 ;N BICVX F BICVX=25,29,37,40,51,62,118,183,184 D

 .N N S N=$$HL7TX^BIUTL2(BICVX)

 .;---> Quit if CVX is Unknown.

 .Q:(N=137)

 .;---> 1=INACTIVE.

 .S $P(^AUTTIMM(N,0),U,7)=1

 .S $P(^BITN(N,0),U,7)=1

 ;

 ;

 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR

 ;---> Set Mening C CVX 103 vaccine to Inactive.

 ;F N=143 D

 ;.S $P(^AUTTIMM(N,0),U,7)=1

 ;.S $P(^BITN(N,0),U,7)=1

 ;

 ;---> Set newer Mening vaccines to Active.

 ;F N=220,237,251 D

 ;.S $P(^AUTTIMM(N,0),U,7)=0

 ;.S $P(^BITN(N,0),U,7)=0

 ;

 ;

 ;********** PATCH 3, v8.5, SEP 10,2012, IHS/CMI/MWR

 ;---> Set all Skin Tests in Vaccine Table to Inactive (so that they will be

 ;---> unavailable to select as vaccines in EHR).

 ;---> Set MenCY-Hib (148) and Flu-nasal4 (149) to Inactive.

 ;N N F N=202,203,204,205,252,253 D

 ;.S $P(^AUTTIMM(N,0),U,7)=1

 ;.S $P(^BITN(N,0),U,7)=1

 ;

 ;---> Also set all Skin Tests in the Skin Test file Inactive,

 ;---> except PPD and Tetanus.

 ;N N S N=0 F  S N=$O(^AUTTSK(N)) Q:'N  D

 ;.Q:'$D(^AUTTSK(N,0))

 ;.S $P(^AUTTSK(N,0),U,3)=1

 ;---> Now set PPD and Tetanus to Active.

 ;D

 ;.K N S N=$O(^AUTTSK("B","PPD",0))

 ;.Q:'N

 ;.S $P(^AUTTSK(N,0),U,3)=""

 ;.S N=$O(^AUTTSK("B","TETANUS",0))

 ;.Q:'N

 ;.S $P(^AUTTSK(N,0),U,3)=""

 ;**********

 ;

 ;---> Reset Display Order of Vaccine Groups in BI TABLE VACCINE GROUP File #9002084.93.

 ;S $P(^BISERT(1,0),"^",2)=1

 ;S $P(^BISERT(2,0),"^",2)=3

 ;S $P(^BISERT(3,0),"^",2)=4

 ;S $P(^BISERT(4,0),"^",2)=6

 ;S $P(^BISERT(5,0),"^",2)=5

 ;S $P(^BISERT(6,0),"^",2)=7

 ;S $P(^BISERT(7,0),"^",2)=8

 ;S $P(^BISERT(8,0),"^",2)=2

 ;S $P(^BISERT(9,0),"^",2)=9

 ;S $P(^BISERT(10,0),"^",2)=10

 ;S $P(^BISERT(11,0),"^",2)=12

 ;S $P(^BISERT(12,0),"^",2)=90

 ;S $P(^BISERT(13,0),"^",2)=99

 ;S $P(^BISERT(14,0),"^",2)=95

 ;S $P(^BISERT(15,0),"^",2)=85

 ;S $P(^BISERT(16,0),"^",2)=15

 ;S $P(^BISERT(17,0),"^",2)=18

 ;S $P(^BISERT(18,0),"^",2)=11

 ;

 ;---> Turn off H1N1forecasting.

 ;S $P(^BISERT(18,0),"^",5)=0

 ;

 ;---> Standardize the VT-100 Codes in the Terminal Type File.

 ;D ^BIVT100

 ;---> Set new Immserve Path.

 ;D IMMPATH

 ;---> Check and fix any Lot Numbers with a Status of null.

 ;D NULLACT^BILOT1

 ;---> Reindex killed globals.

 ;D REINDEX

 ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR

 ;---> Update Taxonomies.

 ;D ^BITX

 ;---> Reindex BI Letter Sample and BI Table Manufactures Files.

 ;D REINDLS

 ;

 ;---> Kill dangling xref to old file.

 ;K ^DIC("B","BI IMMUNIZATION TABLE OLD LOCAL",9002084.95)

 ;

 ;---> Scan for any V Imms with a .14 Eligibility=0, change to 8, which is

 ;---> the IEN of "Unknown" in the new BI TABLE ELIG File.

 ;D ^BIELIG3

 ;

 ;---> Update BI TABLE DATA ELEMENTS File.

 ;D ^BIDE

 ;

 ;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR

 ;---> Set High Risk parameter selection = zero/none. Install notes advise

 ;---> manager to revisit and reselect High Risk Factors.

 ;---> Update "Last Version Fully Installed" Field in BI SITE PARAMETER File.

 ;N N S N=0 F  S N=$O(^BISITE(N)) Q:'N  D

 ;.S $P(^BISITE(N,0),"^",15)=$$VER^BILOGO

 ;.S $P(^BISITE(N,0),"^",19)=0

 ;.;**********

 ;

 ;D TEXT2,DIRZ^BIUTL3()

 D TEXT1,DIRZ^BIUTL3()

 ;

 D EXIT

 Q

 ;

 ;

 ;----------

EXIT ;EP

 D KILLALL^BIUTL8(1)

 Q

 ;

 ;

 ;

 ;----------

TEXT1 ;EP

 ;;

 ;;

 ;;

 ;;

 ;;

 ;;

 ;;         - This concludes the Post-Initialization program. -

 ;;

 ;;                       * CONGRATULATIONS! *

 ;;

 ;;          You have successfully installed Immunization v8.5 p16.

 ;;

 ;;

 ;;

 ;;

 ;;

 ;;

 ;;

 ;;

 W @IOF

 D PRINTX("TEXT1")

 Q

 ;**********

 ;

 ;

 ;----------

TEXT2 ;EP

 ;;

 ;;

 ;;

 ;;

 ;;                            * NOTE!!! *

 ;;

 ;;     NOTE: Be sure to check and edit the High Risk parameter #18

 ;;     on the Edit Site Parameter screen, found on the Manager Menu.

 ;;

 ;;     The High Risk parameter options have changed significantly,

 ;;     and so this parameter has been set equal to "0 - None."

 ;;     Be sure to examine this setting and edit it per your site's

 ;;     preferences.  Thank you.

 ;;

 ;;                            * NOTE!!! *

 ;;

 ;;

 ;;

 ;;

 ;;

 W @IOF

 D PRINTX("TEXT2")

 Q

 ;

 ;

 ;----------

PRINTX(BILINL,BITAB) ;EP

 ;---> Print text at specified line label.

 ;

 Q:$G(BILINL)=""

 N I,T,X S T="" S:'$D(BITAB) BITAB=5 F I=1:1:BITAB S T=T_" "

 F I=1:1 S X=$T(@BILINL+I) Q:X'[";;"  W !,T,$P(X,";;",2)

 Q

 ;

 ;

 ;----------

IMMPATH ;EP

 ;---> Update path for new Immserve files.

 N N,X,Y S Y=$$VERSION^%ZOSV(1) D

 .I Y["Windows" S X="C:\Program Files\Immserve852\" Q

 .I Y["UNIX" S X="/usr/local/immserve852/"

 ;

 S N=0

 F  S N=$O(^BISITE(N)) Q:'N  D

 .S $P(^BISITE(N,0),"^",18)=X

 Q

 ;

 ;

 ;----------

REINDEX ;EP

 ;---> Not called.  Programmer to use if KIDS fails to index these files.

 ;

 N DIK

 F DIK="^BINFO(","^BILETS(","^BIVT100(","^BIERR(","^BINFO(","^BIEXPDD(","^BISERT(","^BICONT(" D

 .D IXALL^DIK

 .S DIK="^BISERT(" D IXALL^DIK

 Q

 ;

 ;

KEYS ;EP

 ;---> Clean up subordinate keys (there should be none).

 N X,Y

 F X="BIZ EDIT PATIENTS","BIZ MANAGER","BIZMENU" D

 .S Y=$O(^DIC(19.1,"B",X,0)) K @("^DIC(19.1,"""_Y_""",3)")

 Q

 ;

 ;

REINDLS ;EP

 ;---> Reindex BI LETTER SAMPLE File.

 N X,Y

 S DIK="^BILETS("

 D IXALL^DIK

 S DIK="^BIMAN("

 D IXALL^DIK

 Q

BIPOST    ;IHS/CMI/MWR - POST-INIT ROUTINE; OCT 15, 2010

 +1       ;;8.5;IMMUNIZATION;**16**;MAR 01,2018

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

 +3       ;;  PATCH 3: Set MenCY-Hib (148) and Flu-nasal4 (149) and all Skin Tests

 +4       ;;           in the Vaccine Table to Inactive.   START+30

 +5       ;;  PATCH 3: Set all Skin Tests in the Skin Test table to Inactive, except

 +6       ;;           PPD and Tetanus. START+38

 +7       ;;  PATCH 4, v8.5: Update Source options in Imm Lot File.  START+9

 +8       ;;  PATCH 5, v8.5: Remove dash from Eligibility Codes.

 +9       ;;  PATCH 5, v8.5: Add SNOMED Codes to all Contraindications.

 +10      ;;  PATCH 5, v8.5: Restandardize Vaccine Table, with updates from BITN.

 +11      ;;  PATCH 6, v8.5: Restandardize Vaccine Table, with updates from BITN.

 +12      ;;  PATCH 8: Changes to Set Mening C CVX 103 vaccine to Inactive.  START+55

 +13      ;;  PATCH 9:  Restandardize Vaccine Table, with updates from BITN. START+49

 +14      ;;            Changes to force specified vaccines active.  START+52

 +15      ;;            Update Taxonomies.  START+142

 +16      ;;  PATCH 10: Restandardize Vaccine Table, with updates from BITN. START+49

 +17      ;;            Changes to force specified vaccines active.  START+56

 +18      ;;            Update BI TABLE DATA ELEMENTS File.  START+154

 +19      ;;  PATCH 12: Restandardize Vaccine Table, with updates from BITN.

 +20      ;;  PATCH 13: Restandardize Vaccine Table, with updates from BITN (and BIMAN below).

 +21      ;;  PATCH 14: Make old Rabies CVX 18 inactive.

 +22      ;;            Set High Risk parameter selection = zero/none.

 +23      ;;  PATCH 15: Restandardize Vaccine Table, make CVX 186 Active.  START+54

 +24      ;;  PATCH 16: Add new vaccines & manufacturers, restandardize Vaccine Table, START

 +25      ;

 +26      ;

 +27      ;----------

START     ;EP

 +1       ;---> Update software after KIDS installation.

 +2       ;

 +3        DO SETVARS^BIUTL5

           SET BIPOP=0

 +4       ;S IOP=$I D ^%ZIS

 +5       ;

 +6       ;W !!!?3,"Please hold..."

 +7       ;

 +8       ;

 +9       ;********** PATCH 5, v8.5, JUL 01,2013, IHS/CMI/MWR

 +10      ;---> Remove dash from Eligibility Codes.

 +11      ;N N S N=0 F  S N=$O(^BIELIG(N)) Q:'N  D

 +12      ;.N X S X=$P($G(^BIELIG(N,0)),U)

 +13      ;.Q:(X="")  Q:(X'["-")

 +14      ;.N Y S Y=$P(X,"-")_$P(X,"-",2)

 +15      ;.;W !,X,"   ",Y Q

 +16      ;.S $P(^BIELIG(N,0),U)=Y

 +17      ;N I F I="AC","B","C","D","E","F","U" K ^BIELIG(I)

 +18      ;S DIK="^BIELIG("

 +19      ;D IXALL^DIK

 +20      ;

 +21      ;

 +22      ;********** PATCH 5, v8.5, JUL 01,2013, IHS/CMI/MWR

 +23      ;---> Back-populate SNOMED Codes to all Contraindications.

 +24      ;D

 +25      ;.;---> If BCQM IHS CODE MAPPING Version 1.0 is not loaded, abort back-pop.

 +26      ;.I '($L($T(MM^BCQMAPI))) D  Q

 +27      ;..D TEXT2,DIRZ^BIUTL3()

 +28      ;.D SNOMED^BIUTLFIX

 +29      ;

 +30      ;

 +31      ;********** PATCH 13, v8.5, AUG 01,2016, IHS/CMI/MWR

 +32      ;---> Update Manufacturer Table.

 +33      ;S ^BIMAN(169,0)="PaxVax^PAX^1^PaxVax"

 +34      ;S ^BIMAN(170,0)="MCM Vaccine Company^MCM^1^MCM Vaccine Company"

 +35      ;S ^BIMAN(171,0)="Seqirus^SEQ^1^Seqirus"

 +36      ;S ^BIMAN(172,0)="VALNEVA^VAL^1^Valneva"

 +37      ;

 +38      ;**********

 +39      ;

 +40      ;********** PATCH 4, v8.5, DEC 01,2012, IHS/CMI/MWR

 +41      ;---> Update Source options in Imm Lot File.

 +42      ;N BIX S BIX="^DD(9999999.41,.13,0)"

 +43      ;S @BIX="VACCINE SOURCE^S^v:VFC;n:NON-VFC;o:Other State;i:IHS/Tribal;^0;13^Q"

 +44      ;**********

 +45      ;

 +46      ;---> Reindex any Listman Hidden Menus.

 +47      ;D LISTMENU^BIUTLFIX

 +48      ;

 +49      ;

 +50      ;---> Re-Standardize the Vaccine Table.

 +51       DO RESTAND^BIRESTD()

 +52      ;

 +53      ;

 +54      ;********** PATCH 15, v8.5, SEP 30,2017, IHS/CMI/MWR

 +55      ;---> Force vaccines Active or Inactive by CVX Code.

 +56      ;---> Insert CVX Codes into For loop below.

 +57      ;

 +58      ;---> Make these CVX's ACTIVE:

 +59      ;N BICVX F BICVX=150,158,168,185 D

 +60      ;N BICVX F BICVX=186 D

 +61 

*** ERROR ***

 +62      ;---> Quit if CVX is Unknown.

 +63 

*** ERROR ***

 +64      ;---> 0=ACTIVE.

 +65 

*** ERROR ***

 +66 

*** ERROR ***

 +67      ;

 +68      ;---> Make these CVX's INACTIVE:

 +69      ;N BICVX F BICVX=123,125,126,127,147,160 D

 +70      ;N BICVX F BICVX=25,29,37,40,51,62,118,183,184 D

 +71 

*** ERROR ***

 +72      ;---> Quit if CVX is Unknown.

 +73 

*** ERROR ***

 +74      ;---> 1=INACTIVE.

 +75 

*** ERROR ***

 +76 

*** ERROR ***

 +77      ;

 +78      ;

 +79      ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR

 +80      ;---> Set Mening C CVX 103 vaccine to Inactive.

 +81      ;F N=143 D

 +82      ;.S $P(^AUTTIMM(N,0),U,7)=1

 +83      ;.S $P(^BITN(N,0),U,7)=1

 +84      ;

 +85      ;---> Set newer Mening vaccines to Active.

 +86      ;F N=220,237,251 D

 +87      ;.S $P(^AUTTIMM(N,0),U,7)=0

 +88      ;.S $P(^BITN(N,0),U,7)=0

 +89      ;

 +90      ;

 +91      ;********** PATCH 3, v8.5, SEP 10,2012, IHS/CMI/MWR

 +92      ;---> Set all Skin Tests in Vaccine Table to Inactive (so that they will be

 +93      ;---> unavailable to select as vaccines in EHR).

 +94      ;---> Set MenCY-Hib (148) and Flu-nasal4 (149) to Inactive.

 +95      ;N N F N=202,203,204,205,252,253 D

 +96      ;.S $P(^AUTTIMM(N,0),U,7)=1

 +97      ;.S $P(^BITN(N,0),U,7)=1

 +98      ;

 +99      ;---> Also set all Skin Tests in the Skin Test file Inactive,

 +100     ;---> except PPD and Tetanus.

 +101     ;N N S N=0 F  S N=$O(^AUTTSK(N)) Q:'N  D

 +102     ;.Q:'$D(^AUTTSK(N,0))

 +103     ;.S $P(^AUTTSK(N,0),U,3)=1

 +104     ;---> Now set PPD and Tetanus to Active.

 +105     ;D

 +106     ;.K N S N=$O(^AUTTSK("B","PPD",0))

 +107     ;.Q:'N

 +108     ;.S $P(^AUTTSK(N,0),U,3)=""

 +109     ;.S N=$O(^AUTTSK("B","TETANUS",0))

 +110     ;.Q:'N

 +111     ;.S $P(^AUTTSK(N,0),U,3)=""

 +112     ;**********

 +113     ;

 +114     ;---> Reset Display Order of Vaccine Groups in BI TABLE VACCINE GROUP File #9002084.93.

 +115     ;S $P(^BISERT(1,0),"^",2)=1

 +116     ;S $P(^BISERT(2,0),"^",2)=3

 +117     ;S $P(^BISERT(3,0),"^",2)=4

 +118     ;S $P(^BISERT(4,0),"^",2)=6

 +119     ;S $P(^BISERT(5,0),"^",2)=5

 +120     ;S $P(^BISERT(6,0),"^",2)=7

 +121     ;S $P(^BISERT(7,0),"^",2)=8

 +122     ;S $P(^BISERT(8,0),"^",2)=2

 +123     ;S $P(^BISERT(9,0),"^",2)=9

 +124     ;S $P(^BISERT(10,0),"^",2)=10

 +125     ;S $P(^BISERT(11,0),"^",2)=12

 +126     ;S $P(^BISERT(12,0),"^",2)=90

 +127     ;S $P(^BISERT(13,0),"^",2)=99

 +128     ;S $P(^BISERT(14,0),"^",2)=95

 +129     ;S $P(^BISERT(15,0),"^",2)=85

 +130     ;S $P(^BISERT(16,0),"^",2)=15

 +131     ;S $P(^BISERT(17,0),"^",2)=18

 +132     ;S $P(^BISERT(18,0),"^",2)=11

 +133     ;

 +134     ;---> Turn off H1N1forecasting.

 +135     ;S $P(^BISERT(18,0),"^",5)=0

 +136     ;

 +137     ;---> Standardize the VT-100 Codes in the Terminal Type File.

 +138     ;D ^BIVT100

 +139     ;---> Set new Immserve Path.

 +140     ;D IMMPATH

 +141     ;---> Check and fix any Lot Numbers with a Status of null.

 +142     ;D NULLACT^BILOT1

 +143     ;---> Reindex killed globals.

 +144     ;D REINDEX

 +145     ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR

 +146     ;---> Update Taxonomies.

 +147     ;D ^BITX

 +148     ;---> Reindex BI Letter Sample and BI Table Manufactures Files.

 +149     ;D REINDLS

 +150     ;

 +151     ;---> Kill dangling xref to old file.

 +152     ;K ^DIC("B","BI IMMUNIZATION TABLE OLD LOCAL",9002084.95)

 +153     ;

 +154     ;---> Scan for any V Imms with a .14 Eligibility=0, change to 8, which is

 +155     ;---> the IEN of "Unknown" in the new BI TABLE ELIG File.

 +156     ;D ^BIELIG3

 +157     ;

 +158     ;---> Update BI TABLE DATA ELEMENTS File.

 +159     ;D ^BIDE

 +160     ;

 +161     ;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR

 +162     ;---> Set High Risk parameter selection = zero/none. Install notes advise

 +163     ;---> manager to revisit and reselect High Risk Factors.

 +164     ;---> Update "Last Version Fully Installed" Field in BI SITE PARAMETER File.

 +165     ;N N S N=0 F  S N=$O(^BISITE(N)) Q:'N  D

 +166     ;.S $P(^BISITE(N,0),"^",15)=$$VER^BILOGO

 +167     ;.S $P(^BISITE(N,0),"^",19)=0

 +168     ;.;**********

 +169     ;

 +170     ;D TEXT2,DIRZ^BIUTL3()

 +171      DO TEXT1

           DO DIRZ^BIUTL3()

 +172     ;

 +173      DO EXIT

 +174      QUIT 

 +175     ;

 +176     ;

 +177     ;----------

EXIT      ;EP

 +1        DO KILLALL^BIUTL8(1)

 +2        QUIT 

 +3       ;

 +4       ;

 +5       ;

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

TEXT1     ;EP

 +1       ;;

 +2       ;;

 +3       ;;

 +4       ;;

 +5       ;;

 +6       ;;

 +7       ;;         - This concludes the Post-Initialization program. -

 +8       ;;

 +9       ;;                       * CONGRATULATIONS! *

 +10      ;;

 +11      ;;          You have successfully installed Immunization v8.5 p16.

 +12      ;;

 +13      ;;

 +14      ;;

 +15      ;;

 +16      ;;

 +17      ;;

 +18      ;;

 +19      ;;

 +20       WRITE @IOF

 +21       DO PRINTX("TEXT1")

 +22       QUIT 

 +23      ;**********

 +24      ;

 +25      ;

 +26      ;----------

TEXT2     ;EP

 +1       ;;

 +2       ;;

 +3       ;;

 +4       ;;

 +5       ;;                            * NOTE!!! *

 +6       ;;

 +7       ;;     NOTE: Be sure to check and edit the High Risk parameter #18

 +8       ;;     on the Edit Site Parameter screen, found on the Manager Menu.

 +9       ;;

 +10      ;;     The High Risk parameter options have changed significantly,

 +11      ;;     and so this parameter has been set equal to "0 - None."

 +12      ;;     Be sure to examine this setting and edit it per your site's

 +13      ;;     preferences.  Thank you.

 +14      ;;

 +15      ;;                            * NOTE!!! *

 +16      ;;

 +17      ;;

 +18      ;;

 +19      ;;

 +20      ;;

 +21       WRITE @IOF

 +22       DO PRINTX("TEXT2")

 +23       QUIT 

 +24      ;

 +25      ;

 +26      ;----------

PRINTX(BILINL,BITAB) ;EP

 +1       ;---> Print text at specified line label.

 +2       ;

 +3        IF $GET(BILINL)=""

               QUIT 

 +4        NEW I,T,X

           SET T=""

           IF '$DATA(BITAB)

               SET BITAB=5

           FOR I=1:1:BITAB

               SET T=T_" "

 +5        FOR I=1:1

               SET X=$TEXT(@BILINL+I)

               IF X'[";;"

                   QUIT 

               WRITE !,T,$PIECE(X,";;",2)

 +6        QUIT 

 +7       ;

 +8       ;

 +9       ;----------

IMMPATH   ;EP

 +1       ;---> Update path for new Immserve files.

 +2        NEW N,X,Y

           SET Y=$$VERSION^%ZOSV(1)

           Begin DoDot:1

 +3            IF Y["Windows"

                   SET X="C:\Program Files\Immserve852\"

                   QUIT 

 +4            IF Y["UNIX"

                   SET X="/usr/local/immserve852/"

           End DoDot:1

 +5       ;

 +6        SET N=0

 +7        FOR 

               SET N=$ORDER(^BISITE(N))

               IF 'N

                   QUIT 

               Begin DoDot:1

 +8                SET $PIECE(^BISITE(N,0),"^",18)=X

               End DoDot:1

 +9        QUIT 

 +10      ;

 +11      ;

 +12      ;----------

REINDEX   ;EP

 +1       ;---> Not called.  Programmer to use if KIDS fails to index these files.

 +2       ;

 +3        NEW DIK

 +4        FOR DIK="^BINFO(","^BILETS(","^BIVT100(","^BIERR(","^BINFO(","^BIEXPDD(","^BISERT(","^BICONT("

               Begin DoDot:1

 +5                DO IXALL^DIK

 +6                SET DIK="^BISERT("

                   DO IXALL^DIK

               End DoDot:1

 +7        QUIT 

 +8       ;

 +9       ;

KEYS      ;EP

 +1       ;---> Clean up subordinate keys (there should be none).

 +2        NEW X,Y

 +3        FOR X="BIZ EDIT PATIENTS","BIZ MANAGER","BIZMENU"

               Begin DoDot:1

 +4                SET Y=$ORDER(^DIC(19.1,"B",X,0))

                   KILL @("^DIC(19.1,"""_Y_""",3)")

               End DoDot:1

 +5        QUIT 

 +6       ;

 +7       ;

REINDLS   ;EP

 +1       ;---> Reindex BI LETTER SAMPLE File.

 +2        NEW X,Y

 +3        SET DIK="^BILETS("

 +4        DO IXALL^DIK

 +5        SET DIK="^BIMAN("

 +6        DO IXALL^DIK

 +7        QUIT