Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCHE

Package: IFCAP

Routine: PRCHE


Information

PRCHE ;WOIFO/LKG/DST-EDIT ROUTINES FOR SUPPLY SYSTEM ;1/25/17 13:03

Source Information

Source file <PRCHE.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**1,28,39,81,63,144,163,198**;Oct 20, 2000;Build 6
EN1 ;ITEM FILE EDIT
EN2 ;EDIT SITE PARAMETERS
EN2A
EN2DSP ;Display entries from file #411 if they are Ok in file #4. Otherwise,
EN3 ;EDIT VENDOR FILE
EN5 ;ENTER A NEW P.O.
EN50
EN6 ;EDIT AN INCOMPLETE P.O.
EN60
EN8 ;DELETE A RECEIVING REPORT
EN9 ;EDIT COMMON NUMBERING SERIES
EN10 ;EDIT SUPPLY EMPLOYEE INFORMATION
EN10Q
EN11 ;EDIT ADMINISTRATIVE CERTIFICATIONS
EN12 ;EDIT DELIVERY DATE
EN120
EN13 ; Delete 2237 option has been de-activated.
; See documentation for PRC*5*128.
EN14 ;CREATE ADJUSTMENT VOUCHER
EN140
EN15 ;ENTER LOG DEPARTMENTS TO FCP FILE (420)
EN150
DIE
QQ
Q
LCK1
LCK
ST
PO
PORQ
PCAUTH(PRCUSER,PRCORDIEN) ; Determine if authorized to adjust PCard Tx
; parameter 1 = DUZ of current user
; parameter 2 = IEN of order in file #442
; returns 1 if this is not a Purchase Card transaction
; returns 2 if this is a PCard order and the user is Holder, Surrogate, Approving Official, or Alternate Approving Official
; returns 0 if this is a PCard order but the user is not one of the above
; for values 0 and 2, returns the purchase card IEN (#440.5) in the second up-arrow piece
WRNGMSG ;Send message to PCard holder when non-authorized user attempts to modify Tx

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Warning--BOC is missing from this item--you should",!,"re-edit the item!!",!
  • Line Location: EN1+24
Function Call: READ
  • Formatting: !
  • Prompt: "STATION NUMBER: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"Please enter a 3 digit number or '^' to exit. If attempting to enter substation information, please use 'Substation Enter/Edit'."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: " ?? (That is not a valid Station Number)"
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,$C(7),?5,"ENTRY "_PRCDA_" IS NOT SET UP PROPERLY IN FILE #4. PLEASE CALL IRM"
  • Line Location: EN2DSP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN9+1
Function Call: WRITE
  • Prompt: !!,$C(7),"NOTE: Since you have left the USING SECTION field empty, these",!,"numbers can only be used by P&C.",!
  • Line Location: EN9+1
Function Call: WRITE
  • Prompt: $C(7),!,"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: EN10+3
Function Call: WRITE
  • Prompt: !?5,"To edit the Signature Block Printed Name or title, Use TBOX",!
  • Line Location: EN10+6
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: EN120+1
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: EN120+2
Function Call: WRITE
  • Prompt: $C(7),!,"Adjustment Vouchers not allowed until after order has been Obligated!!"
  • Line Location: EN140+2
Function Call: WRITE
  • Prompt: !?3,"Order has no Receiving Reports !",$C(7)
  • Line Location: EN140+3
Function Call: WRITE
  • Prompt: $C(7),!,"You are not authorized to make adjustments on P-Card:"
  • Line Location: EN140+8
Function Call: WRITE
  • Prompt: !,?6,$P(^PRC(440.5,PCARDIEN,0),U,11),", belonging to ",PCARDNM
  • Line Location: EN140+9
Function Call: WRITE
  • Prompt: !,">>> You have just assigned a LOG DEPARTMENT that should only be used for Subsistence FCPs. If that is NOT true, please reassign it or you will be asked for a Food Group on every item purchased."
  • Line Location: EN150+4
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!",$C(7)
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: LCK+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PRC(411 - [#411] Classic Fileman Calls
^PRC(440 - [#440] Classic Fileman Calls
^PRC(441 - [#441] Classic Fileman Calls
^PRC(442 - [#442] Classic Fileman Calls
^PRC(442.6 - [#442.6] Classic Fileman Calls
^PRC(442.7 - [#442.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call