RARPT(IEN) (20) XULM LOCK DICTIONARY (8993)

Name	Value
LOCK TEMPLATE	RARPT(IEN)
PACKAGE	RADIOLOGY/NUCLEAR MEDICINE
GLOBAL LOCK?	YES
PARTIAL MATCH ALLOWED?	YES
ARRAY SUBSCRIPTS	SUBSCRIPT ORDER NUMBER: 1 SUBSCRIPT: IEN TYPE: VARIABLE VARIABLE CHECK LOGIC: S Y=$S($D(^RARPT(IEN,0)):1,1:0)
COMPUTABLE FILE REFERENCES	FILE REFERENCE LOGIC: D PAT^XULMU($P($G(^RARPT(IEN,0)),"^",2)) DESCRIPTION: Returns the patient's name, sex, date of birth, and Social Security Number. FILE REFERENCE LOGIC: N ND S ND=$G(^RARPT(IEN,0)),ID("IEN")=IEN D ADDPAT^XULMU(+$P(ND,"^",2)) S ID(0)=ID(0)+1,ID(ID(0))="DAY-CASE#:"_$P(ND,"^") DESCRIPTION: This file reference returns the patient name, date of birth, sex, Social Security Number, and DAY-CASE#.
USAGE	This lock is on a record in the RAD/NUC MED REPORTS file (#74).