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

Package: Prosthetics

Routine: RMPRPIY8


Information

RMPRPIY8 ;HINCIO/ODJ - Pick HCPCS Item ;3/8/01

Source Information

Source file <RMPRPIY8.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Prosthetics 2 $$GET^RMPRPIX1  $$GET^RMPRPIX4  
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: 4

Package Total Caller Graph
Prosthetics 4 RMPRPIY7  RMPRPIYH  RMPRPIYM  RMPRPIYX  

Entry Points

Name Comments DBIA/ICR reference
QM
QQM
QM2
QM2A
QM2B
QM2X
LIKE(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11,RMPR4) ;
LIKEA1
LIKEA
LIKEB
LIKEH1
LIKEH
LIKEH9
LIKEH9A
LIKEX

External References

Name Field # of Occurrence
^DIR QM2B, LIKEB+3, LIKEH9+3
$$GET^RMPRPIX1 QM2A+6, LIKE+20, LIKEA+9, LIKEB+13, LIKEH+11, LIKEH9A+3
$$GET^RMPRPIX4 LIKE+18, LIKEB+11, LIKEH+9, LIKEH9A+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,"Answer with ITEM, or NUMBER, or DESCRIPTION"
  • Line Location: QM+0
Function Call: WRITE
  • Prompt: !?3,"Choose from:"
  • Line Location: QM+1
Function Call: WRITE
  • Prompt: !?3,"Choose from:"
  • Line Location: QQM+0
Function Call: WRITE
  • Prompt: !?3,RMPRLIN,?16,RMPR("HCPCS-ITEM"),?28,RMPR("DESCRIPTION")
  • Line Location: QM2A+8
Function Call: WRITE
  • Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5),?40,RMPR("HCPCS-ITEM")
  • Line Location: LIKEA+12
Function Call: WRITE
  • Prompt: !
  • Line Location: LIKEB+4
Function Call: WRITE
  • Prompt: !?4,$J(RMPRLIN,2),?9,RMPR11("HCPCS-ITEM"),?23,RMPR11("DESCRIPTION")
  • Line Location: LIKEH+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LIKEH9+4
Routine Call
  • DIR
  • Line Location:
    • QM2B
    • LIKEB+3
    • LIKEH9+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.4 - [#661.4] QM2A, LIKE+12, LIKE+15, LIKEA+10, LIKEA+13, LIKEH1+1, LIKEH1+2

Label References

Name Line Occurrences
LIKEA LIKEA+10, LIKEA+16, LIKEB+7
LIKEB LIKEA+1, LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6, LIKEA+15
LIKEH LIKEH+6, LIKEH+16, LIKEH9+7
LIKEH1 LIKE+27
LIKEH9 LIKEH+1, LIKEH+2, LIKEH+3, LIKEH+4, LIKEH+5, LIKEH+15
LIKEH9A LIKEH1+1
LIKEX LIKE+9, LIKEB, LIKEB+5, LIKEB+6, LIKEB+8, LIKEB+14, LIKEH9, LIKEH9+5, LIKEH9+6, LIKEH9+8
, LIKEH9A+4
QM2 QM+2, QQM+1
QM2A QM2A+10
QM2B QM2A+9
QM2X QM2A+1, QM2B+1, QM2B+2, QM2B+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA QM2~, LIKE+1~
DIR QM2~, LIKE+1~
DIR("A" QM2+4*, LIKEB+2*, LIKEH9+2*
DIR(0 QM2+3*, LIKEB+1*, LIKEH9+1*
DIROUT QM2~, QM2B+2, LIKE+1~, LIKEB+6, LIKEH9+6
DIRUT QM2~, LIKE+1~
DTOUT QM2~, QM2B+1, LIKE+1~, LIKEB+5, LIKEH9+5
DUOUT QM2~, QM2B+3, LIKE+1~, LIKEB+8, LIKEH9+8
RMPR QM2~, QM2A+2!, QM2A+6, LIKE+2~, LIKEA+7!, LIKEA+9, LIKEH+9
RMPR("DESCRIPTION" QM2A+8
RMPR("HCPCS" QM2A+4*
RMPR("HCPCS-ITEM" QM2A+8, LIKEA+12
RMPR("IEN" LIKEA+8*, LIKEH+7*
RMPR("ITEM" QM2A+5*, LIKEA+10, LIKEA+13
RMPR("STATION" QM2A+3*
RMPR11 LIKE~, LIKE+17!, LIKE+18, LIKE+20, LIKEB+9!, LIKEB+11, LIKEB+13, LIKEH+8!, LIKEH+9, LIKEH+11
, LIKEH9A!, LIKEH9A+1, LIKEH9A+3
RMPR11("DESCRIPTION" LIKEH+13
RMPR11("HCPCS-ITEM" LIKEH+13
RMPR11("STATION" LIKE+19*, LIKEB+12*, LIKEH+10*, LIKEH9A+2*
RMPR4 LIKE~, LIKE+18, LIKEB+11, LIKEH9A+1
RMPR4("IEN" LIKE+5*, LIKE+12, LIKE+16*, LIKEB+10*, LIKEH1+2*, LIKEH9+9*
RMPRA LIKE+1~, LIKEA1!, LIKEH1+5!
RMPRA( LIKEA+14*, LIKEB+10, LIKEH+14*, LIKEH9+9
RMPRERR QM2~, QM2A+6*, LIKE+2~, LIKE+18*, LIKE+20*, LIKEA+9*, LIKEB+11*, LIKEB+13*, LIKEH+9*, LIKEH+11*
, LIKEH9A+1*, LIKEH9A+3*
RMPREXC QM2+2*, QM2B+1*, QM2B+2*, QM2B+3*, LIKE~, LIKE+3*, LIKEB+5*, LIKEB+6*, LIKEB+7*, LIKEB+8*
, LIKEH9+5*, LIKEH9+6*, LIKEH9+7*, LIKEH9+8*
RMPREXMA LIKE+2~
RMPRGBL LIKE+1~, LIKE+2~, LIKE+30*, LIKEA*, LIKEA+1, LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6
, LIKEA+8, LIKEA+12, LIKEH1+4*, LIKEH*, LIKEH+1, LIKEH+2, LIKEH+3, LIKEH+4, LIKEH+5, LIKEH+6
, LIKEH+7, LIKEH+14
RMPRH LIKE+2~, LIKE+26*, LIKE+27, LIKEH1+1, LIKEH1+2, LIKEH1+4
RMPRHCPC QM2A, QM2A+4, LIKE~, LIKE+12, LIKE+15, LIKE+27, LIKE+30, LIKEA+5, LIKEA+10, LIKEA+13
, LIKEH+6
RMPRI QM2~, QM2+5*, QM2A*, QM2A+1, QM2A+5, LIKE+2~, LIKE+11*, LIKE+12*, LIKE+15, LIKEH1*
, LIKEH1+1, LIKEH1+2
RMPRIEN LIKE+2~, LIKE+15*, LIKE+16, LIKEA+13*, LIKEA+14
RMPRLCN QM2A, LIKE~, LIKE+12, LIKE+15, LIKEA+10, LIKEA+13, LIKEH1+1, LIKEH1+2, LIKEH1+4, LIKEH+5
RMPRLIN QM2~, QM2+1*, QM2A+7*, QM2A+8, QM2A+9, LIKE+1~, LIKE+10*, LIKE+13*, LIKE+14, LIKEA1*
, LIKEA+11*, LIKEA+12, LIKEA+14, LIKEA+15, LIKEB, LIKEB+1, LIKEB+2, LIKEH1+5*, LIKEH+12*, LIKEH+13
, LIKEH+14, LIKEH+15, LIKEH9, LIKEH9+1, LIKEH9+2
RMPRMAX QM2~, QM2+1*, QM2A+9, LIKE+1~, LIKE+4*, LIKEA+15, LIKEH+15
RMPRN LIKE+2~
RMPRSTN QM2A, QM2A+3, LIKE~, LIKE+12, LIKE+15, LIKE+19, LIKE+30, LIKEA+4, LIKEA+10, LIKEA+13
, LIKEB+12, LIKEH1+1, LIKEH1+2, LIKEH1+4, LIKEH+4, LIKEH+10, LIKEH9A+2
RMPRTXT LIKE~, LIKE+9, LIKE+14, LIKE+26, LIKE+30, LIKEA+6, LIKEH1
X QM2~, QM2B+3, LIKE+1~, LIKEB+7, LIKEB+8, LIKEB+10, LIKEH9+7, LIKEH9+8, LIKEH9+9
Y QM2~, LIKE+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All