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

Package: Commitment Register

Global: ^ACRSS


Information

FileMan FileNo FileMan Filename Package
9002193 FMS SUPPLIES AND SERVICES Commitment Register

Description

Directly Accessed By Routines, Total: 92

Package Total Routines
Commitment Register 87 ACRADDM    ACRCSS1    ACRCSS3    ACRCSS4    ACRCSS5    ACRCSS6    ACRCSS7    ACRCSS8
ACRF3542    ACRFAPVS    ACRFAUT1    ACRFAUTO    ACRFBPA    ACRFCAL1    ACRFCALC    ACRFCCP1
ACRFCDIS    ACRFCIS    ACRFCLM    ACRFDC    ACRFDEL    ACRFDI    ACRFDIC    ACRFDTP4
ACRFEA21    ACRFESS    ACRFFF2    ACRFFF4    ACRFFF5    ACRFFS    ACRFIV    ACRFIV12
ACRFIV31    ACRFIV5    ACRFPAID    ACRFPAP1    ACRFPCC    ACRFPO    ACRFPO2    ACRFPR
ACRFPRC3    ACRFPRCS    ACRFPRNT    ACRFPRS    ACRFPSS    ACRFRR    ACRFRR1    ACRFRR11
ACRFRR12    ACRFRR2    ACRFRR3    ACRFRR31    ACRFRR32    ACRFRR33    ACRFRRP1    ACRFRRPT
ACRFSCHK    ACRFSHI1    ACRFSOF    ACRFSS    ACRFSS1    ACRFSS12    ACRFSS2    ACRFSS3
ACRFSS4    ACRFSS42    ACRFSS51    ACRFSS6    ACRFSSA    ACRFSSD    ACRFSSD1    ACRFSSPO
ACRFSSU    ACRFSTOK    ACRFSYS    ACRFTPAR    ACRFTV3    ACRFUFMI    ACRFUFMZ    ACRFUTL
ACRFWARN    ACRPCCS    ACRPEQP    ACRPII    ACRPPRS    ACRPRQP    ACRPRQR    
Local Area Programs 1 AZHQPRNT    

Accessed By FileMan Db Calls, Total: 29

Package Total Routines
Commitment Register 29 ACRFAUT1    ACRFAUTO    ACRFCAL1    ACRFDEL    ACRFDTP4    ACRFESS    ACRFIV11    ACRFIV31
ACRFIV5    ACRFPAID    ACRFPR    ACRFPRC3    ACRFPVEN    ACRFRR1    ACRFRR2    ACRFRR31
ACRFRR32    ACRFSHFT    ACRFSS    ACRFSS1    ACRFSS12    ACRFSS2    ACRFSS3    ACRFSS51
ACRFSS6    ACRFSS61    ACRFSSA    ACRFTPAR    ACRFWARN    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Commitment Register 5 FMS EXPORT CONTROL(#9002196.1)[#9002196.1101(.01)]    FMS RECEIVING REPORT(#9002193.2)[.01]    ARMS SHIPPIING INSTRUCTIONS(#9003010)[#9003010.01(.01)]    ARMS TRAINING PARTICIPANTS(#9002196.2)[.04, .05]    ARMS/SAMS INTERFACE(#9002198.9)[2]    

Pointer To FileMan Files, Total: 19

Package Total FileMan Files
Commitment Register 13 FMS SUB-ALLOWANCE(#9002187)[.08]    FMS ALLOWANCE(#9002186)[.09]    ARMS USER(#9002185.3)[.17]    ARMS CAN(#9002186.5)[.05]    FMS DEPARTMENT CODES(#9002199.5)[7]    FMS DOCUMENT(#9002196)[.03, .2]    ARMS STANDARD ITEM(#9002195)[.12]    FMS DEPARTMENT ACCOUNT(#9002188)[.06]    ARMS MANUFACTURER(#9002195.5)[#9002193.1001(2)]    FMS REQUEST(#9002189)[.02, .07]    ARMS SOURCE CODE(#9002192.05)[19]    FMS SYSTEM DEFAULTS(#9002199.2)[.11]    FMS UNIT OF ISSUE(#9002190.6)[11, 34]    
Utility Tables 4 REFERENCE CODE(#9999999.63)[.1]    LOCATION CODE(#9999999.66)[.15, #9002193.1001(6)]    OBJECT/SUB-OBJECT(#9999999.59)[.04]    VENDOR(#9999999.11)[20, 141, 143]
Kernel 2 STATE(#5)[25]    NEW PERSON(#200)[15.2]    

Fields, Total: 85

Field # Name Loc Type Details
.01 ITEM NO. 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a sequence number for the item indicating which item it is on a request.  The sequence number is entered automatically by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002193^B
    1)= S ^ACRSS("B",$E(X,1,30),DA)=""
    2)= K ^ACRSS("B",$E(X,1,30),DA)
.02 REQUEST 0;2 POINTER TO FMS REQUEST FILE (#9002189) FMS REQUEST(#9002189)

  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the REQUEST file and is used to relate this item to the requisition on which it was requested.  This data is entered internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002193,.02,1,1,1.1) X ^DD(9002193,.02,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACROBL(+D0,0)) D0=-1 S Y(102)=$S($D(^ACROBL(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9002193,DIG=.06 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(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002193,.02,1,1,2.1) X ^DD(9002193,.02,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002193,.02,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9002193,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S Y(102)=$S($D(^ACROBL(D0,0)):^(0),1:"")
    CREATE VALUE)= #.02:INTERNAL(#.03)
    DELETE VALUE)= #.02:INTERNAL(#.03)
    FIELD)= LOCAL BUDGET
  • CROSS-REFERENCE:  9002193^D
    1)= S ^ACRSS("D",$E(X,1,30),DA)=""
    2)= K ^ACRSS("D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002193,.02,1,3,1.4)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002193,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE VALUE)= INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.07
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002193,.02,1,4,1.1) X ^DD(9002193,.02,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACROBL(+D0,0)) D0=-1 S Y(102)=$S($D(^ACROBL(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,10),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=9002193,DIG=.1 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(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002193,.02,1,4,2.1) X ^DD(9002193,.02,1,4,2.4)
    2.1)= S X=DIV X ^DD(9002193,.02,1,4,59.2) S Y(101)=X S X=$P(Y(102),U,10),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=9002193,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S Y(102)=$S($D(^ACROBL(D0,0)):^(0),1:"")
    CREATE VALUE)= REQUEST:INTERNAL(#.1)
    DELETE VALUE)= REQUEST:INTERNAL(#.1)
    FIELD)= REFERENCE CODE
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002193,.02,1,5,1.1) X ^DD(9002193,.02,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACROBL(+D0,0)) D0=-1 S Y(102)=$S($D(^ACROBL(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002193,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE VALUE)= #.02:INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.08
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4)'="" I X S X=DIV X ^DD(9002193,.02,1,6,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,6,1.1) X ^D
    D(9002193,.02,1,6,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9002189,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4)'="" I X S X=DIV X ^DD(9002193,.02,1,6,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,6,2.1) X ^D
    D(9002193,.02,1,6,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU-$P(Y(1),U,4)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9002189,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,0)):^(0),1:"")
    CREATE CONDITION)= ITEM ESTIMATED COST'=""
    CREATE VALUE)= AMOUNT+ITEM ESTIMATED COST
    DELETE CONDITION)= ITEM ESTIMATED COST'=""
    DELETE VALUE)= AMOUNT-ITEM ESTIMATED COST
    FIELD)= REQUEST:AMOUNT
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9)'="" I X S X=DIV X ^DD(9002193,.02,1,7,89.2) S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,7,1.1) X ^D
    D(9002193,.02,1,7,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,9)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,4)=DIV,DIH=9002189,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9)'="" I X S X=DIV X ^DD(9002193,.02,1,7,89.2) S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,7,2.1) X ^D
    D(9002193,.02,1,7,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU-$P(Y(1),U,9)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,4)=DIV,DIH=9002189,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"")
    CREATE CONDITION)= ITEM OBLIGATED AMOUNT'=""
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE CONDITION)= ITEM OBLIGATED AMOUNT'=""
    DELETE VALUE)= OBLIGATED-ITEM OBLIGATED AMOUNT
    FIELD)= #.02:#4
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7)'="" I X S X=DIV X ^DD(9002193,.02,1,8,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,8,1.1) X ^D
    D(9002193,.02,1,8,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,7)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,2)=DIV,DIH=9002189,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7)'="" I X S X=DIV X ^DD(9002193,.02,1,8,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.02,1,8,2.1) X ^D
    D(9002193,.02,1,8,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU-$P(Y(1),U,7)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,2)=DIV,DIH=9002189,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"")
    CREATE CONDITION)= TOTAL PAID'=""
    CREATE VALUE)= ACTUAL EXPENSE+TOTAL PAID
    DELETE CONDITION)= TOTAL PAID'=""
    DELETE VALUE)= ACTUAL EXPENSE-TOTAL PAID
    FIELD)= #.02:#2
.03 DOCUMENT 0;3 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the DOCUMENT files and is use to related this item to the document on which it was requested.  This data is entered internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002193^C
    1)= S ^ACRSS("C",$E(X,1,30),DA)=""
    2)= K ^ACRSS("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002193,.03,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,1)=DIV,DIH=9002193,DIG=.2 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(^ACRSS(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9002193,.03,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,1)=DIV,DIH=9002193,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(DOCUMENT)
    DELETE VALUE)= @
    FIELD)= #.2
.04 OBJECT CLASS CODE 0;4 POINTER TO OBJECT/SUB-OBJECT FILE (#9999999.59)
************************REQUIRED FIELD************************
OBJECT/SUB-OBJECT(#9999999.59)

  • INPUT TRANSFORM:  S DIC("S")="D OBJ^ACRFDIC" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the OBJECT CLASS CODE which is applicable to this item.
  • SCREEN:  S DIC("S")="D OBJ^ACRFDIC"
  • EXPLANATION:  CHECK FOR ACCESS TO OBJECT CLASS CODE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,.04,1,3,89.2) S X=$S('$D(^AUTTOBJC(+$P(Y(101),U,3),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002193,.04,1,3,1.4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,3)=DIV,DIH=9002189,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= INTERNAL(OBJECT CLASS CODE)
    DELETE VALUE)= NO EFFECT
    FIELD)= REQUEST:OBJECT CLASS
.05 COMMON ACCOUNTING NUMBER 0;5 POINTER TO ARMS CAN FILE (#9002186.5)
************************REQUIRED FIELD************************
ARMS CAN(#9002186.5)

  • INPUT TRANSFORM:  S DIC("S")=$$DICS^ACRFDIC D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 11, 1999
  • HELP-PROMPT:  Enter the appropriate CAN.
  • DESCRIPTION:  
    Enter the CAN NO. for this item.
  • SCREEN:  S DIC("S")=$$DICS^ACRFDIC
  • EXPLANATION:  CHECKS FOR ACCESS TO CAN NO.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^CAN
    1)= S ^ACRSS("CAN",$E(X,1,30),DA)=""
    2)= K ^ACRSS("CAN",$E(X,1,30),DA)
    3)= DO NOT DELETE
    This x-ref used for calculation of the status of funds reports for specified CAN's.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002193,.05,1,2,1.1) X ^DD(9002193,.05,1,2,1.4)
    1.1)= S X=DIV X ^DD(9002193,.05,1,2,49.2) S X=$$AREA^ACRFUTL(DA) S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002193,DIG=.11 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(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002193,.05,1,2,2.1) X ^DD(9002193,.05,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002193,.05,1,2,59.2) S X=$S('$D(^AUTTCAN(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)),X=$$AREA^ACRFUTL(DA) S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002193,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRCAN(D0,0)):^(0),1:"") S X=$S('$D(^AUTTCAN(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1))
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,5) S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRCAN(D0,0)):^(0),1:"")
    CREATE VALUE)= ACRFSSAREA(CAN)
    DELETE VALUE)= ACRFSSAREA(CAN)
    FIELD)= AREA
.06 DEPARTMENT ACCOUNT 0;6 POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188) FMS DEPARTMENT ACCOUNT(#9002188)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^ACRLOCB(""SEC"",+$G(DUZ),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  W $$SSDA^ACRFDIC
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Enter the DEPARTMENT ACCOUNT for this item.
  • DESCRIPTION:  
    This is set internally by the system and indicates the department account against which funds for this item will be charged.  This should not be edited directly.
  • SCREEN:  S DIC("S")="I $D(^ACRLOCB(""SEC"",+$G(DUZ),+Y))"
  • EXPLANATION:  Screen to ensure that user has access to the DEPARTMENT ACCOUNT.
  • NOTES:  TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^F
    1)= S ^ACRSS("F",$E(X,1,30),DA)=""
    2)= K ^ACRSS("F",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002193,.06,1,2,1.1) X ^DD(9002193,.06,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002193,DIG=.08 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(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002193,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1
    ,0))>0
    CREATE VALUE)= #.06:INTERNAL(#.04)
    DELETE VALUE)= @
    FIELD)= #.08
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002193,.06,1,3,1.1) X ^DD(9002193,.06,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9002193,DIG=.09 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(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9002193,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1
    ,0))>0
    CREATE VALUE)= #.06:INTERNAL(#.03)
    DELETE VALUE)= @
    FIELD)= #.09
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,.06,1,4,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.06,1,4,1.1) X ^DD(9002193,.06,1,4,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,4)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") S X=$P(Y(101),U,2) S DIU=X K Y X ^DD(9002193,.06,1,4,2.1) X ^DD(9002193,.06,1,4,2.4)
    2.1)= S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S DIU=DIU-$P(Y(1),U,4)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") I $D(^(0)) S $P(^("BA"),U,2)=DIU,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT TOUCH THIS X-REF
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= REQUESTED+ITEM ESTIMATED COST
    DELETE VALUE)= OLD DEPARTMENT ACCOUNT
    FIELD)= DEPARTMENT ACCOUNT:REQUESTED
    This x-ref is an adaptation of an FM generated x-ref.  DO NOT delete or alter it.
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,.06,1,5,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.06,1,5,1.1) X ^DD(9002193,.06,1,5,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,9)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002188,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") S X=$P(Y(101),U,5) S DIU=X K Y X ^DD(9002193,.06,1,5,2.1) X ^DD(9002193,.06,1,5,2.4)
    2.1)= S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S DIU=DIU-$P(Y(1),U,9)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") I $D(^(0)) S $P(^("BA"),U,5)=DIU,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT TOUCH THIS X-REF
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE VALUE)= OLD DEPARTMENT ACCOUNT
    FIELD)= DEPARTMENT ACCOUNT:OBLIGATED
    This x-ref is a modification of an FM generated x-ref.  DO NOT delete or alter it.
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,.06,1,6,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y X ^DD(9002193,.06,1,6,1.1) X ^DD(9002193,.06,1,6,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,21)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002188,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") S X=$P(Y(101),U,3) S DIU=X K Y X ^DD(9002193,.06,1,6,2.1) X ^DD(9002193,.06,1,6,2.4)
    2.1)= S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S DIU=DIU-$P(Y(1),U,21)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV,"BA")):^("BA"),1:"") I $D(^(0)) S $P(^("BA"),U,3)=DIU,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= SPENT+TOTAL PAID
    DELETE VALUE)= OLD DEPARTMENT ACCOUNT
    FIELD)= DEPARTMENT ACCOUNT:SPENT
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193,.06,1,7,1.1) X ^DD(9002193,.06,1,7,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,9),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9002193,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= DEPARTMENT ACCOUNT:INTERNAL(#90)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.05
.07 PURCHASE ORDER/TRAVEL VOUCHER 0;7 POINTER TO FMS REQUEST FILE (#9002189) FMS REQUEST(#9002189)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This points to the PURCHASE ORDER or TRAVEL VOUCHER to which this item relates.
  • NOTES:  TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^E
    1)= S ^ACRSS("E",$E(X,1,30),$P(^ACRSS(DA,0),U),DA)=""
    2)= K ^ACRSS("E",$E(X,1,30),$P(^ACRSS(DA,0),U),DA)
.08 SUB ALLOWANCE 0;8 POINTER TO FMS SUB-ALLOWANCE FILE (#9002187) FMS SUB-ALLOWANCE(#9002187)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the SUB-ALLOWANCE file and indicates the sub-allowance against which the funds for this item will be charged.
  • NOTES:  TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^G
    1)= S ^ACRSS("G",$E(X,1,30),DA)=""
    2)= K ^ACRSS("G",$E(X,1,30),DA)
.09 ALLOWANCE 0;9 POINTER TO FMS ALLOWANCE FILE (#9002186) FMS ALLOWANCE(#9002186)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is set internally by the system to point to the allowance account from which these funds are taken.  This should not be edited directly.
  • NOTES:  TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^H
    1)= S ^ACRSS("H",$E(X,1,30),DA)=""
    2)= K ^ACRSS("H",$E(X,1,30),DA)
.1 REFERENCE CODE 0;10 POINTER TO REFERENCE CODE FILE (#9999999.63) REFERENCE CODE(#9999999.63)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is set internally by the system base on the reference code for the document on which this item is ordered.  This should not be edited directly.
  • NOTES:  TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File
.11 AREA SYSTEM 0;11 POINTER TO FMS SYSTEM DEFAULTS FILE (#9002199.2) FMS SYSTEM DEFAULTS(#9002199.2)

  • LAST EDITED:  AUG 18, 1997
  • HELP-PROMPT:  Enter the area systems for this supply/service.
  • DESCRIPTION:  
    Enter the area system for this supply/service.
  • NOTES:  TRIGGERED by the COMMON ACCOUNTING NUMBER field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^AREA
    1)= S ^ACRSS("AREA",$E(X,1,30),DA)=""
    2)= K ^ACRSS("AREA",$E(X,1,30),DA)
.12 FROM ITEM FILE 0;12 POINTER TO ARMS STANDARD ITEM FILE (#9002195) ARMS STANDARD ITEM(#9002195)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  This is a pointer to the STANDARD ITEM file and indicates which standard item was used as the basis for this item. If this is blank, then this item was established directly and not selected from an entry in the standard
    item file.  This should not be edited directly.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^100
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002193,.12,1,1,1.1) X ^DD(9002193,.12,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,1)=DIV,DIH=9002193,DIG=100 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(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9002193,.12,1,1,2.4)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,1)=DIV,DIH=9002193,DIG=100 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= FROM ITEM FILE:DESCRIPTION1
    DELETE VALUE)= @
    FIELD)= #100
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002193,.12,1,2,1.1) X ^DD(9002193,.12,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,2)=DIV,DIH=9002193,DIG=101 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(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9002193,.12,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,2)=DIV,DIH=9002193,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= FROM ITEM FILE:DESCRIPTION2
    DELETE VALUE)= @
    FIELD)= #101
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^20
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"VND")):^("VND"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002193,.12,1,3,1.1) X ^DD(9002193,.12,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRITEM(D0,"DT1")):^("DT1"),1:""),Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"VND")):^("VND"),1:""),DIV=X S $P(^("VND"),U,1)=DIV,DIH=9002193,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= FROM ITEM FILE:INTERNAL(#24)
    DELETE VALUE)= NO EFFECT
    FIELD)= #20
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^102
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002193,.12,1,4,1.1) X ^DD(9002193,.12,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,3)=DIV,DIH=9002193,DIG=102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#50
    DELETE VALUE)= NO EFFECT
    FIELD)= DESCRIPTION LINE 3
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^103
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002193,.12,1,5,1.1) X ^DD(9002193,.12,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,4)=DIV,DIH=9002193,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#51
    DELETE VALUE)= NO EFFECT
    FIELD)= DESCRIPTION LINE 4
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^104
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DESC")):^("DESC"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193,.12,1,6,1.1) X ^DD(9002193,.12,1,6,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DESC")):^("DESC"),1:""),DIV=X S $P(^("DESC"),U,5)=DIV,DIH=9002193,DIG=104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#52
    DELETE VALUE)= NO EFFECT
    FIELD)= DESCRIPTION LINE 5
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^120
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"NOTES")):^("NOTES"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002193,.12,1,7,1.1) X ^DD(9002193,.12,1,7,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,4) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"NOTES")):^("NOTES"),1:""),DIV=X S $P(^("NOTES"),U,1)=DIV,DIH=9002193,DIG=120 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#53
    DELETE VALUE)= NO EFFECT
    FIELD)= #120
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^121
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"NOTES")):^("NOTES"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002193,.12,1,8,1.1) X ^DD(9002193,.12,1,8,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,5) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"NOTES")):^("NOTES"),1:""),DIV=X S $P(^("NOTES"),U,2)=DIV,DIH=9002193,DIG=121 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#54
    DELETE VALUE)= NO EFFECT
    FIELD)= #121
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^122
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"NOTES")):^("NOTES"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002193,.12,1,9,1.1) X ^DD(9002193,.12,1,9,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,6) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"NOTES")):^("NOTES"),1:""),DIV=X S $P(^("NOTES"),U,3)=DIV,DIH=9002193,DIG=122 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#55
    DELETE VALUE)= NO EFFECT
    FIELD)= #122
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^123
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"NOTES")):^("NOTES"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002193,.12,1,10,1.1) X ^DD(9002193,.12,1,10,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,7) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"NOTES")):^("NOTES"),1:""),DIV=X S $P(^("NOTES"),U,4)=DIV,DIH=9002193,DIG=123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#56
    DELETE VALUE)= NO EFFECT
    FIELD)= #123
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^124
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"NOTES")):^("NOTES"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193,.12,1,11,1.1) X ^DD(9002193,.12,1,11,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRITEM(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRITEM(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(101),U,8) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"NOTES")):^("NOTES"),1:""),DIV=X S $P(^("NOTES"),U,5)=DIV,DIH=9002193,DIG=124 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.12:#57
    DELETE VALUE)= NO EFFECT
    FIELD)= #124
.13 FISCAL YEAR 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 05, 1999
  • HELP-PROMPT:  Type a Number between 1000 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the 4 digit fiscal year for the fiscal year of the funds used for purchase of this item.  This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002193^I
    1)= S ^ACRSS("I",$E(X,1,30),DA)=""
    2)= K ^ACRSS("I",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002193^PR^MUMPS
    1)= I $P($G(^ACRSS(+$G(DA),"NMS")),U)]"",$P($G(^(0)),U,17) S ^ACRSS("PR",X,$P(^("NMS"),U),$P(^(0),U,17),DA)=""
    2)= I $P($G(^ACRSS(+$G(DA),"NMS")),U)]"",$P($G(^(0)),U,17) K ^ACRSS("PR",X,$P(^("NMS"),U),$P(^(0),U,17),DA)
    3)= DO NO DELETE
.14 FEDSTRIP CONTROL NUMBER 0;14 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the sequential FEDSTRIP CONTROL NUMBER which is assigned to each item on a FEDSTRIP ORDER.  This number is assigned internally by the system and should not be edited directly.
.15 LOCATION CODE 0;15 POINTER TO LOCATION CODE FILE (#9999999.66) LOCATION CODE(#9999999.66)

  • LAST EDITED:  AUG 18, 1997
  • HELP-PROMPT:  Enter the location code for this supply/service.
  • DESCRIPTION:  
    Enter the location code for this supply/service.
  • CROSS-REFERENCE:  9002193^LCOD
    1)= S ^ACRSS("LCOD",$E(X,1,30),DA)=""
    2)= K ^ACRSS("LCOD",$E(X,1,30),DA)
.16 SAMS EXPORT DATE 0;16 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 SUPPLY was exported to SAMS.
  • DESCRIPTION:  
    Enter the date the data for this system was exported to SAMS.
.17 EMPLOYEE 0;17 POINTER TO ARMS USER FILE (#9002185.3) ARMS USER(#9002185.3)

  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Enter the employee's name.
  • DESCRIPTION:  
    Enter the employee's name.
  • CROSS-REFERENCE:  9002193^PR3^MUMPS
    1)= I $P($G(^ACRSS(+$G(DA),"NMS")),U)]"",$P(^(0),U,13) S ^ACRSS("PR",$P(^("NMS"),U),$P(^(0),U,13),X,DA)=""
    2)= I $P($G(^ACRSS(+$G(DA),"NMS")),U)]"",$P(^(0),U,13) K ^ACRSS("PR",$P(^("NMS"),U),$P(^(0),U,13),X,DA)
    3)= DO NOT DELETE
.2 PURCHASE ORDER PO;1 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  This is a pointer to the DOCUMENT file. This entry is changed when an item is transferred from one purchase order to another to indicate the po on which the item is actually ordered. This is set internally by the system
    and should not be edited directly.
  • NOTES:  TRIGGERED by the DOCUMENT field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^J
    1)= S ^ACRSS("J",$E(X,1,30),DA)=""
    2)= K ^ACRSS("J",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Used to include items on purchase order which have been transferred from one requisition to another.
1 ORDER NUMBER NMS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the VENDOR or PART NUMBER NUMBER for this item.
  • CROSS-REFERENCE:  9002193^PR2^MUMPS
    1)= I $P($G(^ACRSS(+$G(DA),0)),U,13)]"",$P(^(0),U,17) S ^ACRSS("PR",$P(^(0),U,13),X,$P(^(0),U,17),DA)=""
    2)= I $P($G(^ACRSS(+$G(DA),0)),U,13)]"",$P(^(0),U,17) K ^ACRSS("PR",$P(^(0),U,13),X,$P(^(0),U,17),DA)
    3)= DO NOT DELETE
2 NATIONAL STOCK NUMBER NMS;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<16)!'(X?4N1"-"2UN1"-"3N1"-"4N.E) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 16-17 characters in length, in the format 9999-99-999-9999.
  • DESCRIPTION:  
    Enter the officially assigned NATIONAL STOCK NUMBER for this item if known.  This entry is mandatory if the requisition is for a FEDSTRIP or VA order.
3 NDC NMS;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-14 characters in length.
  • DESCRIPTION:  
    Enter the NATIONAL DRUG CODE for this item if applicable.
4 INDEX NUMBER NMS;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 2-6 characters in length.
  • DESCRIPTION:  
    Enter the INDEX NUMBER for this item.
5 KEY WORD NMS;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-16 characters in length.
  • DESCRIPTION:  
    Enter a KEY WORD or phrase which will help identify this item.  This does not need to be the description of the item and it should help uniquely identify the item.  This KEY WORD can be used for look up of the item.
6 CAPITALIZED EQUIPMENT DT;15 SET
************************REQUIRED FIELD************************
  • '1' FOR ADD. CAP. EQUIP.;
  • '2' FOR ADD. NON-CAP. EQUIP.;
  • '3' FOR REPLACE. CAP. EQUIP.;
  • '4' FOR REPLACE. NON-CAP. EQUIP.;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code for the category of this item of equipment.
7 MARKED FOR DT;16 POINTER TO FMS DEPARTMENT CODES FILE (#9002199.5) FMS DEPARTMENT CODES(#9002199.5)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the DEPARTMENT CODE which indicates which department this item is marked for.
8 FEDSTRIP DESCRIPTION LINE 2 DT;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the IHS specific information that will be printed on the second line of the FEDSTRIP order.
9 PROPERTY INDEX NUMBER 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7)!'(X?5N1"."1N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 7 characters in length with the format '99999.9'
  • DESCRIPTION:  
    Enter the PROPERTY INDEX NUMBER appropriate to this item.  Use the proper format of 5 numeric characters, 1 period and 1 numeric character '99999.9'.
10 QUANTITY REQUIRED DT;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the QUANTITY of this item which you wish to order on this request.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,3)'="" I X S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002193,10,1,1,1.1)
    X ^DD(9002193,10,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002193,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE CONDITION)= UNIT COST'=""
    CREATE VALUE)= #10*#12
    DELETE VALUE)= NO EFFECT
    FIELD)= #13
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^14.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002193,10,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,14)=DIV,DIH=9002193,DIG=14.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= QUANTITY REQUIRED
    DELETE VALUE)= NO EFFECT
    FIELD)= QUANTITY DUE IN
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002193,10,1,3,1.1) X ^DD(9002193,10,1,3,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002193,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE VALUE)= #10*#12
    DELETE VALUE)= NO EFFECT
    FIELD)= #16
11 UNIT OF ISSUE DT;2 POINTER TO FMS UNIT OF ISSUE FILE (#9002190.6)
************************REQUIRED FIELD************************
FMS UNIT OF ISSUE(#9002190.6)

  • LAST EDITED:  DEC 09, 1997
  • DESCRIPTION:  
    Enter the appropriate UNIT OF ISSUE from the list.
12 UNIT COST DT;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.9999)!(X<-9999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUN 05, 2001
  • HELP-PROMPT:  Type a Number between -9999999.9999 and 9999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the cost for each unit ordered.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002193,12,1,1,1.1) X ^DD(9002193,12,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002193,DIG=13 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(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9002193,12,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1)*$P(Y(1),U,3)
    2.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002193,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    CREATE VALUE)= #12*#10
    DELETE VALUE)= @
    FIELD)= #13
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002193,12,1,2,1.1) X ^DD(9002193,12,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002193,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE VALUE)= #12*#10
    DELETE VALUE)= NO EFFECT
    FIELD)= #16
13 ITEM ESTIMATED COST DT;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.9999)!(X<-999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUL 08, 1999
  • HELP-PROMPT:  Type a Number between -999999.9999 and 9999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This amount is calculated by the system as the QUANTITY REQUIRED times the UNIT COST.  This calculated automatically by the system and should not be edited directly.
  • NOTES:  TRIGGERED by the UNIT COST field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the QUANTITY REQUIRED field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,13,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,13,1,1,2.4)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= REQUESTED+ITEM ESTIMATED COST
    DELETE VALUE)= REQUESTED-OLD ITEM ESTIMATED COST
    FIELD)= DEPARTMENT ACCOUNT:REQUESTED
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,2,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,13,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002187,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,2,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,13,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002187,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,8) S:'$D(^ACRALC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= REQUESTED+ITEM ESTIMATED COST
    DELETE VALUE)= REQUESTED-OLD ITEM ESTIMATED COST
    FIELD)= SUB ALLOWANCE:REQUESTED
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,3,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,13,1,3,1.4)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002186,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,3,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,13,1,3,2.4)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002186,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,9) S:'$D(^ACRALW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= REQUESTED+ITEM ESTIMATED COST
    DELETE VALUE)= REQUESTED-OLD ITEM ESTIMATED COST
    FIELD)= ALLOWANCE:REQUESTED
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,4,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,13,1,4,1.4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9002189,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,13,1,4,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,13,1,4,2.4)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9002189,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,0)):^(0),1:"")
    CREATE VALUE)= AMOUNT+ITEM ESTIMATED COST
    DELETE VALUE)= AMOUNT-OLD ITEM ESTIMATED COST
    FIELD)= REQUEST:AMOUNT
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^18
    1)= X ^DD(9002193,13,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002193,13,1,5,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9)]"",Y(2)=X S X=$P(Y(1),U,9)'=0,Y=X,X=Y(2),X=X&Y
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002193,DIG=18 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= ITEM OBLIGATED AMOUNT]""&(ITEM OBLIGATED AMOUNT'=0)
    CREATE VALUE)= ITEM ESTIMATED COST
    DELETE VALUE)= NO EFFECT
    FIELD)= #18
14 QUANTITY RECEIVED DT;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the QUANTITY RECEIVED of this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
14.1 QUANTITY DUE IN DT;14 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The QUANTITY DUE IN is calculated by the system as the number ordered minus the number received.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the QUANTITY REQUIRED field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the QUANTITY ACCEPTED field of the FMS SUPPLIES AND SERVICES File
15 QUANTITY ACCEPTED DT;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the actual number accepted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^14.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002193,15,1,2,1.1) X ^DD(9002193,15,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1)-DIV
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,14)=DIV,DIH=9002193,DIG=14.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #10-#15
    DELETE VALUE)= NO EFFECT
    FIELD)= QUANTITY DUE IN
15.1 DATE RECEIVED DT;11 DATE
************************REQUIRED FIELD************************

  • 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 supplies were received. This cannot be a future date.
  • DESCRIPTION:  
    Enter the date the item was received.  This cannot be a future date.
15.2 RECEIVING OFFICIAL DT;12 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 the name of the person who is doing the receiving action on the computer.
  • 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.





15.3
DATE SIGNED
DT;13
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the date signed.
  • DESCRIPTION:  
    This is set internally by the system as the date the receiving action is signed by the receiving agent.





16
TOTAL TO BE PAID
DT;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.9999)!(X<-999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between -999999.9999 and 9999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the amount which should be paid calculated on the number received and accepted and the unit cost from the purchase order.  This amount is calculated by the system and should not be entered directly.
  • NOTES:  TRIGGERED by the UNIT COST field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the QUANTITY REQUIRED field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the ITEM OBLIGATED AMOUNT field of the FMS SUPPLIES AND SERVICES File





16.1
TOTAL PAID
DT;21
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.9999)!(X<-999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  AUG 02, 1997
  • HELP-PROMPT:  Type a Number between -999999.9999 and 999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the total amount paid to the vendor based on the invoice audit of the number invoiced and the unit cost from the vendor's invoice.  This amount is calculated by the system and should not be entered directly.
  • NOTES:  TRIGGERED by the QUANTITY INVOICED field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the INVOICE UNIT COST field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'=0 I X S X=DIV X ^DD(9002193,16.1,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,16.1,1,1,1.4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,2)=DIV,DIH=9002189,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=X'=0 I X S X=DIV X ^DD(9002193,16.1,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,16.1,1,1,2.4)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,2)=DIV,DIH=9002189,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"")
    CREATE CONDITION)= TOTAL PAID'=0
    CREATE VALUE)= ACTUAL EXPENSE+TOTAL PAID
    DELETE CONDITION)= OLD TOTAL PAID'=0
    DELETE VALUE)= ACTUAL EXPENSE-OLD TOTAL PAID
    FIELD)= REQUEST:ACTUAL EXPENSE
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'=0 I X S X=DIV X ^DD(9002193,16.1,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,16.1,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002188,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=X'=0 I X S X=DIV X ^DD(9002193,16.1,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,16.1,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002188,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE CONDITION)= TOTAL PAID'=0
    CREATE VALUE)= SPENT+TOTAL PAID
    DELETE CONDITION)= OLD TOTAL PAID'=0
    DELETE VALUE)= SPENT-OLD TOTAL PAID
    FIELD)= DEPARTMENT ACCOUNT:SPENT
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'=0 I X S X=DIV X ^DD(9002193,16.1,1,3,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,16.1,1,3,1.4)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002187,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=X'=0 I X S X=DIV X ^DD(9002193,16.1,1,3,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,16.1,1,3,2.4)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002187,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,8) S:'$D(^ACRALC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"")
    CREATE CONDITION)= TOTAL PAID'=0
    CREATE VALUE)= SPENT+TOTAL PAID
    DELETE CONDITION)= OLD TOTAL PAID'=0
    DELETE VALUE)= SPENT-OLD TOTAL PAID
    FIELD)= SUB ALLOWANCE:SPENT
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'=0 I X S X=DIV X ^DD(9002193,16.1,1,4,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,16.1,1,4,1.4)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002186,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=X'=0 I X S X=DIV X ^DD(9002193,16.1,1,4,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,16.1,1,4,2.4)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9002186,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,9) S:'$D(^ACRALW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"")
    CREATE CONDITION)= TOTAL PAID'=0
    CREATE VALUE)= SPENT+TOTAL PAID
    DELETE CONDITION)= OLD TOTAL PAID'=0
    DELETE VALUE)= SPENT-OLD TOTAL PAID
    FIELD)= ALLOWANCE:SPENT





17
QUANTITY INVOICED
DT;19
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    This indicates the QUANTITY INVOICED from all the invoices applicable to this item.  Enter the number for the total QUANTITY INVOICED for this item from all invoices which may pertain to this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^16.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y X ^DD(9002193,17,1,1,1.1) X ^DD(9002193,17,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,20)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,21)=DIV,DIH=9002193,DIG=16.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= QUANTITY INVOICED*INVOICE UNIT COST
    DELETE VALUE)= NO EFFECT
    FIELD)= #16.1





18
ITEM OBLIGATED AMOUNT
DT;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.9999)!(X<-999999.9999)!(X?.E1"."5N.N) X
  • LAST EDITED:  NOV 10, 1998
  • HELP-PROMPT:  Type a Number between -999999.9999 and 999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the amount obligated for this item.  The amount is calculated by the QUANTITY ACCEPTED times the UNIT COST and is set by the system when the purchase order is authorized.
  • NOTES:  TRIGGERED by the DOCUMENT AUTHORIZED field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the ITEM ESTIMATED COST field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  ^^TRIGGER^9002189^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'="" I X S X=DIV X ^DD(9002193,18,1,1,89.2) S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,18,1,1,1.4)
    1.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,4)=DIV,DIH=9002189,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9)'="" I X S X=DIV X ^DD(9002193,18,1,1,89.2) S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,
    18,1,1,2.4)
    2.4)= S DIH=$S($D(^ACROBL(DIV(0),"DT")):^("DT"),1:""),DIV=X I $D(^(0)) S $P(^("DT"),U,4)=DIV,DIH=9002189,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACROBL(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"")
    CREATE CONDITION)= ITEM OBLIGATED AMOUNT'=""
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE CONDITION)= ITEM OBLIGATED AMOUNT'=""
    DELETE VALUE)= OBLIGATED-OLD ITEM OBLIGATED AMOUNT
    FIELD)= REQUEST:OBLIGATED
    This trigger updates the obligated amount of the request.  It is critical to the update process for all commitment registers.
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,2,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,18,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002188,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,2,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,18,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002188,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE VALUE)= OBLIGATED-OLD ITEM OBLIGATED AMOUNT
    FIELD)= LOCAL BUDGET:OBLIGATED
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,3,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,18,1,3,1.4)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002187,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,3,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,18,1,3,2.4)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002187,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,8) S:'$D(^ACRALC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE VALUE)= OBLIGATED-OLD ITEM OBLIGATED AMOUNT
    FIELD)= SUB ALLOWANCE:OBLIGATED
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,4,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002193,18,1,4,1.4)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002186,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002193,18,1,4,89.2) S X=$P(Y(101),U,5) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002193,18,1,4,2.4)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,5)=DIV,DIH=9002186,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRSS(D0,0)):^(0),1:""),D0=$P(Y(1),U,9) S:'$D(^ACRALW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= OBLIGATED+ITEM OBLIGATED AMOUNT
    DELETE VALUE)= OBLIGATED-OLD ITEM OBLIGATED AMOUNT
    FIELD)= ALLOWANCE:OBLIGATED
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002193,18,1,5,1.4)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002193,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= ITEM OBLIGATED AMOUNT
    DELETE VALUE)= NO EFFECT
    FIELD)= #16





19
SOURCE CODE
DT;10
POINTER TO ARMS SOURCE CODE FILE (#9002192.05)
ARMS SOURCE CODE(#9002192.05)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate source code from the list.





20
VENDOR
VND;1
POINTER TO VENDOR FILE (#9999999.11)
VENDOR(#9999999.11)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the name of the VENDOR of this item.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  9002193^VND
    1)= S ^ACRSS("VND",$E(X,1,30),DA)=""
    2)= K ^ACRSS("VND",$E(X,1,30),DA)





21
VENDOR ORDER NO.
VND;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-14 characters in length.
  • DESCRIPTION:  
    Enter the VENDOR'S ORDER NO. for this item.





22
VENDOR/CONTRACTOR
VND1;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If you cannot find the vendor in the standard vendor list, you can type in the complete name of the vendor you are requesting.





23
VENDOR STREET
VND1;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the requested vendor's street address.





24
VENDOR CITY
VND1;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the requested vendor's CITY.





25
VENDOR STATE
VND1;4
POINTER TO STATE FILE (#5)
STATE(#5)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the requested vendor's STATE.





26
VENDOR ZIP CODE
VND1;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • DESCRIPTION:  
    Enter the requested vendor's ZIP-CODE.





27
VENDOR - ATTENTION
VND1;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the name of the vendor's representative to which correspondence and inquiries should be addressed.





28
VENDOR PHONE
VND1;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12)!'(X?3N1"-"3N1"-"4N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 12 characters in length in the format XXX-XXX-XXXX.
  • DESCRIPTION:  
    Enter the requested vendor's PHONE NUMBER.





29
JUSTIFICATION OF NEED
DT;8
SET 

************************REQUIRED FIELD************************
  • '1' FOR NEW OR EXPANDED PROGRAM;
  • '2' FOR TO INCREASE PRODUCTION/EFFICIENCY;
  • '3' FOR NEW OR REVISED PROCEDURES;
  • '4' FOR INCREASED WORKLOAD;
  • '5' FOR NEED FOR REPLACEMENT;
  • '6' FOR REASONS OF HEALTH/SAFETY/PROTECTION;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code from the list which best identifies the JUSTIFICATION OF NEED





30
UTILIZATION CONSIDERATION
DT;17
SET 

************************REQUIRED FIELD************************
  • '1' FOR NO SIMILAR PROPERTY ON HAND;
  • '2' FOR SIMILAR PROPERTY BEING USED TO MAXIMUM;
  • '3' FOR PROPERTY MEETS REPLACEMENT STANDARDS;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code which best characterizes the UTILIZATION CONSIDERATIONS.





31
OTHER CONSIDERATIONS
DT;18
SET 

************************REQUIRED FIELD************************
  • '1' FOR VALUE WARRANTS COST TO THE GOV'T;
  • '2' FOR REQUIRED BY STATUTE OR REGULATION;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code which best characterizes the OTHER CONSIDERATIONS.





32
INVOICE UNIT COST
DT;20
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:  
    This indicates the UNIT COST for the item as stated on the vendor's INVOICE.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^16.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y X ^DD(9002193,32,1,1,1.1) X ^DD(9002193,32,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=DIV*$P(Y(1),U,19)
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,21)=DIV,DIH=9002193,DIG=16.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INVOICE UNIT COST*QUANTITY INVOICED
    DELETE VALUE)= NO EFFECT
    FIELD)= #16.1





33
EXPIRATION DATE
DT;23
DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the EXPIRATION DATE using one of the formats listed.
  • DESCRIPTION:  
    Enter the EXPIRATION DATE for the item.





34
SAMS UNIT OF ISSUE
DT;24
POINTER TO FMS UNIT OF ISSUE FILE (#9002190.6)
FMS UNIT OF ISSUE(#9002190.6)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the UNIT OF ISSUE from the list.
  • DESCRIPTION:  This field allows for indication of the number of individual quantities of an item are included per the purchasing unit of issue, e.g., if the unit of issue is CASE the QUANTITY PER UNIT OF ISSUE could be 10 to indicate
    the that there are 10 bottles per case.





35
SAMS QUANTITY
2;1
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the SAMS QUANTITY.





36
OVERTIME HOURS
2;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the overtime hours.





37
OVERTIME PAY
2;8
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Type a Number between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the overtime pay.





38
BASE HOURS
2;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 30, 1997
  • HELP-PROMPT:  Type a Number between 0 and 160, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the base hours.





100
DESCRIPTION LINE 1
DESC;1
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 09, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of the description.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





101
DESCRIPTION LINE 2
DESC;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the second line of the description.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





102
DESCRIPTION LINE 3
DESC;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the third line of the description.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





103
DESCRIPTION LINE 4
DESC;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of the description.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





104
DESCRIPTION LINE 5
DESC;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of the description.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





110
REJECTION REASON LINE 1
REASON;1
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the first line of the reason for rejection of an item.





111
REJECTION REASON LINE 2
REASON;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the second line of the reason for rejection of an item.





112
REJECTION REASON LINE 3
REASON;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the third line of the reason for rejection of an item.





113
REJECTION REASON LINE 4
REASON;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of the reason for rejection of an item.





114
REJECTION REASON LINE 5
REASON;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of the reason for rejection of an item.





120
NOTES LINE 1
NOTES;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the first line of special remarks.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





121
NOTES LINE 2
NOTES;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the second line of special remarks.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





122
NOTES LINE 3
NOTES;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the third line of special remarks.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





123
NOTES LINE 4
NOTES;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of special remarks.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





124
NOTES LINE 5
NOTES;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of special remarks.
  • NOTES:  TRIGGERED by the FROM ITEM FILE field of the FMS SUPPLIES AND SERVICES File





130
ADDITIONAL DESCRIPTION
1;0
WORD-PROCESSING #9002193.01   

  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a word processing field which allows you to enter as much information as necessary to fully describe an item or outline the requirements for services, etc.





141
SECOND VENDOR
2;3
POINTER TO VENDOR FILE (#9999999.11)
VENDOR(#9999999.11)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the name of the second vendor used for cost comparison.
  • DESCRIPTION:  
    Enter the name of the first vendor used for cost comparison.





142
SV UNIT COST
2;4
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the UNIT COST quoted by the second vendor used for cost comparison.





143
THIRD VENDOR
2;5
POINTER TO VENDOR FILE (#9999999.11)
VENDOR(#9999999.11)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the name of the third vendor used for cost comparison.
  • DESCRIPTION:  
    Enter the name of the second vendor used for cost comparison.





144
THIRD VENDOR UNIT COST
2;6
NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>9999999.9999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the unit cost of the third vendor used for cost comparison.





905
REQUEST APPROVED
APV;1
SET

  • 'A' FOR APPROVED;
  • 'D' FOR DISAPPROVED;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a flag set by the system that indicates that the requisition for this item has been approved.





911
DOCUMENT AUTHORIZED
APV;2
SET

  • 'A' FOR APPROVED;
  • 'D' FOR DISAPPROVED;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a flag set by the system which indicates that the purchase order for this item has been authorized.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193^18
    1)= X ^DD(9002193,911,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002193,911,1,1,1.1) X ^DD(9002193,911,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRSS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9002193,911,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="APPROVED"
    1.4)= S DIH=$S($D(^ACRSS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002193,DIG=18 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= DOCUMENT AUTHORIZED="APPROVED"
    CREATE VALUE)= #13
    DELETE VALUE)= NO EFFECT
    FIELD)= #18





1001
REPLACEMENT EQUIPMENT
10;0
Multiple #9002193.1001
9002193.1001
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This multiple field is included to allow entry of data required for each item requested to replace existing equipment.





1101
NEW EQUIPMENT
11;0
Multiple #9002193.01101
9002193.01101
  • DESCRIPTION:  
    Multiple field to list equipment data for new equipment.







    



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