DGUNRELEASED (106)    SORT TEMPLATE (.401)

Name Value
NAME DGUNRELEASED
SORT FIELD DATA
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)="" I D0>0 S X(1)=X
  • TO VALUE INTERNAL:   z
    CROSS REFERENCE DATA:   ^DGP(45.84,"AC",^DGP(45.84,^2
DATE CREATED 1984-12-22 00:00:00
FILE PTF CLOSE OUT