RT ALL INPATIENTS (224)    SORT TEMPLATE (.401)

Name Value
NAME RT ALL INPATIENTS
SORT FIELD DATA
  • CROSS REFERENCE DATA:   ^DPT("ACN",^DPT(^2
  • CROSS REFERENCE DATA:   ^DPT("B",^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(3)=X
    RELATIONAL JUMP FIELD DATA:
    FROM VALUE INTERNAL:   MECz
    TO VALUE INTERNAL:   MED
DATE CREATED 1987-02-27 00:00:00
FILE PATIENT