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: 90051.2101

Package: IHS Accounts Receivable

A/R COLLECTION POINT/IHS(#90051.02)-->90051.2101

Sub-Field: 90051.2101


Information

Parent File Name Number Package
A/R COLLECTION POINT/IHS(#90051.02) USERS 90051.2101 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.01 USER NAME 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 04, 1994
  • CROSS-REFERENCE:  90051.2101^B
    1)= S ^BAR(90051.02,DUZ(2),DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BAR(90051.02,DUZ(2),DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90051.02^AB
    1)= S ^BAR(90051.02,DUZ(2),"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^BAR(90051.02,DUZ(2),"AB",$E(X,1,30),DA(1),DA)
    Used to find which collection ID batch the user may be able to enter or open for entry access.
.5 SERVICE/SECTION COMPUTED

  • MUMPS CODE:  X ^DD(90051.2101,.5,9.3) S X=$S('$D(^DIC(49,+$P(Y(90051.2101,.5,101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(90051.2101,.5,80) S D1=Y(90051.2101,.5,81)
    9.2 = S Y(90051.2101,.5,81)=$S($D(D1):D1,1:""),Y(90051.2101,.5,80)=$S($D(D0):D0,1:""),Y(90051.2101,.5,1)=$S($D(^BAR(90051.02,DUZ(2),D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(90051.2101,.5,9.2) S D0=$P(Y(90051.2101,.5,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(90051.2101,.5,101)=$S($D(^VA(200,D0,5)):^(5),1:"")
  • ALGORITHM:  .01:29
Info |  Details |  All