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