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: PRCHMA

Package: IFCAP

Routine: PRCHMA


Information

PRCHMA ;WISC/AKS-Amend to PO, req ;6/10/96 14:07

Source Information

Source file <PRCHMA.m>

Entry Points

Name Comments DBIA/ICR reference
REQ
PO
LOOP
ASK
CAN1
CHK
ERR
ENC
APP
REV
EXIT
EXIT1
FLAG
NOSIGN
NOSIGN1
TOP ;PAUSE AT BOTTOM OF SCREEN
CHKDISC ;CHECK DISCOUNTS MATCH ITEMS ;PRC*5.1*183
D1
D2 ;LIST ANY DISCOUNT ERRORS FOUND IN RELATION TO ITEMS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !!,?5,"This purchase order has been tampered with.",!,?5,"Please notify IFCAP APPLICATION COORDINATOR.",!
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !!,?5,"This purchase order has been tampered with.",!,?5,"Please notify IFCAP APPLICATION COORDINATOR."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !!,?5,"There is no Amendment Status."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,?5,"There is no Amendment Status.",!
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing BOC !",$C(7)
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing NSN!",$C(7)
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing its description!",$C(7)
  • Line Location: CHK+14
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing contract number.",$C(7)
  • Line Location: CHK+15
Function Call: WRITE
  • Prompt: !!,?5,"This amendment has Est. Shipping and/or Handling charges without any",!,?5,"Est. Shipping BOC."
  • Line Location: CHK+23
Function Call: WRITE
  • Prompt: !!,?5,"This amendment needs to be re-edited before it can be signed.",!,"**REMINDER** Unsigned amendments are deleted from the system after 7 days."
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+11
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction..."
  • Line Location: ERR+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: ERR+17
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+25
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+50
Function Call: WRITE
  • Prompt: !?5,$S($D(PRCHREQ):"REQUISITION",1:"PURCHASE ORDER")_" HAS BEEN RECEIVED, CANNOT CANCEL !",$C(7)
  • Line Location: ENC+5
Function Call: WRITE
  • Prompt: !,?5,"THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !",$C(7)
  • Line Location: ENC+7
Function Call: WRITE
  • Prompt: ?40," <NOTHING CANCELLED>"
  • Line Location: ENC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: REV+2
Function Call: WRITE
  • Prompt: !!,"Discounts/Items discrepancies found... MUST fix either item or discount listed"
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: !!,"DC-IT ITEM(s) %/AMT DISC/ITEM CONTRACT# REASON",!
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !,PRCHDSC,"-",PRCRITM,?6,$P(PRCRITEM,U),?15,$P(PRCRITEM,U,2),?20,$S($P(PRCRITEM,U,5)'="":$P(PRCRITEM,U,5),1:"NONE"),"/",$S($P(PRCITEM,U,2)'="":$P(PRCITEM,U,2),1:"NONE")
  • Line Location: D2+12
Function Call: WRITE
  • Prompt: ?44,$S(PRCRTYP="UNDF":"Tampering, item has been removed",PRCRTYP="CONT":"Item/Disc contract numbers mismatch",1:"")
  • Line Location: D2+13
Function Call: WRITE
  • Prompt: !!,"Error(s) MUST be fixed to approve/review the amendment.....",!
  • Line Location: D2+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(443.6 - [#443.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call