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

Package: IHS Accounts Receivable

A/R BILL/IHS(#90050.01)-->90050.1301

Sub-Field: 90050.1301


Information

Parent File Name Number Package
A/R BILL/IHS(#90050.01) ITEM 90050.1301 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.001 NUMBER/ITEM NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 07, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 0 Decimal Digits
.01 BRIEF DESCRIPTION 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  NOV 07, 1994
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • CROSS-REFERENCE:  90050.1301^B
    1)= S ^BARBL(DUZ(2),DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),DA(1),3,"B",$E(X,1,30),DA)
.5 TOTAL BILL AMOUNT COMPUTED

  • MUMPS CODE:  S Y(90050.1301,.5,1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(90050.1301,.5,1),U,14)
  • ALGORITHM:  #14
2 DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 12, 1996
3 ITEM CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 07, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
4 RELATED SERVICE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
5 RELATED SERVICE COST 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^90050.1301^10
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARBL(DUZ(2),D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90050.1301,5,1,1,1.1) X ^DD(90050.1301,5,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(90050.1301,10.5,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=90050.1301,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #10.5
    DELETE VALUE)= NO EFFECT
    FIELD)= #10
6 BILLING SERVICE 0;6 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""BILSRV""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 09, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""BILSRV"""
  • EXPLANATION:  LIMIT TO THE BILLING SERVICES SECTION TYPES
7 QUANTITY 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^90050.1301^10
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARBL(DUZ(2),D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90050.1301,7,1,1,1.1) X ^DD(90050.1301,7,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(90050.1301,10.5,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=90050.1301,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #10.5
    DELETE VALUE)= NO EFFECT
    FIELD)= #10
8 UNIT MEASURE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  DEC 10, 1994
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
9 UNIT COST 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."6N.N) X
  • LAST EDITED:  FEB 22, 1999
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 5 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^90050.1301^10
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARBL(DUZ(2),D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90050.1301,9,1,1,1.1) X ^DD(90050.1301,9,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(90050.1301,10.5,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=90050.1301,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #10.5
    DELETE VALUE)= NO EFFECT
    FIELD)= #10
10 TOTAL ITEM COST 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  DEC 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • NOTES:  TRIGGERED by the RELATED SERVICE COST field of the ITEM sub-field of the A/R BILL/IHS File
    TRIGGERED by the QUANTITY field of the ITEM sub-field of the A/R BILL/IHS File
    TRIGGERED by the UNIT COST field of the ITEM sub-field of the A/R BILL/IHS File
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^14
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(90050.1301,10,1,1,1.1) X ^DD(90050.1301,10,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,14)+DIV
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=90050.01,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(90050.1301,10,1,1,2.1) X ^DD(90050.1301,10,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,14)-X
    2.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=90050.01,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #14+TOTAL ITEM COST
    DELETE VALUE)= #14-OLD TOTAL ITEM COST
    FIELD)= #14
10.5 COMPUTED TOTAL ITEM COST COMPUTED

  • MUMPS CODE:  X ^DD(90050.1301,10.5,9.2) S X=X*$P(Y(90050.1301,10.5,1),U,9),Y=X,X=Y(90050.1301,10.5,2),X=X+Y+.005\.01/100
    9.2 = S Y(90050.1301,10.5,1)=$S($D(^BARBL(DUZ(2),D0,3,D1,0)):^(0),1:"") S X=$P(Y(90050.1301,10.5,1),U,5),Y(90050.1301,10.5,2)=X S X=$P(Y(90050.1301,10.5,1),U,7)
  • ALGORITHM:  (#5+(#7*#9))+.005\.01/100
11 3P ITEM NUMBER 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 12, 1996
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
12 LINE ITEM CONTROL NUMBER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<18) X
  • LAST EDITED:  SEP 22, 2011
  • HELP-PROMPT:  Answer must be 18 characters in length
  • TECHNICAL DESCR:  This field will be unique for each line item on a bill. It will also be placed on the 'header' level for a bills flat rate posting. The format being used is: Characters 1-12 = Bill IEN Characters 13-14 = Multiple #
    Characters 15-18  = Line Item counter
    E.G.  000000007887270001





1001
DESCRIPTION
10;0
WORD-PROCESSING #90050.13011001







    



Info | 
Details | 
All