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

Package: Commitment Register

Global: ^ACRDOCA


Information

FileMan FileNo FileMan Filename Package
9002197 FMS DOCUMENT APPROVAL Commitment Register

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Commitment Register 2 ACRFAPVS    ACRFDRCL    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Commitment Register 1 ACRFDRCL    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Commitment Register 3 FMS APPROVAL CONTROL USER(#9002190.5)[.02]    FMS SYSTEM DEFAULTS(#9002199.2)[.06]    FMS TRANSACTION TYPE(#9002194)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.01 TYPE OF REQUEST 0;1 POINTER TO FMS TRANSACTION TYPE FILE (#9002194)
************************REQUIRED FIELD************************
FMS TRANSACTION TYPE(#9002194)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    This is a pointer to the FMS TRANSACTION TYPE file.  This entry is created by the system which controls the approval sequence.  It is entered internally by ARMS utilities and should not be edited directly.
  • CROSS-REFERENCE:  9002197^B
    1)= S ^ACRDOCA("B",$E(X,1,30),DA)=""
    2)= K ^ACRDOCA("B",$E(X,1,30),DA)
.02 APPROVAL CONTROL 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 a pointer to the type of signature authority.  This information is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002197^C
    1)= S ^ACRDOCA("C",$E(X,1,30),DA)=""
    2)= K ^ACRDOCA("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002197^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOCA(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002197,.02,1,2,1.1) X ^DD(9002197,.02,1,2,1.4)
    1.1)= S X=DIV X ^DD(9002197,.02,1,2,49.2) S D0=$P(Y(101),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(201)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRDOCA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9002197,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOCA(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002197,.02,1,2,2.1) X ^DD(9002197,.02,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002197,.02,1,2,59.3) S X=$P(Y(201),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRDOCA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9002197,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRAPVT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^ACRAPVT(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRDOCA(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACRAPVT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"")
    59.3)= X ^DD(9002197,.02,1,2,59.2) S Y(101)=$S($D(^ACRAPVT(D0,0)):^(0),1:""),D0=$P(Y(101),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(201)=$S($D(^VA(200,D0,0)):^(0),1:"")
    CREATE VALUE)= #.02:#.01:#.01
    DELETE VALUE)= #.02:#.01:#.01
    FIELD)= #30
.03 APPROVAL ORDER 0;3 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 10, 0 Decimal Digits
  • DESCRIPTION:  
    This is the APPROVAL ORDER in which this type of approval is made for this type of transaction.  The ORDER is set internally and should not be edited directly.
.04 FINAL APPROVAL 0;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this signature/approval level is the final approval in this sequence.
.06 AREA SETUP 0;6 POINTER TO FMS SYSTEM DEFAULTS FILE (#9002199.2)
************************REQUIRED FIELD************************
FMS SYSTEM DEFAULTS(#9002199.2)

  • LAST EDITED:  SEP 26, 1955
  • HELP-PROMPT:  Enter the AREA SETUP for which this signature sequence applies.
  • DESCRIPTION:  
    Enter the AREA SETUP to which this signature for this sequence applies.
  • CROSS-REFERENCE:  9002197^AC2^MUMPS
    1)= S ACR0=$G(^ACRDOCA(DA,0)) I $P(ACR0,U)]"",$P(ACR0,U,2)]"",$P(ACR0,U,3)]"",X]"" S ^ACRDOCA("AC",X,$P(ACR0,U),$P(ACR0,U,2),$P(ACR0,U,3),DA)=""
    2)= S ACR0=$G(^ACRDOCA(DA,0)) I $P(ACR0,U)]"",$P(ACR0,U,2)]"",$P(ACR0,U,3)]"",X]"" K ^ACRDOCA("AC",X,$P(ACR0,U),$P(ACR0,U,2),$P(ACR0,U,3),DA)
30 APPROVAL CONTROL TYPE NAME 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  This is the complete free text name of the APPROVAL CONTROL TYPE. This information is set internally and should not be edited directly. This name is used to find the correct internal entry number when ARMS is installed
    on a new system.
  • NOTES:  TRIGGERED by the APPROVAL CONTROL TYPE field of the FMS DOCUMENT APPROVAL File
  • CROSS-REFERENCE:  9002197^AD
    1)= S ^ACRDOCA("AD",$E(X,1,30),DA)=""
    2)= K ^ACRDOCA("AD",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All