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: ^ACRINV

Package: Commitment Register

Global: ^ACRINV


Information

FileMan FileNo FileMan Filename Package
9002190.1 FMS INVOICE TRACKING Commitment Register

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Commitment Register 3 ACRFIVD    ACRFIVDX    ACRFPAY2    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Commitment Register 3 ACRFIVD    ACRFIVDX    ACRFPAY2    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
3780 Telecommunications 1 1166 APPROVALS FOR PAYMENT(#9002325)[.08]    
Commitment Register 1 FMS DOCUMENT(#9002196)[.02]    
Utility Tables 1 VENDOR(#9999999.11)[.06]    

Fields, Total: 11

Field # Name Loc Type Details
.01 INVOICE NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  SEP 15, 1997
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
  • DESCRIPTION:  
    Enter the INVOICE NUMBER.
  • CROSS-REFERENCE:  9002190.1^B
    1)= S ^ACRINV("B",$E(X,1,30),DA)=""
    2)= K ^ACRINV("B",$E(X,1,30),DA)
.02 FMS DOCUMENT 0;2 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  SEP 16, 1997
  • HELP-PROMPT:  Enter the FMS DOCUMENT NUMBER for this INVOICE.
  • DESCRIPTION:  
    Enter the FMS DOCUMENT NUMBER for this INVOICE.
  • CROSS-REFERENCE:  9002190.1^C
    1)= S ^ACRINV("C",$E(X,1,30),DA)=""
    2)= K ^ACRINV("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002190.1^F^MUMPS
    1)= I X,$P($G(^ACRINV(DA,0)),U,5) S ^ACRINV("F",X,$P(^(0),U,5),DA)=""
    2)= I X,$P($G(^ACRINV(DA,0)),U,5) K ^ACRINV("F",X,$P(^(0),U,5),DA)
.03 DATE OF INVOICE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 15, 1997
  • HELP-PROMPT:  Enter the date of the invoice.
  • DESCRIPTION:  
    Enter the date of the invoice.
  • CROSS-REFERENCE:  9002190.1^D
    1)= S ^ACRINV("D",$E(X,1,30),DA)=""
    2)= K ^ACRINV("D",$E(X,1,30),DA)
.04 DATE INVOICE RECEIVED 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 15, 1997
  • HELP-PROMPT:  Enter the date the invoice was received.
  • DESCRIPTION:  
    Enter the date the invoice was received.
.05 RECEIVING REPORT NUMBER 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 16, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the receiving report number to which this invoice applies.
  • CROSS-REFERENCE:  9002190.1^FTOO^MUMPS
    1)= I X,$P($G(^ACRINV(DA,0)),U,2) S ^ACRINV("F",$P(^(0),U,2),X,DA)=""
    2)= I X,$P($G(^ACRINV(DA,0)),U,2) K ^ACRINV("F",$P(^(0),U,2),X,DA)
.06 VENDOR 0;6 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  SEP 15, 1997
  • HELP-PROMPT:  Enter the vendor for this invoice.
  • DESCRIPTION:  
    Enter the vendor for this invoice.
  • CROSS-REFERENCE:  9002190.1^E
    1)= S ^ACRINV("E",$E(X,1,30),DA)=""
    2)= K ^ACRINV("E",$E(X,1,30),DA)
.07 DOCUMENT NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
  • LAST EDITED:  NOV 20, 1997
  • HELP-PROMPT:  Answer must be 10 characters in length.
  • DESCRIPTION:  
    Enter the document number.
  • CROSS-REFERENCE:  9002190.1^G
    1)= S ^ACRINV("G",$E(X,1,30),DA)=""
    2)= K ^ACRINV("G",$E(X,1,30),DA)
.08 1166 FISCAL YEAR 0;8 POINTER TO 1166 APPROVALS FOR PAYMENT FILE (#9002325) 1166 APPROVALS FOR PAYMENT(#9002325)

  • LAST EDITED:  NOV 20, 1997
  • HELP-PROMPT:  Enter the 1166 fiscal year.
  • DESCRIPTION:  
    Enter the 1166 fiscal year.
.09 1166 BATCH 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the internal entry number of the 1166 payment batch to which this document is related.  This is set internally and should never be edited.
.1 1166 PAYMENT 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 1997
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the internal entry number of the payment to which this invoice number is related.
1 ADDITIONAL RECEIVING REPORTS 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 16, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the number(s) of any additional receiving reports.  Put a comma between each number put no spaces.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All