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

Package Total Call Graph
IFCAP 23 $$DATE^PRC0C  $$QTRDATE^PRC0D  SUPP^PRCFFMO  ^PRCFYN  (ESIG,START)^PRCH410  AAC^PRCHAAC  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 5 ^%DT  NOW^%DTC  EN^DDIOL  ^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**;Oct 20, 2000;Build 15
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
EN^DDIOL EDI+6
^DIE ASK+31
^DIR ASK+5, QQ+2
$$DATE^PRC0C PHA+2, PHA+6
$$QTRDATE^PRC0D PHA+2
SUPP^PRCFFMO EDI+14
^PRCFYN ASK+1, ASK+7, ASK+47
ESIG^PRCH410 ASK+60, EDI+10
START^PRCH410 EDI+9
AAC^PRCHAAC EDI+6
LIMIT^PRCHCD0 PHA+7
ENCODE^PRCHES5 ASK+52
ERR^PRCHNPO PHAPHA+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+14, EDI+15
UPDATE^PRCPWIU INV+6, INV+7
$$OVCOM^PRCS0A PHA+6
COMM^PRCSPC EDI+11
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+15
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
FSASK+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+5, EDI+8
EDI+9, EDI+10, EDI+11, EDI+12*, EDI+13, INVINV+2, INV+3, INV+5, INV+6
INV+7
^PRCS(410 - [#410] PHA+5

Label References

Name Line Occurrences
FS ASKASK+44
INV EDI+2, EDI+12
PRT INVINV+1
Q ASKASK+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
>> % ASKASK+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+2!
B Q+2!
BRCHK PHA+5~*
BRCOST PHA+5~*
C Q+2!
CCHK PHA+1~, PHA+4*, PHA+5*, PHA+6
>> CDA ASK+60, EDI+10
D0 ASK+51*, ASK+54*, PRT+4*, PRT+7*, PRT+9*, PRT+11*, Q+1!
D1 ASK+54!
DA ASK+3*, ASK+30~, ASK+31*, ASK+50*, ASK+51*, ASK+52, ASK+60*, EDI+9*, EDI+10*, INV+6*
INV+7*, PRT+4*, PRT+7*, PRT+9*, PRT+11*, Q+1!
DIC Q+1!
DIE ASK+30~, ASK+31*, Q+1!
DIR QQ~
DIR("A" ASK+5*!, QQ+2*
DIR(0 ASK+5*!, QQ+2*
DR ASK+30~, ASK+31*, Q+1!
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+2!
ERROR1 Q+2!
F1 Q+2!
FCHK PHA+1~, PHA+6*
FILE PHA+7*!, FS+6*
FLG INV+2*, INV+3*, INV+7, INV+8!
I Q+1!
I1 Q+2!
ITEMCNT Q+2!
J Q+1!
K Q+1!
M Q+2!
M0 Q+2!
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+2!
P ASK+3*, ASK+4, ASK+5, Q+1!
PODA ASK+60*!, EDI+10*!
POP Q+2!
>> PRC("CP" PHA+3*, PHA+6
>> PRC("SITE" PHA+6
PRCH Q!
PRCHAC Q!
PRCHACT Q!
PRCHAM Q!
PRCHAMT Q!
PRCHB Q!
PRCHBO Q!
>> PRCHCD ASK+58*, ASK+62*, ASK+63
PRCHCN Q!
PRCHCNT Q!
PRCHD Q!
PRCHDA Q!
>> PRCHDELV ASKASK+44, ASK+56
PRCHDT Q!
PRCHEC Q!
PRCHEDI Q!
PRCHER Q!
PRCHES Q!
PRCHEST Q!
PRCHESTL Q!
PRCHFCP Q+2!
PRCHFPDS Q!
PRCHI PRT+11*, Q!
>> PRCHITM PHA+10*, PHA+15*
PRCHL0 Q!
PRCHL1 Q!
PRCHL2 Q!
PRCHL3 Q!
PRCHLCNT Q!
PRCHLI Q!
PRCHLN Q+2!
PRCHLOG Q+2!
PRCHN Q+1!
PRCHN("MP" FS+5, FS+8, ASKASK+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+1!
PRCHNRQ Q+1!
>> PRCHOBL FS+7, EDI+15
PRCHP Q+1!
>> PRCHPC PHAPHA+5, ASKASK+44, ASK+46, ASK+56, EDI+3
>> PRCHPHAM ASK+6, ASK+50, INV+1, INV+5
PRCHPO PHAPHA+1, PHA+2, PHA+3, PHA+4, PHA+5, PHA+7, PHA+9, PHA+10, PHA+14
PHA+15, FSFS+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+5, EDI+8, EDI+9
EDI+10, EDI+11, EDI+12, EDI+13, EDI+14, EDI+15, INVINV+2, INV+3, INV+5
INV+6, INV+7, PRT+4, PRT+7, PRT+9, PRT+11, Q+1!
>> PRCHPOMT ASK+59*, ASK+62*, ASK+63
PRCHPONO Q+1!
PRCHQ PRT+4!*, PRT+7*, PRT+9!*, PRT+11*, Q+1!
PRCHQ("DEST" PRT+7*, PRT+10*, PRT+11*
PRCHQ("DEST2" PRT+6*
PRCHS Q+1!
PRCHSC Q+1!
PRCHSTAT FS+4*, FS+5*, FS+7*, FS+8*, ASK+50, EDI+12, Q+1!
PRCHSTN Q+2!
PRCHTTT Q+1!
PRCHV Q+1!
PRCHVAR Q+1!
PRCHX Q+1!
PRCHXXD0 Q+2!
PRCHY Q+1!
PRCOPODA EDI+3~*, EDI+14~*, EDI+15~*
>> PRCPROST ASK+45*
PRCSIG ASK+39*, ASK+52*, ASK+53, QQ+1, QQ+2!, Q!
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!
SUBACC Q+2!
U PHA+1, PHA+2, PHA+4, PHA+7, PHA+9, PHA+10, PHA+14, PHA+15, FSASK+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+5, EDI+8, EDI+9
EDI+10, EDI+11, EDI+12, EDI+13, INVINV+2, INV+3, INV+5, INV+6, INV+7
V3 Q+2!
X ASK+8*, ASK+11, ASK+19, ASK+26, ASK+34*, ASK+50*, ASK+52*, ASK+60*, EDI+10*, Q+1!
Y ASK+19, ASK+32, ASK+54, Q+1!
Z Q+1!
ZTDESC Q+2!
ZTRTN Q+2!
ZTSK Q+1!
ZTUCI Q+2!

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