VIABPOST.m

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 ---VIABPOST   629     printed  Apr 23, 2025@18:59:55                                                                                                                                                                                                     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      ;