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 ---[H[J[2J[HIVM2074 716 printed Dec 13, 2024@02:00:35 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
