ENLEASE (90)    SORT TEMPLATE (.401)

Name Value
NAME ENLEASE
SORT FIELD DATA
  • COMPUTED FIELD CODE:   X DPP(1,"OVF0",9.2) S Y(101)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,15)_":",2),$C(59),1) S D0=I(0,0) I D0>0 S X(1)=X
    FROM VALUE INTERNAL:   Kz
    FROM VALUE EXTERNAL:   L
    TO VALUE INTERNAL:   LZ
    TO VALUE EXTERNAL:   LZ
  • FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   z
  • FROM VALUE INTERNAL:   .99999
    FROM VALUE EXTERNAL:   1
    TO VALUE INTERNAL:   z
    CROSS REFERENCE DATA:   ^ENG("SP","E",^ENG("SP",^2
  • FROM VALUE INTERNAL:   .99999
    FROM VALUE EXTERNAL:   1
    TO VALUE INTERNAL:   z
    CROSS REFERENCE DATA:   ^ENG("SP","B",^ENG("SP",^2
DATE CREATED 1993-03-22 22:08:00
FILE ENG SPACE
DATE LAST USED 1993-05-21 00:00:00