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

Package: Commitment Register

Global: ^ACRSI


Information

FileMan FileNo FileMan Filename Package
9003010 ARMS SHIPPIING INSTRUCTIONS Commitment Register

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Commitment Register 2 ACRFSHI1    ACRFSHIP    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Commitment Register 1 ACRFSHIP    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Commitment Register 2 FMS DOCUMENT(#9002196)[.01]    FMS SUPPLIES AND SERVICES(#9002193)[#9003010.01(.01)]    
Kernel 1 NEW PERSON(#200)[.03]    
Utility Tables 1 FMS DEPARTMENT/PROGRAM(#9999999.62)[.02]    

Fields, Total: 4

Field # Name Loc Type Details
.01 ARMS DOCUMENT 0;1 POINTER TO FMS DOCUMENT FILE (#9002196)
************************REQUIRED FIELD************************
FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the ARMS DOCUMENT NO.
  • DESCRIPTION:  
    Enter the ARMS DOCUMENT for which these shipping instructions are being entered.
  • CROSS-REFERENCE:  9003010^B
    1)= S ^ACRSI("B",$E(X,1,30),DA)=""
    2)= K ^ACRSI("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9003010^AB
    1)= I $G(DA),$D(^ACRSI(DA,0)),$P(^(0),U,2) S ^ACRSI("AB",$E(X,1,30),$P(^ACRSI(DA,0),U,2),DA)=""
    2)= I $G(DA),$D(^ACRSI(DA,0)),$P(^(0),U,2) K ^ACRSI("AB",$E(X,1,30),$P(^ACRSI(DA,0),U,2),DA)
.02 SHIPPING LOCATION 0;2 POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62) FMS DEPARTMENT/PROGRAM(#9999999.62)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the shipping location for this document.
  • DESCRIPTION:  
    Enter the shipping location for this instruction.
  • CROSS-REFERENCE:  9003010^ABTOO
    1)= I $G(DA),$D(^ACRSI(DA,0)),+^(0) S ^ACRSI("AB",+^(0),$E(X,1,30),DA)=""
    2)= I $G(DA),$D(^ACRSI(DA,0)),+^(0) K ^ACRSI("AB",+^(0),$E(X,1,30),DA)
.03 RECEIVING OFFICIAL 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  Enter the name of the receiving official for this instruction.
  • DESCRIPTION:  
    Enter the name of the receiving official for these items.
  • 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
ITEM(S) TO BE SHIPPED/REC/D
1;0
POINTER Multiple #9003010.01
9003010.01
  • DESCRIPTION:  
    This is a multiple field which allows the user to capture information on items to be shipped and received at a specified location.







    



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