| 1 | DGCLEAR ;ALB/CKN - REGISTRATION CROSS REFERENCE CLEANUP ; 10/6/06 4:09pm
|
|---|
| 2 | ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; called from Z05 process to clear Permanent address before update
|
|---|
| 5 | ;
|
|---|
| 6 | EN(DGENDA) ; Entry point
|
|---|
| 7 | ; Code to TRIGGER deletion of field data.
|
|---|
| 8 | N DATA
|
|---|
| 9 | D SETARR(.DATA)
|
|---|
| 10 | Q $$UPD^DGENDBS(2,.DGENDA,.DATA)
|
|---|
| 11 | ;
|
|---|
| 12 | SETARR(DATA) ;Setup Data Array
|
|---|
| 13 | N CNT,CURFILE,CTRYFLD,FDFLG,ADDTYPE,T,FTYPE,CURFTYPE
|
|---|
| 14 | ; assemble array of fields to clear
|
|---|
| 15 | F CNT=1:1 S T=$P($T(DTABLE+CNT),";;",3) Q:T="QUIT" D
|
|---|
| 16 | . S DATA($P(T,";",3))=$P(T,";",4)
|
|---|
| 17 | Q
|
|---|
| 18 | DTABLE ;TABLE of Foreign and Domestic fields: structure -->>;;Description;;(P)ERMANENT;FILE;FIELD;DATA
|
|---|
| 19 | ;;PERMANENT STREET [LINE 1];;P;2;.111;@
|
|---|
| 20 | ;;PERMANENT STREET [LINE 2];;P;2;.112;@
|
|---|
| 21 | ;;PERMANENT CITY;;P;2;.114;@
|
|---|
| 22 | ;;PERMANENT STATE;;P;2;.115;@
|
|---|
| 23 | ;;PERMANENT COUNTY;;P;2;.117;@
|
|---|
| 24 | ;;PERMANENT ZIP CODE;;P;2;.1112;@
|
|---|
| 25 | ;;PERMANENT BAD ADDRESS INDICATOR;;P;2;.121;@
|
|---|
| 26 | ;;QUIT;;QUIT
|
|---|
