IVM2096.m

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 ---IVM2096   874     printed  Apr 09, 2024@21:02:20                                                                                                                                                                                                      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