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

Package: IHS Accounts Receivable

A/R SITE PARAMETER/IHS(#90052.06)-->90052.0603

Sub-Field: 90052.0603


Information

Parent File Name Number Package
A/R SITE PARAMETER/IHS(#90052.06) DEBT LETTER INSURER TYPE 90052.0603 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.01 DEBT LETTER INSURER TYPE 0;1 POINTER TO A/R INSURER TYPE FILE (#90053.03) A/R INSURER TYPE(#90053.03)

  • LAST EDITED:  JUL 24, 2012
  • CROSS-REFERENCE:  90052.0603^B
    1)= S ^BAR(90052.06,DUZ(2),DA(1),19,"B",$E(X,1,30),DA)=""
    2)= K ^BAR(90052.06,DUZ(2),DA(1),19,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90052.06^1807
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BAR(90052.06,DUZ(2),D0,18)):^(18),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(90052.0603,.01,1,2,1.4)
    1.4)= S DIH=$G(^BAR(90052.06,DUZ(2),DIV(0),18)),DIV=X S $P(^(18),U,7)=DIV,DIH=90052.06,DIG=1807 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BAR(90052.06,DUZ(2),D0,18)):^(18),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(90052.0603,.01,1,2,2.4)
    2.4)= S DIH=$G(^BAR(90052.06,DUZ(2),DIV(0),18)),DIV=X S $P(^(18),U,7)=DIV,DIH=90052.06,DIG=1807 D ^DICR
    CREATE VALUE)= S X=0
    DELETE VALUE)= S X=0
    FIELD)= DEBT LETTER LAS
Info |  Details |  All