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).