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 |  Found Entries |  All
Print Page as PDF
Global: ^ACRAPL

Package: Commitment Register

Global: ^ACRAPL


Information

FileMan FileNo FileMan Filename Package
9002190.55 FMS APPROVAL LEVEL Commitment Register

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Commitment Register 4 ACRFACC    ACRFPRC1    ACRFPRCS    ACRFUP1    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Commitment Register 4 ACRFACC    ACRFAS    ACRFDRC1    ACRFUP1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Commitment Register 1 FMS APPROVAL CONTROL USER(#9002190.5)[.02]    
Kernel 1 NEW PERSON(#200)[.01, 1, 2, 3, 4]    

Fields, Total: 10

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • DESCRIPTION:  
    This is the name of the individual who is granted a given level of approval authority.
  • 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.
  • CROSS-REFERENCE:  9002190.55^B
    1)= S ^ACRAPL("B",$E(X,1,30),DA)=""
    2)= K ^ACRAPL("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002190.55^AC^MUMPS
    1)= I $D(DA),DA,$P(^ACRAPL(DA,0),U,2) S ^ACRAPL("AC",X,$P(^(0),U,2),DA)=""
    2)= I $D(DA),DA,$P(^ACRAPL(DA,0),U,2) K ^ACRAPL("AC",X,$P(^(0),U,2),DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9002190.55^AD^MUMPS
    1)= I $D(DA),DA,$P(^ACRAPL(DA,0),U,2) S ^ACRAPL("AD",$P(^(0),U,2),X,DA)=""
    2)= I $D(DA),DA,$P(^ACRAPL(DA,0),U,2) K ^ACRAPL("AD",$P(^(0),U,2),X,DA)
    3)= DO NOT DELETE





.02
APPROVAL TYPE
0;2
POINTER TO FMS APPROVAL CONTROL USER FILE (#9002190.5)
FMS APPROVAL CONTROL USER(#9002190.5)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is the type of approval authority the individual is being granted.
  • CROSS-REFERENCE:  9002190.55^AC2^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0) S ^ACRAPL("AC",+^(0),X,DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0) K ^ACRAPL("AC",+^(0),X,DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9002190.55^AD2^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0) S ^ACRAPL("AD",X,+^(0),DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0) K ^ACRAPL("AD",X,+^(0),DA)
    3)= DO NOT DELETE





1
ALTERNATE 1
DT;1
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  This is the first alternate for this employee for this type of signature authority.  Enter the name of another employee who has this level of signature authority and who has the authority to act as an alternate for this
    employee.
  • 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.
  • SCREEN:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))"
  • EXPLANATION:  Checks to ensure that alternate has appropriate signature authority.
  • CROSS-REFERENCE:  9002190.55^ALT^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) S ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) K ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9002190.55^SEC
    1)= S ^ACRAPL("SEC",$E(X,1,30),DA)=""
    2)= K ^ACRAPL("SEC",$E(X,1,30),DA)





2
ALTERNATE 2
DT;2
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  This is the second alternate for this employee for this type of signature authority.  Enter the name of another employee who has this level of signature authority and who has the authority to act as an alternate for this
    employee.
  • 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.
  • SCREEN:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))"
  • EXPLANATION:  Checks to ensure that alternate has appropriate signature authority.
  • CROSS-REFERENCE:  9002190.55^ALT2^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) S ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) K ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9002190.55^SEC2
    1)= S ^ACRAPL("SEC",$E(X,1,30),DA)=""
    2)= K ^ACRAPL("SEC",$E(X,1,30),DA)





3
ALTERNATE 3
DT;3
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  This is the third alternate for this employee for this type of signature authority.  Enter the name of another employee who has this level of signature authority and who has the authority to act as an alternate for this
    employee.
  • 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.
  • SCREEN:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))"
  • EXPLANATION:  Checks to ensure that alternate has appropriate signature authority.
  • CROSS-REFERENCE:  9002190.55^ALT3^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) S ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) K ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9002190.55^SEC3
    1)= S ^ACRAPL("SEC",$E(X,1,30),DA)=""
    2)= K ^ACRAPL("SEC",$E(X,1,30),DA)





4
ALTERNATE 4
DT;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  
  • DESCRIPTION:  This is the fourth alternate for this employee for this type of signature authority.  Enter the name of another employee who has this level of signature authority and who has the authority to act as an alternate for this
    employee.
  • 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.
  • SCREEN:  S DIC("S")="I $D(DA),$P(^ACRAPL(DA,0),U,2),$D(^ACRAPL(""AC"",+Y,$P(^(0),U,2)))"
  • EXPLANATION:  Checks to ensure that alternate has appropriate signature authority.
  • CROSS-REFERENCE:  9002190.55^ALT4^MUMPS
    1)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) S ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)=""
    2)= I $D(DA),DA,+^ACRAPL(DA,0),$P(^(0),U,2) K ^ACRAPL("ALT",+^(0),$P(^(0),U,2),X,DA)
  • CROSS-REFERENCE:  9002190.55^SEC4
    1)= S ^ACRAPL("SEC",$E(X,1,30),DA)=""
    2)= K ^ACRAPL("SEC",$E(X,1,30),DA)





11
REQUIRE NOTIFICATION ALT 1
DT1;1
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates whether primary signatory must be notified when this alternate signs for the primary.





12
REQUIRE NOTIFICATION ALT 2
DT1;2
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates  whether the primary signatory must be notified when this alternate signs for the primary.





13
REQUIRE NOTIFICATION ALT 3
DT1;3
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates whether the primary signatory must be notified when this alternate signs for the primary.





14
REQUIRE NOTIFICATION ALT 4
DT1;4
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates whether the primary signatory must be notified when this alternate signs for the primary.







    



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