DGCLEAR.m

DGCLEAR ;ALB/BAJ,TDM - REGISTRATION CROSS REFERENCE CLEANUP ; 12/22/08 4:14pm

 ;;5.3;PIMS;**653,688,1015,1016**;JUN 30, 2012;Build 20

 ;

 ; Called from ASK^DGLOCK or ADK^DGLOCK3, The purpose of this routine is to clear All temporary or confidential address fields

 ; Also called from Z07 process to clear Permanent address before update 

 ;               

 ; 

EN(DGENDA,TYPE) ; entry point

 ;

 ; Code to TRIGGER deletion of field data.

 N DATA,CALLTYP

 S CALLTYP=$S(TYPE="TEMP":"T",TYPE="PERM":"P",1:"C")

 D SETARR(CALLTYP,.DATA)

 Q $$UPD^DGENDBS(2,.DGENDA,.DATA)

 ;

SETARR(CALLTYP,DATA) ;set up 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

 . Q:$P(T,";",1)'=CALLTYP  S DATA($P(T,";",3))=$P(T,";",4)

 Q

DTABLE ;TABLE of Foreign and Domestic fields: structure -->>;Description;;(T)EMPORARY/(C)ONFIDENTIAL/(P)ERMANENT;FILE;FIELD;DATA

 ;;TEMPORARY STREET [LINE 1];;T;2;.1211;@

 ;;TEMPORARY ZIP+4;;T;2;.12112;@

 ;;TEMPORARY STREET [LINE 2];;T;2;.1212;@

 ;;TEMPORARY STREET [LINE 3];;T;2;.1213;@

 ;;TEMPORARY CITY;;T;2;.1214;@

 ;;TEMPORARY STATE;;T;2;.1215;@

 ;;TEMPORARY COUNTY;;T;2;.12111;@

 ;;TEMPORARY ZIP CODE;;T;2;.1216;@

 ;;TEMPORARY ADDRESS START DATE;;T;2;.1217;@

 ;;TEMPORARY ADDRESS END DATE;;T;2;.1218;@

 ;;TEMPORARY PHONE NUMBER;;T;2;.1219;@

 ;;TEMPORARY ADDRESS PROVINCE;;T;2;.1221;@

 ;;TEMPORARY ADDRESS POSTAL CODE;;T;2;.1222;@

 ;;TEMPORARY ADDRESS COUNTRY;;T;2;.1223;@

 ;;TEMPORARY ADDRESS ACTIVE;;T;2;.12105;N

 ;;CONFIDENTIAL STREET [LINE 1];;C;2;.1411;@

 ;;CONFIDENTIAL STREET [LINE 2];;C;2;.1412;@

 ;;CONFIDENTIAL STREET [LINE 3];;C;2;.1413;@

 ;;CONFIDENTIAL CITY;;C;2;.1414;@

 ;;CONFIDENTIAL STATE;;C;2;.1415;@

 ;;CONFIDENTIAL COUNTY;;C;2;.14111;@

 ;;CONFIDENTIAL ZIP CODE;;C;2;.1416;@

 ;;CONFIDENTIAL ADDRESS START DATE;;C;2;.1417;@

 ;;CONFIDENTIAL ADDRESS END DATE;;C;2;.1418;@

 ;;CONFIDENTIAL PHONE NUMBER;;C;2;.1315;@

 ;;CONFIDENTIAL ADDRESS PROVINCE;;C;2;.14114;@

 ;;CONFIDENTIAL ADDRESS POSTAL CODE;;C;2;.14115;@

 ;;CONFIDENTIAL ADDRESS COUNTRY;;C;2;.14116;@

 ;;CONFIDENTIAL ADDRESS ACTIVE;;C;2;.14105;N

 ;;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 ADDRESS PROVINCE;;P;2;.1171;@

 ;;PERMANENT ADDRESS POSTAL CODE;;P;2;.1172;@

 ;;PERMANENT ADDRESS COUNTRY;;P;2;.1173;@

 ;;PERMANENT BAD ADDRESS INDICATOR;;P;2;.121;@

 ;;QUIT;;QUIT

DGCLEAR   ;ALB/BAJ,TDM - REGISTRATION CROSS REFERENCE CLEANUP ; 12/22/08 4:14pm

 +1       ;;5.3;PIMS;**653,688,1015,1016**;JUN 30, 2012;Build 20

 +2       ;

 +3       ; Called from ASK^DGLOCK or ADK^DGLOCK3, The purpose of this routine is to clear All temporary or confidential address fields

 +4       ; Also called from Z07 process to clear Permanent address before update 

 +5       ;               

 +6       ; 

EN(DGENDA,TYPE) ; entry point

 +1       ;

 +2       ; Code to TRIGGER deletion of field data.

 +3        NEW DATA,CALLTYP

 +4        SET CALLTYP=$SELECT(TYPE="TEMP":"T",TYPE="PERM":"P",1:"C")

 +5        DO SETARR(CALLTYP,.DATA)

 +6        QUIT $$UPD^DGENDBS(2,.DGENDA,.DATA)

 +7       ;

SETARR(CALLTYP,DATA) ;set up data array

 +1        NEW CNT,CURFILE,CTRYFLD,FDFLG,ADDTYPE,T,FTYPE,CURFTYPE

 +2       ; assemble array of fields to clear

 +3        FOR CNT=1:1

               SET T=$PIECE($TEXT(DTABLE+CNT),";;",3)

               IF T="QUIT"

                   QUIT 

               Begin DoDot:1

 +4                IF $PIECE(T,";",1)'=CALLTYP

                       QUIT 

                   SET DATA($PIECE(T,";",3))=$PIECE(T,";",4)

               End DoDot:1

 +5        QUIT 

DTABLE    ;TABLE of Foreign and Domestic fields: structure -->>;Description;;(T)EMPORARY/(C)ONFIDENTIAL/(P)ERMANENT;FILE;FIELD;DATA

 +1       ;;TEMPORARY STREET [LINE 1];;T;2;.1211;@

 +2       ;;TEMPORARY ZIP+4;;T;2;.12112;@

 +3       ;;TEMPORARY STREET [LINE 2];;T;2;.1212;@

 +4       ;;TEMPORARY STREET [LINE 3];;T;2;.1213;@

 +5       ;;TEMPORARY CITY;;T;2;.1214;@

 +6       ;;TEMPORARY STATE;;T;2;.1215;@

 +7       ;;TEMPORARY COUNTY;;T;2;.12111;@

 +8       ;;TEMPORARY ZIP CODE;;T;2;.1216;@

 +9       ;;TEMPORARY ADDRESS START DATE;;T;2;.1217;@

 +10      ;;TEMPORARY ADDRESS END DATE;;T;2;.1218;@

 +11      ;;TEMPORARY PHONE NUMBER;;T;2;.1219;@

 +12      ;;TEMPORARY ADDRESS PROVINCE;;T;2;.1221;@

 +13      ;;TEMPORARY ADDRESS POSTAL CODE;;T;2;.1222;@

 +14      ;;TEMPORARY ADDRESS COUNTRY;;T;2;.1223;@

 +15      ;;TEMPORARY ADDRESS ACTIVE;;T;2;.12105;N

 +16      ;;CONFIDENTIAL STREET [LINE 1];;C;2;.1411;@

 +17      ;;CONFIDENTIAL STREET [LINE 2];;C;2;.1412;@

 +18      ;;CONFIDENTIAL STREET [LINE 3];;C;2;.1413;@

 +19      ;;CONFIDENTIAL CITY;;C;2;.1414;@

 +20      ;;CONFIDENTIAL STATE;;C;2;.1415;@

 +21      ;;CONFIDENTIAL COUNTY;;C;2;.14111;@

 +22      ;;CONFIDENTIAL ZIP CODE;;C;2;.1416;@

 +23      ;;CONFIDENTIAL ADDRESS START DATE;;C;2;.1417;@

 +24      ;;CONFIDENTIAL ADDRESS END DATE;;C;2;.1418;@

 +25      ;;CONFIDENTIAL PHONE NUMBER;;C;2;.1315;@

 +26      ;;CONFIDENTIAL ADDRESS PROVINCE;;C;2;.14114;@

 +27      ;;CONFIDENTIAL ADDRESS POSTAL CODE;;C;2;.14115;@

 +28      ;;CONFIDENTIAL ADDRESS COUNTRY;;C;2;.14116;@

 +29      ;;CONFIDENTIAL ADDRESS ACTIVE;;C;2;.14105;N

 +30      ;;PERMANENT STREET [LINE 1];;P;2;.111;@

 +31      ;;PERMANENT STREET [LINE 2];;P;2;.112;@

 +32      ;;PERMANENT CITY;;P;2;.114;@

 +33      ;;PERMANENT STATE;;P;2;.115;@

 +34      ;;PERMANENT COUNTY;;P;2;.117;@

 +35      ;;PERMANENT ZIP CODE;;P;2;.1112;@

 +36      ;;PERMANENT ADDRESS PROVINCE;;P;2;.1171;@

 +37      ;;PERMANENT ADDRESS POSTAL CODE;;P;2;.1172;@

 +38      ;;PERMANENT ADDRESS COUNTRY;;P;2;.1173;@

 +39      ;;PERMANENT BAD ADDRESS INDICATOR;;P;2;.121;@

 +40      ;;QUIT;;QUIT