INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) D HASH^XUSHSHP
OUTPUT TRANSFORM: S Y(0)=Y,Y=""
LAST EDITED: NOV 01, 1994
HELP-PROMPT: This is the hashed user DUZ. [1-30 characters]
DESCRIPTION: This is the hashed version of the participant DUZ. It is hashed via ^XUSHSHP and all user-viewable outputs of this field are converted to for confidentiality.
This field is used to determine if a user has already participated in a survey. No pointer to file 200 is used since the DUZ is hashed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 748.3^AC^MUMPS
1)= S QAPSURV=$P(^QA(748.3,DA,0),U,1),^QA(748.3,"AC",$E(X,1,30),QAPSURV,DA)="" K QAPSURV
2)= S QAPSURV=$P(^QA(748.3,DA,0),U,1) K ^QA(748.3,"AC",$E(X,1,30),QAPSURV,DA),QAPSURV