IB BILLING PATIENT BY REASON (127)    SORT TEMPLATE (.401)

Name Value
NAME IB BILLING PATIENT BY REASON
SORT FIELD DATA
  • COMPUTED FIELD CODE:   S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   ZZZZ
    TO VALUE EXTERNAL:   ZZZZ
  • FROM VALUE INTERNAL:   2920323.99999
    FROM VALUE EXTERNAL:   T-365
    TO VALUE INTERNAL:   2930324.9999
    TO VALUE EXTERNAL:   T
    CROSS REFERENCE DATA:   ^IBA(354,"AD",^IBA(354,^2
  • COMPUTED FIELD CODE:   S X(3)=$P($G(^DPT(+D0,0)),U)
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   ZZZZ
    TO VALUE EXTERNAL:   ZZZZ
DATE CREATED 1993-03-24 08:57:00
READ ACCESS @
FILE BILLING PATIENT
USER # 1453
WRITE ACCESS @
DATE LAST USED 1993-05-07 00:00:00