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

Package: IFCAP

Routine: PRCSRIE1


Information

PRCSRIE1 ;WISC/SAW/DXH/SC/BMM - DELETE/REPLACE REPETITIVE ITEM LIST ; 3/31/05 3:22pm

Source Information

Source file <PRCSRIE1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  ^DIE  ^DIK  $$GET1^DIQ  
IFCAP 4 DISP^PRCOSS3  EN^PRCSUT  W5^PRCSUT3  EN^PRCVRCA  
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 PRCPAGP2  PRCSRI DELETE  PRCSRI EDIT  PRCSRIE  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**13,81**;Oct 20, 2000
EDIT ;EDIT REP ITEM
W2
CALC ;CALCULATE TOTAL COST
CHECK ;
  • ICR #6590
    • Status: Active
    • Usage: Private
    DEL ;DELETE REPETITIVE ITEM LIST ENTRY
    DEL1
    DEL2
    REPL ;REPLACE EXISTING REPETITIVE ITEM LIST ENTRY NUMBER
    STF
    REPL1
    SUB ;ASK BOC IF ONE DOES NOT EXIST FOR ITEM IN FILE 441
    SUB1
    VENDORH ;HELP PROMPT FOR VENDOR FIELD IN FILE 410.3
    EXIT
    DMCHK(DA) ;check that RIL is not from DynaMed, set flag
    D1
    D2

    External References

    Name Field # of Occurrence
    ^DIC EDIT+3, DEL+2, REPL+3, REPL+10, SUB1, VENDORH+2
    YN^DICN W2, DEL1, DEL2, REPL1
    ^DIE EDIT+9
    ^DIK DEL1+2
    $$GET1^DIQ D1+1
    DISP^PRCOSS3 EDIT+1
    EN^PRCSUT REPL+7
    W5^PRCSUT3 REPL+7
    EN^PRCVRCA DEL1+2
    $$GET^XPAR EDIT+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"** This RIL originated from DynaMed and cannot be edited **"
    • Line Location: EDIT+6
    Function Call: WRITE
    • Prompt: !!,?15,"** Record in use, try to edit later **",!
    • Line Location: EDIT+8
    Function Call: WRITE
    • Prompt: !!,"Would you like to edit another repetitive item list entry"
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: !,"Let me total the cost for this Repetitive Item List entry (#",PRCSNO,")"
    • Line Location: CALC+1
    Function Call: WRITE
    • Prompt: !,"Total number of items: ",I," Total cost (all items): $",$J(PRCSTC,0,2)
    • Line Location: CALC+3
    Function Call: WRITE
    • Prompt: !!,?15,"** Record in use, try to delete later **",!
    • Line Location: DEL+4
    Function Call: WRITE
    • Prompt: !,"Are you sure you want to delete this Repetitive Item List entry"
    • Line Location: DEL1+0
    Function Call: WRITE
    • Prompt: !,"Okay....."
    • Line Location: DEL1+2
    Function Call: WRITE
    • Prompt: "It's deleted."
    • Line Location: DEL1+2
    Function Call: WRITE
    • Prompt: !,"Would you like to delete another Repetitive Item List entry"
    • Line Location: DEL2+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: DEL2+0
    Function Call: WRITE
    • Prompt: !!,"Select the existing Repetitive Item List entry number to be replaced.",!
    • Line Location: REPL+1
    Function Call: WRITE
    • Prompt: !!,"Now enter the information for the new Repetitive Item List entry number.",!
    • Line Location: REPL+6
    Function Call: WRITE
    • Prompt: !!,"Would you like to replace another Repetitive Item List entry number"
    • Line Location: REPL1+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: REPL1+0
    Function Call: WRITE
    • Prompt: !,$C(7),"Sorry, but you must select a budget object code for this item."
    • Line Location: SUB1+0
    Routine Call
    • DIC
    • Line Location:
      • EDIT+3
      • DEL+2
      • REPL+3
      • REPL+10
      • SUB1
      • VENDORH+2
    Routine Call
    • DIE
    • Line Location:
      • EDIT+9

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410.3 - [#410.3] Classic Fileman Calls
    410.31 GET1^DIQ
    ^PRC(420 - [#420] Classic Fileman Calls
    ^PRCD(420.2 - [#420.2] Classic Fileman Calls
    ^PRC(441 - [#441] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(420 - [#420] REPL+9
    ^PRC(441 - [#441] CHECK+3, SUB1+1*, VENDORH+1
    ^PRCD(420.1 - [#420.1] REPL+11
    ^PRCS(410.3 - [#410.3] EDIT+4, EDIT+7, EDIT+9, CALC+2, CALC+3*, CHECK+1, CHECK+2, CHECK+4*, DEL+3, DEL1
    , DEL1+2, REPL+4, REPL+5, REPL+8!, STF+1*, STF+2, SUB+1, VENDORH+1, D1

    Label References

    Name Line Occurrences
    $$DMCHK EDIT+6
    CALC EDIT+9
    D1 D1+2
    D2 D1, D1+1
    DEL DEL+4, DEL2
    DEL1 DEL1
    DEL2 DEL2
    EDIT EDIT+8, W2
    EXIT EDIT+3, EDIT+6, W2, DEL+2, DEL1, DEL2, REPL+3, REPL+7, REPL+10, REPL+11
    , REPL1
    REPL REPL+4, REPL1
    REPL1 REPL1
    STF REPL+9
    SUB1 SUB1
    W2 W2

    Naked Globals

    Name Field # of Occurrence
    ^( CALC+2
    ^(0 CALC+2, REPL+5, REPL+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % W2*, DEL1*, DEL2*, REPL1*, EXIT!
    >> D VENDORH+1, VENDORH+2*
    DA EDIT+4*, EDIT+6, EDIT+7, EDIT+9, DEL+3*, DEL1, DEL1+2, REPL+4*, REPL+5!, SUB+1
    , VENDORH+1, EXIT!, DMCHK~, D1, D1+1
    DA(1 SUB+1, VENDORH+1
    DIC EDIT+2*, EDIT+9, DEL+1*, DEL1+2, REPL+2*, REPL+5!, REPL+10*, SUB+1*, SUB1+1*, VENDORH+2*
    , EXIT!
    DIC("A" EDIT+3*, DEL+2*, REPL+3*, SUB+1*
    DIC("S" EDIT+2*, EDIT+3!, DEL+1*, DEL+2!, REPL+2*, REPL+3!, VENDORH+2*!
    DIC(0 EDIT+2*, DEL+1*, REPL+2*, REPL+10*, SUB+1*, VENDORH+2*
    DIE EDIT+9*, SUB1+1, VENDORH+2, EXIT!
    DIE("NO^" EDIT+9*!
    >> DIK DEL1+2*
    DR EDIT+9*, EXIT!
    >> I CALC+2*, CALC+3
    K0 CHECK+2*, CHECK+3*, CHECK+4, CHECK+5!
    K1 CHECK+3*, CHECK+5!
    N CALC+2*, CALC+3!
    N(1 CALC+2*
    N(2 CALC+2*
    >> PRC("CP" EDIT+9*, REPL+5*, REPL+9, STF
    >> PRC("FY" STF
    >> PRC("QTR" REPL+7, STF
    >> PRC("SITE" EDIT+9*, REPL+5*, REPL+7, REPL+9, STF
    >> PRCSDA EDIT+4*, CALC+2, CALC+3, CHECK+1, CHECK+2, CHECK+4
    >> PRCSIP VENDORH+2
    PRCSL EXIT!
    >> PRCSNO EDIT+4*, CALC+1
    PRCSTC CALC+2*, CALC+3!
    PRCSV W2!
    PRCSV1 W2!
    PRCVD DMCHK+3~*, D1*, D1+1
    PRCVFG DMCHK+3~*, D1+1*, D2
    T1 REPL+5*, REPL+8, STF+1, EXIT!
    T2 REPL+5*, REPL+8, EXIT!
    U EDIT+4, REPL+9
    V0 CHECK+2*, CHECK+3, CHECK+5!
    V1 CHECK+2*, CHECK+3, CHECK+5!
    X STF*, STF+1, VENDORH+1*, EXIT!
    Y EDIT+3, EDIT+4, DEL+2, DEL+3, REPL+3, REPL+4, REPL+5!, REPL+7, REPL+9*, REPL+10
    , REPL+11*, STF, STF+1, SUB1, SUB1+1!, EXIT!
    Y(0 EDIT+9, REPL+5, REPL+11
    Z0 SUB+1*, SUB1+1!, VENDORH+1*
    ZD VENDORH+1*, VENDORH+2!
    ZIP CHECK+1*, CHECK+2, CHECK+4, CHECK+5!
    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