VARIABLE CHECK LOGIC: S Y=$S($D(^DGPT(IEN,0)):1,1:0)
COMPUTABLE FILE REFERENCES
FILE REFERENCE LOGIC: D PAT^XULMU(+$G(^DGPT(IEN,0)))
DESCRIPTION:
Returns the patient's name, sex, date of birth, and Social Security Number.
FILE REFERENCE LOGIC: N ND S ND=$G(^DGPT(IEN,0)),ID("IEN")=IEN,ID(0)=0 D ADDPAT^XULMU(+ND) S ID(0)=ID(0)+1,ID(ID(0))="Admission Date:"_$S($P(ND,"^",2):$$FMTE^XLFDT($P(ND,"^",2)),1:"")
DESCRIPTION:
This references returns the patient name, date of birth, sex, Social
Security Number, and date of admission.
