source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGCLEAR.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 915 bytes
RevLine 
[613]1DGCLEAR ;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 ;
6EN(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 ;
12SETARR(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
18DTABLE ;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
Note: See TracBrowser for help on using the repository browser.