Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 7 (LCK1,ST)^PRCHE  FPDS^PRCHFPD2  (POP,TYPE)^PRCHNPO1  EN6^PRCHNPO2  Q^PRCHNPO4  (ER2,ER3)^PRCHNPO6  ^PRCHSF  
VA FileMan 4 EN^DDIOL  IX^DIC  YN^DICN  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCHOUT FPDS DATA EDIT  PRCU FPDS DATA EDIT  

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

External References

Name Field # of Occurrence
EN^DDIOL EN10+5, EN10+8, ASK+37, OUT+1, STOP+1
IX^DIC LOOK+3
YN^DICN ASK
^DIE ASK+11, ASK+19, ASK+30
LCK1^PRCHE EN10
ST^PRCHE EN1+4
FPDS^PRCHFPD2 ASK+10
POP^PRCHNPO1 ASK+33
TYPE^PRCHNPO1 ASK+11
EN6^PRCHNPO2 ASK+2
Q^PRCHNPO4 Q
ER2^PRCHNPO6 ASK+43
ER3^PRCHNPO6 EN10+14, ASK+43
^PRCHSF ASK+37

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
Routine Call
  • DIC
  • Line Location:
    • LOOK+3
Routine Call
  • DIE
  • Line Location:
    • ASK+11
    • ASK+19
    • ASK+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] EN10+10, EN10+13
^PRC(442 - [#442] EN10, EN10+1, EN10+4, EN10+5, EN10+11, ASK+3, ASK+6!*, ASK+18, ASK+20, ASK+21
, ASK+23, ASK+29, ASK+31, ASK+32, ASK+36, ASK+43, ASK+44, Q
^PRCD(420.8 - [#420.8] EN10+1
^PRCD(442.5 - [#442.5] EN10+11

Label References

Name Line Occurrences
ASK EN10+13, ASK+1
EN10 EN10, EN10+4, EN10+5, EN10+6, EN10+8, EN10+9, EN10+14, ASK, ASK+1, ASK+2
, ASK+10, ASK+45
LOOK EN10
OUT EN10+4, EN10+6
Q EN10, EN10+11, ASK+18, ASK+29, ASK+36
STOP ASK+20, ASK+21, ASK+23, ASK+31, ASK+32, ASK+36
TBL ASK+3
W ASK+1

Naked Globals

Name Field # of Occurrence
^( ASK+3, ASK+43
^(0 EN10+1, EN10+13, ASK+3
^(1 ASK+43
^(2 ASK+3
^(9 ASK+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK, ASK+1, ASK+10
C CNDNS~*, CNDNS+1
>> D LOOK+2*
D0 LOOK+1!
DA EN10, ASK+9*, LOOK+1!, LOOK+3*
DIC LOOK+1!, LOOK+2*, LOOK+3!
DIC("A" LOOK+2*
DIC("S" LOOK+1*, LOOK+2*
DIC(0 LOOK+2*
DIE ASK+9*, ASK+43!
DIE("NO^" ASK+11*
DQ LOOK+1!
>> DR ASK+9*, ASK+19*, ASK+30*
I EN10+13*, ASK+3*, ASK+43*, CNDNS~, CNDNS+1*
J CNDNS~, CNDNS+1*
PRC Q!
PRC("SITE" EN1+4
PRCH ASK+3!, ASK+11*
PRCH("AM" ASK+11, TBL+1*, TBL+2*, CNDNS, CNDNS+1*
PRCHAM EN1+1, EN1+2~
PRCHAMDA EN1+2~
PRCHAMT EN1+2~, ASK+11*
PRCHB EN10+12!, EN10+14
PRCHB( EN10+13*
PRCHB(0 EN10+13*
>> PRCHBO EN10+12*, EN10+13
>> PRCHCN ASK+11*, TBL+1*, TBL+2, CNDNS, CNDNS+1
>> PRCHDT EN10+1*, EN10+8, EN10+9, EN10+10, EN10+12, EN10+13, EN10+14, ASK+2, ASK+10, ER
PRCHDUZ EN1+2~
>> PRCHEC ASK+3*, ASK+8, TBL+1*
PRCHER EN1+2~, ASK+18, ASK+29, STOP+1*
>> PRCHEST EN10*, ASK+8
PRCHFLG EN1+1*, EN10, ASK, ASK+1, ASK+10, ASK+44!, Q!
>> PRCHFPDS ASK+10
PRCHI ASK+11*, Q!
>> PRCHN("LSA" EN10+10*
>> PRCHN("MB" EN10+10*
>> PRCHN("MP" EN10+11*
>> PRCHN("SFC" EN10+11*
PRCHNEW LOOK+1!
PRCHPO EN1+3~*, EN1+4, EN10, EN10+1, EN10+4, EN10+5, EN10+11, ASK+2, ASK+3, ASK+6
, ASK+9, ASK+18, ASK+20, ASK+21, ASK+23, ASK+29, ASK+31, ASK+32, ASK+36, ASK+43
, ASK+44, LOOK+1!, LOOK+3*, ER!, Q
PRCHPOO EN1+3*!
>> PRCHSC EN10+1*, EN10+4, EN10+6, EN10+13, ASK+2, ASK+18, ASK+29
>> PRCHV EN10+1*, EN10+10, EN10+13
>> PRCHY ASK+8*
U EN10, EN10+1, EN10+4, EN10+5, EN10+10, EN10+11, EN10+13, ASK+6, ASK+21, ASK+23
, ASK+32, ASK+43, TBL+1, TBL+2, CNDNS, CNDNS+1
X EN10+1*, ASK+3*, TBL+2, CNDNS~*, CNDNS+1, LOOK+3*
Y EN10+10*, ASK+3*, ASK+8*, TBL+1, TBL+2, CNDNS~, CNDNS+1*, LOOK+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All