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

Package: IFCAP

Routine: PRCHUTL


Information

PRCHUTL ;SF/TKW/ID/RSD-UTILITY ROUTINES FOR SUPPLY SYSTEM ; 5/10/99 10:58am

Source Information

Source file <PRCHUTL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 ^%DT  %XY^%RCR  (,IX)^DIC  FILE^DICN  ^DIE  Y^DIQ  
IFCAP 5 ^PRCFSITE  ^PRCFYN  UPD^PRCHSTAT  ($$CHECK,VRQ)^PRCOVTST  $$ISMSFLAG^PRCPUX2  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
IFCAP 29 PRCF MASTER  PRCFA ACCTG TECH  PRCFA UTILITY  PRCH442A  PRCH7B  PRCH7D  PRCHAM2  PRCHAM5  
PRCHCNV  PRCHCON3  PRCHDEP3  PRCHDP2  PRCHE  PRCHEC  PRCHEI  PRCHFPT3  
PRCHMA1  PRCHNPO  PRCHNPO7  PRCHPAT  PRCHPC UTL  PRCHPNT2  PRCHQ15  PRCHREC  
PRCHUSER MASTER  PRCHUSER PA  PRCO AR VENDOR EDIT  PRCVITMU  ^PRC(440.3  
Accounts Receivable 1 RCXFMSUV  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN2 ;CALLED FROM FILE 441 FIELD .01, INPUT X="NEW", OUTPUT X=NEXT INTERNAL NUMBER
ENPO ;ENTER NEW PO IN FILE 442
ENPO1
NUM
Z
DOCID
W1
W2
W3
ENPOQ
WORD ; PRCH=GLOBAL,WX=LINE TO INSERT
SWITCH
  • ICR #6647
    • Status: Active
    • Usage: Private
    EDISTAT(D0,D1,LINECNT) ;DISPLAY P.O.'S EDI STATUS & QUANTITY
  • ICR #6567
    • Status: Withdrawn
    • Usage: Private
    VEN(A) ; Entry point to get FMS Vendor ID_ Alt.Address Indicator from the vendor file. -- Used by AR (Only)
    ; A = internal entry number to vendor file (#440)
  • ICR #2526
    • Status: Active
    • Usage: Private
    VENSEL() ; VENSEL = VENdor SELection
    ; EXTRINSIC FUNCTION THAT ALLOWS A USER TO SELECT AN IFCAP VENDOR.
    ; THIS FUNCTION WILL BE USED BY ACCOUNTS RECEIVABLE USERS.
  • ICR #2526
    • Status: Active
    • Usage: Private
    AF ; CALLED BY "AF" X-REF IN FIELD 52 (SITE AR) IN FILE 440.3.
    VENEDITF ; THIS ENTRY POINT WILL INFORM USERS THAT THERE ARE VENDOR
    ; RECORDS, USED BY Accounts Receivable, THAT NEED TO BE EDITED
    ; BEFORE THEY CAN BE ENTERED INTO A VRQ.
    VENEDITS ; THIS ENTRY POINT WILL INFORM USERS THAT THERE ARE VENDOR
    ; RECORDS, USED BY Accounts Receivable, THAT NEED TO BE EDITED
    ; BEFORE THEY CAN BE ENTERED INTO A VRQ.
    COUNT ; NOW SHOW MESSAGE, IF ANY
    FIND ; SEE IF FISCAL CAN ADD A VENDOR.

    External References

    Name Field # of Occurrence
    ^%DT ENPO+2, ENPO1+1
    %XY^%RCR VENSEL+40
    ^DIC ENPO1, VENSEL+27
    IX^DIC ENPO+11
    FILE^DICN AF+10
    ^DIE VENSEL+48, VENSEL+55
    Y^DIQ EDISTAT+11, EDISTAT+12
    ^PRCFSITE VENSEL+19
    ^PRCFYN ENPO+13, Z+1
    UPD^PRCHSTAT ENPO1+2
    $$CHECK^PRCOVTST VENSEL+44
    VRQ^PRCOVTST VENSEL+50
    $$ISMSFLAG^PRCPUX2 SWITCH

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"ENTER A NEW "_$S($G(PRCHDELV):"DELIVERY",1:"PURCHASE")_" ORDER NUMBER OR A COMMON NUMBERING SERIES"
    • Line Location: ENPO+3
    Function Call: WRITE
    • Prompt: !?3,$S($G(PRCHDELV):"DELIVERY",1:"PURCHASE")_" ORDER: "
    • Line Location: ENPO+4
    Function Call: WRITE
    • Prompt: " ??? Not part of an existing Common Numbering Series."
    • Line Location: ENPO+12
    Function Call: WRITE
    • Prompt: !?3,"P.O. ",X," already exist, use edit option to modify."
    • Line Location: ENPO+14
    Function Call: WRITE
    • Prompt: !?3," Common numbering series is being edited by another user, try later",$C(7)
    • Line Location: W1+0
    Function Call: WRITE
    • Prompt: !?3,"UPPER BOUND HAS BEEN EXCEEDED FOR COMMON NUMBERING SERIES ",$P(Y,U,2),$C(7)
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: " Purchase Order number already exist, please try again ",$C(7)
    • Line Location: W3+0
    Function Call: WRITE
    • Prompt: "#1: ",Y," QTY: ",$P(X,"^",2),!,?26
    • Line Location: EDISTAT+11
    Function Call: WRITE
    • Prompt: "#2: ",Y," QTY: ",$P(X,"^",4)
    • Line Location: EDISTAT+12
    Function Call: WRITE
    • Prompt: !!,"There are Vendor Records that AR is using to be edited."
    • Line Location: COUNT+4
    Routine Call
    • DIC
    • Line Location:
      • ENPO1
      • VENSEL+27
    Routine Call
    • DIC
    • Line Location:
      • ENPO+11
    Routine Call
    • DIE
    • Line Location:
      • VENSEL+48
      • VENSEL+55

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCF(422.2 - [#422.2] Classic Fileman Calls
    ^PRC(440 - [#440] Classic Fileman Calls
    ^PRC(440.3 - [#440.3] Classic Fileman Calls
    ^PRC(442 - [#442] Classic Fileman Calls
    ^PRC(442.6 - [#442.6] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(442.01 EDISTAT+11, EDISTAT+12
    ^PRC(411 - [#411] VENSEL+42, FIND+5, FIND+6, FIND+7
    ^PRC(440 - [#440] VEN+3
    ^PRC(440.3 - [#440.3] VENSEL+37!
    ^PRC(441 - [#441] EN2+1
    ^PRC(442 - [#442] ENPO+14, ENPO1+1*, ENPO1+3*, Z, DOCID, DOCID+1*, EDISTAT+8
    ^PRC(442.6 - [#442.6] ENPO+12, NUM, Z+2*
    ^PRCF(422.2 - [#422.2] AF+3, AF+13*, COUNT+2, COUNT+3
    ^VA(200 - [#200] VENEDITS+19
    ^XUSEC("PRCFA VENDOR EDIT" VENEDITF+20

    Label References

    Name Line Occurrences
    COUNT VENEDITF+22
    DOCID ENPO1+4
    ENPO ENPO+11, ENPO+12, ENPO+13, ENPO+14, ENPO1, Z+1, W1+1, W2+1, W3+1
    ENPO1 Z+3
    ENPOQ ENPO+5, ENPO+13, ENPO1+5
    FIND VENEDITF+12, VENEDITS+12
    NUM ENPO+11
    W1 NUM
    W2 Z
    W3 ENPO1
    Z Z

    Naked Globals

    Name Field # of Occurrence
    ^( WORD+2, WORD+3*
    ^(0 WORD+2*
    ^(2 EDISTAT+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ENPO+13*, Z+1*
    >> %A ENPO+13*, Z+1*
    >> %B ENPO+13*, Z+1*
    %DT ENPO1+1*, ENPOQ!
    >> %X VENSEL+38*
    >> %Y VENSEL+39*
    A VEN~, VEN+3
    AR VENSEL+52*, VENSEL+56!, AF+2
    C EDISTAT+6~, EDISTAT+11*, EDISTAT+12*
    COUNT VENEDITF+7~, VENEDITS+7~, COUNT+2*, COUNT+3*
    >> D ENPO+11*
    D0 EDISTAT~, EDISTAT+8
    D1 EDISTAT~, EDISTAT+8
    DA ENPO+1!, ENPO1+1*, ENPO1+2*, VENSEL+36*, VENSEL+37, VENSEL+44, VENSEL+50*
    DD AF+5!
    >> DELAYGO AF+9*
    DIC ENPO+1!, ENPO+7*, ENPO1*, ENPOQ!, VENSEL+23*, VENSEL+30!, AF+1~, AF+6*
    DIC("A" VENSEL+25*
    DIC("S" ENPO+6, ENPO+8*, ENPO+9*, ENPO+10*, ENPO1!
    DIC(0 ENPO+7*, ENPO1*, VENSEL+24*, AF+7*
    >> DIE VENSEL+46*, VENSEL+53*
    >> DIX EN2+1*
    DLAYGO ENPO+1!, ENPO1*, ENPOQ!, AF+1~
    DO AF+5!
    >> DR VENSEL+47*, VENSEL+54*
    DT ENPO+2*, WORD+1
    DTIME ENPO+4
    DTOUT VENSEL+26!, VENSEL+28, VENSEL+30!
    DUOUT VENSEL+26!, VENSEL+29, VENSEL+30!
    DUZ ENPO1+1, ENPO1+3, VENEDITF+8, VENEDITF+20, VENEDITS+8, VENEDITS+19
    >> FISCAL VENSEL+42*, VENSEL+43*, VENSEL+45, VENSEL+50
    >> FLAG VENSEL+41*, VENSEL+44
    >> I EN2+1*, DOCID*, DOCID+1
    L ENPO+1!, NUM*, Z, ENPOQ!
    LINECNT EDISTAT~, EDISTAT+7*, EDISTAT+11*, EDISTAT+12*, EDISTAT+13*
    >> PRC("SITE" ENPO+1, ENPO+12, ENPO+14, SWITCH, VENSEL+42, VENSEL+44, VENSEL+50
    >> PRCF("X" VENSEL+18*
    >> PRCH WORD+1, WORD+2, WORD+3*
    >> PRCHDELV ENPO+3, ENPO+4, ENPO+9
    PRCHISMS SWITCH!*
    PRCHLOG SWITCH!*
    PRCHNEW ENPO+1!, ENPO1*, ENPOQ!
    >> PRCHPC ENPO+8
    PRCHPO ENPO+1!, ENPO1+1*, ENPO1+2, ENPO1+3, DOCID, DOCID+1
    >> PRCHTYP SWITCH*
    PRCHU EN2+1*!
    >> PRCOY VENSEL+31*, VENSEL+32, VENSEL+58
    PRCX AF+1~, AF+3*, AF+11*, AF+13
    PRCZDA VENSEL+50*!
    >> SAVE VENSEL+44*, VENSEL+45, VENSEL+50, VENSEL+51
    SHOWIT VENEDITF+7~, VENEDITF+15*, VENEDITF+20*, VENEDITF+21, VENEDITS+7~, VENEDITS+15*, VENEDITS+19*, VENEDITS+20
    STATION FIND+2~, FIND+3*, FIND+5*, FIND+6
    STN411 VENEDITF+7~, VENEDITF+13, VENEDITS+7~, VENEDITS+13, FIND+4*, FIND+5, FIND+7*
    STNIEN FIND+2~, FIND+6*, FIND+7
    T VEN+3~*, VEN+4, VEN+5
    U EN2+1, ENPO+5, ENPO1, ENPO1+1, ENPO1+3, NUM, Z, Z+2, DOCID, W2
    , WORD+3, VEN+4, VEN+5, VENSEL+43, AF+13, VENEDITS+19, COUNT+3, FIND+7
    WI WORD+2*, WORD+3!
    WJ WORD+2*, WORD+3!
    WX WORD+2*, WORD+3!
    WY WORD+2*, WORD+3!
    X EN2+1*, ENPO+2*, ENPO+4*, ENPO+5, ENPO+11, ENPO+12, ENPO+13, ENPO+14*, ENPO1+1*, ENPO1+2*
    , NUM*, Z*, Z+1, DOCID*, DOCID+1, SWITCH~*, EDISTAT+6~, EDISTAT+8*, EDISTAT+9, EDISTAT+11
    , EDISTAT+12, AF+8*
    Y ENPO+2, ENPO+11, ENPO1, ENPO1+1, ENPO1+2*, NUM, Z, Z+2, W2, EDISTAT+6~
    , EDISTAT+11*, EDISTAT+12*, VENSEL+28*, VENSEL+29*, VENSEL+31, VENSEL+36, AF+1~, AF+11
    Y(0 NUM, Z
    >> Z NUM*, Z*, Z+2, DOCID*, DOCID+1
    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