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

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1DG53726A ;ALB/RMM Enable Audit Settings for Patient File; 08/02/2006
2 ;;5.3;Registration;**726**;Aug 13, 1993;Build 4
3 ;
4 Q
5 ;
6EN ; This patch will turn AUDITING ON for the following fields:
7 ;
8 ; .01 NAME
9 ; .02 SEX
10 ; .03 DATE OF BIRTH
11 ; .05 MARITAL STATUS
12 ; .08 RELIGIOUS PREFERENCE
13 ; .09 SOCIAL SECURITY NUMBER
14 ; .111 STREET ADDRESS [LINE 1]
15 ; .1112 ZIP+4
16 ; .112 STREET ADDRESS [LINE 2]
17 ; .113 STREET ADDRESS [LINE 3]
18 ; .114 CITY
19 ; .115 STATE
20 ; .117 COUNTY
21 ; .131 PHONE NUMBER [RESIDENCE]
22 ; .132 PHONE NUMBER [WORK]
23 ; .211 K-NAME OF PRIMARY NOK
24 ; .219 K-PHONE NUMBER
25 ; .2403 MOTHER'S MAIDEN NAME
26 ; .301 SERVICE CONNECTED?
27 ; .302 SERVICE CONNECTED PERCENTAGE
28 ; .31115 EMPLOYMENT STATUS
29 ; .313 CLAIM NUMBER
30 ; .323 PERIOD OF SERVICE
31 ; .351 DATE OF DEATH
32 ; 391 TYPE
33 ; 1901 VETERAN (Y/N)?
34 ; 994 MULTIPLE BIRTH INDICATOR
35 ; 991.01 INTEGRATION CONTROL NUMBER
36 ; 991.02 ICN CHECKSUM
37 ; 991.03 CIRN MASTER OF RECORD
38 ; 991.04 LOCALLY ASSIGNED ICN
39 ; 991.05 SUBSCRIPTION CONTROL NUMBER
40 ; 991.06 CMOR ACTIVITY SCORE
41 ; 991.07 SCORE CALCULATION DATE
42 ; .01 ICN HISTORY (SUB-FILE: 2.0992)
43 ;
44 N FLDNUM
45 F FLDNUM=.01,.02,.03,.05,.08,.09,.111,.1112 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
46 F FLDNUM=.112,.113,.114,.115,.117,.131,.132 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
47 F FLDNUM=.211,.219,.2403,.301,.302,.31115,.313,.323 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
48 F FLDNUM=.351,391,1901,994,991.01,991.02 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
49 F FLDNUM=991.03,991.04,991.05,991.06,991.07 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
50 F FLDNUM=.01 D TURNON^DIAUTL(2.0992,FLDNUM) W !,"Adding AUDIT to sub-file 2.0992, field #",FLDNUM
51 Q
52
Note: See TracBrowser for help on using the repository browser.