Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 90057.110101

Package: IHS Accounts Receivable

A/R UFMS CASHIER SESSION LOG(#90057)-->90057.11-->90057.110101

Sub-Field: 90057.110101


Information

Parent File Name Number Package
90057.11 STATUS CHANGES DATE/TIME 90057.110101 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.01 STATUS CHANGES DATE/TIME 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X S:$D(X) DINUM=X
  • LAST EDITED:  JUL 09, 2007
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is the date/time when the status of the session has been changed by the user (Reconcile) or the Supervisor (Reconcile/Review/TRansmit/Retransmit)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90057.110101^B
    1)= S ^BARSESS(DUZ(2),DA(2),11,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BARSESS(DUZ(2),DA(2),11,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90057.11^.03
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90057.110101,.01,1,2,1.4)
    1.4)= S DIH=$G(^BARSESS(DUZ(2),DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90057.11,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA  I X S X=DIV S Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90057.110101,.01,1,2,2.1) X ^DD(90057.110101,.01,1,2,2.
    4)
    2.1)= S X=DIV S Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,1)
    2.4)= S DIH=$G(^BARSESS(DUZ(2),DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90057.11,DIG=.03 D ^DICR
    3)= PROGRANMMER EDIT
    CREATE VALUE)= STATUS CHANGES DATE/TIME
    DELETE VALUE)= STATUS CHANGES DATE/TIME
    DIC)=
    FIELD)= CURRENT STATUS CHANGED AT
    ONLY EDITED BY CODE
.02 STATUS CHANGED TO 0;2 SET
  • 'O' FOR OPEN;
  • 'RC' FOR RECONCILED;
  • 'RV' FOR REVIEWED/APPROVED;
  • 'T' FOR TRANSMITTED;
  • 'RT' FOR RETRANSMITTED;

  • LAST EDITED:  JUL 09, 2007
  • DESCRIPTION:  
    This is the status the user or supervisor changed the session status to.
  • CROSS-REFERENCE:  ^^TRIGGER^90057.11^.02
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90057.110101,.02,1,1,1.1) X ^DD(90057.110101,.02,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$C(59)_$P($G(^DD(90057.110101,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_DIV_":",2),$C(59))
    1.4)= S DIH=$G(^BARSESS(DUZ(2),DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=90057.11,DIG=.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90057.110101,.02,1,1,2.1) X ^DD(90057.110101,.02,1,1,2.4)
    2.1)= S X=DIV S Y(2)=$C(59)_$P($G(^DD(90057.110101,.02,0)),U,3),Y(1)=$S($D(^BARSESS(DUZ(2),D0,11,D1,1,D2,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59))
    2.4)= S DIH=$G(^BARSESS(DUZ(2),DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=90057.11,DIG=.02 D ^DICR
    CREATE VALUE)= STATUS CHANGED TO
    DELETE VALUE)= STATUS CHANGED TO
    FIELD)= CURRENT STATUS
.03 CHANGED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 09, 2007
  • DESCRIPTION:  
    This field holds the user who changed the status of the session.
Info |  Details |  All