PSRX("B",RX) (12)    XULM LOCK DICTIONARY (8993)

Name Value
LOCK TEMPLATE PSRX("B",RX)
GLOBAL LOCK? YES
PARTIAL MATCH ALLOWED? NO
ARRAY SUBSCRIPTS
  • SUBSCRIPT ORDER NUMBER:   1
    SUBSCRIPT:   B
    TYPE:   LITERAL
  • SUBSCRIPT ORDER NUMBER:   2
    SUBSCRIPT:   RX
    TYPE:   VARIABLE
    VARIABLE CHECK LOGIC:   S Y=$S($O(^PSRX("B",RX,0)):1,1:0)
COMPUTABLE FILE REFERENCES
  • FILE REFERENCE LOGIC:   N IEN S IEN=$O(^PSRX("B",RX,0)) I IEN D PAT^XULMU($P($G(^PSRX(IEN,0)),"^",2))
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number.
  • FILE REFERENCE LOGIC:   N IEN S IEN=$O(^PSRX("B",RX,0)) I IEN S ID("IEN")=IEN D ADDPAT^XULMU($P($G(^PSRX(IEN,0)),"^",2)) S ID(0)=ID(0)+1,ID(ID(0))="RX#:"_RX
    DESCRIPTION:   
    Returns the patient's name, sex, date of birth, and Social Security Number and prescription number.
USAGE 
This lock is on a record in the PRESCRIPTION file (#52).