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

DG53726A.m

Go to the documentation of this file.
  1. DG53726A ;ALB/RMM Enable Audit Settings for Patient File; 08/02/2006
  1. ;;5.3;Registration;**726**;Aug 13, 1993;Build 4
  1. ;
  1. Q
  1. ;
  1. EN ; This patch will turn AUDITING ON for the following fields:
  1. ;
  1. ; .01 NAME
  1. ; .02 SEX
  1. ; .03 DATE OF BIRTH
  1. ; .05 MARITAL STATUS
  1. ; .08 RELIGIOUS PREFERENCE
  1. ; .09 SOCIAL SECURITY NUMBER
  1. ; .111 STREET ADDRESS [LINE 1]
  1. ; .1112 ZIP+4
  1. ; .112 STREET ADDRESS [LINE 2]
  1. ; .113 STREET ADDRESS [LINE 3]
  1. ; .114 CITY
  1. ; .115 STATE
  1. ; .117 COUNTY
  1. ; .131 PHONE NUMBER [RESIDENCE]
  1. ; .132 PHONE NUMBER [WORK]
  1. ; .211 K-NAME OF PRIMARY NOK
  1. ; .219 K-PHONE NUMBER
  1. ; .2403 MOTHER'S MAIDEN NAME
  1. ; .301 SERVICE CONNECTED?
  1. ; .302 SERVICE CONNECTED PERCENTAGE
  1. ; .31115 EMPLOYMENT STATUS
  1. ; .313 CLAIM NUMBER
  1. ; .323 PERIOD OF SERVICE
  1. ; .351 DATE OF DEATH
  1. ; 391 TYPE
  1. ; 1901 VETERAN (Y/N)?
  1. ; 994 MULTIPLE BIRTH INDICATOR
  1. ; 991.01 INTEGRATION CONTROL NUMBER
  1. ; 991.02 ICN CHECKSUM
  1. ; 991.03 CIRN MASTER OF RECORD
  1. ; 991.04 LOCALLY ASSIGNED ICN
  1. ; 991.05 SUBSCRIPTION CONTROL NUMBER
  1. ; 991.06 CMOR ACTIVITY SCORE
  1. ; 991.07 SCORE CALCULATION DATE
  1. ; .01 ICN HISTORY (SUB-FILE: 2.0992)
  1. ;
  1. N FLDNUM
  1. F FLDNUM=.01,.02,.03,.05,.08,.09,.111,.1112 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
  1. F FLDNUM=.112,.113,.114,.115,.117,.131,.132 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
  1. F FLDNUM=.211,.219,.2403,.301,.302,.31115,.313,.323 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
  1. F FLDNUM=.351,391,1901,994,991.01,991.02 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
  1. F FLDNUM=991.03,991.04,991.05,991.06,991.07 D TURNON^DIAUTL(2,FLDNUM) W !,"Adding AUDIT to field #",FLDNUM
  1. F FLDNUM=.01 D TURNON^DIAUTL(2.0992,FLDNUM) W !,"Adding AUDIT to sub-file 2.0992, field #",FLDNUM
  1. Q