Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^ACR1099V

Package: Commitment Register

Global: ^ACR1099V


Information

FileMan FileNo FileMan Filename Package
9002198.2 ARMS 1099 VENDOR Commitment Register

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Commitment Register 6 ACRFIRS1    ACRFIRS5    ACRFIRS6    ACRFIRSA    ACRFIRSF    ACRFIRSU    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Commitment Register 2 ACRFIRS5    ACRFIRS6    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Commitment Register 1 ARMS 1099 AMOUNT CODES(#9002198.4)[.02]    
Utility Tables 1 VENDOR(#9999999.11)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.01 VENDOR 0;1 POINTER TO VENDOR FILE (#9999999.11)
************************REQUIRED FIELD************************
VENDOR(#9999999.11)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JAN 04, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002198.2^B
    1)= S ^ACR1099V("B",$E(X,1,30),DA)=""
    2)= K ^ACR1099V("B",$E(X,1,30),DA)
.02 PMT TYPE CODE 0;2 POINTER TO ARMS 1099 AMOUNT CODES FILE (#9002198.4) ARMS 1099 AMOUNT CODES(#9002198.4)

  • LAST EDITED:  JAN 04, 2000
.03 IRS NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 19, 2000
  • HELP-PROMPT:  Name by which the IRS knows this vendor. Answer must be 3-30 characters in length.
.04 FOREIGN 2;1 SET
  • '1' FOR YES;
  • 'NULL' FOR NO;

  • INPUT TRANSFORM:  S:X'=1 X=""
  • LAST EDITED:  JAN 16, 2004
  • DESCRIPTION:  
    If the Vendor has a non-USA address, this field needs to be flagged as FOREIGN and left blank if it is not.
  • TECHNICAL DESCR:  
    The input transform replaces any entry that isn't 'Yes" with the null character.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 CALENDAR YEAR 1;0 Multiple #9002198.21 9002198.21
2 COMPUTED NAME COMPUTED

  • MUMPS CODE:  X ^DD(9002198.2,2,9.3) S X=$S(Y(9002198.2,2,2):Y(9002198.2,2,3),Y(9002198.2,2,4):X)
    9.2 = S Y(9002198.2,2,1)=$S($D(^ACR1099V(D0,0)):^(0),1:"") S X=$P(Y(9002198.2,2,1),U,3)]"",Y(9002198.2,2,2)=X S X=$P(Y(9002198.2,2,1),U,3),Y(9002198.2,2,3)=X S X=1
    9.3 = X ^DD(9002198.2,2,9.2) S Y(9002198.2,2,4)=X S X=$S('$D(^AUTTVNDR(+$P(Y(9002198.2,2,1),U,1),0)):"",1:$P(^(0),U,1))
  • ALGORITHM:  $S(IRS NAME]"":IRS NAME,1:VENDOR)
  • DESCRIPTION:  
    Used to print either the IRS NAME if it exists or the VENDOR NAME if no IRS NAME exists.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All