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
