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

Package: Commitment Register

Global: ^ACRAPVS


Information

FileMan FileNo FileMan Filename Package
9002190 FMS REQUEST CONTROLLER Commitment Register

Description

Directly Accessed By Routines, Total: 38

Package Total Routines
Commitment Register 38 ACRCSI    ACRFAPVS    ACRFAUTO    ACRFCERT    ACRFCSI    ACRFDA    ACRFDAP    ACRFDEL
ACRFDISA    ACRFDTP4    ACRFEA2    ACRFNXT    ACRFPAPV    ACRFPO    ACRFPRC1    ACRFPRC2
ACRFPRC3    ACRFPRC4    ACRFPRC5    ACRFPRC9    ACRFPRCS    ACRFPSR    ACRFRCA    ACRFRESP
ACRFSCHK    ACRFSS12    ACRFSSA1    ACRFTA    ACRFTO    ACRFTV3    ACRFWARN    ACRFXMY
ACRPCNG    ACRPCRT    ACRPRCA    ACRPRI    ACRPRSP    ACRPTTS    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Commitment Register 8 ACRFAPVS    ACRFAUTO    ACRFDEL    ACRFPAPV    ACRFPRC1    ACRFPRC2    ACRFPRC3    ACRFRESP

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Commitment Register 4 FMS DOCUMENT(#9002196)[6.5]    ARMS CERTIFICATION(#9002197.1)[.03]    ARMS OUTSTANDING TRAVEL ADVANCE(#9002185.4)[1]    FMS RECEIVING REPORT(#9002193.2)[#9002193.2101(.01)]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Commitment Register 4 FMS APPROVAL CONTROL USER(#9002190.5)[.03]    FMS DOCUMENT(#9002196)[.01.07.11]
FMS DEPARTMENT ACCOUNT(#9002188)[.05]    FMS REQUEST(#9002189)[.02]    
Kernel 1 NEW PERSON(#200)[.08.0926#9002190.01(.02)#9002190.01(.03)]    
Utility Tables 1 REFERENCE CODE(#9999999.63)[.06]    

Fields, Total: 36

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

  • LAST EDITED:  MAY 06, 1998
  • DESCRIPTION:  
    This is a pointer to the DOCUMENT FILE.  This is used by the system to know which document this signature relates to.  The data is entered internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002190^B
    1)= S ^ACRAPVS("B",$E(X,1,30),DA)=""
    2)= K ^ACRAPVS("B",$E(X,1,30),DA)
    3)= DO NOTE DELETE
  • CROSS-REFERENCE:  9002190^AB
    1)= S ^ACRAPVS("AB",$E(X,1,30),DA)=""
    2)= K ^ACRAPVS("AB",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002190^E
    1)= I $D(ACRRR) S ^ACRAPVS("E",$E(X,1,30),DA)=""
    2)= I $D(ACRRR) K ^ACRAPVS("E",$E(X,1,30),DA)
    3)= DO NOT DELETE
.02 REQUEST 0;2 POINTER TO FMS REQUEST FILE (#9002189) FMS REQUEST(#9002189)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    This is a pointer to the REQUEST file.  It is set internally by the system and should not be edited directly.
.03 APPROVAL TYPE 0;3 POINTER TO FMS APPROVAL CONTROL USER FILE (#9002190.5) FMS APPROVAL CONTROL USER(#9002190.5)

  • LAST EDITED:  APR 28, 1998
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer the APPROVAL TYPE file which determines the type of signature involved.  This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002190^C
    1)= S ^ACRAPVS("C",$E(X,1,30),DA)=""
    2)= K ^ACRAPVS("C",$E(X,1,30),DA)
.04 ORDER 0;4 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:  The order in which the signatures are signed is entered by the ARMS manager according to Area and IHS policy. This is then triggered into each signature when a document is sent for approval. This should not be edited
    directly.
  • CROSS-REFERENCE:  9002190^AORDR^MUMPS
    1)= S ^ACRAPVS("AORDR",$P(^ACRAPVS(DA,0),U),X,DA)=""
    2)= K ^ACRAPVS("AORDR",$P(^ACRAPVS(DA,0),U),X,DA)
    3)= XREF REQUIRED FOR APPROVAL SEQUENCE CONTROL
    Xref determines the order in which a document is approved.
.05 DEPARTMENT ACCOUNT 0;5 POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188) FMS DEPARTMENT ACCOUNT(#9002188)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the DEPARTMENT ACCOUNT file which is entered internally by the system and should not be edited directly.
.06 REFERENCE CODE 0;6 POINTER TO REFERENCE CODE FILE (#9999999.63) REFERENCE CODE(#9999999.63)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  This is a pointer to the DOCUMENT REFERENCE CODE file. This is entered internally by the system and is used as a check for the type of signature for the document at various stages of document processing. This should not
    be edited directly.
.07 DELETED SIGNATURES 0;7 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  This is a flag which is set whenever signatures are deleted from a document. The signatures are never actually deleted but are 'hidden' via this flag. and the 'E' cross reference on this field. For audit purposes, all
    approval signatures can be retrieved via this x-ref.  This data should not be edited directly.
  • CROSS-REFERENCE:  9002190^D
    1)= S ^ACRAPVS("D",$E(X,1,30),DA)=""
    2)= K ^ACRAPVS("D",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Used to x-ref signatures which have been replaced by a new signature.
.08 ESTABLISHED BY 0;8 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 individual who sent this document for approval.
  • DESCRIPTION:  
    This indicates the name of the individual who sent this document for approval and thus created this approval entry.
  • 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.
.09 DELETED BY 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:  Enter the name of the individual who deleted this approval
  • DESCRIPTION:  
    This field contains the name of the individual who deleted an approval.
  • 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 DATE DELETED 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 and time the signature was deleted.
.11 TRAVEL ADVANCE 0;11 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  OCT 30, 1997
  • HELP-PROMPT:  Enter the travel order number.
  • DESCRIPTION:  
    Enter the travel order number.
1 STATUS DT;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR APPROVED;
  • 'D' FOR DISAPPROVED;

  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code from the list which indicates the status you wish to give this approval.
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^903
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002190,1,1,1,89.2) S Y(101)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,1)_":",2),$C(59),1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002190
    ,1,1,1,1.4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"APV")):^("APV"),1:""),DIV=X I $D(^(0)) S $P(^("APV"),U,1)=DIV,DIH=9002189,DIG=903 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002190,1,1,1,89.2) S Y(101)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,1)_":",2),$C(59),1) S D0=I(0,0) S DIU=X K Y X ^DD(9002190,1,1,1,2.1) X ^DD(90
    02190,1,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRAPVS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),"APV")):^("APV"),1:""),DIV=X I $D(^(0)) S $P(^("APV"),U,1)=DIV,DIH=9002189,DIG=903 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRAPVS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^DD(9002189,903,0)):$P(^(0),U,3),1:"")
    CREATE VALUE)= INTERNAL(#1)
    DELETE VALUE)= INTERNAL(#1)
    FIELD)= #.02:#903
2 NAME OF INDIVIDUAL DT;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • DESCRIPTION:  This is a pointer to the USER file which indicates the NAME OF INDIVIDUAL who was supposed to sign this document for this type of approval. This information is set internally based on system set up for this department
    account and should not be edited directly.
  • 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^AC^MUMPS
    1)= S:$D(^ACRAPVS(DA,0))&$D(^("DT"))&($P(^("DT"),U,2)'="") ^ACRAPVS("AC",$P(^ACRAPVS(DA,0),U),$P(^("DT"),U,2),DA)=""
    2)= K:$D(^ACRAPVS(DA,0))&$D(^("DT"))&($P(^("DT"),U,2)'="") ^ACRAPVS("AC",$P(^ACRAPVS(DA,0),U),$P(^("DT"),U,2),DA)
3 DATE IN DT;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Enter the date when this approval is sent to the person who must sign.
  • DESCRIPTION:  
    This is the date, including the time down to the second, on which this approval was sent to the individual for signature.
4 DATE OUT DT;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Enter the data when this approval is signed.
  • DESCRIPTION:  
    This is the date, including the time down to the second, on which this approval was signed by the individual.
  • CROSS-REFERENCE:  9002190^F
    1)= S ^ACRAPVS("F",$P(X,"."),DA)=""
    2)= K ^ACRAPVS("F",$P(X,"."),DA)
5 FINAL APPROVAL DT;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a flag which is set internally by the system based on the approval sequence.  This flag is set to 'Y' when the signature is the final in the approval sequence for a document.  This should not be edited directly.
6 SIGNATORE DT;6 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 person who actually signed the document.  This is set internally by the system and should not be edited directly.
  • 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.
7 REQUEST APPROVAL DT;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a set of codes which indicates whether the request was approved.  This is set internally by the system and should not be edited directly.
8 RECERTIFICATION DATE DT;8 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 when funds availability should be recertified.
  • DESCRIPTION:  If funds certification is signed prior to the beginning of a fiscal year and funds certification must be re-entered after the funds are actually available, a new approval is set and this date is entered by the system to
    know when the re-certification should take place.  This date should not be entered directly by the system.
9 RECEIVING REPORT NO DT;9 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:  
    If this signature is for a RECEIVING REPORT, the sequence number of the RECEIVING REPORT to which the signature applies is recorded in this field.
10 REQUESTED CHANGE 1;0 DATE Multiple #9002190.01 9002190.01

  • DESCRIPTION:  
    This multiple field allow the system to keep track of all requests for changes or response.
130 INFORMATION CHANGED LINE 1 CNG;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter comments line 1.
131 INFORMATION CHANGED LINE 2 CNG;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter comments line 2.
132 INFORMATION CHANGED LINE 3 CNG;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter comments line 3.
133 INFORMATION CHANGED LINE 4 CNG;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter comments line 4.
134 INFORMATION CHANGED LINE 5 CNG;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter comments line 5.
135 REASON LINE 1 RSN;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter reason for change line 1.
136 REASON LINE 2 RSN;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter reason for change line 2.
137 REASON LINE 3 RSN;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter reason for change line 3.
138 REASON LINE 4 RSN;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter reason for change line 4.
139 REASON LINE 5 RSN;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Enter reason for change line 5.
140 RESPONSE LINE 1 RESP;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Enter the first line of the response to requested changes.
141 RESPONSE LINE 2 RESP;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Enter the second line of the response to requested changes.
142 RESPONSE LINE 3 RESP;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Enter the third line of the response to the requested changes.
143 RESPONSE LINE 4 RESP;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of the response to the requested changes.
144 RESPONSE LINE 5 RESP;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of the response to the requested changes.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All