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