- 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 Jan 18, 2025@03:39:12 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).