IVM2074.m

IVM2074 ;ALB/RMM IVM PATIENT ATR XREF Cleanup; 03/03/03

 ;;2.0;INCOME VERIFICATION MATCH;**74**;21-OCT-94

 ;

 ; This post-install will convert the ATR cross-reference from the

 ; old format to the new format.

 ;

 ;   OLD Format: ^IVM(301.5,"ATR",0,IVM Patient IEN)

 ;   NEW Format: ^IVM(301.5,"ATR",0,Income Year,IVM Patient IEN)

EN ;

 D BMES^XPDUTL(" >>Beginning cleanup process "_$$FMTE^XLFDT($$NOW^XLFDT))

 ;

 N DATA,IVMIEN,ERR

 S (IVMIEN,DATA(.03))=0

 F  S IVMIEN=$O(^IVM(301.5,"ATR",0,IVMIEN)) Q:'IVMIEN  D

 .Q:'$D(^IVM(301.5,IVMIEN,0))

 .I $$UPD^DGENDBS(301.5,IVMIEN,.DATA,.ERR) K ^IVM(301.5,"ATR",0,IVMIEN)

 ;

 D MES^XPDUTL(" >>Cleanup process completed:"_$$FMTE^XLFDT($$NOW^XLFDT))

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVM2074   716     printed  Apr 09, 2024@21:01:31                                                                                                                                                                                                      Page 2

IVM2074   ;ALB/RMM IVM PATIENT ATR XREF Cleanup; 03/03/03

 +1       ;;2.0;INCOME VERIFICATION MATCH;**74**;21-OCT-94

 +2       ;

 +3       ; This post-install will convert the ATR cross-reference from the

 +4       ; old format to the new format.

 +5       ;

 +6       ;   OLD Format: ^IVM(301.5,"ATR",0,IVM Patient IEN)

 +7       ;   NEW Format: ^IVM(301.5,"ATR",0,Income Year,IVM Patient IEN)

EN        ;

 +1        DO BMES^XPDUTL(" >>Beginning cleanup process "_$$FMTE^XLFDT($$NOW^XLFDT))

 +2       ;

 +3        NEW DATA,IVMIEN,ERR

 +4        SET (IVMIEN,DATA(.03))=0

 +5        FOR 

               SET IVMIEN=$ORDER(^IVM(301.5,"ATR",0,IVMIEN))

               if 'IVMIEN

                   QUIT 

               Begin DoDot:1

 +6                if '$DATA(^IVM(301.5,IVMIEN,0))

                       QUIT 

 +7                IF $$UPD^DGENDBS(301.5,IVMIEN,.DATA,.ERR)

                       KILL ^IVM(301.5,"ATR",0,IVMIEN)

               End DoDot:1

 +8       ;

 +9        DO MES^XPDUTL(" >>Cleanup process completed:"_$$FMTE^XLFDT($$NOW^XLFDT))

 +10      ;

 +11       QUIT