Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGCLEAR

DGCLEAR.m

Go to the documentation of this file.
  1. DGCLEAR ;ALB/BAJ,TDM - REGISTRATION CROSS REFERENCE CLEANUP ; 12/22/08 4:14pm
  1. ;;5.3;Registration;**653,688,754**;Aug 13, 1993;Build 46
  1. ;
  1. ; Called from ASK^DGLOCK or ADK^DGLOCK3, The purpose of this routine is to clear All temporary or confidential address fields
  1. ; Also called from Z07 process to clear Permanent address before update
  1. ;
  1. ;
  1. EN(DGENDA,TYPE) ; entry point
  1. ;
  1. ; Code to TRIGGER deletion of field data.
  1. N DATA,CALLTYP
  1. S CALLTYP=$S(TYPE="TEMP":"T",TYPE="PERM":"P",1:"C")
  1. D SETARR(CALLTYP,.DATA)
  1. Q $$UPD^DGENDBS(2,.DGENDA,.DATA)
  1. ;
  1. SETARR(CALLTYP,DATA) ;set up data array
  1. N CNT,CURFILE,CTRYFLD,FDFLG,ADDTYPE,T,FTYPE,CURFTYPE
  1. ; assemble array of fields to clear
  1. F CNT=1:1 S T=$P($T(DTABLE+CNT),";;",3) Q:T="QUIT" D
  1. . Q:$P(T,";",1)'=CALLTYP S DATA($P(T,";",3))=$P(T,";",4)
  1. Q
  1. 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;@
  1. ;;TEMPORARY ZIP+4;;T;2;.12112;@
  1. ;;TEMPORARY STREET [LINE 2];;T;2;.1212;@
  1. ;;TEMPORARY STREET [LINE 3];;T;2;.1213;@
  1. ;;TEMPORARY CITY;;T;2;.1214;@
  1. ;;TEMPORARY STATE;;T;2;.1215;@
  1. ;;TEMPORARY COUNTY;;T;2;.12111;@
  1. ;;TEMPORARY ZIP CODE;;T;2;.1216;@
  1. ;;TEMPORARY ADDRESS START DATE;;T;2;.1217;@
  1. ;;TEMPORARY ADDRESS END DATE;;T;2;.1218;@
  1. ;;TEMPORARY PHONE NUMBER;;T;2;.1219;@
  1. ;;TEMPORARY ADDRESS PROVINCE;;T;2;.1221;@
  1. ;;TEMPORARY ADDRESS POSTAL CODE;;T;2;.1222;@
  1. ;;TEMPORARY ADDRESS COUNTRY;;T;2;.1223;@
  1. ;;TEMPORARY ADDRESS ACTIVE;;T;2;.12105;N
  1. ;;CONFIDENTIAL STREET [LINE 1];;C;2;.1411;@
  1. ;;CONFIDENTIAL STREET [LINE 2];;C;2;.1412;@
  1. ;;CONFIDENTIAL STREET [LINE 3];;C;2;.1413;@
  1. ;;CONFIDENTIAL CITY;;C;2;.1414;@
  1. ;;CONFIDENTIAL STATE;;C;2;.1415;@
  1. ;;CONFIDENTIAL COUNTY;;C;2;.14111;@
  1. ;;CONFIDENTIAL ZIP CODE;;C;2;.1416;@
  1. ;;CONFIDENTIAL ADDRESS START DATE;;C;2;.1417;@
  1. ;;CONFIDENTIAL ADDRESS END DATE;;C;2;.1418;@
  1. ;;CONFIDENTIAL PHONE NUMBER;;C;2;.1315;@
  1. ;;CONFIDENTIAL ADDRESS PROVINCE;;C;2;.14114;@
  1. ;;CONFIDENTIAL ADDRESS POSTAL CODE;;C;2;.14115;@
  1. ;;CONFIDENTIAL ADDRESS COUNTRY;;C;2;.14116;@
  1. ;;CONFIDENTIAL ADDRESS ACTIVE;;C;2;.14105;N
  1. ;;PERMANENT STREET [LINE 1];;P;2;.111;@
  1. ;;PERMANENT STREET [LINE 2];;P;2;.112;@
  1. ;;PERMANENT CITY;;P;2;.114;@
  1. ;;PERMANENT STATE;;P;2;.115;@
  1. ;;PERMANENT COUNTY;;P;2;.117;@
  1. ;;PERMANENT ZIP CODE;;P;2;.1112;@
  1. ;;PERMANENT ADDRESS PROVINCE;;P;2;.1171;@
  1. ;;PERMANENT ADDRESS POSTAL CODE;;P;2;.1172;@
  1. ;;PERMANENT ADDRESS COUNTRY;;P;2;.1173;@
  1. ;;PERMANENT BAD ADDRESS INDICATOR;;P;2;.121;@
  1. ;;QUIT;;QUIT