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

Package: IFCAP

Routine: PRCHNPO3


Information

PRCHNPO3 ;WISC/RSD/RHD/SC-CONT. OF NEW PO ; 4/23/99 1:39pm

Source Information

Source file <PRCHNPO3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 6 $$DATE^PRC0C  ^PRCFYN  EN4^PRCHNPO2  SPRMK^PRCHNPO6  ^PRCHSP  ^PRCHSP1  
VA FileMan 4 ^%DT  (,IX)^DIC  WAIT^DICD  YN^DICN  

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

Package Total Caller Graph
IFCAP 6 PRCHG  PRCHNPO2  PRCHQ15  PRCHT12  PRCHT14  PRCHT35  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**112,115,143**;Oct 20, 2000;Build 3
EN0
EN
EN1
N
3
1
2
IT
HLP
Q
DT
EN2 ;CHECKS FCP PARAMETERS & SET Y, CALLED FROM PRCH2138,PRCHIFREG
ERR
ERR1
ERR2
VENMSG ;message to alert users that vendors don't match and that IMF will

External References

Name Field # of Occurrence
^%DT DT
^DIC EN+6
IX^DIC HLP
WAIT^DICD 3+2, 2
YN^DICN VENMSG+4
$$DATE^PRC0C EN1, EN1+1, EN1+3
^PRCFYN 3+1
EN4^PRCHNPO2 3+2, 2+5
SPRMK^PRCHNPO6 EN1+14
^PRCHSP 3+2
^PRCHSP1 2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter a 2237 reference number. The FCP,Cost Center,Service,Delivery",!?3,"Location"
  • Line Location: EN0+0
Function Call: WRITE
  • Prompt: " and Line Items"
  • Condition for execution: PRCHSZ
  • Line Location: EN0+0
Function Call: WRITE
  • Prompt: " will be transferred into this Purchase Order."
  • Line Location: EN0+0
Function Call: WRITE
  • Prompt: !!,?10,"The 2237 Fiscal Year and Quarter must be earlier or same",!,?10,"as the P.O. Date Fiscal Year and Quarter.",!
  • Line Location: EN0+1
Function Call: WRITE
  • Prompt: !?3,$P(^(0),U,1)
  • Line Location: EN0+2
Function Call: WRITE
  • Prompt: !!,"Cannot precede without a P.O. DATE"
  • Line Location: EN0+3
Function Call: WRITE
  • Prompt: $C(7),!,"*** EMERGENCY ***"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?3,"This is an Issue Book Order, and it can't be processed into a Purchase Order."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?10,"The Fiscal Year and Quarter on this 2237 is not",!,?10,"compatible with the PO Date.",!,$C(7)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?3,"Fund Control Point for this 2237 doesn't match the existing FCP in P.O.",$C(7)
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !?3,"Cost Center for this 2237 doesn't match the Cost Center in P.O.",$C(7)
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: $C(7),!?3,"Fund Control point is missing LOG Department Number!!"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: $C(7),!?3,"This Fund Control Point is not valid for a "_Y_" order."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: $C(7),!!?3,"This 2237 does not have a substation.",!
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: $C(7),!!?3,"The substation on this 2237 does not match the substation entered",!?3,"on this "_$S($D(PRCHNRQ):"requisition.",1:"purchase order."),!
  • Line Location: EN1+13
Function Call: READ
  • Variable: PRCHX
  • Timeout: DTIME
  • Line Location: N+1
Function Call: WRITE
  • Prompt: !?3,"Line Items: "
  • Line Location: N+1
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: N+6
Function Call: WRITE
  • Prompt: !?3,PRCHSIT(K)
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !?5,"** ",I," IS AN INVALID LINE ITEM NUMBER",$C(7)
  • Line Location: IT+1
Function Call: WRITE
  • Prompt: !?3,"ENTER A LINE ITEM NUMBER IN THE FOLLOWING FORMAT: 1,2,3,4 OR 1:4 ",!?5," OR ENTER 'A' FOR ALL LINE ITEMS "
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot get a transaction number at this time for the new transaction being split",!,"out. Try again later!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot find the 2237 you selected in file 410."
  • Line Location: ERR1+0
Function Call: WRITE
  • Prompt: !,$C(7),"Not continuing with this 2237."
  • Line Location: ERR2+0
Function Call: WRITE
  • Prompt: !!,"NOTE-Vendors on PO and 2237 don't match. If you proceed IMF info"," will be used. If there is no IMF entry for the item for this vendor one will ","be created."
  • Line Location: VENMSG+2
Routine Call
  • DIC
  • Line Location:
    • EN+6
Routine Call
  • DIC
  • Line Location:
    • HLP

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(443 - [#443] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(411 - [#411] EN1+11
^PRC(420 - [#420] EN1+8, EN2+4
^PRC(442 - [#442] EN0+2, EN0+3, EN, EN1+3, EN1+6, EN1+7, EN1+9*, EN1+13, EN2+1, EN2+2*
, EN2+3
^PRCD(442.5 - [#442.5] EN1+10
^PRCS(410 - [#410] EN0+2, EN+6, EN1+1, EN1+6, EN1+7, EN1+8, EN1+12, EN1+13, 3, 1
, IT
^TMP($J N!, N+7, 3, 1+1, IT*, IT+1!, Q!

Label References

Name Line Occurrences
1 N, N+1
2 3
3 1+2
EN EN1+4, EN1+6, EN1+7, EN1+9, EN1+10, EN1+11, 3+2, 3+3, 2+4, 2+6
ERR 3+2, 2+1
ERR1 3+2, 2+3
ERR2 3+2, 2+2
HLP N+1
IT 1
N N+6, N+7, 3+1, HLP
Q EN0+3, EN+6, N+1, 3

Naked Globals

Name Field # of Occurrence
^( IT
^(0 EN0+2, EN, EN1+8, N+7*, 1+1*
^(1 EN0+3, EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 3+1*, VENMSG+3~*, VENMSG+4
>> %A 3+1*
>> %B 3+1*
C Q!
>> D HLP*
>> D0 Q*
>> DA Q*, EN2+1, EN2+2, EN2+3
>> DE(2 EN2+4!
DIC EN+2*, EN+6!, HLP*!, Q!
DIC("S" EN+4*, EN+5*
DIC(0 EN+3*, HLP*
DT DT*
DTIME N+1
EN EN1+11*, EN1+12*, EN1+13*, Q!
>> I EN0+2*, N+5*, 1*, IT, IT+1
>> J N*, N+7, 3, 3+2, 1+1, 2, IT*
>> K N*, 3*, IT*
>> PRC("BBFY" EN1+1*
>> PRC("SITE" EN1+8, EN1+11, EN2+4
PRCH Q!
>> PRCHCC EN2+4*
PRCHD EN*, Q!
>> PRCHFLG VENMSG+4*
>> PRCHG 3+2, 2
PRCHJ Q!
PRCHK Q!
>> PRCHN("MP" EN1+10, EN2+2
>> PRCHN("SFC" EN2+1*, EN2+2
>> PRCHNRQ EN1+13
PRCHPFQT EN1+3*, EN1+4!, EN1+5!
>> PRCHPO EN0+2, EN0+3, EN, EN1+3, EN1+6, EN1+7, EN1+9, EN1+13, Q
>> PRCHPOST N
PRCHRFQT EN1*, EN1+4!, EN1+5!
PRCHS 3+2*, 2*, Q!
PRCHSIT N!, 3+2*, 2*, Q!
PRCHSIT( N*, 3, IT*
PRCHSLI Q!
PRCHSP EN*, Q!
PRCHSX EN+6*, Q!
PRCHSY EN!, EN+6*, EN1+6, EN1+7, EN1+8, 3, 3+2, 1, 2+1, 2+2
, 2+3, 2+4, IT, Q!
PRCHSY(0 EN+6*
PRCHSZ V+3*, EN0, N, Q!
PRCHX N+1*, N+2*, N+3*, N+4*, N+5!*, N+6, N+7, Q!
>> PRCHZZZ9 EN+4, EN+5
U EN0+2, EN0+3, EN, EN+6, EN1, EN1+3, EN1+6, EN1+7, EN1+8, EN1+9
, EN1+10, EN1+12, EN1+13, EN2+2
X EN1+8*, EN1+9, EN1+10, N+5*, HLP*, Q!, DT*
X(1 N+5*
X(2 N+5*
Y EN+6, EN1+1, EN1+10*, EN1+12, EN1+13, Q!, Q+1*, DT
Y(0 EN+6*, EN1, EN2+3*, EN2+4
>> Z EN1+8*, EN1+9
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