VARIABLE CHECK LOGIC: S Y=$S($D(^DGBT(392,IEN,0)):1,1:0)
COMPUTABLE FILE REFERENCES
FILE REFERENCE LOGIC: D PAT^XULMU(+$P($G(^DGBT(392,IEN,0)),"^",2))
DESCRIPTION:
Returns the patient's name, sex, date of birth, and Social Security.
FILE REFERENCE LOGIC: N ND S ND=^DGBT(392,IEN,0),ID(0)=2,ID("IEN")=IEN,ID(1)="Claim Dt/Tm:"_$S(+ND:$$FMTE^XLFDT(+ND),1:""),ID(2)="Account#:"_$S($P(ND,"^",6):$P($G(^DGBT(392.3,$P(ND,"^",6),0)),"^"),1:"") D ADDPAT^XULMU($P(ND,"^",2))
DESCRIPTION:
This references returns the patient name, date of birth, sex, Social
Security Number, and claim date/time.
USAGE
This lock is on a record in the BENEFICIARY TRAVEL CLAIM file (#392).
