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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRPIFD

Package: Prosthetics

Routine: RMPRPIFD


Information

RMPRPIFD ;PHX/RFM,RGB-DELETE ISSUE FROM STOCK ;8/27/07 07:27

Source Information

Source file <RMPRPIFD.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Prosthetics 3 $$DEL^RMPRPCED  $$DEL^RMPRPIU3  CO^RMPRPIYE  
Kernel 1 KILL^XUSCLEAN  
VA FileMan 1 ^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: 2

Package Total Caller Graph
Prosthetics 1 RMPRPIYF  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPIYF  

Entry Points

Name Comments DBIA/ICR reference
DEL1 ;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
  • ICR #7542
    • Status: Active
    • Usage: Controlled Subscription
    DEL1A ;ASK IF INACTIVE ITEM
    DEL1B
    DEL2 ;call API for returning item to PIP
    EXIT ;KILL VARIABLES AND EXIT ROUTINE

    External References

    Name Field # of Occurrence
    ^DIR DEL1+3, DEL1B+8, DEL1B+13
    $$DEL^RMPRPCED DEL2+4
    $$DEL^RMPRPIU3 DEL2+7
    CO^RMPRPIYE DEL1+4
    KILL^XUSCLEAN EXIT+2

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: 4
    • Line Location: DEL1B+3
    Function Call: WRITE
    • Prompt: !!," *** Scanned HCPCS has been deleted from HCPCS Item Master (ASHI). CANNOT delete previous issue."
    • Line Location: DEL1B+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEL1B+3
    Function Call: WRITE
    • Prompt: !!,"** STOCK ISSUE DELETE ABORTED",!!
    • Line Location: DEL2+3
    Function Call: WRITE
    • Prompt: !!,"*** ERROR in PCE DELETE, Please notify your IRM..660 IEN = ",RMPRIEN,!!
    • Line Location: DEL2+5
    Function Call: WRITE
    • Prompt: !,"*** Error in API RMPRPIU3, ERROR = ",RMCHK,!,"*** Please inform your IRM !!",!
    • Line Location: DEL2+8
    Function Call: WRITE
    • Prompt: $C(7),!?10,"Deleted..."
    • Line Location: DEL2+10
    Routine Call
    • DIR
    • Line Location:
      • DEL1+3
      • DEL1B+8
      • DEL1B+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(660 - [#660] DEL2+3, EXIT+1
    ^RMPR(661.11 - [#661.11] DEL1B, DEL1B+5, DEL1B+10*
    ^RMPR(661.4 - [#661.4] DEL1B+17, DEL1B+18*
    ^RMPR(661.6 - [#661.6] DEL1B+16
    ^TMP($J EXIT+2!

    Label References

    Name Line Occurrences
    DEL2 DEL1B+4, DEL1B+13, DEL1B+14, DEL1B+15, DEL1B+16, DEL1B+17
    EXIT DEL1+3, DEL1B+2, DEL1B+4, DEL2+3, DEL2+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DIR DEL1+1!
    DIR("A" DEL1+2*, DEL1B+7*, DEL1B+12*
    DIR("B" DEL1+2*, DEL1B+7*, DEL1B+12*
    DIR(0 DEL1+2*, DEL1B+7*, DEL1B+12*
    >> DIRUT DEL1+3, DEL1B+8, DEL1B+13
    >> DTOUT DEL1+3, DEL1B+8, DEL1B+13
    >> DUOUT DEL1+3, DEL1B+8, DEL1B+13
    ITEMCK DEL1+1~, DEL1B+4, DEL1B+5*, DEL1B+6*, DEL1B+8*, DEL1B+9*, DEL1B+10*, DEL2+1!
    ITEMIEN DEL1+1~, DEL1B*, DEL1B+2, DEL1B+5, DEL1B+10, DEL1B+17*, DEL1B+18, DEL2+1!
    ITEMLOC DEL1+1~, DEL1A+1*, DEL1B+15, DEL1B+16*, DEL1B+17, DEL2+1!
    ITEMSTA DEL1+1~, DEL1A+1*, DEL1B, DEL1B+15, DEL1B+17, DEL2+1!
    >> R1(0 DEL1A+1
    >> R1(1 DEL1A+1
    RITEM DEL1+1~, DEL1B+5*, DEL1B+6, DEL2+1!
    >> RMCHK DEL2+2*, DEL2+4*, DEL2+5, DEL2+7*, DEL2+8
    >> RMERPCE DEL2+2*, DEL2+3, DEL2+5*
    >> RMI68 DEL2+3*
    >> RMIT DEL1B, DEL1B+17
    RMPR EXIT+2~
    >> RMPR60 DEL2+7
    >> RMPR60("IEN" DEL2+6*
    >> RMPRIEN DEL2+3, DEL2+4, DEL2+5, DEL2+6, EXIT+1
    RMPRSITE EXIT+2~
    U DEL1A+1, DEL1B+6, DEL1B+10, DEL1B+16, DEL1B+18, DEL2+3
    >> X DEL1B+3*
    >> Y DEL1+4, DEL1B+9, DEL1B+14
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All