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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCHNPO4

Package: IFCAP

Routine: PRCHNPO4


Information

PRCHNPO4 ;WOIFO/RSD/RHD-CONT. OF NEW PO--COMPLETE PROCESSING IN SUPPLY ;4/22/98 06:21

Source Information

Source file <PRCHNPO4.m>

Call Graph

Call Graph

Call Graph Total: 27

Package Total Call Graph
IFCAP 22 $$DATE^PRC0C  $$QTRDATE^PRC0D  SUPP^PRCFFMO  ^PRCFYN  (ESIG,START)^PRCH410  LIMIT^PRCHCD0  ENCODE^PRCHES5  ERR^PRCHNPO  
EN105^PRCHNPO7  CHECKFCP^PRCHNPOA  $$ERR^PRCHQQ  ^PRCHQUE  ^PRCHSF  ENS^PRCHSTAT  CHECK^PRCHSWCH  NEW^PRCOEDC  
^PRCOEDI  UPDATE^PRCPWIU  $$OVCOM^PRCS0A  COMM^PRCSPC  ESIG^PRCUESIG  UPD^PRCV442A  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIE  ^DIR  
Toolkit 1 $$GET^XPAR  

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 PRCH7B  PRCH7D  PRCHFPDE  PRCHNPO  PRCHNPO1  PRCHNRQ  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**51,56,81,79,196,220**;Oct 20, 2000;Build 23
PHA
FS
ASK
ISMS ;I PRCHSC=9 ;;I $D(PRCHISMS) ;CHECK ISMS SWITCH AND IF TRUE CREATE ISMS TRANSACTION
EDI ;CHECK TO SEE IF IT IS AN EDI PO AND SEND TO AUSTIN
INV
PRT ;IF IMPREST FUND PO, PRINT A COPY ON BOTH IMPREST FUND & FISCAL PRINTER.
QQ
Q

External References

Name Field # of Occurrence
^%DT ASK+52
NOW^%DTC ASK+25
^DIE ASK+31
^DIR ASK+5, QQ+2
$$DATE^PRC0C PHA+2, PHA+6
$$QTRDATE^PRC0D PHA+2
SUPP^PRCFFMO EDI+10
^PRCFYN ASK+1, ASK+7, ASK+47
ESIG^PRCH410 ASK+60, EDI+6
START^PRCH410 EDI+5
LIMIT^PRCHCD0 PHA+7
ENCODE^PRCHES5 ASK+52
ERR^PRCHNPO PHA, PHA+6, PHA+7, PHA+9, PHA+14, PHA+16, ASK+6
EN105^PRCHNPO7 PHA+16
CHECKFCP^PRCHNPOA ASK+42
$$ERR^PRCHQQ QQ+1
^PRCHQUE PRT+6, PRT+7, PRT+10, PRT+11
^PRCHSF ASK+51
ENS^PRCHSTAT ASK+50
CHECK^PRCHSWCH FS+6
NEW^PRCOEDC PHA
^PRCOEDI EDI+3, EDI+10, EDI+11
UPDATE^PRCPWIU INV+6, INV+7
$$OVCOM^PRCS0A PHA+6
COMM^PRCSPC EDI+7
ESIG^PRCUESIG ASK+39
UPD^PRCV442A ISMS+5
$$GET^XPAR ISMS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Procurement History transaction error "
  • Line Location: PHA+0
Function Call: WRITE
  • Prompt: !,"Insufficient funds for this request."
  • Line Location: PHA+6
Function Call: WRITE
  • Prompt: !!,?5,"One or more of the items on this delivery order",!,?5,"does not contain contract number."
  • Line Location: PHA+10
Function Call: WRITE
  • Prompt: !!,?5,"Line item "_PRCHITM_" on this purchase card order",!,?5,"does not contain a required contract number."
  • Line Location: PHA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"P.O. is missing the Purchasing Agent and must be re-edited !",$C(7)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"You must be the Purchasing Agent listed on P.O. to sign it.",$C(7)
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,?5,"This pharmacy order is a no charge order."
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!!," ***** TAKE NOTE *****"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !!,?2,MSG1,!!,MSG2,!!
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: $C(7),!!,"The 'Do You Want to Send This EDI?' question was bypassed - You must reedit PO"
  • Line Location: ASK+19
Function Call: WRITE
  • Prompt: !!,"In File #440.5, the Expiration Date for this card is blank or this card has"
  • Line Location: ASK+27
Function Call: WRITE
  • Prompt: !,?5,"expired! An EDI order will reject. Please contact your Purchase"
  • Line Location: ASK+28
Function Call: WRITE
  • Prompt: !,?5,"Card Coordinator."
  • Line Location: ASK+29
Function Call: WRITE
  • Prompt: !,"As you have elected to send this order EDI, please ask the Purchase Card"
  • Line Location: ASK+35
Function Call: WRITE
  • Prompt: !,"Coordinator to update the Card's Expiration Date before completing this"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !,"Purchase Order. - You must reedit this PO."
  • Line Location: ASK+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+47
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction"
  • Line Location: EDI+3
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction"
  • Line Location: EDI+11
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+1
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!",$C(7)
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+1
Routine Call
  • DIE
  • Line Location:
    • ASK+31
Routine Call
  • DIR
  • Line Location:
    • ASK+5
    • QQ+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] ASK+11, ASK+19
^PRC(440.5 - [#440.5] ASK+24, ASK+63*
^PRC(442 - [#442] PHA+1, PHA+2, PHA+3, PHA+4, PHA+5, PHA+7, PHA+9, PHA+10, PHA+14, PHA+15
, FS, ASK+3, ASK+6, ASK+8, ASK+11, ASK+19, ASK+21, ASK+23, ASK+33, ASK+57
, ASK+58, ASK+59, ASK+60, ASK+62, ASK+63, ASK+64*, ASK+65*, EDI+2*, EDI+4, EDI+5
, EDI+6, EDI+7, EDI+8*, EDI+9, INV, INV+2, INV+3, INV+5, INV+6, INV+7
, Q+1, Q+2
^PRCS(410 - [#410] PHA+5

Label References

Name Line Occurrences
FS ASK, ASK+44
INV EDI+2, EDI+8
PRT INV, INV+1
Q ASK, ASK+4, ASK+5, ASK+19, ASK+39, ASK+44, ASK+53, PRT+12
QQ ASK+39, ASK+53

Naked Globals

Name Field # of Occurrence
^( INV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK, ASK+1*, ASK+2, ASK+6, ASK+7*, ASK+44, ASK+45*, ASK+47*, ASK+48
>> %A FS+4*, FS+5*, FS+7*, ASK+1*, ASK+7*, ASK+46*, ASK+47*
>> %B ASK+1*, ASK+7*, ASK+47*
>> %DT ASK+52*
A Q+6!
B Q+6!
BRCHK PHA+5~*
BRCOST PHA+5~*
C Q+6!
CCHK PHA+1~, PHA+4*, PHA+5*, PHA+6
>> CDA ASK+60, EDI+6
D0 ASK+51*, ASK+54*, PRT+4*, PRT+7*, PRT+9*, PRT+11*, Q+5!
D1 ASK+54!
DA ASK+3*, ASK+30~, ASK+31*, ASK+50*, ASK+51*, ASK+52, ASK+60*, EDI+5*, EDI+6*, INV+6*
, INV+7*, PRT+4*, PRT+7*, PRT+9*, PRT+11*, Q+2, Q+5!
DIC Q+5!
DIE ASK+30~, ASK+31*, Q+5!
DIR QQ~
DIR("A" ASK+5*!, QQ+2*
DIR(0 ASK+5*!, QQ+2*
DR ASK+30~, ASK+31*, Q+5!
DT ASK+54*
DTOUT ASK+19!, ASK+32
DUZ ASK+5, ASK+39, ASK+52
ERROR PHA*, PHA+7!, PHA+9, PHA+10*, PHA+14, PHA+15*, PHA+16, Q+6!
ERROR1 Q+6!
F1 Q+6!
FCHK PHA+1~, PHA+6*
FILE PHA+7*!, FS+6*
FLG INV+2*, INV+3*, INV+7, INV+8!
I Q+5!
I1 Q+6!
ITEMCNT Q+6!
J Q+5!
K Q+5!
M Q+6!
M0 Q+6!
MSG1 ASK+12*, ASK+15, ASK+16!
MSG2 ASK+13*, ASK+15, ASK+16!
N INV+3*, INV+4!
NOPRINT ASK+2*, ASK+45*, ASK+48*, PRT+7, Q+6!
P ASK+3*, ASK+4, ASK+5, Q+5!
PODA ASK+60*!, EDI+6*!
POP Q+6!
>> PRC("CP" PHA+3*, PHA+6
>> PRC("SITE" PHA+6
PRCH Q+3!
PRCHAC Q+3!
PRCHACT Q+3!
PRCHAM Q+3!
PRCHAMT Q+3!
PRCHB Q+3!
PRCHBO Q+3!
>> PRCHCD ASK+58*, ASK+62*, ASK+63
PRCHCN Q+3!
PRCHCNT Q+3!
PRCHD Q+3!
PRCHDA Q~, Q+2*, Q+3!
>> PRCHDELV ASK, ASK+44, ASK+56
PRCHDT Q+3!
PRCHEC Q+3!
PRCHEDI Q+3!
PRCHER Q+3!
PRCHES Q+3!
PRCHEST Q+3!
PRCHESTL Q+3!
PRCHFCP Q+6!
PRCHFPDS Q+3!
PRCHI PRT+11*, Q+4!
>> PRCHITM PHA+10*, PHA+15*
PRCHL0 Q+4!
PRCHL1 Q+4!
PRCHL2 Q+4!
PRCHL3 Q+4!
PRCHLCNT Q+4!
PRCHLI Q+4!
PRCHLN Q+6!
PRCHLOG Q+6!
PRCHN Q+5!
PRCHN("MP" FS+5, FS+8, ASK, ASK+65, EDI+2, PRT+6, PRT+7, PRT+10, PRT+11
PRCHN("SFC" FS*, FS+5, FS+8, ASK+64, ASK+65, PRT+7, PRT+11
PRCHNM Q+5!
PRCHNRQ Q+5!
>> PRCHOBL FS+7, EDI+11
PRCHP Q+5!
>> PRCHPC PHA, PHA+5, ASK, ASK+44, ASK+46, ASK+56, EDI+3
>> PRCHPHAM ASK+6, ASK+50, INV+1, INV+5
PRCHPO PHA, PHA+1, PHA+2, PHA+3, PHA+4, PHA+5, PHA+7, PHA+9, PHA+10, PHA+14
, PHA+15, FS, FS+6, ASK+3, ASK+6, ASK+8, ASK+11, ASK+19, ASK+21, ASK+23
, ASK+31, ASK+33, ASK+42, ASK+50, ASK+51, ASK+54, ASK+57, ASK+58, ASK+59, ASK+60
, ASK+62, ASK+63, ASK+64, ASK+65, ISMS+5, EDI+2, EDI+3, EDI+4, EDI+5, EDI+6
, EDI+7, EDI+8, EDI+9, EDI+10, EDI+11, INV, INV+2, INV+3, INV+5, INV+6
, INV+7, PRT+4, PRT+7, PRT+9, PRT+11, Q+1, Q+2, Q+5!
>> PRCHPOMT ASK+59*, ASK+62*, ASK+63
PRCHPONO Q+5!
PRCHQ PRT+4!*, PRT+7*, PRT+9!*, PRT+11*, Q+5!
PRCHQ("DEST" PRT+7*, PRT+10*, PRT+11*
PRCHQ("DEST2" PRT+6*
PRCHS Q+5!
PRCHSC Q+5!
PRCHSTAT FS+4*, FS+5*, FS+7*, FS+8*, ASK+50, EDI+8, Q+5!
PRCHSTN Q+6!
PRCHTTT Q+5!
PRCHV Q+5!
PRCHVAR Q+5!
PRCHX Q+5!
PRCHXXD0 Q+6!
PRCHY Q+5!
PRCOPODA EDI+3~*, EDI+10~*, EDI+11~*
>> PRCPROST ASK+45*
PRCSIG ASK+39*, ASK+52*, ASK+53, QQ+1, QQ+2!, Q+4!
PRCX ASK+22~, ASK+23*, ASK+24*, ASK+26
PRCY ASK+20~*, ASK+29*, ASK+33
RBD PHA+1~, PHA+2*, PHA+6
RBDT PHA+1~, PHA+2*
RBFY PHA+1~, PHA+2*
RBQT PHA+1~, PHA+2*
REFMOP PHA+1~*
ROUTINE ASK+39*, ASK+53*, QQ~*, QQ+1, Q+4!
SUBACC Q+6!
U PHA+1, PHA+2, PHA+4, PHA+7, PHA+9, PHA+10, PHA+14, PHA+15, FS, ASK+3
, ASK+6, ASK+8, ASK+11, ASK+19, ASK+21, ASK+23, ASK+24, ASK+33, ASK+57, ASK+58
, ASK+59, ASK+60, ASK+62, ASK+63, ASK+64, ASK+65, EDI+2, EDI+4, EDI+5, EDI+6
, EDI+7, EDI+8, EDI+9, INV, INV+2, INV+3, INV+5, INV+6, INV+7
V3 Q+6!
X ASK+8*, ASK+11, ASK+19, ASK+26, ASK+34*, ASK+50*, ASK+52*, ASK+60*, EDI+6*, Q+5!
Y ASK+19, ASK+32, ASK+54, Q+5!
Z Q+5!
ZTDESC Q+6!
ZTRTN Q+6!
ZTSK Q+5!
ZTUCI Q+6!

Marked Items

Name Field # of Occurrence
$T( ASK+53, QQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All