25 lines
850 B
Mathematica
25 lines
850 B
Mathematica
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
|