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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACRRR

Package: Commitment Register

Global: ^ACRRR


Information

FileMan FileNo FileMan Filename Package
9002193.2 FMS RECEIVING REPORT Commitment Register

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
Commitment Register 16 ACRFDC    ACRFDI    ACRFIV    ACRFIV31    ACRFIV5    ACRFPAID    ACRFPSS    ACRFRR
ACRFRR11    ACRFRR12    ACRFRR31    ACRFRR32    ACRFRRP1    ACRFRRP2    ACRFRRPT    ACRFUFMI

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Commitment Register 9 ACRFIV    ACRFIV31    ACRFIV5    ACRFPRC3    ACRFPSS    ACRFRR    ACRFRR11    ACRFRR31
ACRFRR32    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Commitment Register 1 ARMS/SAMS INTERFACE(#9002198.9)[3]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Commitment Register 3 FMS REQUEST CONTROLLER(#9002190)[#9002193.2101(.01)]    FMS DOCUMENT(#9002196)[.02, .03]    FMS SUPPLIES AND SERVICES(#9002193)[.01]    
Kernel 1 NEW PERSON(#200)[.05, .09, #9002193.2111(.02), #9002193.2121(.02)]    

Fields, Total: 25

Field # Name Loc Type Details
.01 SERVICE OR SUPPLY 0;1 POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)
************************REQUIRED FIELD************************
FMS SUPPLIES AND SERVICES(#9002193)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    This is a pointer to the FMS SUPPLY/SERVICE file entry to which this receiving actions relates.
  • CROSS-REFERENCE:  9002193.2^B
    1)= S ^ACRRR("B",$E(X,1,30),DA)=""
    2)= K ^ACRRR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002193.2^AC0
    1)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,2),$P(ACR,U,4) S ^ACRRR("AC",$P(ACR,U,2),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)=""
    2)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,2),$P(ACR,U,4) K ^ACRRR("AC",$P(ACR,U,2),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)
    3)= DO NOT DELETE
    Used for look-up/edit of receiving reports.
.02 PURCHASE ORDER 0;2 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the PURCHASE ORDER through which this item was ordered.
  • CROSS-REFERENCE:  9002193.2^AC
    1)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,4) S ^ACRRR("AC",$E(X,1,30),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)=""
    2)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,4) K ^ACRRR("AC",$E(X,1,30),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)
    3)= DO NOT DELETE
    Used for look-up/edit of receiving reports.
  • CROSS-REFERENCE:  9002193.2^AD^MUMPS
    1)= I $D(^ACRRR(DA,0)),$P(^(0),U,4) S ^ACRRR("AD",X,$P(^(0),U,4),DA)=""
    2)= I $D(^ACRR(DA,0)),$P(^(0),U,4) K ^ACRRR("AD",X,$P(^(0),U,4),DA)
    X-ref for the purchase order and receiving report number.
  • CROSS-REFERENCE:  9002193.2^CTOO
    1)= S ^ACRRR("C",$E(X,1,30),DA)=""
    2)= K ^ACRRR("C",$E(X,1,30),DA)
.03 REQUISITION 0;3 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    This is a pointer to the REQUISITION through which this item was ordered.
  • CROSS-REFERENCE:  9002193.2^C
    1)= S ^ACRRR("C",$E(X,1,30),DA)=""
    2)= K ^ACRRR("C",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Used for look-up of all receiving reports for a purchase order.
.04 RECEIVING REPORT NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the RECEIVING REPORT NUMBER for this item.
  • CROSS-REFERENCE:  9002193.2^AC2
    1)= S ACR=^ACRRR(DA,0) I +ACR,$P(ACR,U,2) S ^ACRRR("AC",$P(ACR,U,2),$E(X,1,30),+^ACRSS(+ACR,0),DA)=""
    2)= S ACR=^ACRRR(DA,0) I +ACR,$P(ACR,U,2) K ^ACRRR("AC",$P(ACR,U,2),$E(X,1,30),+^ACRSS(+ACR,0),DA)
    3)= DO NOT DELETE
    Used for look-up/edit of receiving reports.
  • CROSS-REFERENCE:  9002193.2^AD2^MUMPS
    1)= I $D(^ACRRR(DA,0)),$P(^(0),U,2) S ^ACRRR("AD",$P(^(0),U,2),X,DA)=""
    2)= I $D(^ACRRR(DA,0)),$P(^(0),U,2) K ^ACRRR("AD",$P(^(0),U,2),X,DA)
    X-ref for the purchase order and receiving report number.
.05 RECEIVING AGENT 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the USER file and indicates the receiving agent who completed the receiving report for this item.
  • TECHNICAL DESCR:  In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes. 
    While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents.
    For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.





.06
DATE OF REPORT
0;6
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE OF THE RECEIVING REPORT.
  • DESCRIPTION:  
    This is the date on which this receiving report was completed and not the date on which the items were received.  This date is assigned internally by the system.





.07
DATE RECEIVING ACTION EXPORTED
0;7
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE the RECEIVING ACTION was EXPORTED.
  • DESCRIPTION:  
    This is set internally by the system and indicates the date on which the receiving action was exported to HAS.





.08
FINAL RECEIVING REPORT
0;8
SET

  • '1' FOR FINAL;
  • '2' FOR PARTIAL;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter '1' if this is the FINAL RECEIVING REPORT for this item or '2' if this is a PARTIAL RECEIVING REPORT for this item.





.09
INVOICE AUDITOR
0;9
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the name of the INVOICE AUDITOR who is performing the audit of this item.
  • TECHNICAL DESCR:  In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes. 
    While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents.
    For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.





.1
INVOICE AUDIT DATE
0;10
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE the INVOICE was AUDITED.
  • DESCRIPTION:  
    Enter the date on which the INVOICE AUDIT was done.





.11
FINAL INVOICE
0;11
SET

  • '1' FOR FINAL;
  • '2' FOR PARTIAL;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter '1' if this is the FINAL INVOICE for this item or '2' if this is a PARTIAL INVOICE for this item.





.12
INVOICE EXPORT DATE
0;12
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE the INVOICE was EXPORTED.
  • DESCRIPTION:  
    This is set internally by the system and indicates the date on which the INVOICE was exported to HAS.





.13
PROPERTY VOUCHER NO.
0;13
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<14)!'(X?3N1"-"2N1"-"2N1"-"4N) X
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Answer must be 14 characters in length in the format XXX-XX-XX-XXXX
  • DESCRIPTION:  The PROPERTY VOUCHER NO. is assigned by the system and should not be edited directly.  The first 3 characters are the LOCATION CODE, the next 2 the FISCAL YEAR, then the CALENDAR MONTH, followed by the 4 character VOUCHER
    SERIAL NUMBER.
  • CROSS-REFERENCE:  9002193.2^PVN
    1)= S ^ACRRR("PVN",$E(X,1,30),DA)=""
    2)= K ^ACRRR("PVN",$E(X,1,30),DA)





.14
ACCRUAL POSTED
0;14
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code from the list to indicate if an accrual entry was posted into the Health Accounting System for this receiving report entry.





1
UNIT COST
DT;1
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999.9999)!(X<-9999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between -9999999.9999 and 99999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the UNIT COST for this item.  This is set internally and is based on the UNIT COST for this item from the FMS SUPPLY/SERVICES file.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.2^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRRR(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002193.2,1,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRRR(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.2,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= UNIT COST
    DELETE VALUE)= NO EFFECT
    FIELD)= #5





2
QUANTITY RECEIVED
DT;2
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X)  I $D(ACRRCDX) D TOTCHK^ACRFRR31
  • LAST EDITED:  FEB 23, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the QUANTITY RECEIVED for this item on this receiving action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002193.2^D^MUMPS
    1)= Q
    2)= Q





3
QUANTITY ACCEPTED
DT;3
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X)  K:X>$P(^ACRRR(DA,"DT"),U,2) X
  • LAST EDITED:  MAR 23, 1999
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the QUANTITY ACCEPTED for this item on this receiving action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





4
DATE RECEIVED
DT;4
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE the item was RECEIVED.  This cannot be a future date.
  • DESCRIPTION:  
    Enter the DATE on which this item was received.  This cannot be a future date.





5
INVOICE UNIT COST
DT;5
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>99999999.9999)!(X<-9999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between -9999999.9999 and 99999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the unit cost for this item as found on the Vendor's Invoice.
  • NOTES:  TRIGGERED by the UNIT COST field of the FMS RECEIVING REPORT File





6
INVOICE QUANTITY
DT;6
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X)  I $D(ACRIVDX) D TOTCHK^ACRFIV31
  • LAST EDITED:  FEB 23, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the QUANTITY as found on the Vendor's Invoice.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





7
INVOICE NUMBER
DT;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  SEP 17, 1997
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Enter the INVOICE NUMBER as found on the Vendor's Invoice.
  • CROSS-REFERENCE:  9002193.2^INV
    1)= S ^ACRRR("INV",$E(X,1,30),DA)=""
    2)= K ^ACRRR("INV",$E(X,1,30),DA)





1001
REQUESTOR SIGNATURE
10;0
POINTER Multiple #9002193.2101
9002193.2101
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which points to the FMS REQUEST CONTROLLER file and indicates each REQUEST INITIATOR and whether or not each has signed to certify receipt of the good outlined on this receiving report.





1101
RECEIVING AGENT
11;0
DATE Multiple #9002193.2111
9002193.2111
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple file which is set automatically by the system each time a RECEIVING AGENT adds or edits an item on a receiving report.  The time of the edit and the person doing the editing are entered.





1201
INVOICE AUDITOR
12;0
DATE Multiple #9002193.2121
9002193.2121
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which is set by the system each time an invoice is audited for a receiving action.





1301
RECEIVING REPORT REMARKS
13;0
WORD-PROCESSING #9002193.21301







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All