OR(100,IEN) (10)    XULM LOCK DICTIONARY (8993)

Name Value
LOCK TEMPLATE OR(100,IEN)
PACKAGE ORDER ENTRY/RESULTS REPORTING
GLOBAL LOCK? YES
PARTIAL MATCH ALLOWED? YES
ARRAY SUBSCRIPTS
  • SUBSCRIPT ORDER NUMBER:   1
    SUBSCRIPT:   100
    TYPE:   LITERAL
  • SUBSCRIPT ORDER NUMBER:   2
    SUBSCRIPT:   IEN
    TYPE:   VARIABLE
    VARIABLE CHECK LOGIC:   S Y=0 I $G(^OR(100,IEN,0)) S Y=1
COMPUTABLE FILE REFERENCES
  • FILE REFERENCE LOGIC:   N DFN S DFN=$P($G(^OR(100,IEN,0)),"^",2) S:$P(DFN,";",2)'="DPT(" DFN=0 D PAT^XULMU(+DFN)
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number.
if the order is for a patient in the PATIENT file (#2).
  • FILE REFERENCE LOGIC:   N ND,DFN S ID("IEN")=IEN,ND=$G(^OR(100,IEN,0)),DFN=$P(ND,"^",2) S:$P(DFN,";",2)'="DPT(" DFN=0 D ADDPAT^XULMU(+DFN) S ID(0)=ID(0)+1,ID(ID(0))="Order #:"_$P(ND,"^")
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number, and the order #.
USAGE 
This lock is on a record in the ORDER file (#100).