DGPT EXPANDED CODE SORT (117)    SORT TEMPLATE (.401)

Name Value
NAME DGPT EXPANDED CODE SORT
SORT FIELD DATA
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$S('$D(^DIC(45.88,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   Z
    TO VALUE EXTERNAL:   Z
  • COMPUTED FIELD CODE:   X DPP(2,"OVF0",9.3) S X=X_" " I D0>0 S X(2)=X
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   Z
    TO VALUE EXTERNAL:   Z
DATE CREATED 1991-07-10 09:54:00
FILE File: 1, IEN: 45.89