DBIA5018 ICR (5018)

Name

Value

NUMBER

5018

IA #

5018

DATE CREATED

2011/01/10

CUSTODIAL PACKAGE

REGISTRATION

USAGE

Private

TYPE

Routine

ROUTINE

DGRPDD1

NAME

DBIA5018

GENERAL DESCRIPTION

Create pseudo SSN for John Doe patients or for a
patient that can't provide their SSN at Registration.

STATUS

Pending

DURATION

Till Otherwise Agreed

DGRPDD1

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

SSN

Routine DGRPDD1 has a subroutine SSN that generates
psuedo SSNs.

VARIABLES	TYPE	VARIABLES DESCRIPTION
X	Both	The variable X is set to "P" before calling the component. The pseudo SSN is returned in the same X variable.

SUBSCRIBING PACKAGE

SUBSCRIBING DETAILS

JAL FEDERAL HEALTH CARE CENTER

FILEPSSN (a subroutine of JVDGF) is used whenever the
Single Patient Registration needs to generate a pseudoSSN.

FILEPSSN ; create pseudo SSN
N DPTIDS,DPTX,ZTQUEUED
N X,Y S X=TMPFDA(2,.03) D ^%DT
S ZTQUEUED=1,DPTIDS(.03)=Y,DPTX=TMPFDA(2,.01)
S X=XSN D SSN^DGRPDD1 ; call to legacy code.
I X?9N1"P" S XSN=X
I X'?9N1"P" D
. S XSN=""
. S DGOUT(1)="ERR^Patient Record NOT CREATED"
. S DGOUT(2)="pseudoSSN could not be generated"
;
Q

The line of code calls the component:
S X=XSN D SSN^DGRPDD1 ; call to legacy code.