source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRSHO.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IMRSHO ;ISC-SF/JLI,HCIOFO/FT-SHOW FEATURES OF ENCRYPTION FOR IMR PKG ;10/17/97 9:35
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3 ;[IMR SHOW CODE] - Encryption of Data (Demonstration)
4 I '$D(^XUSEC("IMRA",DUZ)) S IMRLOC="IMRSHO" D ACESSERR^IMRERR,H^XUS K IMRLOC
5 W !!,"This option demonstrates some of the encryption features for the IMR package",!,"No entries will be made in the Immunology Case Study file, so you can select",!,"any patient to see what he/she would look like.",!!
6ASK S DIC=2,DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT
7 S (DFN,IMRDFN)=+Y D DEM^VADPT
8 S IMRNAME=VADM(1),IMRSSN1=$P(VADM(2),U),IMRDOB1=$P(VADM(3),U)
9 K DFN,VA,VADM
10 W !!,"Patient's number in the Patient file: ",IMRDFN
11 W !?32,"Name: ",IMRNAME
12 W !?33,"SSN: ",IMRSSN1
13 S X=IMRDOB1,X1=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
14 W !?23,"Date of Birth: ",X1
15 S X=IMRDFN D ^IMRXOR S IMRX=X,X=+IMRSSN1 D ^IMRXOR
16 S IMRSSN=X_$S(IMRSSN1["P":"P",1:""),X=$E(IMRDOB1,1,5)_"00" D ^IMRXOR
17 S IMRDOB=X
18 W !!,"Patient's id in the Immunology Case Study file: ",IMRX
19 W !?37,"Coded SSN: ",IMRSSN
20 W !?27,"Coded Date of Birth: ",IMRDOB,!
21 G ASK
22 ;
23EXIT K C,DIC,%,%H,%Y,DIPGM,IMRSTN,IMRDFN,IMRNAME,IMRSSN1,IMRDOB1,IMRX,IMRSSN,IMRDOB,X,Y,X1,VAERR,DISYS,D,POP
24 Q
Note: See TracBrowser for help on using the repository browser.