| 1 | IVM2A102 ;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
|
|---|
| 5 | PRE ; 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 | ;
|
|---|
| 17 | SOURCE(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 | ;
|
|---|
| 24 | LAST(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 | ;
|
|---|
| 31 | UPDATE(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
|
|---|
| 39 | ADD ;;
|
|---|
| 40 | S FDA(301.92,"+1,",FLDNUM)=$G(DATA(FLDNUM)) Q
|
|---|
| 41 | ;
|
|---|
| 42 | ALREADY ;;
|
|---|
| 43 | D BMES^XPDUTL(" *** "_$G(DATA(.01))_" entry already exists!") Q
|
|---|
| 44 | ERROR ;
|
|---|
| 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
|
|---|
| 49 | SUCCESS ;
|
|---|
| 50 | D BMES^XPDUTL(" "_$G(DATA(.01))_" successfully added.") Q
|
|---|
