source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM2A102.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1IVM2A102 ;ALB/PJR - IVM*2.0*102 PRE-INSTALL ; 10/25/04 12:33pm
2 ;;2.0;INCOME VERIFICATION MATCH;**102**; 21-OCT-94
3 ;
4 Q
5PRE ; pre-install entry point
6 ; add 2 new entries to the 301.92 file
7 N FDA,DATA,ERR,XME,FLDNUM
8 S DATA=""
9 S XME=" >> Adding entries to IVM DEMOGRAPHIC UPLOAD FIELDS (#301.92) file"
10 D BMES^XPDUTL(XME)
11 D SOURCE(.DATA),UPDATE(.DATA)
12 D LAST(.DATA),UPDATE(.DATA)
13 ;;
14 D MES^XPDUTL("")
15 Q
16 ;
17SOURCE(DATA) ; setup fda array for Source of Notification for DOD
18 S DATA(.01)="SOURCE OF NOTIFICATION"
19 S DATA(.02)="ZPD31",DATA(.05)=.353,DATA(.04)=2
20 S (DATA(.03),DATA(.06),DATA(.07))=1,DATA(.08)=0
21 S (DATA(10),DATA(20))="S DR=.353 D LOOK^IVMPREC9"
22 Q
23 ;
24LAST(DATA) ; setup fda array for Last Updated Date for DOD
25 S DATA(.01)="DATE OF DEATH LAST UPDATED"
26 S DATA(.02)="ZPD32",DATA(.05)=.354,DATA(.04)=2
27 S (DATA(.03),DATA(.06),DATA(.07))=1,DATA(.08)=0
28 S (DATA(10),DATA(20))="S DR=.354 D LOOK^IVMPREC9"
29 Q
30 ;
31UPDATE(DATA) ;
32 I $$FIND1^DIC(301.92,"","X",$G(DATA(.01))) D ALREADY Q
33 S FLDNUM="" F S FLDNUM=$O(DATA(FLDNUM)) Q:'FLDNUM D ADD
34 D UPDATE^DIE("","FDA","","ERR")
35 I $D(ERR) D ERROR Q
36 D SUCCESS
37 K DATA
38 Q
39ADD ;;
40 S FDA(301.92,"+1,",FLDNUM)=$G(DATA(FLDNUM)) Q
41 ;
42ALREADY ;;
43 D BMES^XPDUTL(" *** "_$G(DATA(.01))_" entry already exists!") Q
44ERROR ;
45 D BMES^XPDUTL(" >>> ERROR! "_$G(DATA(.01))_" not added to file #301.92!")
46 I $D(ERR("DIERR",1))=11 D
47 .D MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1))
48 Q
49SUCCESS ;
50 D BMES^XPDUTL(" "_$G(DATA(.01))_" successfully added.") Q
Note: See TracBrowser for help on using the repository browser.