IB BILLING RATES (122)    SORT TEMPLATE (.401)

Name Value
NAME IB BILLING RATES
DESCRIPTION 
Billing Rates List.
SORT FIELD DATA
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
  • TO VALUE INTERNAL:   z
    CROSS REFERENCE DATA:   ^DGCR(399.5,"B",^DGCR(399.5,^2
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"") S X=$S('$D(^DGCR(399.2,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S X(5)=X
DATE CREATED 1990-05-29 09:58:00
FILE BILLING RATES
DATE LAST USED 1992-07-08 00:00:00