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

Package: IFCAP

Routine: PRCHFPDE


Information

PRCHFPDE ;SF-ISC/TKW-EDIT FPDS DATA ON P.O. AFTER SIGNED BY P.A. ;12-6-90/15:48

Source Information

Source file <PRCHFPDE.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**79,100,220**;Oct 20, 2000;Build 23
EN1 ;EDIT FPDS DATA ON P.O. AFTER BEING SIGNED BY P.A.
EN10
ASK
OUT ;Tell the user that the PO is not eligible for FPDS
STOP ;PRC*5.1*100 - quit if all the FPDS info was not entered.
TBL ;TABLE LINE/ITEM AMOUNTS MINUS DISCOUNTS BY CONTRACT NO.
CNDNS
LOOK ;K PRCHPO,PRCHNEW,DA,DIC,D0,DQ S DIC("S")="I +^(0)=PRC(""SITE"") S PRCHX=$S($D(^(7)):+^(7),1:0) I $D(^PRCD(442.3,PRCHX,0)),$P(^(0),U,2)>9"
ER
W
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"This option only available for P.O.'s beyond FY 1988!"
  • Line Location: EN10+9
Function Call: WRITE
  • Prompt: !,$C(7),"Method of Processing not entered!"
  • Line Location: EN10+11
Function Call: WRITE
  • Prompt: !!,$C(7),"ARE YOU SURE YOU WANT TO RE-ENTER THE FPDS CODES "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: G:%=0
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"PREVIOUS FPDS CODES HAVE BEEN DELETED!",!!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: ?40,"AMOUNT: ",PRCHAMT
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,?10," Enter either Yes/No or enter ""^"" to exit."
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"This option will delete all FPDS codes that were previously entered",!,"for this Purchase Order, then allow you to re-enter them."
  • Line Location: W+1

FileMan Files Accessed Via FileMan Db Call

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