| GENERAL DESCRIPTION |
DG*5.3*249, DGSEC Modifications and Privacy Act
Compliance for Employees, modifies the identifiers on the DOB (#.03) and
Social Security Number (#.09) fields in the Patient (#2) file to:
^DD(2,0,"ID",.03) = D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),"/","-"),,"?$X+2")
^DD(2,0,"ID",.09) = D EN^DDIOL($$SSN^DPTLK1(Y),,"?$X+2")
The DOB and SSN function calls in DPTLK1 are new with this patch. If the
patient's primary eligibility code is Employee, *SENSITIVE* will be displayed
for the DOB and SSN fields until the user verifies they want to access the
restricted record.
The post-init routine, DG53249P, will set the "ID" nodes:
DG53249P ;ALB/JAP - Patch 249 postinstall ; 1/11/00 12:56pm
;;5.3;Registration;**249**;Aug 13, 1993
;
EN ;entry point from install
;update identifier code in patient file
S ^DD(2,0,"ID",.03)="D
EN^DDIOL($TR($$DOB^DPTLK1(Y,1),""/"",""-""),,""?$X+2"")"
S ^DD(2,0,"ID",.09)="D EN^DDIOL($$SSN^DPTLK1(Y),,""?$X+2"")"
Q
|
