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 |  Marked Items  | All
Print Page as PDF
Routine: PRCHAM

Package: IFCAP

Routine: PRCHAM


Information

PRCHAM ;WOIFO/ID/RSD,SF-ISC/TKW/BGJ/AS-AMENDMENTS TO P.O. ;3/8/05

Source Information

Source file <PRCHAM.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
IFCAP 18 ^PRCFYN  ^PRCHAM1  (LCK,RECAL,UPDT)^PRCHAM3  SETC^PRCHAM4  (ESIG,KILL)^PRCHAM44  ^PRCHDAM  ($$STRING,RECODE)^PRCHES1  ENCODE^PRCHES10  
RECODE^PRCHES12  ($$STRING,RECODE)^PRCHES2  $$STRING^PRCHES5  $$ERR^PRCHQQ  ^PRCHQUE  ^PRCHSF  UPD^PRCHSTAT  UPDATE^PRCPWIU  
($$SUM,ESIG)^PRCUESIG  ENT^PRCVRRA  
VA FileMan 6 NOW^%DTC  %XY^%RCR  WAIT^DICD  ^DIE  EN^DIK  ^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: 4

Package Total Caller Graph
IFCAP 4 PRCHAM1  PRCHAM4  PRCHEA  PRCHESE  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**14,38,81**;Oct 20, 2000
ENAV
EN
EN1
CHK
EN2
ADJESIG
SKIPIT
JMP
QQ
Q

External References

Name Field # of Occurrence
NOW^%DTC JMP+5
%XY^%RCR SKIPIT
WAIT^DICD EN2+12, SKIPIT
^DIE ENAV+5, EN2+1
EN^DIK JMP+3
^DIR QQ+1
^PRCFYN ENAV+2, EN2EN2+1, EN2+3
^PRCHAM1 ENAV+6
LCK^PRCHAM3 ENAV
RECAL^PRCHAM3 CHK
UPDT^PRCHAM3 CHK+2
SETC^PRCHAM4 JMP
ESIG^PRCHAM44 EN2+5
KILL^PRCHAM44 Q+1
^PRCHDAM EN2
$$STRING^PRCHES1 SKIPIT+4
RECODE^PRCHES1 SKIPIT+5
ENCODE^PRCHES10 EN2+8
RECODE^PRCHES12 EN2+9
$$STRING^PRCHES2 SKIPIT+10
RECODE^PRCHES2 SKIPIT+11
$$STRING^PRCHES5 EN2+7
$$ERR^PRCHQQ QQ+1
^PRCHQUE JMP+8, JMP+9
^PRCHSF JMP+8
UPD^PRCHSTAT EN2+11
UPDATE^PRCPWIU JMP+7
$$SUM^PRCUESIG EN2+7, SKIPIT+4, SKIPIT+10
ESIG^PRCUESIG EN2+6
ENT^PRCVRRA SKIPIT+7
$$GET^XPAR SKIPIT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Can't continue without a Purchasing Agent !"
  • Line Location: ENAV+5
Function Call: WRITE
  • Prompt: !?3,"Recalculating Discounts ..."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: !?10,"Adjustment Deleted !",$C(7)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !?5,"Purchasing Agent Field is undefined !",$C(7)
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: JMP+8
Function Call: WRITE
  • Prompt: !?3,"SEND TO FISCAL ",!
  • Line Location: JMP+9
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+1
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!"
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+1
Function Call: WRITE
  • Prompt: !," ADJUSTMENT VOUCHER DELETED",$C(7)
  • Line Location: QQ+1
Routine Call
  • DIE
  • Line Location:
    • ENAV+5
    • EN2+1
Routine Call
  • DIR
  • Line Location:
    • QQ+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] ENAVENAV+1, EN2+7, EN2+11, SKIPIT*, SKIPIT+1, SKIPIT+2*, SKIPIT+4, SKIPIT+9, SKIPIT+10
JMP+2, JMP+6
^PRC(443.6 - [#443.6] ENAV+4*, ENAV+5, ENEN+1, EN+2*, EN1*, EN1+1*, CHK+1*, EN2*, EN2+2
EN2+4, EN2+8*, EN2+10, EN2+11*, ADJESIGADJESIG+1, ADJESIG+3, ADJESIG+5*, ADJESIG+7*, Q!
^TMP("PRCHW" EN+2, EN1EN1+1!, CHK

Label References

Name Line Occurrences
EN CHK
EN1 EN+2
JMP SKIPIT+3, SKIPIT+9
Q ENAVENAV+2, ENAV+5, CHKEN2+3, EN2+4, JMP+10
QQ EN2+6, EN2+8, EN2+9, SKIPIT+5, SKIPIT+11
SKIPIT ADJESIGADJESIG+2

Naked Globals

Name Field # of Occurrence
^( EN1+1*
^(0 EN*, EN+2, CHK+1*, EN2+2, EN2+10*
^(1 ENAV+4*, EN2+4, JMP+6
^(12 ENAVENAV+4*
^(7 ENAVENAV+4*, EN2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENAV+2*, EN2*, EN2+1*, EN2+3*, JMP+5
>> %A ENAV+2*, EN2*, EN2+1*, EN2+3*
>> %B ENAV+2*, EN2*, EN2+1*, EN2+3*
>> %X SKIPIT*
>> %Y SKIPIT*
ADJDATA ADJESIG+1*, ADJESIG+2, ADJESIG+6*, ADJESIG+7, ADJESIG+8!
AMT Q!
>> D0 EN2*, JMP+8*, JMP+9*
>> D1 EN2*, JMP+8*, JMP+9*
DA EN2+1*, EN2+6*, EN2+11*, JMP+3*, JMP+4!, JMP+7*
DA(1 JMP+2*, JMP+3
>> DIE ENAV+4*, EN2+1*
DIK JMP+3*, JMP+4!
DIK(1 JMP+2*
>> DIR("A" QQ+1*
>> DIR(0 QQ+1*
>> DR ENAV+4*, EN2+1*
DT ENEN+2, EN1+1, JMP+5*
DUZ EN2+5
I ENAV+1*, EN+1*, EN1*, EN2+10*, JMP+1*, Q!
J EN*, EN+1*, EN+2, EN1*, EN1+1, JMP+1*, Q!
K Q!
N JMP+2*, JMP+3, JMP+4!
NOFISCAL EN2+2*, EN2+3, JMP+9, Q+1!
>> P EN2+4*, EN2+5, EN2+6, EN2+8
>> PRC("PARAM" JMP+9
PRCH EN2*, Q!
PRCH(0 ENAV*, ENAV+4, ENAV+6
PRCH(1 ENAV*, ENAV+4
PRCH(12 ENAV*, ENAV+4
PRCH(7 ENAV*, ENAV+4
PRCHA Q!
PRCHAC Q!
PRCHACT Q!
>> PRCHAM ENAV+3*
PRCHAMT ENAV*, CHK+1, Q!
PRCHAN ENAV*, ENAV+1*, ENAV+2*, ENAV+3, ENAV+5, ENEN+1, EN+2, EN1EN1+1
CHK+1, EN2EN2+3, EN2+4, EN2+8, ADJESIG+1, ADJESIG+4, ADJESIG+7, SKIPIT+2, JMP+8
JMP+9, Q!
PRCHAREC ENAV*, CHK, Q!
PRCHAV ENAV+4, ENAV+6, ADJESIG+3, ADJESIG+5, ADJESIG+6, SKIPIT+3, SKIPIT+4, SKIPIT+5, SKIPIT+7, SKIPIT+9
SKIPIT+10, SKIPIT+11, Q!
PRCHAVLD Q+1!
PRCHCHK ENAV*, EN*, CHKQ+1!
PRCHCV JMP+6*, Q!
PRCHD0 Q!
PRCHDA Q!
>> PRCHDL ENAV*, CHK+2
PRCHDT Q!
PRCHII Q+1!
PRCHITR Q+1!
PRCHITSB Q+1!
PRCHJJ Q+1!
PRCHL1 ENEN+2, CHK*, Q!
PRCHL2 EN, CHK*, Q!
PRCHLC ENAV+6*, EN2, Q!
PRCHMM Q+1!
PRCHN EN, CHK*, Q!
PRCHNFLG SKIPIT+11!
PRCHNPO SKIPIT, Q!
PRCHNPO(0 SKIPIT
PRCHO EN, CHK*, Q!
PRCHP0 Q!
PRCHPO ENAVENAV+1, ENAV+4, ENAV+5, ENEN+1, EN+2, EN1EN1+1, CHK+1
EN2EN2+1, EN2+2, EN2+4, EN2+6, EN2+7, EN2+8, EN2+9, EN2+10, EN2+11
ADJESIGADJESIG+1, ADJESIG+3, ADJESIG+5, ADJESIG+7, SKIPIT+1, SKIPIT+2, SKIPIT+4, SKIPIT+5, SKIPIT+7
SKIPIT+9, SKIPIT+10, SKIPIT+11, JMP+2, JMP+6, JMP+7, JMP+8, JMP+9, Q!
>> PRCHQ JMP+8*, JMP+9*
>> PRCHQ("DEST" JMP+9*
PRCHQTY Q+1!
PRCHRPTN Q+1!
PRCHRPTO Q+1!
PRCHSAM1 Q+1!
PRCHSAM2 Q+1!
PRCHSHIP Q+1!
>> PRCHX JMP+1
>> PRCHX( JMP+1
PRCHXX1 Q+1!
>> PRCSIG EN2+6*, EN2+8*, EN2+9*, SKIPIT+5*, SKIPIT+11*, QQ+1
PRCSUM EN2+7*, EN2+9!, SKIPIT+4*, SKIPIT+5!, SKIPIT+10*, SKIPIT+11!
PRTDATA ADJESIG+3*, ADJESIG+4*, ADJESIG+5, ADJESIG+8!
ROUTINE EN2+6*, EN2+8*, EN2+9*, SKIPIT+5*, SKIPIT+11*, QQ*, QQ+1, Q!
U ENAV+6, EN+2, EN1+1, CHK+1, EN2EN2+2, EN2+8, EN2+10, ADJESIG+2, ADJESIG+4
ADJESIG+6, SKIPITSKIPIT+2, SKIPIT+9, JMP+9
X EN*, EN+2, EN1*, EN2+8*, EN2+11*, JMP+1*, Q!
X1 Q!
X2 Q!
Y ENAV+5, EN2+11*, JMP+1*, Q!
Y(0 ENAV
Z JMP+1*, Q!
ZTSK JMP+8!

Marked Items

Name Field # of Occurrence
$T( QQ
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 |  Marked Items  | All