VARIABLE CHECK LOGIC: S Y=$S($D(^TIU(8925,IEN,0)):1,1:0)
COMPUTABLE FILE REFERENCES
FILE REFERENCE LOGIC: D PAT^XULMU(+$P($G(^TIU(8925,IEN,0)),"^",2))
DESCRIPTION:
Returns the patient's name, sex, date of birth, and Social Security nNumber.
FILE REFERENCE LOGIC: N ND S ND=$G(^TIU(8925,IEN,0)),ID("IEN")=IEN D ADDPAT^XULMU(+$P(ND,"^",2)) S ID(0)=ID(0)+1,ID(ID(0))="Document Type:"_$P($G(^TIU(8925.1,+ND,0)),"^")
DESCRIPTION:
This file reference returns the patient name, date of birth, sex,
Social Security Number, and document type.
USAGE
This lock is on a document in the TIU DOCUMENT file (#8925).