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 |  ICR  | All
Print Page as PDF
Global: ^PRCS(410

Package: IFCAP

Global: ^PRCS(410


Information

FileMan FileNo FileMan Filename Package
410 CONTROL POINT ACTIVITY IFCAP

Description

Directly Accessed By Routines, Total: 395

Package Total Routines
IFCAP 327 ITEM SPECIFIC INFORMATION    PRC SEPARATION VIOLATE    PRC0F    PRC0G    PRC182    PRC186P    PRC5B6    PRC5CON1
PRC5CON2    PRCB0B    PRCB1E1    PRCB1F1    PRCB1G1    PRCB1GE1    PRCB2A    PRCBBUL
PRCBCS    PRCBR1    PRCBR2    PRCE NEW 1358    PRCE NEW 1358S    PRCE0A    PRCEADJ    PRCEADJ1
PRCEFIS1    PRCEFIS5    PRCEMOA    PRCEN    PRCEOB1    PRCESOE    PRCESOE1    PRCF CI BORROWER
PRCF223P    PRCF58A    PRCF58A1    PRCFAC02    PRCFAC0J    PRCFARR    PRCFDO1    PRCFFERT
PRCFFM1M    PRCFFU11    PRCFFU2    PRCFFUD1    PRCFGPF    PRCG238P    PRCGA    PRCGARC1
PRCGARP1    PRCH OUTSTANDING REQUEST/PA    PRCH REQUEST LIST    PRCH REQUEST SVC    PRCH REQUESTING SRVC    PRCH REQUESTING SVC    PRCH TOT AMT    PRCH TOT AMT DAILY
PRCH UNPOSTED DIETETIC PRINT    PRCH W/O FPDS    PRCH135P    PRCH1A3    PRCH410    PRCH442    PRCH442A    PRCH58OB
PRCHAMYB    PRCHCON1    PRCHCON2    PRCHCS3    PRCHCS5    PRCHCS6    PRCHDAM    PRCHDP2
PRCHDR    PRCHDSP    PRCHDSP2    PRCHE2    PRCHED    PRCHFPNT    PRCHFPT2    PRCHG
PRCHG1    PRCHJMSG    PRCHJR01    PRCHJR02    PRCHJR03    PRCHJS02    PRCHJTA    PRCHJUTL
PRCHLO1    PRCHLO1A    PRCHLO2A    PRCHLO6    PRCHMA    PRCHNPO2    PRCHNPO3    PRCHNPO4
PRCHNPO5    PRCHNPO6    PRCHNPOA    PRCHNPOB    PRCHNRQ    PRCHOUT OUTST 2237/PA    PRCHP18    PRCHP181
PRCHP183    PRCHPAM    PRCHPAM8    PRCHPNT1    PRCHPRCV    PRCHQ1    PRCHQ12A    PRCHQ13A
PRCHQ15    PRCHQ1B    PRCHQ2    PRCHQ2A    PRCHQ2B    PRCHQ410    PRCHQ41B    PRCHQ9
PRCHQRP5    PRCHREC1    PRCHRP3    PRCHRP8    PRCHRPT5    PRCHRPT6    PRCHRPT7    PRCHRPT8
PRCHSP    PRCHSP1    PRCHT1    PRCHT12    PRCHT3    PRCHT35    PRCIN45    PRCPAUTH
PRCPAWI0    PRCPAWI1    PRCPEIL0    PRCPPOL1    PRCPPOLB    PRCPRDI1    PRCPRDI2    PRCPRDIN
PRCPREME    PRCPRIB0    PRCPRIB1    PRCPRIT1    PRCPRPIQ    PRCPRPIR    PRCPRPIT    PRCPRPK2
PRCPRVSR    PRCPSFIU    PRCPSFIV    PRCPSFR0    PRCPSFU0    PRCPSLOI    PRCPSMSI    PRCPUTRA
PRCPWDOR    PRCPWDOU    PRCPWI    PRCPWIU    PRCPWPL0    PRCPWPL1    PRCPWPL2    PRCPWPL3
PRCPWPL4    PRCPWPL5    PRCPWPLB    PRCPWPLM    PRCPWPP0    PRCPWPP3    PRCPWPPB    PRCPWPPL
PRCRIA    PRCS CP ITEMHIST    PRCS0B    PRCS149P    PRCS150P    PRCS156P    PRCS58OB    PRCS826
PRCSAPP    PRCSAPP1    PRCSAPP2    PRCSASRT    PRCSC1    PRCSC2    PRCSC3    PRCSC4
PRCSCK    PRCSCK1    PRCSCPOQR    PRCSCPT    PRCSCPY    PRCSCSCP    PRCSCTR    PRCSD11
PRCSD111    PRCSD12    PRCSD121    PRCSD122    PRCSD123    PRCSEA    PRCSEA1    PRCSEB
PRCSEB0    PRCSEB1    PRCSEB2    PRCSEC2    PRCSECP    PRCSECP1    PRCSED    PRCSED1
PRCSEM    PRCSEN2237B    PRCSEN2237S    PRCSENA    PRCSENCAD    PRCSENCI    PRCSENCOD    PRCSENCODS
PRCSENIB    PRCSENIBS    PRCSENOD    PRCSENPR    PRCSENPRS    PRCSENR&NR    PRCSENR&NRS    PRCSOUT
PRCSP111    PRCSP123    PRCSP133    PRCSP1C    PRCSP1C1    PRCSQR    PRCSRDIS    PRCSRIG2
PRCSSBCPT    PRCSSBCPT1    PRCST17    PRCST26    PRCST32    ^PRC(443    PRCST45    PRCSUT3
PRCUA    ^PRC(444    PRCSES    PRCSES1    PRCSES2    PRCSEXCE    PRCSEZ    PRCSEZZ
PRCSFACPT    PRCSHP    PRCSP1    PRCSP11    PRCSP12    PRCSP121    PRCSP122    PRCSP124
PRCSP13    PRCSP131    PRCSP132    PRCSP1A    PRCSP1A2    PRCSP1B    PRCSP1D    PRCSP2
PRCSP21    PRCSP21N    PRCSP2N    PRCSPC    PRCSRCD    PRCSREC2    PRCST1    PRCST11
PRCST12    PRCST13    PRCST18    PRCST2    PRCST21    PRCST22    PRCST25    PRCST27
PRCST3    PRCST31    PRCST33    PRCST34    PRCST35    PRCST36    PRCST37    PRCST4
PRCST41    PRCST42    PRCST43    PRCST44    PRCST46    PRCST5    PRCST6    PRCST7
PRCSTEMPT    PRCSTOR    PRCSUT1    PRCSUT2    PRCSUT31    PRCSUT4    PRCSUT41    PRCSX123
PRCT DATA UPLOAD STATUS    PRCUCV1    PRCUFCD    PRCV DYNAMED RIL'S NEED ACTION    PRCV ITEM DISPLAY    PRCVFMS1    PRCVIBF    PRCVLIC
PRCVTAP    PRCVTCA    PRCX1P1    PRCX1Q    PRCX1Q1    PRCXA    PRCXTST    
Controlled Substances 5 PSDACT1    PSDREC2    PSDREC4    PSDREVC    PSDREVD    
Drug Accountability 5 PSAHIS1    PSALOG2    PSAREC    PSAREVC    PSAREVD    
Engineering 5 ENARG21    ENLIB2    ENWOD    ENWOD3    ENWOP1    
Equipment Turn-In Request 2 PRCN11PO    PRCN2237    
Interim Management Support 1 ECTFCPB    
Kernel 1 ^DIC(19    
Prosthetics 1 RMPRP21    

Accessed By FileMan Db Calls, Total: 102

Package Total Routines
IFCAP 95 PRC5CON1    PRCB2B    PRCE58P    PRCEADJ    PRCEAU    PRCEDRE    PRCEFIS1    PRCEN
PRCF58A    PRCFGPF    PRCG238P    PRCGARP1    PRCH410    PRCH58OB    PRCHCON1    PRCHCS3
PRCHED    PRCHG    PRCHJMSG    PRCHJR01    PRCHJR02    PRCHJR03    PRCHJS01    PRCHJS02
PRCHJUTL    PRCHLO6    PRCHNPO    PRCHNPO3    PRCHNPOA    PRCHQ410    PRCHQRP5    PRCHRP3
PRCHRPT    PRCHSP    PRCPWPLM    PRCPWPPL    PRCS149P    PRCS150P    PRCS58OB    PRCSAPP
PRCSAPP1    PRCSCPY    PRCSEA    PRCSEA1    PRCSEB    PRCSEB0    PRCSEB1    PRCSEB2
PRCSECP    PRCSED    PRCSED1    PRCSEM    PRCSP1    PRCSP13    PRCSP1A    PRCSP1A1
PRCSP1B    PRCSP1D    PRCSP1E    PRCSP1F    PRCSRCD    PRCSREC2    PRCSRIG1    PRCST1
PRCST11    PRCST12    PRCST13    PRCST17    PRCST18    PRCST2    PRCST21    PRCST22
PRCST25    PRCST26    PRCST3    PRCST31    PRCST32    PRCST33    PRCST34    PRCST35
PRCST36    PRCST37    PRCST4    PRCST41    PRCST42    PRCST43    PRCST45    PRCSUT1
PRCSUT2    PRCSUT3    PRCV442B    PRCVLIC    PRCVTAP    PRCVTCA    PRCX1P1    
Controlled Substances 3 PSDREC2    PSDREC4    PSDREVC    
Drug Accountability 2 PSAREC    PSAREVC    
Equipment Turn-In Request 1 PRCN2237    
Prosthetics 1 RMPR37    

Pointed To By FileMan Files, Total: 13

Package Total FileMan Files
IFCAP 9 1358 DAILY RECORD(#424)[.15]    PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[.07, 62, #442.01(10), #442.09(8), #442.14(.01)]    REQUEST WORKSHEET(#443)[.01]    AMENDMENTS(#443.6)[.07, 62, #443.61(10)]
REQUEST FOR QUOTATION(#444)[8, #444.019(15), #444.019(21)]
FUND DISTRIBUTION(#421)[7.2, 8.2, 9.2, 10.2]    GENERIC INVENTORY(#445)[#445.09(.01)]    CONTROL POINT ACTIVITY(#410)[447]    IFCAP/ECMS TRANSACTION(#414.06)[1]    
Drug Accountability 1 DRUG ACCOUNTABILITY TRANSACTION(#58.81)[7]    
Engineering 1 WORK ORDER #(#6920)[31]    
Equipment Turn-In Request 1 EQUIPMENT REQUEST(#413)[50]    
Prosthetics 1 PROSTHETICS 1358(#664)[6]    

Pointer To FileMan Files, Total: 20

Package Total FileMan Files
IFCAP 16 ADMIN. ACTIVITY SITE PARAMETER(#411)[448]    VENDOR(#440)[12]    PURCHASE CARD INFORMATION(#440.5)[451]    PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[52, #410.02(9)]    UNIT OF ISSUE(#420.5)[#410.02(3)]    INTERMEDIATE PRODUCT(#420.9)[#410.02(10)]    PURCHASE ORDER STATUS(#442.3)[56]    CALM/LOG CODE SHEET(#423)[#410.02(11)]    GENERIC INVENTORY(#445)[4]    CONTROL POINT ACTIVITY(#410)[447]    CLASSIFICATION OF REQUEST(#410.2)[8]    SUB-CONTROL POINT(#410.4)[#410.04(.01)]    CPA FORM TYPE(#410.5)[3]    DELIVERY SCHEDULE(#410.6)[#410.212(1)]    SORT GROUP(#410.7)[49]    AUTHORITY OF REQUEST(#410.9)[19, 19.1]    
Kernel 3 SERVICE/SECTION(#49)[6.3]    STATE(#5)[11.6]    NEW PERSON(#200)[29, 39, 40, 42, 44.7, 53, 62, 68, 104]    
Engineering 1 WORK ORDER #(#6920)[49]    

Fields, Total: 120

Field # Name Loc Type Details
.01 TRANSACTION NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3)!'((X?3N1"-"2N1"-"1N1"-"3.4N1"-"4N)!(X?1A.ANP)) X D EN3^PRCSUT3
  • LAST EDITED:  FEB 21, 1989
  • HELP-PROMPT:  ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
  • DESCRIPTION:  This is a permanent transaction number (alpha/numeric) used by the Control Point Clerk or Official, as well as A&MM and Fiscal to identify and track the request. It is built from both the information the user enters and
    the sequence number (e.g., 610-90-1-004-1234) assigned by the computer.
    610 = Station Number;
    90 = Fiscal Year;
    1 = Quarter;
    044 = Fund Control Point;
    1234 = Sequence Number assigned by computer.
    DELETE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^B
    1)= S ^PRCS(410,"B",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  410^B3^MUMPS
    1)= I $E(X,1)>0 S ^PRCS(410,"B3",$P(X,"-",2)_"-"_$P(X,"-",5),DA)=""
    2)= I $E(X,1)>0 K ^PRCS(410,"B3",$P(X,"-",2)_"-"_$P(X,"-",5),DA)
    This cross reference is set on the fiscal year and last 4 digits of the transaction number.
  • CROSS-REFERENCE:  410^B2^MUMPS
    1)= I $E(X,1)>0 S ^PRCS(410,"B2",$P(X,"-",5),DA)=""
    2)= I $E(X,1)>0 K ^PRCS(410,"B2",$P(X,"-",5),DA)
    This cross reference is set on the last 4 digits of the transaction number.
  • CROSS-REFERENCE:  410^AE^MUMPS
    1)= I $E(X,1)>0 S ^PRCS(410,"AE",$P(X,"-",1,4),DA)=""
    2)= I $E(X,1)>0 K ^PRCS(410,"AE",$P(X,"-",1,4),DA)
    This cross reference is set on the station, the fiscal year, the quarter, and the control point.
.5 STATION NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<3)!'(X?3N.AN) X
  • LAST EDITED:  JAN 25, 1993
  • HELP-PROMPT:  ANSWER MUST BE 3-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the abbreviation for the station performing the transaction. It is supplied by the user who initiates the request.
1 TRANSACTION TYPE 0;2 SET
************************REQUIRED FIELD************************
  • 'C' FOR CEILING;
  • 'O' FOR OBLIGATION;
  • 'A' FOR ADJUSTMENT;
  • 'CA' FOR CANCELLED;

  • LAST EDITED:  JUN 30, 1986
  • HELP-PROMPT:  Select the appropriate one or two letter transaction type code for this transaction
  • DESCRIPTION:  
    A one- or two-letter code selected from a set of Supply codes that provides information concerning the vendor size and type of competition sought on a purchase order.
2 TEMPORARY TRANS. NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3)!(X'?1A.ANP) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  This field may be used to enter a 3 to 18 character transaction number or other identifier that the requestor or requesting service can use to track this request
  • DESCRIPTION:  This is a temporary transaction number (beginning with an alpha character) assigned to a request by a Control Point Requestor. The Control Point Clerk/Official decides whether to make the transaction number permanent.
    e.g., CRAIG-12
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^H^MUMPS
    1)= S ^PRCS(410,"H",$E(X,1,30),DA)=$S($D(^PRCS(410,DA,11)):$P(^(11),U,2),1:"")
    2)= K ^PRCS(410,"H",$E(X,1,30),DA)
    This cross reference is set on the temporary transaction number, and stores the DUZ of the person initiating the request.
3 FORM TYPE 0;4 POINTER TO CPA FORM TYPE FILE (#410.5)
************************REQUIRED FIELD************************
CPA FORM TYPE(#410.5)

  • INPUT TRANSFORM:  S X(1)=$P(^PRCS(410,DA,0),"^",4) I X(1)=3!(X(1)=4)!(X(1)=5) I X'=X(1)!(X(1)=3&(X'=4)) K X W *7,!,"Sorry, you are not allowed to change a repetitive or issue book form type to another form type"
  • LAST EDITED:  MAY 13, 1993
  • HELP-PROMPT:  Enter the appropriate form type to be generated by this request.
  • DESCRIPTION:  This allows the user to specify what kind of goods or services is being ordered on the request. No Form may be specified to account for money committed by a Control Point on a manual form (not on IFCAP). The following
    Form Types may be selected: Non-Repetitive (2237) Order; Repetitive (PR Card) Order; Repetitive and Non-Rep Order; and Issue Book/Interval Issue. For version 5.0 and later, the NO FORM type is no longer valid.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.1 INTERVAL ISSUE? 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 09, 1989
  • DESCRIPTION:  This allows the user to specify (by entering Yes/No) whether the request for items in the Warehouse is an Interval Issue.
    i.e., Items requested between scheduled posted stock delivery, rather than a regularly scheduled Issue Book order.
3.2 MONTH OF 1358 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X I $D(X) D MO1^PRCSUT2 I $D(PRCSQT),$D(PRCSMO) K:PRCSQT'=PRCSMO X K PRCSQT,PRCSMO
  • OUTPUT TRANSFORM:  I +Y S Y=$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",Y)
  • LAST EDITED:  JUL 27, 1989
  • HELP-PROMPT:  Enter the number of the month for a 1358 Obligation request or the month of the 1358 increase/decrease adjustment.
  • DESCRIPTION:  
    This is the month for which the 1358 is entered.
  • EXECUTABLE HELP:  D MO^PRCSUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 INVENTORY DISTRIBUTION POINT 0;6 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)'=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 11, 1989
  • HELP-PROMPT:  Select the appropriate inventory distribution point for this request if applicable.
  • DESCRIPTION:  This is an entity that wants to maintain a perpetual inventory, automate their item distribution function, and automatically generate stock replenishment orders based on inventory needs. There are three types:
    Warehouses; Primary Distribution Point; and Secondary Distribution Point.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""S"""
  • EXPLANATION:  Only Primary Inventory Points, or the Warehouse can make requests to Supply.
  • CROSS-REFERENCE:  410^AO
    1)= S ^PRCS(410,"AO",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AO",$E(X,1,30),DA)
    This cross reference is set on the inventory distribution point.
5 DATE OF REQUEST 1;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 22, 1994
  • HELP-PROMPT:  Enter the date this request was submitted by the requestor
  • DESCRIPTION:  
    This is the date this request was submitted by the requestor.
6 SERVICE START DATE 1;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 16, 2010
  • HELP-PROMPT:  Enter the starting date of the service(s).
  • DESCRIPTION:  
    This is the starting date of the service(s) for this obligation.
6.3 REQUESTING SERVICE 3;5 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  APR 04, 2013
  • HELP-PROMPT:  Select the name of the service that submitted this request.
  • DESCRIPTION:  
    This is the name of the service that submitted this request.
6.5 SERVICE END DATE 1;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" S:$D(PRCSDT) %DT(0)=PRCSDT D ^%DT K %DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 14, 2011
  • HELP-PROMPT:  Enter the ending date of the service(s). (Must be at least or after the start date)
  • DESCRIPTION:  
    This is the ending date of the service(s) for this obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 DATE REQUIRED 1;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 27, 1986
  • HELP-PROMPT:  Enter the date by which you need the items you are requesting
  • DESCRIPTION:  
    This is the date by which the item(s) requested are needed.
7.5 PRIORITY OF REQUEST 1;3 SET
  • 'EM' FOR EMERGENCY;
  • 'SP' FOR SPECIAL;
  • 'ST' FOR STANDARD;

  • LAST EDITED:  APR 13, 1986
  • HELP-PROMPT:  Select the appropriate priority (urgency) for this request. (Optional)
  • DESCRIPTION:  
    This is the urgency or priority for this request.
8 CLASSIFICATION OF REQUEST 1;5 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2) CLASSIFICATION OF REQUEST(#410.2)

  • INPUT TRANSFORM:  S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""CP"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 27, 1989
  • HELP-PROMPT:  Select the appropriate classification of request (Optional)
  • DESCRIPTION:  
    This Classification of Request field allows you to classify and/or categorize all transactions (requests) for supplies, services, etc. This is the previous 'Type of Request" field.
  • SCREEN:  S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""CP"")"
  • EXPLANATION:  User can only use classification of requests associated with their Control Point.
9 SPECIAL REMARKS RM;0 WORD-PROCESSING #410.01

  • DESCRIPTION:  
    These are special remarks regarding this request.
  • LAST EDITED:  MAR 16, 1986
  • HELP-PROMPT:  Enter any special remarks concerning this request you wish to convey to Supply Service. These remarks will be printed on the request form. (Optional)
  • DESCRIPTION:  
    These are special remarks regarding this request.
10 ITEM IT;0 Multiple #410.02 410.02

  • LAST EDITED:  SEP 17, 1991
  • DESCRIPTION:  
    This is the item(s) being ordered on this request.
  • IDENTIFIED BY:  
    "Z0": W:$D(^(0)) ?8,$P(^(0),U,5)
    "Z1": W:$D(^(1,1,0)) ?18,$E(^(0),1,60)
    "Z2": D:$P($G(@(DIC_+Y_",4)")),U,3)]"" EN^DDIOL("eCMS Item Line ID "_$P(^(4),U,3),,"!?10")
  • INDEXED BY:  LINE ITEM NUMBER & QUANTITY & UNIT OF PURCHASE & BOC & ITEM MASTER FILE NO. & STOCK NUMBER & EST. ITEM (UNIT) COST & DM DOC ID & DATE NEEDED BY (AH)
11 VENDOR 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D VENDOR^PRCSES
  • LAST EDITED:  APR 19, 1986
  • HELP-PROMPT:  Enter the name of the vendor for the items ordered on this request (1 to 30 characters)
  • DESCRIPTION:  
    This is the name of the vendor for the items ordered on the request.
  • EXECUTABLE HELP:  S:$D(D) ZD=D,X="?",DIC="^PRC(440,",DIC(0)="EMZ" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD W !,"For 1358 requests, additional information concerning vendors may be entered",!,"in the Purpose field."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^E
    1)= S ^PRCS(410,"E",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"E",$E(X,1,30),DA)
    This cross reference is set on the vendor for the transaction.
11.1 VENDOR ADDRESS1 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1)!'(X?.ANP) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  Enter first line of vendor address. Answer must be from 1 to 33 characters.
  • DESCRIPTION:  
    This is the first line of the vendor address.
11.2 VENDOR ADDRESS2 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1)!'(X?.ANP) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  Enter the second line of the vendor address (if applicable). Answer must be from 1 to 33 characters.
  • DESCRIPTION:  
    This is the second line of the vendor address (if applicable).
11.3 VENDOR ADDRESS3 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1)!'(X?.ANP) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  Enter the third line of the vendor address (if applicable). Answer must be from 1 to 25 characters.
  • DESCRIPTION:  
    This is the third line of the vendor address (if applicable).
11.4 VENDOR ADDRESS4 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1)!'(X?.ANP) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  Enter the fourth line of the vendor address (if applicable). Answer must be from 1 to 25 characters.
  • DESCRIPTION:  
    This is the fourth line of the vendor address (if applicable).
11.5 VENDOR CITY 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3)!'(X?.ANP) X
  • LAST EDITED:  APR 28, 1985
  • HELP-PROMPT:  Enter the city for this vendor. Answer must be from 3 to 20 characters.
  • DESCRIPTION:  
    This is the city in the vendor address.
11.6 VENDOR STATE 2;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 28, 1985
  • HELP-PROMPT:  Select the state for this vendor.
  • DESCRIPTION:  
    This is the state in the vendor address.
11.7 VENDOR ZIP CODE 2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.ANP)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  APR 28, 1985
  • HELP-PROMPT:  Enter a 5 digit or 9 digit zip code (e.g., 12345 or 12345-6789)
  • DESCRIPTION:  
    This is a 5 or 9 digit zip code in the vendor address.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11.8 VENDOR CONTACT 2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X?.ANP) X
  • LAST EDITED:  APR 28, 1985
  • HELP-PROMPT:  Enter the name of the person to contact concerning product information for this vendor. Answer must be from 3 to 30 characters.
  • DESCRIPTION:  
    This is the name of the contact person for information from this vendor.
11.9 VENDOR PHONE NO. 2;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3)!'(X?.ANP) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  Enter the phone number for the contact person for this vendor. Answer must be from 3 to 18 characters.
  • DESCRIPTION:  
    This is the phone number of the contact person for this vendor.
12 VENDOR(POINTER) 3;4 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • LAST EDITED:  APR 19, 1986
  • DESCRIPTION:  
    This is the name of the vendor for the items on this request.
13 VENDOR CONTRACT NUMBER 3;10 FREE TEXT

  • INPUT TRANSFORM:  S Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) K:'Z0 X Q:'Z0 Q:'$D(^PRC(440,Z0,4,0)) S DIC="^PRC(440,Z0,4,",DIC(0)="QEMNZ" D ^DIC K DIC K:Y'>0 X Q:'$D(X) S X=$P(Y(0),U,1)
  • LAST EDITED:  AUG 26, 1987
  • HELP-PROMPT:  Select the appropriate contract number applicable to this request.
  • DESCRIPTION:  
    This is the vendor contract number.
  • EXECUTABLE HELP:  S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) Q:'Z0 Q:'$D(^PRC(440,Z0,4,0)) S DIC="^PRC(440,Z0,4,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
15 CONTROL POINT 3;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z0=$P(^PRCS(410,DA,0),U,5) K:'Z0 X Q:'Z0 Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(0)="QEMNZ" D ^DIC K DIC K:Y'>0 X Q:'$D(X) S X=$P(Y(0),U,1)
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Select the appropriate control point for this transaction
  • DESCRIPTION:  
    This is the division of monies to a specified service, activity, or purpose from an appropriation.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$P(^PRCS(410,DA,0),U,5) Q:'Z0 Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AN
    1)= S ^PRCS(410,"AN",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AN",$E(X,1,30),DA)
    This cross reference is set on the control point name and number.
15.5 COST CENTER 3;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D CC^PRCSES
  • LAST EDITED:  JUL 15, 1985
  • HELP-PROMPT:  Select the appropriate cost center for this request
  • DESCRIPTION:  
    This is a subdivision of a Fund Control Point that tells which service/section is being charged for a request/order.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$P(^PRCS(410,DA,0),U,5),Z1=+$P(^PRCS(410,DA,3),U,1) Q:'$D(^PRC(420,Z0,1,0))!'$D(^PRC(420,Z0,1,Z1,2,0)) S DIC="^PRC(420,Z0,1,Z1,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AC
    1)= S ^PRCS(410,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AC",$E(X,1,30),DA)
    This cross reference is set on the cross center number and name.
16 SUB-CONTROL POINT 12;0 POINTER Multiple #410.04 410.04

  • DESCRIPTION:  
    This is a subdivision of the Control Point for the division of funds by section, unit of service, clinic or major 'product line'.
17 BOC1 3;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),+$P(^PRCS(410,DA,3),"^",8)=+X K X W !,"You have already entered this BOC in the BOC2 field."
  • LAST EDITED:  MAY 06, 1994
  • HELP-PROMPT:  Select the appropriate budget object code for this request.
  • DESCRIPTION:  
    This is a budget object code (BOC) for the transaction.
  • EXECUTABLE HELP:  D ^PRCSES S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,Z0,1,0))) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AD
    1)= S ^PRCS(410,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AD",$E(X,1,30),DA)
    This cross reference is set on the BOC name and number for the first BOC used on the transaction.
17.5 BOC1 $ AMOUNT 3;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAR 23, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount applied to the budget object code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
18 BOC2 3;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),+$P(^PRCS(410,DA,3),"^",6)=+X K X W !,"You have already entered this BOC in the BOC1 field."
  • LAST EDITED:  MAY 06, 1994
  • HELP-PROMPT:  Select the appropriate second budget object code for this request if applicable. (Optional)
  • DESCRIPTION:  
    This is the second budget object code for the transaction (if applicable).
  • EXECUTABLE HELP:  D ^PRCSES S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,Z0,1,0))) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AP
    1)= S ^PRCS(410,"AP",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AP",$E(X,1,30),DA)
    This cross reference is set on the BOC name and number for the second BOC (if any) used on the transaction.
18.5 BOC2 $ AMOUNT 3;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAR 23, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount applied to this budget object code (if applicable).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
19 AUTHORITY 11;4 POINTER TO AUTHORITY OF REQUEST FILE (#410.9) AUTHORITY OF REQUEST(#410.9)

  • INPUT TRANSFORM:  S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),Y<100" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  AUG 30, 2010
  • HELP-PROMPT:  Select the Authority for this 1358 Obligation.
  • DESCRIPTION:  
    This is the officially approved authority for use of a 1358 document. You can only select active authorities.
  • SCREEN:  S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),Y<100"
  • EXPLANATION:  Only Active Primary Authorities.
19.1 SUB AUTHORITY 11;5 POINTER TO AUTHORITY OF REQUEST FILE (#410.9) AUTHORITY OF REQUEST(#410.9)

  • INPUT TRANSFORM:  S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),$D(^PRCS(410.9,""AC"",+$P($G(^PRCS(410,D0,11)),U,4),Y))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  AUG 27, 2010
  • HELP-PROMPT:  Select the Sub-Authority for this 1358 Obligation.
  • DESCRIPTION:  
    This is the officially approved sub-authority for use of a 1358 document. You can only select active sub-authorities for the authority you selected.
  • SCREEN:  S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),$D(^PRCS(410.9,""AC"",+$P($G(^PRCS(410,D0,11)),U,4),Y))"
  • EXPLANATION:  You can only select active sub-authorities that relate to the main one.
20 COMMITTED (ESTIMATED) COST 4;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAY 16, 2013
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the estimated amount of the committed cost of the requested item(s).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AH^MUMPS
    1)= Q:$P(^PRCS(410,DA,4),U,3)'="" S $P(^(4),"^",8)=X D TRANS^PRCSES
    2)= Q:$P(^PRCS(410,DA,4),U,3)'="" S $P(^(4),"^",8)="" D TRANK^PRCSES
    This cross reference is used to set the committed (estimated) cost.
21 DATE COMMITTED 4;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 28, 1996
  • HELP-PROMPT:  Enter the date money was committed for this request
  • DESCRIPTION:  
    This is the date money was committed for this request.
22 OBLIGATED (ACTUAL) COST 4;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAY 19, 1993
  • HELP-PROMPT:  Enter the dollar amount (from -9999999.99 to 9999999.99) from the purchase order for this transaction.
  • DESCRIPTION:  
    This is the obligated (actual) cost amount from the purchase order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AI^MUMPS
    1)= S $P(^PRCS(410,DA,4),"^",8)=X D TRANS1^PRCSES
    2)= S $P(^PRCS(410,DA,4),"^",8)="" D TRANK1^PRCSES
    This cross reference is used to set the obligated (actual) cost.
23 DATE OBLIGATED 4;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date money was obligated for this transaction
  • DESCRIPTION:  
    This is the date that the funds were obligated for this transaction.
24 PURCHASE ORDER/OBLIGATION NO 4;5 FREE TEXT

  • INPUT TRANSFORM:  K:X'?6UN X I $D(X),$D(DA),$D(^PRCS(410,DA,0)),$P(^(0),"^",2)="A",$O(^PRCS(410,"D",X,0))'>0 W !,*7,"Reference number does not exist. Are you sure " S %=2 D YN^DICN K:%'=1 X K %
  • LAST EDITED:  MAR 25, 1987
  • HELP-PROMPT:  Enter the 6 character purchase order/obligation/reference number for this transaction
  • DESCRIPTION:  
    This is the purchase order/obligation/reference number for this transaction.
  • EXECUTABLE HELP:  S DIC="^PRCS(410,",DIC(0)="EQZ",D="D",DIC("S")="I $P(^(0),U,4)'=1" S:$D(PRCSFT) DIC("S")="I $P(^(0),U,4)=1" S DIC("S")=DIC("S")_",PRC(""SITE"")=+^(0),+PRC(""CP"")=$P($P(^(0),U),""-"",4)" D IX^DIC K DIC("S")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^D
    1)= S ^PRCS(410,"D",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"D",$E(X,1,30),DA)
    This cross reference is set on the purchase order/obligation number.
25 ADJUSTMENT $ AMOUNT 4;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) S:X["CR" X=-X K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAY 16, 2013
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the adjustment dollar amount for this obligation transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AJ^MUMPS
    1)= S $P(^PRCS(410,DA,4),"^",3)=X,$P(^(4),"^",8)=X D TRANS^PRCSES I $P(^PRCS(410,DA,4),"^",14)="Y" S X=$P(^(4),"^",8),$P(^(4),"^",3)="" D TRANK1^PRCSEZ
    2)= N PRCAAMT S PRCAAMT=X,$P(^PRCS(410,DA,4),"^",3)="",$P(^(4),"^",8)="" D TRANK^PRCSES I $P(^PRCS(410,DA,4),"^",14)="Y" S X=PRCAAMT D TRANS1^PRCSES
    This cross reference is used to set the adjustment dollar amount.
25.5 ADJUST CP BALANCE ONLY 4;14 SET
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  FEB 19, 1997
  • DESCRIPTION:  
    This is used for adjust transactions only.
26 DATE OBL ADJUSTED 4;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this obligation transaction was adjusted
  • DESCRIPTION:  
    This is the date this obligation transaction was adjusted.
27 TRANSACTION $ AMOUNT 4;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAY 15, 2013
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the transaction dollar amount.
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AF^MUMPS
    1)= D TRANS^PRCSES
    2)= D TRANK^PRCSES
    This cross reference is used to set the dollar amount for the transaction.
28 ACCOUNTING DATA 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<7)!'(X?.ANP) X
  • LAST EDITED:  MAY 01, 1985
  • HELP-PROMPT:  Enter the appropriation symbols for this transaction (e.g., 3650160.001.01)
  • DESCRIPTION:  
    These are the appropriate accounting symbols for this transaction originating from Fiscal Service.
28.1 FCP/PRJ 3;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    This is the fund control point/project number.
28.5 BBFY 3;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y,X=X-(X#10000) K:3990000X) X
  • LAST EDITED:  MAR 29, 1994
  • HELP-PROMPT:  Enter a year between 1900 and 2099.
  • DESCRIPTION:  
    This is the beginning budget fiscal year.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
29 OBLIGATED BY 4;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Select the individual in Fiscal Service who obligated this request.
  • DESCRIPTION:  
    This is the person who obligated the transaction.
29.5 OBLIGATION VALIDATION CODE 4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y(0)=Y S Y="/ES/"_$$DECODE^PRCSC2(D0)
  • LAST EDITED:  MAR 17, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  This is the code created for the record at the time that the obligating official entered their electronic signature, which replaces the written signature required on the IFCAP document. The Obligation Validation Code is
    encrypted to prevent unauthorized use.
    DELETE AUTHORITY: ^
29.6 OBLIGATION VALIDATION VERSION 4;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the version number of the algorithms used for encoding and decoding the Obligation Validation Code for the record.
29.7 OBLIGATION SIGNATURE BLOCK 4;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  NOV 16, 1992
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the printed form of the name of the official who authorized the obligation transaction. It is printed on documents along with a notation which indicates that the obligation was approved by electronic signature.
29.8 OBLIGATION VAL CODE DATE/TIME 4;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 13, 1993
  • DESCRIPTION:  
    This is the date and time that a valid electronic signature was entered authorizing the obligation transaction.
30 FMS $ AMOUNT 5;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) S:$D(DA) TT=$P(^PRCS(410,DA,0),"^",2),X=$S(TT="C"&(X["CR"):-X,TT="A"&(X["CR"):-X,1:X) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Enter the dollar amount (from -9999999.99 to 9999999.99) for this transaction
  • DESCRIPTION:  
    This is the FMS dollar amount for the adjustment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
31 FMS DATE 5;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Enter the date from the CALM (820) report for this transaction
  • DESCRIPTION:  
    This is the obligation date for this transaction.
32 FMS TRANSACTION TYPE 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)'=6!'((X?3N1"."2N)!(X?3N1"-"2N)) X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Enter the two digit FMS transaction code for this transaction.
  • DESCRIPTION:  
    This is the code identifying the transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
32.1 CALM TRANS COMPUTED CODE COMPUTED

  • MUMPS CODE:  X ^DD(410,32.1,9.3) S X=$E(Y(410,32.1,5),Y(410,32.1,6),X) S Y=X,X=Y(410,32.1,4),X=X_Y
    9.2 = S Y(410,32.1,1)=$S($D(^PRCS(410,D0,5)):^(5),1:"") S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,2)=X S X=1,Y(410,32.1,3)=X S X=3,X=$E(Y(410,32.1,2),Y(410,32.1,3),X)
    9.3 = X ^DD(410,32.1,9.2) S Y(410,32.1,4)=X S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,5)=X S X=5,Y(410,32.1,6)=X S X=6
  • ALGORITHM:  $E(#32,1,3)_$E(#32,5,6)
  • LAST EDITED:  MAY 26, 1988
  • DESCRIPTION:  
    This is the computed code for the request. CALM (Centralized Accounting for Local Management) reports are processed in Austin from input received from the VA Medical Centers.
33 END DATE FOR 1358 5;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 1994
  • HELP-PROMPT:  Enter the ending date for this 1358 Obligation.
  • DESCRIPTION:  This field is the ending date for the 1358 Obligation, used when the length of the service contract extends over a period greater than one month. It is used by Fiscal service at the time of obligation. When used in
    conjunction with the Auto Accrue flag, the ending date will be used to determine the monthly accrual.
34 AUTO ACCRUE 5;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 14, 2011
  • HELP-PROMPT:  Enter YES for Auto Accrual; enter NO for no Auto Accrual.
  • DESCRIPTION:  
    This field is used by Fiscal service to indicate whether a 1358 Obligation should be accrued in FMS.
35 CEILING $ AMOUNT 6;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) S:X["CR" X=-+X K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  FEB 17, 1989
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
  • DESCRIPTION:  
    This is the dollar ceiling amount for this request.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AK^MUMPS
    1)= S $P(^PRCS(410,DA,4),"^",3)=X,$P(^(4),"^",8)=X D TRANS1^PRCSES
    2)= S $P(^PRCS(410,DA,4),"^",3)="",$P(^(4),"^",8)="" D TRANK1^PRCSES
    This cross reference is used to set the ceiling dollar amount for a ceiling type transaction.
36 DATE ALLOCATED 6;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This is the date that the funds are allocated for this request.
37 FUND CONTROL POINT DIST. NO 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  MAR 16, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
  • DESCRIPTION:  This is the Fund Control Point Distribution Number. This number is the Transaction Number from the Fund Distribution file, #421. The Transaction Number is composed of SITE, FY (Fiscal Year), and Sequential Number. The
    number used here is the Sequential Number, a four (4) digit number, beginning at 0001.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
38 TEMP CP REF# 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field is used for lookups of temporary transactions by the control point clerk.
  • CROSS-REFERENCE:  410^K
    1)= S ^PRCS(410,"K",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"K",$E(X,1,30),DA)
    This cross reference is used for lookups of temporary transactions by the control point clerk.
39 ACCOUNTABLE OFFICER 7;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 02, 1994
  • DESCRIPTION:  
    This field holds the pointer to the accountable officer name in the New Person file. This field is displayed on 2237 transactions.
40 REQUESTOR 7;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  I $D(^PRC(411,PRC("SITE"),8,X)) K X Q
  • LAST EDITED:  JAN 12, 1994
  • HELP-PROMPT:  Select the name of the individual to be printed on the 2237 request as the initiator of this request.
  • DESCRIPTION:  
    This is the name of the individual printed on the 2237 form as the initiator of the request.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^AL^MUMPS
    1)= I $D(^VA(200,X,20)),$P(^(20),"^",3)'="" S $P(^PRCS(410,DA,7),"^",2)=$P(^VA(200,X,20),"^",3)
    2)= S $P(^PRCS(410,DA,7),"^",2)=""
    This cross reference is used to set the requestor name from file 200 into the file 410 transaction record.
41 REQUESTOR'S TITLE 7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3)!(X'?.ANP) X
  • LAST EDITED:  MAR 16, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the title of the requestor of this transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42 APPROVING OFFICIAL 7;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Select the name of the approving official who will be signing this request
  • DESCRIPTION:  
    This is the name of the approving official who will be signing the request.
  • CROSS-REFERENCE:  410^AM^MUMPS
    1)= I $D(^VA(200,X,20)),$P(^(20),"^",3)'="" S $P(^PRCS(410,DA,7),"^",4)=$P(^VA(200,X,20),"^",3)
    2)= S $P(^PRCS(410,DA,7),"^",4)=""
    This cross reference is used to set the approving official's name form file 200 into the file 410 transaction record.
43 APPR. OFFICIAL'S TITLE 7;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>27!($L(X)<3)!(X'?.ANP) X
  • LAST EDITED:  MAR 16, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-27 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the title of the approving official for this request.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44 DATE SIGNED (APPROVED) 7;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this request was signed (approved)
  • DESCRIPTION:  
    This is the date the request was signed (approved).
44.5 VALIDATION CODE 7;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=""
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the electronic signature code of the approving official for this request. It replaces the written signature required on the IFCAP document. The electronic signature code is encrypted to prevent unauthorized use.
    DELETE AUTHORITY: ^
    UNEDITABLE
44.55 VALIDATION VERSION 7.1;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the version number of the algorithms used to encode and decode the Validation Code created at the time that the official approving the transaction entered their electronic signature.
44.57 ESIG CODE 7.1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    This is the encoded value used by IFCAP security utilities when confirming the integrity of the record.
44.6 ES CODE DATE/TIME 7;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 16, 1993
  • DESCRIPTION:  
    This is the date and time of the ESIG code.
    WRITE AUTHORITY: ^
44.7 GPF APPROVING FISCAL OFFICER 7;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Used for General Post Fund requests only. Entered when the request is approved by a Fiscal officer and released to Supply.
  • DESCRIPTION:  
    This is the field used to identify the responsible Fiscal Officer when the request is approved and released to Supply (General Post Funds - GPF requests only).
44.8 GPF VALIDATION CODE 7;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y=""
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length. Used for General Post Fund requests only. Entered when the request is approved by a Fiscal Officer and released to Supply.
  • DESCRIPTION:  This is the electronic signature code of the approving Fiscal Officer (General Post Funds - GPF requests only). It replaces the written signature required on the IFCAP document. The electronic signature code is encrypted
    to prevent unauthorized use.
    DELETE AUTHORITY: ^
44.85 GPF VALIDATION VERSION 7.1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the version number of the algorithms used for encoding and decoding the GPF Validation Code.
44.87 GPF ESIG CODE 7.1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    This is the encoded value used by IFCAP security utilities when confirming the integrity of the General Post Fund request.
44.9 GPF ES CODE DATE/TIME 7;10 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 16, 1993
  • HELP-PROMPT:  Used for General Post Fund requests only. Entered when the request is approved by a Fiscal Officer and released to Supply.
  • DESCRIPTION:  
    This is the date and time associated with the Fiscal Officer's approval of the request (General Post Funds - GPF requests only).
45 JUSTIFICATION 8;0 WORD-PROCESSING #410.06

  • DESCRIPTION:  
    This is the justification for the request entered by the Control Point Requestor.
    PURPOSE
  • LAST EDITED:  MAR 16, 1985
  • HELP-PROMPT:  Enter an appropriate justification for this request. If this is a sole source request, enter the words "SOLE SOURCE REQUEST" as the beginning of this justification
  • DESCRIPTION:  
    This is the justification for the request entered by the Control Point Requestor.
46 DELIVER TO/LOCATION 9;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!(X'?.ANP) X
  • LAST EDITED:  MAR 16, 1985
  • HELP-PROMPT:  Enter the name of the individual and/or the room number this request should be delivered to (3 to 30 characters)
  • DESCRIPTION:  
    This is the name of the individual and/or room number to which this request is to be delivered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
47 EST. DELIVERY DATE 9;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the estimated delivery date for this request
  • DESCRIPTION:  
    This is the estimated delivery date for this request.
48 DATE RECEIVED 9;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this request was received in full
  • DESCRIPTION:  
    This is the date on which the request was received in full.
48.1 EST. SHIPPING AND/OR HANDLING 9;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<1) X
  • LAST EDITED:  SEP 22, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated shipping and/or handling cost for the request.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
49 SORT GROUP 11;1 VARIABLE POINTER SORT GROUP(#410.7)  WORK ORDER #(#6920)  

  • EXPLANATION:  User can only use sort groups associated with their Control Point.
  • LAST EDITED:  MAR 13, 1997
  • DESCRIPTION:  
    This Sort Group field may be used to group together all transactions (requests) that relate to a specific project, work order, investigator, food group, doctor, etc. This is the previous 'Project Number' field.
  • CROSS-REFERENCE:  410^J
    1)= S ^PRCS(410,"J",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"J",$E(X,1,30),DA)
    This cross reference is used to hold Sort Group numbers.
  • CROSS-REFERENCE:  410^AR^MUMPS
    1)= I '$D(DIU(0)),$E($P(X,";",2),1,9)="ENG(6920," D ACCX^ENLIB2
    2)= Q
    This cross-reference is used to check the sort group for Engineering users (work order for Engineering).
50 LINE ITEM COUNT 10;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 01, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the number of line items on the request.
51 PARENT TRANSACTION NUMBER 10;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<5)!'(X?.ANP) X
  • LAST EDITED:  MAY 08, 1985
  • HELP-PROMPT:  ANSWER MUST BE 5-18 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the original transaction, providing the request has been divided.
  • CROSS-REFERENCE:  410^AG
    1)= S ^PRCS(410,"AG",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AG",$E(X,1,30),DA)
    This cross reference holds the parent transaction number of a split transaction.
52 STATION NO - P.O. NO 10;3 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  JUL 15, 1985
  • DESCRIPTION:  
    This is the station number and the purchase order number on this request.
53 ORIGINATOR OF TEMP # REQ. 11;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    This is the name of the person originating the temporary request. The number assigned to the request remains temporary until such time as the Control Point Clerk chooses to make it permanent.
54 STATUS COMPUTED

  • MUMPS CODE:  D STATUS^PRCSES
    9.2 = S Y(410,54,80)=$S($D(D0):D0,1:""),Y(410,54,1)=$S($D(^PRCS(410,D0,10)):^(10),1:""),D0=$P(Y(410,54,1),U,3) S:'$D(^PRC(442,+D0,0)) D0=-1 S Y(410,54,101)=$S($D(^PRC(442,D0,7)):^(7),1:"")
  • ALGORITHM:  D STATUS^PRCSES
  • LAST EDITED:  DEC 08, 1986
  • DESCRIPTION:  
    This is the status of this request. It is associated with the Purchase Order Status file, #442.3.
55 READY FOR APPROVAL/SIGNATURE? 11;3 SET
  • '1' FOR YES;

  • LAST EDITED:  NOV 16, 1989
  • HELP-PROMPT:  Enter a '1' for 'YES' if this request is ready for approval by the Control Point Official.
  • DESCRIPTION:  
    YES indicates that this request is ready for approval by the Control Point Official.
  • CROSS-REFERENCE:  410^F^MUMPS
    1)= S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)="O"&($P(%,U,4)'=.5):1,$P(%,U,2)="A"&($P(%,U,4)=1):1,1:"") S ^PRCS(410,"F",+%_"-"_+$P($P(%,U),"-",4)_"-"_$P($P(%,U),"-",5),DA)=""
    2)= S %=^PRCS(410,DA,0) K ^PRCS(410,"F",+%_"-"_+$P($P(%,U),"-",4)_"-"_$P($P(%,U),"-",5),DA)
    This cross reference is set on the station name, the control point, and the last four digits of the transaction number. It is set only for requests which are ready for the control point official's approval.
  • CROSS-REFERENCE:  410^F1^MUMPS
    1)= S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)="O"&($P(%,U,4)'=.5):1,$P(%,U,2)="A"&($P(%,U,4)=1):1,1:"") S ^PRCS(410,"F1",$P($P(%,U),"-",5)_"-"_+%_"-"_+$P($P(%,U),"-",4),DA)=""
    2)= S %=^PRCS(410,DA,0) K ^PRCS(410,"F1",$P($P(%,U),"-",5)_"-"_+%_"-"_+$P($P(%,U),"-",4),DA)
    This cross ref is set on the last 4 digits of the transaction number, station #, and the control point. It is set only for requests which are ready for the control point official's approval.
  • CROSS-REFERENCE:  410^AQ
    1)= S ^PRCS(410,"AQ",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AQ",$E(X,1,30),DA)
    This cross reference is set on the transaction number. It is set only for requests which are ready for the control point official's approval.
56 REQUEST STATUS 10;4 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) PURCHASE ORDER STATUS(#442.3)

  • LAST EDITED:  OCT 05, 1987
  • DESCRIPTION:  
    This is the status of this request. It is associated with the Purchase Order Status file, #442.3.
57 LOG VOUCHER NUMBER (SUPPLY) 100;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1UN4N) X I $D(X),"0123456789JK"'[$E(X,1,1) K X
  • LAST EDITED:  JUL 16, 1991
  • HELP-PROMPT:  Voucher No. must have fiscal month (0=Oct. J=Nov. K=Dec 1=Jan...9=Sep) followed by 4-digit sequential number.
  • DESCRIPTION:  This is the LOG Voucher Number. It must have fiscal month (0=Oct. J=Nov. K= Dec, 1=Jan....9=Sep.), followed by a 4-digit sequential number. This originates from the Integrated Procurement, Storage and Distribution
    System (LOG1) manual, MP-6, Part XIV. It is used when transmitting L0G transactions to the Austin Automation Center (AAC).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^I^MUMPS
    1)= S Z=$F("0JK123456789",$E(X,1)) S:Z Z="P"_$E("ABCDEFGHJKLM",(Z-1),(Z-1))_$E(X,2,5),$P(^PRCS(410,DA,100),"^",7)=Z K Z
    2)= Q
    This cross reference is used to set the LOG Voucher Number (Supply).
  • CROSS-REFERENCE:  410^L
    1)= S ^PRCS(410,"L",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"L",$E(X,1,30),DA)
    This cross reference is set on the LOG Voucher Number for the transaction.
58 LOG DIETETIC PERIOD 100;2 SET
************************REQUIRED FIELD************************
  • '1' FOR FIRST REPORT (1ST-15TH);
  • '2' FOR SECOND REPORT (16TH-31ST);
  • 'N' FOR NO REPORT;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 24, 1989
  • DESCRIPTION:  
    This is the set of codes for the first report (1st through 15th of month), second report (16th through 31st of month), and no report.
59 FISCAL PROCESSING MONTH 100;3 SET
************************REQUIRED FIELD************************
  • '1' FOR JANUARY;
  • '2' FOR FEBRUARY;
  • '3' FOR MARCH;
  • '4' FOR APRIL;
  • '5' FOR MAY;
  • '6' FOR JUNE;
  • '7' FOR JULY;
  • '8' FOR AUGUST;
  • '9' FOR SEPTEMBER;
  • '0' FOR OCTOBER;
  • 'J' FOR NOVEMBER;
  • 'K' FOR DECEMBER;

  • LAST EDITED:  APR 21, 1989
  • DESCRIPTION:  
    This is the month the request was processed in fiscal.
60 COMMENTS CO;0 WORD-PROCESSING #410.05

  • DESCRIPTION:  
    These are comments entered by Control Point personnel concerning the request.
  • LAST EDITED:  MAR 15, 1985
  • HELP-PROMPT:  Enter any appropriate comments related to this transaction in this field
  • DESCRIPTION:  
    These are comments entered by Control Point personnel concerning the request.
61 REASON FOR RETURN 13;0 WORD-PROCESSING #410.061

  • DESCRIPTION:  
    This is the reason the request was returned from fiscal.
  • LAST EDITED:  APR 06, 1988
  • DESCRIPTION:  
    This is the reason the request was returned from Fiscal.
62 LOG CODE SHEETS SENT BY 100;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 17, 1992
  • HELP-PROMPT:  Name of PPM clerk who created and signed the LOG Issue Request code sheets.
  • DESCRIPTION:  
    This is the person who sent the log code sheets.
  • SCREEN:  S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))"
  • EXPLANATION:  Only PPM Clerks or Manager can create LOG code sheets.
63 LOG CODE SHEETS VALID. CODE 100;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S:Y'="" Y=""
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Electronic Signature of PPM Clerk who created and signed the LOG Issue Request Code sheets. Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the validation code created for the record after the person sending the log code sheets has entered their electronic signature.
    DELETE AUTHORITY: ^
63.5 LOG CS VALIDATION VERSION 100;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the version number of the algorithms used to encode and decode the LOG Code Sheets Validation Code at the time that the sender enters a valid electronic signature.
63.7 LOG CS ESIG CODE 100;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    This is the encoded value used by IFCAP security utilities when confirming the integrity of the LOG code sheet.
64 DATE SIGNED 100;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 17, 1992
  • HELP-PROMPT:  Date/time LOG Issue Request Code sheets were signed by PPM Clerk (thus marking them for transmission).
  • DESCRIPTION:  
    This is the date when the code sheets were signed.
65 LOG VOUCHER NUMBER (FISCAL) 100;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?1"P"1U4N) X I $D(X),"ABCDEFGHJKLM"'[$E(X,2,2) K X
  • LAST EDITED:  MAY 09, 1989
  • HELP-PROMPT:  Enter Voucher No. in Fiscal Format. (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number.
  • DESCRIPTION:  
    Enter Voucher No. in Fiscal format. (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66 LOG DEPARTMENT 100;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 31, 1989
  • HELP-PROMPT:  Enter LOG department number for Issue Book requests only! Answer must be 3 characters in length.
  • DESCRIPTION:  This is the LOG department number for issue book requests. This number originates from the Integrated Procurement, Storage and Distribution System (LOG1) manual, MP-6, Part XIV. It is used when transmitting L0G
    transactions to the Austin Data Processing Center (DPC).
67 CONVERTED 1358 0;9 SET
  • '1' FOR yes;
  • '0' FOR no;

  • LAST EDITED:  MAR 05, 1992
  • DESCRIPTION:  
    This field will reflect if the entry is a 1358 and has been converted during installation of v4 of IFCAP.
68 ORIGINATOR OF REQUEST 14;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 11, 1994
  • DESCRIPTION:  
    This field is used to contain the New Person File pointer for the clerk who physically enters a request.
69 AO SIGNATURE DATE 7;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1994
  • DESCRIPTION:  
    This field is used to hold the date when a 2237 was signed by an accountable officer. It is used to display on the 2237.
103 ECMS ACTIONUID 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X?1.10N) X
  • LAST EDITED:  MAY 10, 2012
  • HELP-PROMPT:  Enter the 1-10 digit eCMS ActionUID value.
  • DESCRIPTION:  
    This field stores the eCMS internal, unique identifier for the Purchase Request created from this IFCAP 2237. This field is populated by the eCMS/IFCAP interface.
    UNEDITABLE
104 CANCELLED BY 1;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 11, 2013
  • HELP-PROMPT:  Enter the person cancelling this 2237.
  • DESCRIPTION:  
    This is the individual who cancelled this 2237.
  • CROSS-REFERENCE:  ^^TRIGGER^410^105
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^PRCS(410,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=410,DIG=105 D ^DIC
    R
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^PRCS(410,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=410,DIG=105 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= @
    FIELD)= #105
    This cross reference populates the CANCEL DATE/TIME field (#105) when the user cancels a 2237.
105 CANCEL DATE/TIME 1;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 11, 2013
  • HELP-PROMPT:  Enter the date and time of 2237 cancellation.
  • DESCRIPTION:  
    This is the date and time that the person cancelled the 2237 in IFCAP.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the CANCELLED BY field of the CONTROL POINT ACTIVITY File
445.01 REFERENCE VOUCHER NUMBER 445;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?1"I"5N) X
  • LAST EDITED:  MAR 07, 1994
  • HELP-PROMPT:  Enter the 6 character reference voucher number which will be used to identify the issue book on the code sheets. The first character should be the letter I.
  • DESCRIPTION:  This field is used for issue books. It stores the reference voucher number which is generated by the inventory package during posted. The reference voucher number is used on the issue book code sheets and the voucher
    summary report.
445.02 LAST FMSLINE USED 445;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 07, 1994
  • HELP-PROMPT:  Enter the last fms line number used on the IV document. From 0 to 999.
  • DESCRIPTION:  
    This field is used by the inventory package during issue book posting or adjustments to track the last FMS IV document line number used.
446 TOTAL DOLLARS POSTED 445;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 05, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the total dollar amount posted for the issue book.
447 COUPLER 445;4 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  DEC 19, 1994
  • HELP-PROMPT:  ENTER THE SELLER/BUYER'S TRANSACTION
  • DESCRIPTION:  
    This field is used to store the seller/buyer txn record id in file 410.
448 SUBSTATION 0;10 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) ADMIN. ACTIVITY SITE PARAMETER(#411)

  • INPUT TRANSFORM:  S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 31, 1995
  • HELP-PROMPT:  Enter the substation number, if applicable.
  • DESCRIPTION:  
    This field contains the substation number for the transaction. It is used only for merged stations which have a primary station with subsidiary stations.
  • SCREEN:  S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")"
  • EXPLANATION:  Insure that substation is linked with selected station.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
449 RUNNING BALANCE QUARTER DATE 0;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 23, 1996
  • DESCRIPTION:  This is the beginning date of a quarter. It is used to print the quarterly running balance report and to recalcualte the control point balances. This date will be edited when a entry is created, apporved, obligated and
    carried forward to the new quarter.
  • CROSS-REFERENCE:  410^RB^MUMPS
    1)= N A S A=$P(^PRCS(410,DA,0),U) S:A A=X_"-"_$P(A,"-",1)_"-"_$P(A,"-",4)_"-"_$P(A,"-",2)_"-"_$P(A,"-",5),^PRCS(410,"RB",A,DA)=""
    2)= N A S A=$P(^PRCS(410,DA,0),U) I A S A=X_"-"_$P(A,"-",1)_"-"_$P(A,"-",4)_"-"_$P(A,"-",2)_"-"_$P(A,"-",5) K ^PRCS(410,"RB",A,DA)
    This cross-reference is used to print the quarterly running balance report, recalculate the control balances, and run the carry forward option.
450 RUNNING BALANCE STATUS 0;12 SET
************************REQUIRED FIELD************************
  • 'E' FOR ENTERED;
  • 'A' FOR APPROVED;
  • 'O' FOR OBLIGATED;
  • 'C' FOR CANCELED;

  • LAST EDITED:  FEB 16, 1996
  • DESCRIPTION:  
    This code is used to indicate the entry is in entered, approved, or obligated status.
451 PURCHASE CARD RECORD 1;2 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5) PURCHASE CARD INFORMATION(#440.5)

  • OUTPUT TRANSFORM:  I Y S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E($P($G(^PRC(440.5,Y,0)),U),13,16) S:$G(PRCPRTTF)'=1 Y=$P($G(^PRC(440.5,Y,0)),U)
  • LAST EDITED:  DEC 11, 2013
  • HELP-PROMPT:  Select the purchase card.
  • DESCRIPTION:  
    This field is populated with the Purchase Card number when the 2237 associated with a purchase card order is created.
  • TECHNICAL DESCR:  The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card (credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman users are able to see the
    full associated card number.
455 ISSUE BOOK BATCH ID 445;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  MAR 21, 2005
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    This is the Batch ID of the Issue Book sent from the COTS inventory system to uniquely identify the Issue Book.
  • CROSS-REFERENCE:  410^AS
    1)= S ^PRCS(410,"AS",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,"AS",$E(X,1,30),DA)
    This cross reference is used for background, but not user interactive lookup of file #410 entries associated with a given Issue Book from a COTS inventory system.

ICR, Total: 6

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #198
  • Controlled Substances
  • Drug Accountability
    		•
    ICR #611
  • Prosthetics
    		•
    ICR #802
  • Prosthetics
  • M DATA EXTRACTOR
    		•
    ICR #1524
  • EQUIPMENT/TURN-IN REQUEST
    		•  TRANSACTION NUMBER (.01).
    Access: Both R/W w/Fileman

    TRANSACTION TYPE (1).
    Access: Both R/W w/Fileman

    TEMPORARY TRANSACTION NUMBER (2).
    Access: Both R/W w/Fileman

    FORM TYPE (3).
    Access: Both R/W w/Fileman

    ORIGINATOR OF TEMP # REQ. (53).
    Access: Write w/Fileman

    CLASSIFICATION OF REQUEST (8).
    Access: Both R/W w/Fileman

    SORT GROUP (49).
    Access: Both R/W w/Fileman

    DATE OF REQUEST (5).
    Access: Both R/W w/Fileman

    REQUESTING SERVICE (6.3).
    Access: Both R/W w/Fileman

    DATE REQUIRED (7).
    Access: Both R/W w/Fileman

    PRIORITY OF REQUEST (7.5).
    Access: Both R/W w/Fileman

    SPECIAL REMARKS (9).
    Access: Both R/W w/Fileman

    CONTROL POINT (15).
    Access: Both R/W w/Fileman

    BBFY (28.5).
    Access: Write w/Fileman

    REQUESTOR (40).
    Access: Both R/W w/Fileman

    COST CENTER (15.5).
    Access: Both R/W w/Fileman

    REQUEST STATUS (56).
    Access: Write w/Fileman

    ITEM (10).
    Access: Both R/W w/Fileman

    VENDOR (11).
    Access: Both R/W w/Fileman

    		 Moves data from Equipment Request (file 413) into the2237 (file 410) if creating a new 2237, otherwise allows user to edit alreadycreated 2237 (but only those 2237s created from the Equipment/Turn-In module).
    ICR #2409
  • Pharmacy Benefits Management
    		•  TRANSACTION NUMBER (.01).
    Access: Read w/Fileman
    ICR #6634
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
    		•  TRANSACTION NUMBER (.01).
    Access: Both R/W w/Fileman

    TRANSACTION TYPE (1).
    Access: Both R/W w/Fileman

    TEMPORARY TRANS. NUMBER (2).
    Access: Read w/Fileman

    FORM TYPE (3).
    Access: Both R/W w/Fileman

    STATION NUMBER (.5).
    Access: Direct Global Read & w/Fileman

    INVENTORY DISTRIBUTION POINT (4).
    Access: Both R/W w/Fileman

    INTERVAL ISSUE? (3.1).
    Access: Read w/Fileman

    MONTH OF 1358 (3.2).
    Access: Read w/Fileman

    CONVERTED 1358 (67).
    Access: Read w/Fileman

    SUBSTATION (448).
    Access: Read w/Fileman

    RUNNING BALANCE QUARTER DATE (449).
    Access: Read w/Fileman

    RUNNING BALANCE STATUS (450).
    Access: Read w/Fileman

    DATE OF REQUEST (5).
    Access: Both R/W w/Fileman

    PURCHASE CARD RECORD (451).
    Access: Both R/W w/Fileman

    PRIORITY OF REQUEST (7.5).
    Access: Both R/W w/Fileman

    DATE REQUIRED (7).
    Access: Both R/W w/Fileman

    CLASSIFICATION OF REQUEST (8).
    Access: Both R/W w/Fileman

    SERVICE START DATE (6).
    Access: Read w/Fileman

    SERVICE END DATE (6.5).
    Access: Read w/Fileman

    ECMS ACTIONUID (103).
    Access: Read w/Fileman

    CANCELLED BY (104).
    Access: Read w/Fileman

    CANCEL DATE/TIME (105).
    Access: Read w/Fileman

    VENDOR (11).
    Access: Both R/W w/Fileman

    VENDOR ADDRESS1 (11.1).
    Access: Both R/W w/Fileman

    VENDOR ADDRESS2 (11.2).
    Access: Both R/W w/Fileman

    VENDOR ADDRESS3 (11.3).
    Access: Both R/W w/Fileman

    VENDOR ADDRESS4 (11.4).
    Access: Both R/W w/Fileman

    VENDOR CITY (11.5).
    Access: Both R/W w/Fileman

    VENDOR STATE (11.6).
    Access: Both R/W w/Fileman

    VENDOR ZIP CODE (11.7).
    Access: Both R/W w/Fileman

    VENDOR CONTACT (11.8).
    Access: Both R/W w/Fileman

    VENDOR PHONE NO. (11.9).
    Access: Both R/W w/Fileman

    CONTROL POINT (15).
    Access: Both R/W w/Fileman

    ACCOUNTING DATA (28).
    Access: Read w/Fileman

    COST CENTER (15.5).
    Access: Both R/W w/Fileman

    VENDOR(POINTER) (12).
    Access: Both R/W w/Fileman

    REQUESTING SERVICE (6.3).
    Access: Both R/W w/Fileman

    BOC1 (17).
    Access: Read w/Fileman

    BOC1 $ AMOUNT (17.5).
    Access: Read w/Fileman

    BOC2 (18).
    Access: Read w/Fileman

    BOC2 $ AMOUNT (18.5).
    Access: Read w/Fileman

    VENDOR CONTRACT NUMBER (13).
    Access: Read w/Fileman

    BBFY (28.5).
    Access: Read w/Fileman

    FCP/PRJ (28.1).
    Access: Read w/Fileman

    COMMITTED (ESTIMATED) COST (20).
    Access: Read w/Fileman

    DATE COMMITTED (21).
    Access: Both R/W w/Fileman

    OBLIGATED (ACTUAL) COST (22).
    Access: Read w/Fileman

    DATE OBLIGATED (23).
    Access: Read w/Fileman

    PURCHASE ORDER/OBLIGATION NO (24).
    Access: Both R/W w/Fileman

    ADJUSTMENT $ AMOUNT (25).
    Access: Read w/Fileman

    DATE OBL ADJUSTED (26).
    Access: Read w/Fileman

    TRANSACTION $ AMOUNT (27).
    Access: Both R/W w/Fileman

    OBLIGATED BY (29).
    Access: Read w/Fileman

    OBLIGATION VALIDATION CODE (29.5).
    Access: Read w/Fileman

    OBLIGATION VALIDATION VERSION (29.6).
    Access: Read w/Fileman

    OBLIGATION SIGNATURE BLOCK (29.7).
    Access: Read w/Fileman

    OBLIGATION VAL CODE DATE/TIME (29.8).
    Access: Read w/Fileman

    ADJUST CP BALANCE ONLY (25.5).
    Access: Read w/Fileman

    FMS $ AMOUNT (30).
    Access: Read w/Fileman

    FMS DATE (31).
    Access: Read w/Fileman

    FMS TRANSACTION TYPE (32).
    Access: Read w/Fileman

    END DATE FOR 1358 (33).
    Access: Read w/Fileman

    AUTO ACCRUE (34).
    Access: Read w/Fileman

    CEILING $ AMOUNT (35).
    Access: Read w/Fileman

    DATE ALLOCATED (36).
    Access: Read w/Fileman

    FUND CONTROL POINT DIST. NO (37).
    Access: Read w/Fileman

    TEMP CP REF# (38).
    Access: Read w/Fileman

    REQUESTOR (40).
    Access: Both R/W w/Fileman

    REQUESTOR'S TITLE (41).
    Access: Both R/W w/Fileman

    APPROVING OFFICIAL (42).
    Access: Read w/Fileman

    APPR. OFFICIAL'S TITLE (43).
    Access: Read w/Fileman

    DATE SIGNED (APPROVED) (44).
    Access: Read w/Fileman

    VALIDATION CODE (44.5).
    Access: Read w/Fileman

    ES CODE DATE/TIME (44.6).
    Access: Read w/Fileman

    GPF APPROVING FISCAL OFFICER (44.7).
    Access: Read w/Fileman

    GPF VALIDATION CODE (44.8).
    Access: Direct Global Read & w/Fileman

    GPF ES CODE DATE/TIME (44.9).
    Access: Read w/Fileman

    ACCOUNTABLE OFFICER (39).
    Access: Read w/Fileman

    AO SIGNATURE DATE (69).
    Access: Read w/Fileman

    GPF VALIDATION VERSION (44.85).
    Access: Read w/Fileman

    GPF ESIG CODE (44.87).
    Access: Read w/Fileman

    VALIDATION VERSION (44.55).
    Access: Read w/Fileman

    ESIG CODE (44.57).
    Access: Read w/Fileman

    JUSTIFICATION (.01).
    Access: Read w/Fileman

    DELIVER TO/LOCATION (46).
    Access: Both R/W w/Fileman

    EST. DELIVERY DATE (47).
    Access: Both R/W w/Fileman

    DATE RECEIVED (48).
    Access: Read w/Fileman

    EST. SHIPPING AND/OR HANDLING (48.1).
    Access: Both R/W w/Fileman

    LINE ITEM COUNT (50).
    Access: Read w/Fileman

    PARENT TRANSACTION NUMBER (51).
    Access: Read w/Fileman

    STATION NO - P.O. NO (52).
    Access: Both R/W w/Fileman

    REQUEST STATUS (56).
    Access: Read w/Fileman

    SORT GROUP (49).
    Access: Both R/W w/Fileman

    ORIGINATOR OF TEMP # REQ. (53).
    Access: Read w/Fileman

    READY FOR APPROVAL/SIGNATURE? (55).
    Access: Read w/Fileman

    AUTHORITY (19).
    Access: Read w/Fileman

    SUB AUTHORITY (19.1).
    Access: Read w/Fileman

    SUB-CONTROL POINT (.01).
    Access: Both R/W w/Fileman

    $ AMOUNT (1).
    Access: Both R/W w/Fileman

    REASON FOR RETURN (.01).
    Access: Read w/Fileman

    ORIGINATOR OF REQUEST (68).
    Access: Both R/W w/Fileman

    LOG VOUCHER NUMBER (SUPPLY) (57).
    Access: Read w/Fileman

    LOG DIETETIC PERIOD (58).
    Access: Read w/Fileman

    FISCAL PROCESSING MONTH (59).
    Access: Read w/Fileman

    LOG CODE SHEETS SENT BY (62).
    Access: Read w/Fileman

    LOG CODE SHEETS VALID. CODE (63).
    Access: Read w/Fileman

    DATE SIGNED (64).
    Access: Read w/Fileman

    LOG VOUCHER NUMBER (FISCAL) (65).
    Access: Read w/Fileman

    LOG DEPARTMENT (66).
    Access: Read w/Fileman

    LOG CS VALIDATION VERSION (63.5).
    Access: Read w/Fileman

    LOG CS ESIG CODE (63.7).
    Access: Read w/Fileman

    REFERENCE VOUCHER NUMBER (445.01).
    Access: Read w/Fileman

    LAST FMSLINE USED (445.02).
    Access: Read w/Fileman

    TOTAL DOLLARS POSTED (446).
    Access: Read w/Fileman

    COUPLER (447).
    Access: Read w/Fileman

    ISSUE BOOK BATCH ID (455).
    Access: Read w/Fileman

    COMMENTS (.01).
    Access: Read w/Fileman

    LINE ITEM NUMBER (.01).
    Access: Both R/W w/Fileman

    QUANTITY (2).
    Access: Both R/W w/Fileman

    UNIT OF PURCHASE (3).
    Access: Both R/W w/Fileman

    BOC (4).
    Access: Both R/W w/Fileman

    ITEM MASTER FILE NO. (5).
    Access: Both R/W w/Fileman

    STOCK NUMBER (6).
    Access: Both R/W w/Fileman

    EST. ITEM (UNIT) COST (7).
    Access: Both R/W w/Fileman

    ITEM DELIVERY POINTS (8).
    Access: Both R/W w/Fileman

    RECEIVING CODE SHEET NO. (11).
    Access: Read w/Fileman

    PURCHASE ORDER/OBLIGATION NO (9).
    Access: Read w/Fileman

    INTERMEDIATE PRODUCT CODE (10).
    Access: Read w/Fileman

    QUANTITY POSTED (WHSE) (13).
    Access: Read w/Fileman

    QUANTITY RECEIVED (PRIMARY) (14).
    Access: Read w/Fileman

    STATUS (15).
    Access: Read w/Fileman

    DESCRIPTION (.01).
    Access: Both R/W w/Fileman

    DELIVERY SCHEDULE (.01).
    Access: Read w/Fileman

    DELIVERY REFERENCE NUMBER (1).
    Access: Read w/Fileman

    PO EST. SHIPPING (16).
    Access: Read w/Fileman

    DM DOC ID (17).
    Access: Read w/Fileman

    DATE NEEDED BY (18).
    Access: Read w/Fileman

    ECMS ITEMUID (100).
    Access: Read w/Fileman

    ACCT-BOC (445.01).
    Access: Direct Global Read & w/Fileman

    FMSLINE (445.02).
    Access: Direct Global Read & w/Fileman

    TOTAL QUANTITY POSTED (445.03).
    Access: Direct Global Read & w/Fileman

    TOTAL INVENTORY VALUE (445.04).
    Access: Direct Global Read & w/Fileman

    TOTAL SELLING VALUE (445.05).
    Access: Direct Global Read & w/Fileman

    SPECIAL REMARKS (.01).
    Access: Direct Global Read & w/Fileman

    		 File 410 'B' cross-reference Used to look up byTRANSACTION NUMBERFile 410 'IT','AG' cross-reference For looking up a2237's item linebased on the file #410 entry'sIEN and the Item Master File (IMF)Number on that item lineFile 410 "AO" cross reference Used to look up byINVENTORY DISTRIBUTION POINT for the transactionFile 410 'AQ' cross reference Used to look up byTRANSACTION NUMBER only for requests that are ready for the Control PointOfficial's approvalFile 410 "E" cross reference Used to look uptransactions by VENDOR NAME
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All