Print Page as PDF
ID Nodes in Patient (#2) file ICR (3024)

ID Nodes in Patient (#2) file    ICR (3024)

Name Value
NUMBER 3024
IA # 3024
FILE NUMBER 2
GLOBAL ROOT DD(2
DATE CREATED 2003/06/10
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
NAME ID Nodes in Patient (#2) file
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
STATUS Retired
ID DD(2
SUBSCRIBING PACKAGE REGISTRATION