Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^PRCN(413

Package: Equipment Turn-In Request

Global: ^PRCN(413


Information

FileMan FileNo FileMan Filename Package
413 EQUIPMENT REQUEST Equipment Turn-In Request

Description

Directly Accessed By Routines, Total: 60

Package Total Routines
Equipment Turn-In Request 46 PRCN NX CONTROLLED ITEM    PRCN NX OUTSTAND REPORT    PRCN11PO    PRCN2237    PRCN2237E    PRCNCMR    PRCNCMRP    PRCNCNCL
PRCNCOST    PRCNEDIT    PRCNENG    PRCNEQA1    PRCNEQA2    PRCNEQAP    PRCNEQS    PRCNHLP
PRCNLID    PRCNMESG    PRCNOTHR    PRCNPPE    PRCNPPM    PRCNPPM2    PRCNPRNT    PRCNPROJ
PRCNPURG    PRCNREQE    PRCNREQN    PRCNREQQ    PRCNRNK    PRCNRSMT    PRCNSERP    PRCNSPL
PRCNSRPR    PRCNTICN    PRCNTIRQ    PRCNUTL    PRCNUTL1    PRCNVS2    PRCNX1    PRCNX2
PRCNX3    PRCNX4    PRCNX5    PRCNX6    PRCNX7    PRCNX8    
Kernel 1 ^DIC(19    

Accessed By FileMan Db Calls, Total: 20

Package Total Routines
Equipment Turn-In Request 20 PRCN2237    PRCNCMR    PRCNCNCL    PRCNDISP    PRCNENG    PRCNEQA1    PRCNEQS    PRCNOTHR
PRCNPEDT    PRCNPPM    PRCNPRNT    PRCNPURG    PRCNREQE    PRCNREQN    PRCNRNK    PRCNRPT
PRCNRSMT    PRCNSPL    PRCNSTAT    PRCNVS2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Equipment Turn-In Request 1 TURN-IN REQUEST(#413.1)[8]    

Pointer To FileMan Files, Total: 13

Package Total FileMan Files
IFCAP 5 ADMIN. ACTIVITY SITE PARAMETER(#411)[4]    VENDOR(#440)[55.5#413.015(2)]    CONTROL POINT ACTIVITY(#410)[50]    CLASSIFICATION OF REQUEST(#410.2)[14]    SORT GROUP(#410.7)[13]    
Engineering 3 CATEGORY STOCK NUMBER(#6917)[#413.015(13)]    ENG SPACE(#6928)[26.5]    CMR(#6914.1)[4.5]    
Equipment Turn-In Request 3 TURN-IN REQUEST(#413.1)[10]    CONCURRING OFFICIALS(#413.3)[#413.046(.01)]    NX STATUS(#413.5)[677]    
Kernel 2 SERVICE/SECTION(#49)[2]    NEW PERSON(#200)[159.13067]    

Fields, Total: 91

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 23, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Internal number for each equipment request.
.01 TRANSACTION NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<15)!'(X'?1P.E) X
  • LAST EDITED:  AUG 27, 1992
  • HELP-PROMPT:  Format is Station#-CMR#-FY-#####.
  • DESCRIPTION:  
    This is the temporary transaction number that is calculated based on the facility number, the CMR Official, the fiscal year and a sequential number.
  • CROSS-REFERENCE:  413^B
    1)= S ^PRCN(413,"B",$E(X,1,30),DA)=""
    2)= K ^PRCN(413,"B",$E(X,1,30),DA)
    This cross-reference is by the generated transaction number.
1 REQUESTOR 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 27, 1992
  • DESCRIPTION:  
    This is the person who initiates the request. It defaults from the DUZ number.
2 REQUESTING SERVICE 0;3 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  AUG 27, 1992
  • DESCRIPTION:  
    This is the requestor's service that is calculated from their entry in the New Person file.
  • CROSS-REFERENCE:  413^AE
    1)= S ^PRCN(413,"AE",$E(X,1,30),DA)=""
    2)= K ^PRCN(413,"AE",$E(X,1,30),DA)
    This cross-reference is by the requesting service for report usage.
3 REQUEST DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 27, 1992
  • DESCRIPTION:  
    This is the actual date and time that the request was initialized. This automatically defaults from the current date and time when the request is being entered.
4 STATION NUMBER 0;5 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) ADMIN. ACTIVITY SITE PARAMETER(#411)

  • LAST EDITED:  AUG 27, 1992
  • DESCRIPTION:  
    This is the station number that will automatically default if there is only one station numer otherwise, the requestor will be prompted for it.
4.5 CMR 0;16 POINTER TO CMR FILE (#6914.1) CMR(#6914.1)

  • LAST EDITED:  AUG 05, 1995
  • HELP-PROMPT:  Please select the CMR who will have responsibility for this equipment.
  • DESCRIPTION:  
    This is the CMR number who will ultimately be responsible for the equipment when ordered and received.
  • CROSS-REFERENCE:  ^^TRIGGER^413^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^ENG(6914.1,X,0),U,2) X ^DD(413,4.5,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCN(413,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=413,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P(^ENG(6914.1,X,0),U,2)
    DELETE VALUE)= NO EFFECT
    FIELD)= #5
    This triggers the CMR Official when selecting a particular CMR.
5 CMR RESPONSIBLE OFFICIAL 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 04, 1992
  • DESCRIPTION:  
    This is the person who is associated with a particular CMR. This is defaulted when a CMR is selected and all messages will be directed to this person.
  • NOTES:  TRIGGERED by the CMR field of the EQUIPMENT REQUEST File
  • CROSS-REFERENCE:  413^AD
    1)= S ^PRCN(413,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCN(413,"AD",$E(X,1,30),DA)
    This is a cross-reference by the CMR responsible official.
6 REQUEST STATUS 0;7 POINTER TO NX STATUS FILE (#413.5) NX STATUS(#413.5)

  • LAST EDITED:  OCT 20, 1992
  • DESCRIPTION:  
    This is the status of the request. It is set at the completion of each step of the process.
  • CROSS-REFERENCE:  413^AC
    1)= S ^PRCN(413,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCN(413,"AC",$E(X,1,30),DA)
    This is a cross-reference by request status.
7 STATUS DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This date is automatically set whenever the status on a request changes. It is the date that status was applied to the request.
8 REQUEST TYPE 0;9 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADDITIONAL;
  • 'R' FOR REPLACEMENT;
  • 'I' FOR INITIAL;

  • LAST EDITED:  OCT 01, 1992
  • HELP-PROMPT:  Select appropriate type for this request. Additional for new equipment, Initial for project equipment, and Replacement for equipment to be replaced.
  • DESCRIPTION:  
    There are three type of requests. Each request type may ask some different front-end questions. Replacement type will also create an accompanying turn-in request.
9 PROJECT NUMBER 0;10 FREE TEXT

  • INPUT TRANSFORM:  D INP^PRCNPROJ Q
  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as delimiters)
  • DESCRIPTION:  The principal identifier of entries in the CONSTRUCTION PROJECT file. Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the facility number and NNN is a sequential project number.
    YY is usually the fiscal year in which an NRM request is submitted, but may also be used for a two-character alphabetic project category designation.
  • EXECUTABLE HELP:  D LKUP^PRCNPROJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.1 PROJECT MANAGER 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 09, 1993
  • HELP-PROMPT:  Please enter the Project Manager
  • DESCRIPTION:  
    The person in charge of a particular project if a project number was entered.
10 TURN-IN REQUEST 0;11 POINTER TO TURN-IN REQUEST FILE (#413.1) TURN-IN REQUEST(#413.1)

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This points to the accompanying turn-in request from the turn-in request file (413.1). The request and the turn-in are tied to each other.
11 REQUESTOR PHONE 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  SEP 17, 1992
  • HELP-PROMPT:  Enter the phone number of the requestor
  • DESCRIPTION:  
    This is the phone number of the requestor and should default from new person file.
12 DATE REQUIRED BY 0;13 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EF" D ^%DT S X=Y K:Y<1!(Y
  • LAST EDITED:  NOV 09, 1993
  • HELP-PROMPT:  Enter the date this requested equipment is needed by.
  • DESCRIPTION:  
    This date is required for a 2237.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13 SORT 0;14 POINTER TO SORT GROUP FILE (#410.7) SORT GROUP(#410.7)

  • LAST EDITED:  SEP 17, 1992
  • 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.
14 CLASSIFICATION 0;15 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2) CLASSIFICATION OF REQUEST(#410.2)

  • LAST EDITED:  SEP 17, 1992
  • DESCRIPTION:  
    This Classification of Request field allows you to classify and/or categorize all transactions (requests) for supplies, services, etc.
15 LINE ITEM NUMBER 1;0 Multiple #413.015 413.015

  • LAST EDITED:  AUG 23, 1996
  • DESCRIPTION:  
    This is a item that is being entered for the request.
16 CHANGE IN PERSONNEL 2;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 16, 1992
  • HELP-PROMPT:  Enter 'Y' if there will be any changes in number and/or grades of personnel.
  • DESCRIPTION:  
    If any change in personnel is needed because of the acquisition of this item, either more people needed or less.
17 JCAHO,CAP,SAFETY DEFICIENCY 2;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 16, 1992
  • HELP-PROMPT:  Enter 'Y' if there are any JCAHO, CAP, or other safety deficiency for ordering this equipment.
  • DESCRIPTION:  
    This should be answered if there is any special safety considerations with requesting this equipment.
18 CHANGE IN RECURRING COSTS 2;3 SET
************************REQUIRED FIELD************************
  • 'I' FOR INCREASE;
  • 'D' FOR DECREASE;
  • 'N' FOR NO CHANGE;

  • LAST EDITED:  DEC 16, 1992
  • HELP-PROMPT:  Enter the estimated change in recurring costs if this equipment is ordered.
  • DESCRIPTION:  
    This should indicate whether there are any savings by acquiring this equipment or increased costs. If other than no change, some other questions will be asked.
19 SUFFICIENT FUNDS BUDGETED? 2;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 16, 1992
  • HELP-PROMPT:  Enter 'Y' if sufficient funds have been budgeted to purchase this equipment.
  • DESCRIPTION:  
    If there is an increase in recurring costs, the requestor should indicate whether sufficients funds have been budgeted for this item.
20 ANNUAL RECURRING SUPPLY COST 2;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 05, 1993
  • HELP-PROMPT:  Enter the estimated annual cost of recurring supplies for this equipment
  • DESCRIPTION:  
    Any supply costs that may need to be budgeted for the future if this is acquired.
21 TRAINING NEEDED? 2;6 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if any special training will be needed to operate this new piece of equipment if purchased.
  • DESCRIPTION:  
    By ordering this equipment, whether new training will be needed to use it.
22 EST. TRAINING COST 2;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the estimated costs of any training needed for this equipment
  • DESCRIPTION:  
    A estimated cost of any training needed.
23 MAINT. CONTRACT RECOMMENDED 2;8 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if a maintenance contract comes with the item or is recommended for the item.
  • DESCRIPTION:  
    Do you think that a maintenance contract on the equipment that you are requesting would be desirable?
24 MAINT. CONTRACT COST 2;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 05, 1993
  • HELP-PROMPT:  Enter the estimated cost for a recommended maintenance contract
  • DESCRIPTION:  
    Any estimated maintenance cost if a maintenance contract is obtained for this equipment.
25 SPACE AVAILABLE? 2;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if space is currently available for this equipment
  • DESCRIPTION:  
    Do you presently have sufficient space to accommodate the equipment that you are requesting?
26 LOCATION 2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the location where this item would be located if space is available.
  • DESCRIPTION:  The exact location of the proposed equipment. Try to format your response as ROOM-BUILDING-DIVISION (if applicable). If the requested equipment is portable and subject to use in many different locations, please enter
    PORTABLE instead of a physical location.
  • TECHNICAL DESCR:  
    The location will first point to the Location file, if the potential location is not in the Location file, a free text response will be accepted.
  • EXECUTABLE HELP:  D LOCHLP^PRCNUTL1
26.5 SPACE FILE PTR. 2;19 POINTER TO ENG SPACE FILE (#6928) ENG SPACE(#6928)

  • LAST EDITED:  DEC 15, 1992
  • DESCRIPTION:  
    If a location was selected from the Space file, the internal pointer number will be filed here. User doesn't see this.
27 INSTALLATION NEEDED? 2;12 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if the Engineering Department must install equipment
  • DESCRIPTION:  
    This question must be answered 'Yes' if the Engineering Department must install any of the equipment in the request when it has been ordered and received.
28 UTILITIES REQUIRED 3;0 SET Multiple #413.028 413.028

  • DESCRIPTION:  
    This field is to tell Engineering what kind of work might be needed to install this equipment when received so they can allocate their resources.
29 OTHER UTILITIES 2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter a free text other utility up to 50 characters
  • DESCRIPTION:  
    Explain what you had in mind when you selected 'Other' as a required utility.
30 SERVICE CONTACT 2;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 18, 1994
  • HELP-PROMPT:  Enter the name of a service contact if other than requestor if more information is required.
  • DESCRIPTION:  
    This is a person other than the requestor that the CMR Official or Personal Property Manager may refer back to for further questions.
  • CROSS-REFERENCE:  ^^TRIGGER^413^31
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413,D0,2)):^(2),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$P($G(^VA(200,X,.13)),U,2) X ^DD(413,30,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCN(413,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,15)=DIV,DIH=413,DIG=31 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(^PRCN(413,D0,2)):^(2),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(413,30,1,1,2.4)
    2.4)= S DIH=$S($D(^PRCN(413,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,15)=DIV,DIH=413,DIG=31 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P($G(^VA(200,X,.13)),U,2) I X="" K X Q
    DELETE VALUE)= Q
    FIELD)= #31
    The Service Contact phone field is triggered from the Office Phone field in the New Person file (.132).
31 SERVICE CONTACT PHONE 2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the phone number of the service contact.
  • DESCRIPTION:  
    This phone number is triggered from the OFFICE PHONE field of the NEW PERSON File (#200).
  • NOTES:  TRIGGERED by the SERVICE CONTACT field of the EQUIPMENT REQUEST File
32 CMR OFFICIAL APPROVAL 2;16 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if you approve this request.
  • DESCRIPTION:  
    If the primary CMR Responsible Official does not approve a request, the request will be returned to the requestor.
33 CHIEF SUPPLY APPROVAL 8;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 06, 1994
  • HELP-PROMPT:  Enter 'Yes' if you wish to approve this request.
  • DESCRIPTION:  
    The Chief of Supply should indicate whether the request is approved or not. If the request is not approved, it will be returned to the requestor.
34 CMR PRIORITY 2;18 NUMBER

  • INPUT TRANSFORM:  D EN^PRCNCMRP
  • LAST EDITED:  AUG 06, 1996
  • HELP-PROMPT:  Enter the number that you consider to be the priority of this request. (1-999)
  • DESCRIPTION:  
    This priority lets the Personal Property Manager (PPM) have some idea of what items might be considered more critical. It will also help the Equipment Committee during its' review process.
  • EXECUTABLE HELP:  D DPRI^PRCNCMRP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  413^P^MUMPS
    1)= S SK=0 D XREF^PRCNCMRP K SK
    2)= S SK=1 D XREF^PRCNCMRP K SK
    This cross-reference sets the priority by the requestor's service so that all requests are ranked by service.
35 NX EQUIPMENT? 4;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 30, 1994
  • HELP-PROMPT:  Enter 'Yes' if this equipment is considered to be non-expendable equipment.
  • DESCRIPTION:  
    The Personal Property Manager (PPM) makes the final determination on whether the equipment being requested is really considered items for CMR responsibility.
36 CONTROLLED ITEM? 4;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if items on this request must be approved by Central Office.
  • DESCRIPTION:  The Personal Property Manager (PPM) has a list of criteria that determines whether equipment is considered controlled or not. If equipment being requested is considered controlled, it must go through Central Office
    approval process before continuing on to the Equipment Committee.
37 SHORT DESCRIPTION 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 13, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field is taking the first 20 characters of the line item description (which is a word-processing field) and setting that into a single field for reports.
45 CONCURRENCE NEEDED? 4;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if you feel other persons need to review and approve this equipment request.
  • DESCRIPTION:  If other users in the facility may be affected by the purchase of the requested items, then answering 'Yes' to this question will provide the selected concurring officials the chance to review and decide on approval of the
    request.
46 CONCURRING OFFICIALS 5;0 POINTER Multiple #413.046 413.046

  • DESCRIPTION:  
    This can be other persons selected to review the request.
47 EQUIPMENT COMMITTEE STATUS 6;1 SET
  • 'DD' FOR Disapproved;
  • 'DF' FOR Deferred;
  • 'AP' FOR Approved-Pending Funds;
  • 'AF' FOR Approved-Funded;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the final status of this equipment request.
  • DESCRIPTION:  
    This is the final status determined by the Equipment Committee for this request.
48 EQUIP. COMMITTEE STATUS DATE 6;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the date that the Equipment Committee or surrogate completed the final status of this request.
  • DESCRIPTION:  
    This is the date that the Equipment Committee's final disposition of the request was made. This will be set automatically when the status is filed.
49 EQUIPMENT COMMITTEE RANKING 6;3 NUMBER

  • INPUT TRANSFORM:  D EN^PRCNRNK
  • LAST EDITED:  JAN 25, 1996
  • HELP-PROMPT:  Enter the Equipment Committee ranking for this request.
  • DESCRIPTION:  
    The ranking of request is temporary assigned so that the Equipment Committee may review requests based on the importance of the request actually being purchased.
  • EXECUTABLE HELP:  D DRANK^PRCNRNK
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  413^E
    1)= S ^PRCN(413,"E",$E(X,1,30),DA)=""
    2)= K ^PRCN(413,"E",$E(X,1,30),DA)
    This is the ranking by importance of requests by the Equipment Committee or their designated surrogate.
50 2237 NUMBER 6;4 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  This is the associated 2237 entry if request was approved and funded.
  • DESCRIPTION:  
    This is the 2237 number that is assigned when a request has been approved by the Equipment Committee and a 2237 has been created from the request.
52 ENG. MAINTENANCE TRAINING 7;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if additional Engineering maintenance training is needed after proposed equipment is purchased.
  • DESCRIPTION:  
    Will additional maintenance training be required for Engineering personnel if the proposed equipment is acquired?
53 ENG. TRAINING TUITION 7;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the estimated amount of any Engineering training tuition
  • DESCRIPTION:  
    The total cost of tuition for all required maintenance training. If necessary to train two (2) employees at an estimated cost of $1000, please enter 2000.
54 ENG. TRAINING TRAVEL COST 7;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the estimated amount of travel cost for Engineering training
  • DESCRIPTION:  
    If the required maintenance training includes travel costs, please enter that amount.
55 ENG. TRAINING VENDOR 7;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter a vendor (up to 50 characters) that may conduct Engineering training
  • DESCRIPTION:  
    The potential vendor who will be conducting the maintenance training.
55.5 ENG TRAIN VENDOR PTR 7;16 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • LAST EDITED:  JUN 19, 1995
  • DESCRIPTION:  
    This is the training vendor pointer if the vendor exists in the IFCAP Vendor file.
  • EXECUTABLE HELP:  D VENHLP^PRCNUTL1
56 ENG. TRAINING LOCATION 7;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter where Engineering training may take place (up to 50 characters)
  • DESCRIPTION:  
    The location where the maintenance training will take place.
57 CONSTRUCTION/RENOVATION 7;6 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if there is any special construction needs
  • DESCRIPTION:  
    Please say yes if any special construction or renovation needs to be completed before the installation of any equipment in this request.
58 PROJECT NEEDED? 7;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter 'Yes' if a Project # is needed
  • DESCRIPTION:  
    Is it necessary that a project be submitted and approved in order to accomplish the necessary construction or renovation?
59 ENG. PROJECT # 7;8 FREE TEXT

  • INPUT TRANSFORM:  D INP^PRCNPROJ Q
  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as delimiters)
  • DESCRIPTION:  The principal identifier of entries in the CONSTRUCTION PROJECT file. Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the facility number and NNN is a sequential project number.
    YY is usually the fiscal year in which an NRM request is submitted, but may also be used for a two-character alphabetic project category designation.
  • EXECUTABLE HELP:  D LKUP^PRCNPROJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60 CONSTRUCTION/RENOVATION COST 7;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  Enter the estimated cost of new construction or renovation for this request.
  • DESCRIPTION:  
    Estimated cost of necessary construction or renovation work. Be careful to include costs (if any) that are accounted for in your estimate of SPECIAL INSTALLATION COST.
61 CONSTRUCTION/RENOVATION TIME 7;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  DEC 01, 1993
  • HELP-PROMPT:  Enter an estimated time it would take to complete construction or renovation.
  • DESCRIPTION:  
    Approximate number of calendar days that would be required for completion of any necessary construction or renovation work.
62 SPECIAL INSTALLATION 7;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Enter 'Yes' if Engineering needs to do any special installation forthe requested equipment.
  • DESCRIPTION:  Will Engineering Service need to provide any special assistance in order for the requested equipment to be installed and made operational? Some common examples of special installation requirements might include utility
    connections (other than connection of regular electrical power), minor alterations to casework, and temporary removal of doors or windows.
    Incoming inspections to assure that specifications are met prior to initial use are normally performed on all new equipment. These routine inspections should not be considered as special installation requirements.
63 SPECIAL INSTALLATION COST 7;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    Estimated cost of performing the work actions described under SPECIAL INSTALLATION DESCRIPTION. Be carefule not to include costs (if any) that are accounted for under CONSTRUCTION/RENOVATION COST.
64 ADDITIONAL TEST EQUIP. 7;13 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer 'Y' if any additional equipment is needed to test or calibrate the new equipment.
  • DESCRIPTION:  
    Will Engineering Service need to purchase or lease any additional test equipment if the requested NX equipment is acquired?
65 ADDITIONAL TEST EQUIP. COST 7;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter a estimated cost for any additional test equipment
  • DESCRIPTION:  The approximate cost of additional test equipment that will need to be purchased if the requested NX equipment is acquired. In the case of test equipment that will be leased or rented, please include the rental(s) in your
    estimate of MAINTENANCE IMPACT COST, or MAINTENANCE CONTRACT COSTS (whichever applies).
66 MAINTENANCE IMPACT COST 7;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter a estimated amount that the purchase of this equipment may impact on maintenance
  • DESCRIPTION:  
    Estimated cost of all costs that would be required to maintain the requested equipment for a period of one year.
67 ENGINEERING CONTACT 8;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  Enter the primary Engineering contact person for this request.
  • DESCRIPTION:  
    The Engineering Service employee who should be contacted if additional information is required concerning this Engineering Equipment Review.
68 ENGINEERING CONTACT PHONE 8;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  Enter the Engineering contact's phone number
  • DESCRIPTION:  
    The telephone number of the ENGINEERING CONTACT PERSON.
69 TOTAL ENGINEERING EST. COST COMPUTED

  • MUMPS CODE:  X ^DD(413,69,9.2) S X=X+$P(Y(413,69,1),U,15)
    9.2 = S Y(413,69,1)=$S($D(^PRCN(413,D0,7)):^(7),1:"") S X=$P(Y(413,69,1),U,2)+$P(Y(413,69,1),U,3)+$P(Y(413,69,1),U,9)+$P(Y(413,69,1),U,12)+$P(Y(413,69,1),U,14)
  • ALGORITHM:  #53+#54+#60+#63+#65+#66
  • LAST EDITED:  NOV 23, 1992
  • DESCRIPTION:  This estimated cost is computed from the following costs that the Engineering department may have entered for this request: training tuition, training travel, construction/renovation, special installation, additional test
    equipment, and maintenance impact.
70 ENG. MAINTENANCE CONTRACT 8;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  Enter 'Yes' if Engineering has made the determination of importance of having a maintenance contract.
  • DESCRIPTION:  
    Would Engineering Service favor a maintenance contract for the NX equipment being requested?
71 ENG. MAINT. CONTRACT TYPE 8;2 SET
  • '1' FOR Full Maintenance;
  • '2' FOR PM;
  • '3' FOR Parts Only;
  • '4' FOR Screening Contract;
  • '5' FOR Other;

  • LAST EDITED:  NOV 11, 1993
  • HELP-PROMPT:  Select the appropriate type of maintenance contract for Engineering
  • DESCRIPTION:  Select the kind of maintenance contract that Engineering Service regards as most appropriate. Ask yourself if it should cover parts and labor? Scheduled or unscheduled maintenance? Hours of coverage? Response time and/or
    maximum downtime?
72 ENG. MAINT. OTHER CONTRACT 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter (up to 20 characters) a maintenance contract type
  • DESCRIPTION:  
    Describe the maintenance contract that is not covered in the types of contracts.
74 SETS MAINTENANCE MANUALS 8;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 19, 1992
  • HELP-PROMPT:  Enter the minimum of sets of maintenance manuals to keep on hand (2-10)
  • DESCRIPTION:  
    How many sets of maintenance manuals would be needed by the Engineering Service for maintenance of the requested equipment? Two (2) sets should be sufficient in most cases.
75 CMR OFFICIAL FINAL APPROVAL 2;17 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 27, 1996
  • HELP-PROMPT:  Enter 'Y' if request is ready for 2237 processing, enter 'N' if to be returned to requestor.
  • DESCRIPTION:  This field allows the CMR Official to review a request that has been in the request pipeline for a long period of time. A request may need editing if it has been around a while. If no editing is needed, then it can go to
    become a 2237.
77 RESUBMIT STATUS 8;9 POINTER TO NX STATUS FILE (#413.5) NX STATUS(#413.5)

  • LAST EDITED:  NOV 16, 1993
  • DESCRIPTION:  
    This is the status of the request before it is resubmitted.
100 CHANGE IN PERSONNEL EXPLAIN 10;0 WORD-PROCESSING #413.01

  • DESCRIPTION:  
    If the requestor enters 'Y'es to change in personnel, an explanation is needed as to what kind of changes this request causes.
101 DEFICIENCY EXPLANATION 11;0 WORD-PROCESSING #413.0101

  • DESCRIPTION:  
    This field is to enter a more detailed explanation if the user answered 'Y'es to any special safety considerations with equipment being requested. Goes with field JCAHO,CAP,SAFETY DEFICIENCY.
102 CHANGE RECUR COST EXPLAIN 12;0 WORD-PROCESSING #413.0102

  • DESCRIPTION:  
    If other than 'No Change' was answered in the field CHANGE IN RECURRING COSTS, then a fuller explanation is needed.
103 TRAINING EXPLANATION 13;0 WORD-PROCESSING #413.0103

  • DESCRIPTION:  
    If field TRAINING NEEDED? was answered 'Yes', then a detailed explanation is required to be entered.
104 MAINT. CONTRACT JUSTIFICATION 14;0 WORD-PROCESSING #413.0104

  • DESCRIPTION:  
    Please explain why you think that a maintenance contract for this equipment would be desirable.
105 CMR APPROVAL EXPLANATION 15;0 WORD-PROCESSING #413.0105

  • DESCRIPTION:  
    If the CMR did not approve a request, then it is required that they enter an explanation of why they didn't approve the request.
117 CONSTRUCT/RENOV DESCRIPTION 27;0 WORD-PROCESSING #413.0117

  • DESCRIPTION:  
    Briefly describe the nature and location of any necessary construction or renovation work, whether a project is needed or not.
118 SPECIAL INSTALL DESCRIPTION 28;0 WORD-PROCESSING #413.0118

  • DESCRIPTION:  
    Describe the special tasks that Engineering Service will need to perform before the requested equipment can be installed and made operational.
119 ADDITIONAL TEST EQUIP EXPLAIN 29;0 WORD-PROCESSING #413.0119

  • DESCRIPTION:  List and describe any additional test equipment that would be needed for calibration and/or repair of the requested NX equipment. Do not include test equipment that is presently on hand or otherwise available without
    cost.
120 ENG. REMARKS 30;0 WORD-PROCESSING #413.03

  • DESCRIPTION:  
    Engineering comments of a general nature that may be of some benefit to the Equipment Committee.
121 NX EQUIP EXPLANATION 31;0 WORD-PROCESSING #413.0121

  • LAST EDITED:  AUG 05, 1995
  • DESCRIPTION:  
    If the PPM does not consider this to be non-expendable, an explanation of why is required.
123 ESTIMATED SAVINGS 33;0 WORD-PROCESSING #413.0123

  • DESCRIPTION:  
    Any estimated savings that are effected by the purchase of a controlled item needs to be identified (personnel, supplies, increased production, etc.)
124 ADDITIONAL EQUIPMENT 34;0 WORD-PROCESSING #413.0124

  • DESCRIPTION:  
    Requests for additional equipment will include the number and description of the same or related type of machines now being used in operation.
125 REPLACEMENT EQUIPMENT 35;0 WORD-PROCESSING #413.0125

  • DESCRIPTION:  
    Requests for replacement equipment will include the complete description of the item being replaced, estimate of repairs, total amount of money expended for repairs while equipment was in use, and trade-in allowance.
126 JUSTIFICATION 36;0 WORD-PROCESSING #413.0126

  • DESCRIPTION:  
    A statement of justification for why the line item is being requested is required.
127 REASON CANCELLED 37;0 WORD-PROCESSING #413.0127

  • DESCRIPTION:  
    A reason why the request was cancelled is required.
128 EQUIP COMM EXPLANATION 38;0 WORD-PROCESSING #413.0128

  • DESCRIPTION:  
    An explanation is required as to why the Equipment Committee did not approve a request.
  • TECHNICAL DESCR:  
    For the Equipment Committee to explain why they disapproved or deferred the request.
129 CHIEF SUPPLY EXPLANATION 39;0 WORD-PROCESSING #413.0129

  • LAST EDITED:  APR 06, 1994
  • DESCRIPTION:  
    A reason why the Chief, Supply did not approve a equipment request is required.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All