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

Package: IFCAP

Routine: PRCHMA


Information

PRCHMA ;WISC/AKS-Amend to PO, req ;6/10/96 14:07

Source Information

Source file <PRCHMA.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
IFCAP 22 $$DATE^PRC0C  ERS410^PRC0G  SUPP^PRCFFM2M  ^PRCFSITE  ^PRCFYN  ($$ASK,COMMIT)^PRCHAM8  CHECK^PRCHAMDF  (AMENDNO,ASK,GETPO,INFO,MSG,MSG1,SOURCE,UPDATE)^PRCHAMU  
(EN2,EN8)^PRCHAMXB  (ADJ1,LIMIT)^PRCHCD0  ^PRCHDAM  $$VERIFY^PRCHES5  PAID^PRCHINQ  (KILL,PCD)^PRCHMA1  CAN^PRCHMA3  EN106^PRCHNPO7  
^PRCHQUE  ^PRCHSF3  CHECK^PRCHSWCH  ^PRCOEDI  (ENCODE,REMOVE)^PRCSC2  EBAL^PRCSEZ  
VA FileMan 2 ^DIE  ^DIR  

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

Package Total Caller Graph
IFCAP 17 ADMINISTRATIVE CERTIFICATIONS  DISCOUNT  ITEM  PRCH ALL STATUS AMEND TO PO  PRCH ALL STATUS AMEND TO REQ  PRCH AMEND DELIVERY ORDER  PRCH AMENDMENT TO P/C ORDER  PRCH7B  
PRCH7C  PRCH7D  PRCHMA1  PRCHMA3  PRCHPC AMEND  PRCHPCAR  PRCHPM REQN AMEND  ^PRC(441.7  
^PRC(443.6  

Entry Points

Name Comments DBIA/ICR reference
REQ
PO
LOOP
ASK
CAN1
CHK
ERR
ENC
APP
REV
EXIT
EXIT1
FLAG
NOSIGN
NOSIGN1
TOP ;PAUSE AT BOTTOM OF SCREEN
CHKDISC ;CHECK DISCOUNTS MATCH ITEMS ;PRC*5.1*183
D1
D2 ;LIST ANY DISCOUNT ERRORS FOUND IN RELATION TO ITEMS

External References

Name Field # of Occurrence
^DIE CHK+6, ERR+7, ENC+15, NOSIGN1+1
^DIR CHK+20, ERR+1, TOP+2, D2+16
$$DATE^PRC0C ERR+22
ERS410^PRC0G ERR+23
SUPP^PRCFFM2M ERR+13, ERR+17, ERR+49
^PRCFSITE LOOP+2
^PRCFYN ENC+8, APP, REV+2
$$ASK^PRCHAM8 ERR+4
COMMIT^PRCHAM8 ERR+5
CHECK^PRCHAMDF CHK+25
AMENDNO^PRCHAMU LOOP+12
ASK^PRCHAMU ASK
GETPO^PRCHAMU LOOP+6
INFO^PRCHAMU LOOP+14
MSG^PRCHAMU ASK+4
MSG1^PRCHAMU ASK+5
SOURCE^PRCHAMU ERR+51
UPDATE^PRCHAMU CAN1+13
EN2^PRCHAMXB LOOP+15
EN8^PRCHAMXB LOOP+16, LOOP+19
ADJ1^PRCHCD0 CHK+28
LIMIT^PRCHCD0 CHK+29
^PRCHDAM REV+3
$$VERIFY^PRCHES5 LOOP+11, CHK
PAID^PRCHINQ ENC+6
KILL^PRCHMA1 LOOP
PCD^PRCHMA1 CHK+17
CAN^PRCHMA3 ENC+1
EN106^PRCHNPO7 CHK+22
^PRCHQUE ERR+9, ERR+11, ERR+25, ERR+50
^PRCHSF3 CHK+27, ERR+8, REV+2
CHECK^PRCHSWCH ERR+12
^PRCOEDI ERR+14
ENCODE^PRCSC2 ERR+24
REMOVE^PRCSC2 ERR+24
EBAL^PRCSEZ ERR+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !!,?5,"This purchase order has been tampered with.",!,?5,"Please notify IFCAP APPLICATION COORDINATOR.",!
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !!,?5,"This purchase order has been tampered with.",!,?5,"Please notify IFCAP APPLICATION COORDINATOR."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !!,?5,"There is no Amendment Status."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,?5,"There is no Amendment Status.",!
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing BOC !",$C(7)
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing NSN!",$C(7)
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing its description!",$C(7)
  • Line Location: CHK+14
Function Call: WRITE
  • Prompt: !!,?5,"Line item ",+$P(PRCHLN,U)," is missing contract number.",$C(7)
  • Line Location: CHK+15
Function Call: WRITE
  • Prompt: !!,?5,"This amendment has Est. Shipping and/or Handling charges without any",!,?5,"Est. Shipping BOC."
  • Line Location: CHK+23
Function Call: WRITE
  • Prompt: !!,?5,"This amendment needs to be re-edited before it can be signed.",!,"**REMINDER** Unsigned amendments are deleted from the system after 7 days."
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+11
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction..."
  • Line Location: ERR+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: ERR+17
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+25
Function Call: WRITE
  • Prompt: !?3,"SEND TO SUPPLY "
  • Line Location: ERR+50
Function Call: WRITE
  • Prompt: !?5,$S($D(PRCHREQ):"REQUISITION",1:"PURCHASE ORDER")_" HAS BEEN RECEIVED, CANNOT CANCEL !",$C(7)
  • Line Location: ENC+5
Function Call: WRITE
  • Prompt: !,?5,"THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !",$C(7)
  • Line Location: ENC+7
Function Call: WRITE
  • Prompt: ?40," <NOTHING CANCELLED>"
  • Line Location: ENC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: REV+2
Function Call: WRITE
  • Prompt: !!,"Discounts/Items discrepancies found... MUST fix either item or discount listed"
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: !!,"DC-IT ITEM(s) %/AMT DISC/ITEM CONTRACT# REASON",!
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !,PRCHDSC,"-",PRCRITM,?6,$P(PRCRITEM,U),?15,$P(PRCRITEM,U,2),?20,$S($P(PRCRITEM,U,5)'="":$P(PRCRITEM,U,5),1:"NONE"),"/",$S($P(PRCITEM,U,2)'="":$P(PRCITEM,U,2),1:"NONE")
  • Line Location: D2+12
Function Call: WRITE
  • Prompt: ?44,$S(PRCRTYP="UNDF":"Tampering, item has been removed",PRCRTYP="CONT":"Item/Disc contract numbers mismatch",1:"")
  • Line Location: D2+13
Function Call: WRITE
  • Prompt: !!,"Error(s) MUST be fixed to approve/review the amendment.....",!
  • Line Location: D2+16
Routine Call
  • DIE
  • Line Location:
    • CHK+6
    • ERR+7
    • ENC+15
    • NOSIGN1+1
Routine Call
  • DIR
  • Line Location:
    • CHK+20
    • ERR+1
    • TOP+2
    • D2+16

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(440.5 - [#440.5] ERR+35*, ERR+36*, ERR+40*, ERR+41*, ERR+47*
^PRC(442 - [#442] CAN1+8, CAN1+9, CHK+15, ERR+18, ERR+19, ERR+23, ERR+29, ERR+30, ERR+31, ERR+32
, ERR+33, ERR+38, ERR+45, ENC+6, EXIT
^PRC(443.6 - [#443.6] LOOP+15, LOOP+17, ASK+6, ASK+9, CAN1+1, CAN1+2, CAN1+4, CAN1+5, CHK+1, CHK+2
, CHK+7, CHK+8, CHK+10, CHK+11, CHK+14, CHK+15, CHK+23, CHK+24, CHK+26, ERR+9
, ERR+10, ERR+15, ERR+49, ENC+11*, ENC+12*, ENC+16, NOSIGN*, D1, D1+1, D1+5
, D1+7, D1+10, D1+12, D2+11
^PRCD(442.3 - [#442.3] CHK+4
^PRCS(410 - [#410] ERR+18, ERR+20*, ERR+21*, ERR+23*

Label References

Name Line Occurrences
@( ASK+3
APP ERR+3
ASK ASK+2, ASK+8, CAN1+12
CAN1 LOOP+19, ASK+1
CHKDISC CAN1+12, REV+1
ENC LOOP+19
ERR CHK+8
EXIT LOOP+10, LOOP+11, LOOP+12, LOOP+14, LOOP+19, ASK+7, ASK+9, CAN1+11, CAN1+13, CHK
, CHK+22, ERR, ERR+3, ERR+4, ERR+6, ERR+15, ERR+52
EXIT1 LOOP+8
LOOP LOOP+9, EXIT1+2
REV LOOP+18, ERR+3
TOP CHK+12, CHK+13, CHK+14, CHK+15

Naked Globals

Name Field # of Occurrence
^(0 LOOP+17, ASK+6, CHK+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PO+1~, ERR+3, ENC+8*, ENC+9, APP*, REV+2*, REV+3
%A PO+1~, ENC+8*, APP*, REV+2*
%B PO+1~, ENC+8*, APP*, REV+2*
A PO~, ERR+22*
AMSTAT CHK+3*, CHK+4*, CHK+6!
B PO~
>> BFLAG CAN1*, CAN1+1*, CAN1+4, CAN1+5*, CAN1+6, CAN1+8, CAN1+9*, CAN1+10, CAN1+11, CAN1+13
CAN PO~, LOOP*, LOOP+17*, LOOP+18, LOOP+19, ASK+2, ASK+6*, CHK+24*, CHK+25, ENC+15*
D0 PO+1~, ERR+9*, ERR+11*, ERR+25*, ERR+50*, REV+3*
D1 PO+1~, ERR+9*, ERR+11*, ERR+25*, ERR+50*, REV+3*
DA LOOP+16*, LOOP+19*, CHK+5*, ERR+7*, ERR+48!, ENC+14*, ENC+15!, NOSIGN1*, NOSIGN1+1!
DA(1 LOOP+16*, LOOP+19*, CHK+5*, ENC+14*, NOSIGN1*
DEL EXIT1!
DELIVER PO~
DIC PO+1~
DIE CHK+5*, CHK+6!, ERR+7*, ENC+14*, ENC+15!, NOSIGN1*, NOSIGN1+1!
DIR CHK+20~, ERR+1~, TOP+1~, D2+16!
DIR("A" D2+16*
DIR(0 CHK+20*, ERR+1*, TOP+1*, D2+16*
DR CHK+5*, ERR+7*, ENC+14*, ENC+15!, NOSIGN1*, NOSIGN1+1!
DT ERR+33, ERR+38, ERR+45
DTOUT LOOP+8, ASK!, ASK+7
DUOUT LOOP+8, ASK!, ASK+7
DUZ ERR+24
END CHK+9~*, CHK+12, CHK+13, CHK+14, CHK+15, CHK+20
ER PO~, LOOP+14, LOOP+19, ASK+2, ENC*, ENC+5*, ENC+6*
ERROR CHK+22, CHK+26!, EXIT1!
FILE CHK+26*!, ERR+12*, ERR+13!, ERR+14!
FIS PO~, LOOP+10, EXIT1!
FL PO~, LOOP+13*
FLAG FLAG!
I PO+1~
IOSL CHK+9
J PO+1~, CHK+14*
LCNT PO~, CHK+7*, CHK+12*, CHK+13*, CHK+14*, CHK+15*, CHK+20*, ERR, TOP+3*
MESSAGE ERR+24!
MSG PO+2~
MTOPDA ERR+16*, ERR+48!
NOCAN LOOP+19, ASK!, ASK+8, ENC+5, ENC+13*
OUT PO~, LOOP+8, EXIT1+2
PAID ENC+6!
POSTAT CHK+2*, CHK+3, CHK+6!, ERR+32*, ERR+33, ERR+38, ERR+45, ERR+48!
PP410 ERR+18*, ERR+20, ERR+21, ERR+23, ERR+24, ERR+48!
PPAMT ERR+18*, ERR+19*, ERR+21, ERR+34, ERR+46, ERR+47, ERR+48!
PPTEMP ERR+18*, ERR+19*, ERR+22, ERR+39, ERR+40, ERR+48!
>> PRC("SITE" LOOP+2
PRCAMD ERR+30*, ERR+31, ERR+48!
PRCCHG ERR+31*, ERR+35, ERR+48!
PRCDCERR PO+2~, CAN1+12*, REV+1*, D2+1*
PRCDERRS CHKDISC+1~
PRCDERRS( D1+6*, D1+7*, D1+11*, D1+12*, D2+5, D2+7, D2+9, D2+10
>> PRCENTRY EXIT
PRCF PO~
PRCF("X" LOOP+2*
PRCFL PO+2~, LOOP+5*, LOOP+9
PRCH CHK+10*, CHK+11, CHK+14, CHK+15, REV~, REV+3*
PRCHAM PO~, LOOP+12, LOOP+16, LOOP+17, LOOP+19, ASK+6, ASK+9, CHK+1, CHK+5, CHK+7
, CHK+24, CHK+25, ERR+4, ERR+5, ERR+7, ERR+9, ERR+11, ERR+25, ERR+50, ENC+11
, ENC+12, ENC+14, APP, REV+3, NOSIGN, NOSIGN1
PRCHAMDA PO~, LOOP+16*, LOOP+19*, ASK+4, ASK+5
PRCHAMT PO+1~, LOOP+13*, ENC+16*
PRCHAREC PO+1~
PRCHAU PO~, ENC+10, ENC+11, NOSIGN
>> PRCHAUTH CHK+13, CHK+26, ENC+6
PRCHAV PO~, LOOP+14
PRCHCD ERR+29*, ERR+35, ERR+36, ERR+40, ERR+41, ERR+47, ERR+48!
PRCHDSC CHKDISC+1~, CHKDISC+2*, D1*, D1+1, D1+6, D1+7, D1+11, D1+12, D2+4*, D2+5*
, D2+7, D2+9, D2+10, D2+12
PRCHEDI PO+1~
PRCHER PO~, CHK+7!*, CHK+8, CHK+12*, CHK+13*, CHK+14*, CHK+15*, CHK+20, CHK+23*, CHK+25
, CHK+26*, ERR
PRCHIMP PO+1~
PRCHL1 PO~
PRCHL2 PO+1~
PRCHLN PO~, CHK+11*, CHK+12, CHK+13, CHK+14, CHK+15
PRCHN PO+1~
PRCHNEW PO~, LOOP*, LOOP+16, LOOP+18
PRCHNORE PO+1~, LOOP*
PRCHNRQ PO+1~
PRCHO PO+1~
>> PRCHOBL ERR+13, ERR+14
PRCHON PO~
PRCHP PO+1~
PRCHPO PO~, LOOP+10, LOOP+11, LOOP+15, LOOP+16, LOOP+17, LOOP+19, ASK+6, ASK+9, CAN1+1
, CAN1+2, CAN1+4, CAN1+5, CAN1+8, CAN1+9, CHK, CHK+1, CHK+2, CHK+5, CHK+7
, CHK+8, CHK+10, CHK+11, CHK+14, CHK+15, CHK+23, CHK+24, CHK+25, CHK+26, ERR+4
, ERR+5, ERR+7, ERR+9, ERR+10, ERR+11, ERR+12, ERR+14, ERR+15, ERR+18, ERR+19
, ERR+23, ERR+25, ERR+29, ERR+30, ERR+31, ERR+32, ERR+33, ERR+38, ERR+45, ERR+49
, ERR+50, ENC+6, ENC+11, ENC+12, ENC+14, ENC+16, REV+3, NOSIGN, NOSIGN1, D1
, D1+1, D1+5, D1+7, D1+10, D1+12, D2+11
>> PRCHQ ERR+9*, ERR+11*, ERR+25*, ERR+50*
>> PRCHQ("DEST" ERR+9*
PRCHREQ REQ~, REQ+1*, CHK+13, ENC+5
PRCHRET PO~, ERR+4*
PRCHX PO+1~, LOOP+16*, LOOP+19*
PRCII CHKDISC+1~, D1+4*, D1+5, D1+6, D1+7, D1+9*, D1+10, D1+11, D1+12
PRCIT CHKDISC+1~, D1+5*, D1+6, D1+7, D1+10*, D1+11, D1+12, D2+10*, D2+11
PRCITEM CHKDISC+1~, D2+11*, D2+12
PRCJJ CHKDISC+1~, D1+9*
PRCNODE ERR+30*, ERR+48!
>> PRCOAMT ERR+22*
PRCOPODA ERR+14*!
>> PRCPROST ERR+3, ERR+15*, ERR+25, APP, EXIT1+1
PRCRCONT CHKDISC+1~, D1+2*
PRCRDIS CHKDISC+1~, D1+1*, D1+2, D1+6, D1+7, D1+11, D1+12
PRCRERR CHKDISC+1~, D2+8*, D2+9*, D2+10
PRCRITEM CHKDISC+1~, D1+2*, D1+3, D1+4, D1+8, D1+9, D2+10*, D2+12
PRCRITM CHKDISC+1~, D2+6*, D2+7*, D2+9, D2+10, D2+12
PRCRTYP CHKDISC+1~, D2+10*, D2+13
PRCTT CHKDISC+1~, CHKDISC+2*, D1+6*, D1+7*, D1+11*, D1+12*, D2+1
REPO PO+1~, ASK+2, EXIT1!
REPONUM ASK!, ASK+1
RETURN PO~, ERR+5*, ERR+6
ROU PO+1~, ASK+3
>> SCE ASK+5*, ERR+51
SFUND PO+1~, ERR+49*, ERR+50
>> THISHLD CAN1+3*, CAN1+4*, CAN1+5, CAN1+7*, CAN1+8*, CAN1+9
U LOOP+15, LOOP+17, ASK+6, ASK+9, CAN1+1, CAN1+2, CAN1+5, CAN1+9, CHK+1, CHK+4
, CHK+7, CHK+8, CHK+12, CHK+13, CHK+14, CHK+15, CHK+23, CHK+24, CHK+26, ERR+9
, ERR+10, ERR+15, ERR+29, ERR+30, ERR+31, ERR+33, ERR+35, ERR+36, ERR+38, ERR+40
, ERR+41, ERR+45, ERR+47, ERR+49, ENC+6, ENC+11, ENC+12, ENC+16, NOSIGN, D1+2
, D1+7, D1+12, D2+12
X PO+1~, LOOP+15*, LOOP+16*, LOOP+19*, ASK+5
Y PO+1~, CAN1+13
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