source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM279P.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: 2.7 KB
Line 
1IVM279P ;ALB/BRM - IVM*2*79 PRE-INSTALL ; 7/30/03 10:17am
2 ;;2.0;INCOME VERIFICATION MATCH;**79**; 21-OCT-94
3 ;
4 Q
5PRE ; pre-install entry point
6 ; add 3 new entries to the 301.92 file
7 N FDA,DATA,ERR
8 S DATA=""
9 D BMES^XPDUTL(" >> Adding entries to IVM DEMOGRAPHIC UPLOAD FIELDS (#301.92) file")
10 D ADDRDT(.DATA),UPDATE(.DATA)
11 D ADDRSRC(.DATA),UPDATE(.DATA)
12 D ADDRSIT(.DATA),UPDATE(.DATA)
13 D MES^XPDUTL("")
14 Q
15 ;
16ADDRDT(DATA) ; setup fda array for Address Change Dt/Tm entry
17 S DATA(.01)="ADDRESS CHANGE DT/TM"
18 S DATA(.02)="RF171",DATA(.05)=.118,DATA(.04)=2
19 S (DATA(.03),DATA(.06),DATA(.07),DATA(.08))=1
20 S (DATA(10),DATA(20))="S DR=.118 D LOOK^IVMPREC9"
21 Q
22 ;
23ADDRSRC(DATA) ; setup fda array for Address Change Source entry
24 S DATA(.01)="ADDRESS CHANGE SOURCE"
25 S DATA(.02)="RF162",DATA(.05)=.119,DATA(.04)=2
26 S (DATA(.03),DATA(.06),DATA(.07),DATA(.08))=1
27 S (DATA(10),DATA(20))="S DR=.119 D LOOK^IVMPREC9"
28 Q
29 ;
30ADDRSIT(DATA) ; setup fda array for Address Change Dt/Tm entry
31 S DATA(.01)="ADDRESS CHANGE SITE"
32 S DATA(.02)="RF161",DATA(.05)=.12,DATA(.04)=2
33 S (DATA(.03),DATA(.06),DATA(.07),DATA(.08))=1
34 S (DATA(10),DATA(20))="S DR=.12 D LOOK^IVMPREC9"
35 Q
36 ;
37UPDATE(DATA) ;
38 I $$FIND1^DIC(301.92,"","X",$G(DATA(.01))) D BMES^XPDUTL(" *** "_$G(DATA(.01))_" entry already exists!") Q
39 S FLDNUM="" F S FLDNUM=$O(DATA(FLDNUM)) Q:'FLDNUM S FDA(301.92,"+1,",FLDNUM)=$G(DATA(FLDNUM))
40 D UPDATE^DIE("","FDA","","ERR")
41 I $D(ERR) D BMES^XPDUTL(" >>> ERROR! "_$G(DATA(.01))_" not added to file #301.92!"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q
42 D BMES^XPDUTL(" "_$G(DATA(.01))_" successfully added.")
43 K DATA
44 Q
45 ;
46POST ; post-install process to task one-time clean-up
47 ;
48 N IVMTSK,IVMDT
49 D BMES^XPDUTL(" >> Tasking IVM Clean-up job to run in 30 days")
50 D BMES^XPDUTL(" WARNING: This clean-up will delete DEMOGRAPHIC UPLOAD DATA")
51 D MES^XPDUTL(" from the IVM PATIENT (#301.5) file when it runs.")
52 D BMES^XPDUTL(" Please notify the appropriate personnel to take action on any")
53 D MES^XPDUTL(" outstanding demographics uploaded data from HEC, if your site")
54 D MES^XPDUTL(" processes IVM DEMOGRAPHICS UPLOADs on a regular basis.")
55 D DT^DILF("X","T+30",.IVMDT) S:IVMDT IVMDT=IVMDT_.180000
56 S IVMTSK=$$QUETSK($G(IVMDT))
57 I 'IVMTSK D BMES^XPDUTL(" ***ERROR: IVM DEMOGRAPHICS CLEAN-UP could not be tasked."),BMES^XPDUTL(" >>> Please contact NVS for assistance <<<") Q
58 D BMES^XPDUTL(" Task #"_IVMTSK_" has been queued to run on "_$$FMTE^XLFDT(IVMDT)_".")
59 D MES^XPDUTL(" This task can be rescheduled for an earlier date if desired.")
60 Q
61QUETSK(ZTDTH) ;
62 N ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZUSR,POP,X,ERR
63 Q:'$G(ZTDTH) 0
64 S ZTRTN="EN^IVMLDEMC()",ZTDESC="IVM DEMOGRAPHICS CLEAN-UP",ZTIO=""
65 D ^%ZTLOAD
66 Q +$G(ZTSK)
Note: See TracBrowser for help on using the repository browser.