source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM2074.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 696 bytes
Line 
1IVM2074 ;ALB/RMM IVM PATIENT ATR XREF Cleanup; 03/03/03
2 ;;2.0;INCOME VERIFICATION MATCH;**74**;21-OCT-94
3 ;
4 ; This post-install will convert the ATR cross-reference from the
5 ; old format to the new format.
6 ;
7 ; OLD Format: ^IVM(301.5,"ATR",0,IVM Patient IEN)
8 ; NEW Format: ^IVM(301.5,"ATR",0,Income Year,IVM Patient IEN)
9EN ;
10 D BMES^XPDUTL(" >>Beginning cleanup process "_$$FMTE^XLFDT($$NOW^XLFDT))
11 ;
12 N DATA,IVMIEN,ERR
13 S (IVMIEN,DATA(.03))=0
14 F S IVMIEN=$O(^IVM(301.5,"ATR",0,IVMIEN)) Q:'IVMIEN D
15 .Q:'$D(^IVM(301.5,IVMIEN,0))
16 .I $$UPD^DGENDBS(301.5,IVMIEN,.DATA,.ERR) K ^IVM(301.5,"ATR",0,IVMIEN)
17 ;
18 D MES^XPDUTL(" >>Cleanup process completed:"_$$FMTE^XLFDT($$NOW^XLFDT))
19 ;
20 Q
Note: See TracBrowser for help on using the repository browser.