VIABPOST ;TECHNATOMY/PB - VIA BMS CROSS REFERENCE ;10/02/2017
;;1.0;VISTA INTEGRATION ADAPTER;**11**;06-FEB-2014;Build 45
;
EN ;
D EN^DDIOL("Building ""BMS"" index on PATIENT file")
N DIK
S DIK="^DPT("
S DIK(1)=".097^BMS"
D ENALL^DIK
;
D EN^DDIOL("Building ""ADST"" index on ED LOG file")
S DIK="^EDP(230,"
S DIK(1)="1.3^ADST"
D ENALL^DIK
K DIK
;
D EN^DDIOL("Building ""AC"" index on PATIENT MOVEMENT file")
S DIK="^DGPM("
S DIK(1)=".01^AC"
D ENALL^DIK
K DIK
;
D EN^DDIOL("Building ""AD"" index on PATIENT MOVEMENT file")
S DIK="^DGPM("
S DIK(1)="101^AD"
D ENALL^DIK
K DIK
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIABPOST 629 printed Sep 23, 2025@20:21:31 Page 2
VIABPOST ;TECHNATOMY/PB - VIA BMS CROSS REFERENCE ;10/02/2017
+1 ;;1.0;VISTA INTEGRATION ADAPTER;**11**;06-FEB-2014;Build 45
+2 ;
EN ;
+1 DO EN^DDIOL("Building ""BMS"" index on PATIENT file")
+2 NEW DIK
+3 SET DIK="^DPT("
+4 SET DIK(1)=".097^BMS"
+5 DO ENALL^DIK
+6 ;
+7 DO EN^DDIOL("Building ""ADST"" index on ED LOG file")
+8 SET DIK="^EDP(230,"
+9 SET DIK(1)="1.3^ADST"
+10 DO ENALL^DIK
+11 KILL DIK
+12 ;
+13 DO EN^DDIOL("Building ""AC"" index on PATIENT MOVEMENT file")
+14 SET DIK="^DGPM("
+15 SET DIK(1)=".01^AC"
+16 DO ENALL^DIK
+17 KILL DIK
+18 ;
+19 DO EN^DDIOL("Building ""AD"" index on PATIENT MOVEMENT file")
+20 SET DIK="^DGPM("
+21 SET DIK(1)="101^AD"
+22 DO ENALL^DIK
+23 KILL DIK
+24 ;
