IVM2096 ;ALB/GN IVM BILLING TRANSMISSION ATR XREF CONVERSION; 03/03/03 ; 12/22/03 3:13pm
;;2.0;INCOME VERIFICATION MATCH;**96**;21-OCT-94
;
; This post-install will convert the ATR cross-reference from the
; old format to the new format, providing any are currently set.
;
; OLD Format: ^IVM(301.5,"ATR",DFN,IEN)
; NEW Format: ^IVM(301.5,"ATR",Income Year,DFN,IEN)
;
EN ;
D BMES^XPDUTL(" >>Beginning conversion process "_$$FMTE^XLFDT($$NOW^XLFDT))
;
N DATA,IVMIEN,ERR,DA,DIK
S DFN=0
F S DFN=$O(^IVM(301.61,"ATR",DFN)) Q:'DFN D
. S IVMIEN=0
. F S IVMIEN=$O(^IVM(301.61,"ATR",DFN,IVMIEN)) Q:'IVMIEN D
. . K ^IVM(301.61,"ATR",DFN,IVMIEN)
. . S DA=IVMIEN,DIK="^IVM(301.61,"
. . D IX1^DIK ;re-index this ien
;
D MES^XPDUTL(" >>Conversion process completed:"_$$FMTE^XLFDT($$NOW^XLFDT))
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM2096 874 printed Dec 13, 2024@02:00:38 Page 2
IVM2096 ;ALB/GN IVM BILLING TRANSMISSION ATR XREF CONVERSION; 03/03/03 ; 12/22/03 3:13pm
+1 ;;2.0;INCOME VERIFICATION MATCH;**96**;21-OCT-94
+2 ;
+3 ; This post-install will convert the ATR cross-reference from the
+4 ; old format to the new format, providing any are currently set.
+5 ;
+6 ; OLD Format: ^IVM(301.5,"ATR",DFN,IEN)
+7 ; NEW Format: ^IVM(301.5,"ATR",Income Year,DFN,IEN)
+8 ;
EN ;
+1 DO BMES^XPDUTL(" >>Beginning conversion process "_$$FMTE^XLFDT($$NOW^XLFDT))
+2 ;
+3 NEW DATA,IVMIEN,ERR,DA,DIK
+4 SET DFN=0
+5 FOR
SET DFN=$ORDER(^IVM(301.61,"ATR",DFN))
if 'DFN
QUIT
Begin DoDot:1
+6 SET IVMIEN=0
+7 FOR
SET IVMIEN=$ORDER(^IVM(301.61,"ATR",DFN,IVMIEN))
if 'IVMIEN
QUIT
Begin DoDot:2
+8 KILL ^IVM(301.61,"ATR",DFN,IVMIEN)
+9 SET DA=IVMIEN
SET DIK="^IVM(301.61,"
+10 ;re-index this ien
DO IX1^DIK
End DoDot:2
End DoDot:1
+11 ;
+12 DO MES^XPDUTL(" >>Conversion process completed:"_$$FMTE^XLFDT($$NOW^XLFDT))
+13 ;
+14 QUIT
