XTMP(SRLOCK) (14)    XULM LOCK DICTIONARY (8993)

Name Value
LOCK TEMPLATE XTMP(SRLOCK)
PACKAGE SURGERY
GLOBAL LOCK? YES
PARTIAL MATCH ALLOWED? YES
ARRAY SUBSCRIPTS
  • SUBSCRIPT ORDER NUMBER:   1
    SUBSCRIPT:   SRLOCK
    TYPE:   VARIABLE
    VARIABLE CHECK LOGIC:   S Y=0 I SRLOCK["SRLOCK-",$D(^SRF(+$P(SRLOCK,"-",2),0)) S Y=1
COMPUTABLE FILE REFERENCES
  • FILE REFERENCE LOGIC:   N ND S ND=$G(^SRF(+$P(SRLOCK,"-",2),0)) D PAT^XULMU(+ND)
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number.
  • FILE REFERENCE LOGIC:   N ND S ID("IEN")=+$P(SRLOCK,"-",2),ND=$G(^SRF(ID("IEN"),0)) D ADDPAT^XULMU(+ND)
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number.
USAGE 
This lock is on a surgery case in the SURGERY file (#130).