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

Package Total Caller Graph
Prosthetics 1 RMPRPIYF  

Entry Points

Name Comments DBIA/ICR reference
DEL1 ;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
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