The testing of HealthQuest Patient Management occasionally requires data that is difficult
if not nearly impossible to create. The best source of data for testing complex application
modifications is simply to copy the appropriate patient data records from production data sets
to test data sets. The patient confidentiality issue comes into play when simply copying data.
There is a utility program available that will pseudo encrypt critical patient data to add a
higher level of confidentiality to the test data.
The program 'DR0888BA' will accept a field name and a data length parameter and modify the
value of the letters and/or numbers to make the data highly unreadable yet still retain the
'look' of the real data. There are 2 modes available for 'encrypting' the data fields,
random and standard. The standard mode is simply a transformation that when applied twice,
the original data will be returned. The random mode might not return the original data.
WORKING-STORAGE SECTION.
01 PATIENT-DATA-WS.
02 PATIENT-NAME-WS PIC X(25).
02 PATIENT-SSN-WS PIC 9(09).
02 PATIENT-HOME-PHONE-WS PIC 9(10).
02 PATIENT-ADDRESS-WS PIC X(40).
02 LEN PIC S9(08) COMP.
02 ENCRYPT-MODE PIC X(01) VALUE 'R'.
PROCEDURE DIVISION.
.
.
.
MOVE 25 TO LEN.
CALL 'DR0888BA' USING PATIENT-NAME-WS LEN ENCRYPT-MODE.
MOVE 84 TO LEN.
CALL 'DR0888BA' USING PATIENT-DATA-WS LEN ENCRYPT-MODE.
MOVE 10 TO LEN.
MOVE 'R' TO ENCRYPT-MODE.
CALL 'DR0888BA' USING PATIENT-PHONE-WS LEN ENCRYPT-MODE.
.
.
.
Sample before and after data: Before.................. After...................
DONALD C RITTER REQYNR J WODDAW
RUTH MICHAEL MEJK QYZKUAN
1232 SOUTH MAIN 4929 LEUDB XYOQ
(734) 998-6849 (517) 664-3476