| 1 | IVM279P ;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
|
|---|
| 5 | PRE ; 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 | ;
|
|---|
| 16 | ADDRDT(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 | ;
|
|---|
| 23 | ADDRSRC(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 | ;
|
|---|
| 30 | ADDRSIT(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 | ;
|
|---|
| 37 | UPDATE(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 | ;
|
|---|
| 46 | POST ; 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
|
|---|
| 61 | QUETSK(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)
|
|---|
