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

Package: IFCAP

Routine: PRCH442A


Information

PRCH442A ;WISC/KMB/CR/DXH/DGL-CREATE PURCHASE CARD ORDER FROM RIL ;4/13/00 1:32pm

Source Information

Source file <PRCH442A.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
IFCAP 7 ERS410^PRC0G  ^PRCFSITE  EN3^PRCHCRD  ^PRCHNPO  ENPO^PRCHUTL  TRANK^PRCSEZZ  DEL^PRCV442A  
VA FileMan 6 DD^%DT  (NOW,YX)^%DTC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
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: 9

Package Total Caller Graph
IFCAP 9 PRCH INCOMPLETE PC ORDERS  PRCH INCOMPLETE PC ORDERS-BUY  PRCH INCOMPLETE PC ORDERS-OFF  PRCH442  PRCH7B  PRCH7D  PRCH7PUC  PRCHCNV  
PRCHPCAR  

Entry Points

Name Comments DBIA/ICR reference
SETUP ; create 442 entry
LOOP
LQ
LOOPA
SETIT ;set item data on 442 record
INCOM1
INCOM2
INCOM ;
DETAIL ;
DETAIL1 ;Get tally for the PC user and exclude the Approving Official.
DETAIL2 ;Get tally for the PC Coordinator.
WRTE ;
C2237 ;cancel 2237 from PC order
  • ICR #6734
    • Status: Active
    • Usage: Private
    RENUM ; delete delivery order items from repetitive item list
    HDR
    HLD

    External References

    Name Field # of Occurrence
    DD^%DT DETAIL+14, DETAIL+16, DETAIL1+6, DETAIL2+2
    NOW^%DTC DETAIL+1
    YX^%DTC DETAIL+1
    ^%ZIS INCOM+7
    ^%ZISC INCOM+8, INCOM+9
    ^%ZTLOAD INCOM+8
    FILE^DICN SETIT+20
    YN^DICN LOOP+1
    ^DIE SETUP+25, SETUP+26, SETUP+27, SETUP+29, SETUP+32
    ^DIK SETUP+22, SETIT+27, C2237+10, RENUM+4, RENUM+6
    ^DIR SETUP+16, SETUP+18
    ERS410^PRC0G C2237+8
    ^PRCFSITE INCOM+5
    EN3^PRCHCRD SETIT+30
    ^PRCHNPO LOOP+3
    ENPO^PRCHUTL SETUP+1
    TRANK^PRCSEZZ C2237+7
    DEL^PRCV442A C2237+13
    $$GET^XPAR C2237+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Unable to create 442 entry. Try later."
    • Line Location: SETUP+4
    Function Call: WRITE
    • Prompt: !!,"Another user has deleted this RIL, Purchase Order will now be deleted.",!!
    • Line Location: SETUP+20
    Function Call: WRITE
    • Prompt: !,"Edit request ",$P(^PRC(442,PDA,0),"^")
    • Line Location: LOOP+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: INCOM+4
    Function Call: WRITE
    • Prompt: !,"Please select a device for printing this report."
    • Line Location: INCOM+6
    Function Call: WRITE
    • Prompt: !!!!,?10,"*** NO RECORDS TO PRINT ***"
    • Line Location: WRTE+2
    Function Call: WRITE
    • Prompt: !,"This Repetitive Item List has no more items, and will be deleted."
    • Line Location: RENUM+6
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+0
    Function Call: WRITE
    • Prompt: !,"INCOMPLETE PURCHASE CARD ORDERS REPORT",?45,TIMEDATE,?70,"PAGE ",P
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !,"PURCHASE CARD ORDER",?21,"PO DATE",?40,"SUPPLY STATUS",!,?10,"BUYER",?40,"DATE PO ASSIGNED"
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: "----------"
    • Line Location: HDR+3
    Function Call: READ
    • Variable: XXZ
    • Timeout: DTIME
    • Line Location: HLD+0
    Function Call: WRITE
    • Prompt: !,"Press return to continue, '^' to exit: "
    • Line Location: HLD+0
    Routine Call
    • DIE
    • Line Location:
      • SETUP+25
      • SETUP+26
      • SETUP+27
      • SETUP+29
      • SETUP+32
    Routine Call
    • DIR
    • Line Location:
      • SETUP+16
      • SETUP+18
    Routine Call
    • %ZIS
    • Line Location:
      • INCOM+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410.3 - [#410.3] Classic Fileman Calls
    ^PRC(442 - [#442] Classic Fileman Calls
    ^PRC(443 - [#443] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(442.01 SETIT+19
    ^PRC(440.5 - [#440.5] DETAIL+10, DETAIL+11, DETAIL+12
    ^PRC(442 - [#442] SETUP+24, SETUP+28*, SETUP+36*, SETUP+38*, SETUP+40*, LOOP, LQ, LOOPA, LOOPA+1, SETIT+1*
    , SETIT+2*, SETIT+3*, SETIT+10, SETIT+11, SETIT+13*, SETIT+14*, SETIT+15*, SETIT+30*, DETAIL+2, DETAIL+3
    , DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+8, DETAIL+12, DETAIL+15, DETAIL+16, DETAIL1+4, DETAIL1+5, DETAIL1+6
    , DETAIL1+7, DETAIL2+1, DETAIL2+2, DETAIL2+3, C2237+2, C2237+3
    ^PRC(443 - [#443] C2237+10
    ^PRCD(442.3 - [#442.3] DETAIL+15, DETAIL1+7, DETAIL2+3
    ^PRCS(410 - [#410] C2237+2, C2237+4!, C2237+5, C2237+6*, C2237+7, C2237+9
    ^PRCS(410.3 - [#410.3] SETUP+20, SETUP+35, RENUM+1, RENUM+2, RENUM+3, RENUM+4, RENUM+5, RENUM+6
    ^PRCV(414.02 - [#414.02] SETIT+8, SETIT+11*
    ^TMP($J SETIT+10*, INCOM+1!, DETAIL+17*, DETAIL+19, DETAIL+20!, DETAIL1+8*, DETAIL2+4*, WRTE+2, WRTE+3, WRTE+5
    ^VA(200 - [#200] DETAIL+13, DETAIL1+5, DETAIL2+1

    Label References

    Name Line Occurrences
    DETAIL INCOM+9
    DETAIL1 DETAIL+8
    DETAIL2 DETAIL1+3
    HDR WRTE+2, WRTE+4, HLD
    HLD WRTE+6
    LOOP LOOP+1
    LOOPA LOOP+3
    LQ LOOP+1
    SETIT SETUP+39
    SETUP SETUP+5
    WRTE DETAIL+18

    Naked Globals

    Name Field # of Occurrence
    ^( C2237+7
    ^(0 SETUP+28*, C2237+4*
    ^(11 C2237+4*
    ^(23 SETUP+28*
    ^(4 C2237+5
    ^(5 C2237+4*
    ^(6 C2237+4*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % LOOP*, LOOP+1
    >> %ZIS INCOM+7*
    >> %ZIS("B" INCOM+7*
    >> AA( SETIT+1, SETIT+29
    ADATE INCOM+2~, DETAIL+16*, DETAIL+17, DETAIL1+6*, DETAIL1+8, DETAIL2+2*, DETAIL2+4
    >> APP SETUP+25
    >> BB( SETIT+2
    >> BOC SETIT+15
    >> CC( SETIT+3, SETIT+8, SETIT+10
    >> CCEN SETUP+28
    >> CNNT SETUP+39, SETUP+40, LOOPA+2*
    >> CNNT1 SETIT+2, SETIT+13
    CNT DETAIL+1*, DETAIL+17*, DETAIL+19, DETAIL+20!, DETAIL1+8*, DETAIL2+4*
    CP1 SETUP+23~, SETUP+35*, SETUP+36, SETIT+29
    DA SETUP+4, SETUP+5, SETUP+21*, SETUP+24, LOOP+2*, SETIT+17~, SETIT+25~, SETIT+26*, SETIT+29*, C2237+2
    , C2237+7*, C2237+10*, C2237+11*, RENUM+4*, RENUM+6*
    DA(1 SETIT+18*, SETIT+26*, SETIT+29*, C2237+7*, RENUM+4*
    DA(2 SETIT+18*
    DIC SETIT+17~, SETIT+18*
    DIC("P" SETIT+19*
    DIC(0 SETIT+19*
    DIE SETUP+25*, SETUP+29*, SETIT+17~, SETIT+21!
    DIK SETUP+21*, SETIT+25~, SETIT+26*, C2237+10*!, RENUM+4*, RENUM+6*, RENUM+7!
    DIR SETUP+6~
    DIR("?" SETUP+15*
    DIR("A" SETUP+8*, SETUP+9*, SETUP+10*, SETUP+11*, SETUP+12*, SETUP+13*, SETUP+14*, SETUP+17*
    DIR("B" SETUP+7*
    DIR(0 SETUP+7*
    DLAYGO SETIT+17~, SETIT+19*
    >> DR SETUP+25*, SETUP+26*, SETUP+27*, SETUP+29*, SETUP+32*
    DT DETAIL+1
    DTIME HLD
    DUZ SETUP+38, LOOP+2, DETAIL+10, DETAIL+11, DETAIL1+4
    >> EE( SETUP+41*
    EX INCOM+2~, WRTE+1*, WRTE+3, WRTE+6, HLD*
    >> FCP SETUP+28
    FLAG INCOM1*, INCOM2*, INCOM+3, INCOM+8!, INCOM+9!, DETAIL+10, DETAIL+11, DETAIL1+1, DETAIL1+3, DETAIL1+4
    >> GG( SETIT+26
    I C2237+1~, C2237+5*, C2237+7*, HDR+3*
    >> II SETUP+39*, SETIT+1, SETIT+2, SETIT+3, SETIT+8, SETIT+10, SETIT+13, SETIT+14, SETIT+15, SETIT+18
    , SETIT+26, SETIT+29, SETIT+30
    >> IJ RENUM+3*, RENUM+4
    IO WRTE+1
    IO("Q" INCOM+8
    IOF INCOM+4, HDR
    IOSL WRTE+6
    IOST HLD
    >> ITEM SETIT+10, SETIT+15
    >> J SETIT+2*
    LABEL INCOM+2~, INCOM+3*
    N C2237+1~, C2237+7*
    NCNT SETUP+43~, LOOPA*, LOOPA+2
    >> NCOST SETUP+39, SETUP+40, LOOPA+2*
    NCST SETUP+43~, LOOPA+1*
    NLP SETUP+43~, LOOPA*, LOOPA+1
    NQTY SETUP+43~, LOOPA+1*
    NSUB SETUP+43~, LOOPA*, LOOPA+1*, LOOPA+2
    >> OUTRIL SETUP+4*, SETUP+5*, SETUP+20*
    P INCOM+2~, WRTE+1*, WRTE+4, HDR+1, HDR+4*
    P1 INCOM+2~, DETAIL+6*, DETAIL+7
    P12 INCOM+2~
    P2 INCOM+2~, DETAIL+12*, DETAIL+14
    P23 INCOM+2~
    >> PA DETAIL+12*, DETAIL+13, DETAIL1+5*, DETAIL2+1*
    PANAME INCOM+2~, DETAIL+13*, DETAIL+17, DETAIL1+5*, DETAIL1+8, DETAIL2+1*, DETAIL2+4
    PC1 INCOM+2~, DETAIL+8*, DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12
    >> PDA SETUP+24*, SETUP+28, SETUP+36, SETUP+38, SETUP+40, SETUP+41, LOOP, LOOP+2, LQ, LOOPA
    , LOOPA+1, SETIT+1, SETIT+2, SETIT+3, SETIT+10, SETIT+11, SETIT+13, SETIT+14, SETIT+15, SETIT+18
    , SETIT+29, SETIT+30
    PODATE INCOM+2~, DETAIL+14*, DETAIL+17, DETAIL1+6*, DETAIL1+8, DETAIL2+2*, DETAIL2+4
    PONUM INCOM+2~, DETAIL+6*, DETAIL+17, DETAIL1+8, DETAIL2+4
    >> POP INCOM+7
    >> PRC("CP" C2237+3*, C2237+4
    >> PRC("PER" LOOP+2*, LOOP+4!
    >> PRC("SITE" INCOM+5, DETAIL+7
    >> PRC("SST" SETUP+28
    >> PRCF("X" INCOM+5*
    PRCHCCP SETIT+29*, SETIT+31!
    PRCHCI SETIT+29*, SETIT+30, SETIT+31!
    PRCHCII SETIT+29*, SETIT+30, SETIT+31!
    PRCHCPD SETUP+23~, SETIT+29*
    PRCHCPO SETIT+29*, SETIT+31!
    PRCHCV SETIT+29*, SETIT+31!
    PRCHPO LOOP+2*, LOOP+4!
    >> PRCSIP SETIT+16, SETIT+18
    PRCV SETIT+7~*, SETIT+8*, SETIT+9, SETIT+11
    >> PRCVDATE SETUP+32
    >> PRCVDYN SETUP+4, SETUP+32, SETIT+6, SETIT+24
    PRCVIEN C2237+1~, C2237+2*, C2237+13
    >> RLFLAG SETUP+26, SETUP+27
    >> SPEC SETUP+29
    STAT INCOM+2~, DETAIL+15*, DETAIL+17, DETAIL1+7*, DETAIL1+8, DETAIL2+3*, DETAIL2+4
    STR INCOM+2~
    T C2237+1~, C2237+4*
    >> TDATE SETUP+29, SETIT+13, SETIT+29
    TIMEDATE INCOM+2~, DETAIL+1*, HDR+1
    U SETUP+35, LOOPA, LOOPA+1, SETIT+19
    >> VENDOR SETUP+28, SETUP+38, SETIT+29
    X LOOP+2*, LOOP+4!, SETIT+18*, SETIT+29*, DETAIL+1*, C2237+1~, C2237+5*, C2237+7*
    >> XDA SETUP+20, SETUP+35, C2237+2*, C2237+4, C2237+5, C2237+6, C2237+7*, C2237+8, C2237+9, C2237+10
    XXZ INCOM+2~, HLD*
    Y SETUP+5, SETUP+16, INCOM+2~, DETAIL+1, DETAIL+14*, DETAIL+16*, DETAIL1+6*, DETAIL2+2*
    >> YDA SETIT+10, SETIT+26, C2237+2*, C2237+3, C2237+11, RENUM+1, RENUM+2, RENUM+3, RENUM+4, RENUM+5
    , RENUM+6
    ZP INCOM+2~, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+8, DETAIL+12, DETAIL+15, DETAIL+16
    , DETAIL+17, DETAIL1+4, DETAIL1+5, DETAIL1+6, DETAIL1+7, DETAIL1+8, DETAIL2+1, DETAIL2+2, DETAIL2+3, DETAIL2+4
    , WRTE+3*, WRTE+5
    >> ZTRTN INCOM+8*
    >> ZTSAVE("*" INCOM+8*
    ZX C2237+1~, C2237+5!*, C2237+6!
    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