RT WARD LIST (223)    SORT TEMPLATE (.401)

Name Value
NAME RT WARD LIST
SORT FIELD DATA
  • CROSS REFERENCE DATA:   ^DPT("AA",^DPT(^2
  • COMPUTED FIELD CODE:   S Y(101)=$S($D(^RT(D0,0)):^(0),1:"") S X=$S('$D(^DIC(195.1,+$P(Y(101),U,4),0)):"",1:$P(^(0),U,1)) I D0>0 S X(2)=X
    RELATIONAL JUMP FIELD DATA:
    FROM VALUE INTERNAL:   MECz
    TO VALUE INTERNAL:   MED
  • RELATIONAL JUMP FIELD DATA:
    FROM VALUE INTERNAL:   mz
    TO VALUE INTERNAL:   n
  • CROSS REFERENCE DATA:   ^DPT("ACN",^DPT(^2
  • CROSS REFERENCE DATA:   ^DPT("B",^DPT(^2
DATE CREATED 1987-02-27 00:00:00
FILE PATIENT