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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRPIYD

Package: Prosthetics

Routine: RMPRPIYD


Information

RMPRPIYD ;HINES OIFO/ODJ - PIP RECONCILE - Pick HCPCS Item;3/8/01

Source Information

Source file <RMPRPIYD.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Prosthetics 1 $$GET^RMPRPIX1  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ITEM(RMPRSTN,RMPRLCN,RMPR11,RMPREXC) ;
ITEMA1
ITEMX
CHKN(RMPR11) ;
CHKNX
CHKD(RMPR11) ;
CHKDX
OKADD(RMPR11,RMPRYN,RMPREXC) ;
ADDNMX
QM
QQM
QM2
QM2A
QM2B
QM2X
LIKE(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11) ;
LIKEA1
LIKEA
LIKEB
LIKEX

External References

Name Field # of Occurrence
^DIR ITEMA1, OKADD+5, QM2B, LIKEB+7
$$GET^RMPRPIX1 CHKN+8, CHKD+14, QM2A+6, LIKEA+9, LIKEA+13, LIKEB+3, LIKEB+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,"Answer with ITEM NUMBER or DESCRIPTION:"
  • Line Location: QM+0
Function Call: WRITE
  • Prompt: !!?8,"You may enter a new ITEM, if you wish"
  • Line Location: QQM+1
Function Call: WRITE
  • Prompt: !?8,"This is an Item or Appliance under PSAS HCPCS kept by local site in"
  • Line Location: QQM+2
Function Call: WRITE
  • Prompt: !?8,"Prosthetics Inventory module."
  • Line Location: QQM+3
Function Call: WRITE
  • Prompt: !?3,RMPRI,?16,RMPR("HCPCS-ITEM"),?28,RMPR("DESCRIPTION")
  • Line Location: QM2A+7
Function Call: WRITE
  • Prompt: !?4,$J(RMPRLIN,2),?9,RMPREXMA("DESCRIPTION")
  • Line Location: LIKEA+15
Function Call: WRITE
  • Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5)
  • Line Location: LIKEA+21
Function Call: WRITE
  • Prompt: !
  • Line Location: LIKEB+8
Routine Call
  • DIR
  • Line Location:
    • ITEMA1
    • OKADD+5
    • QM2B
    • LIKEB+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.11 - [#661.11] CHKN+7, CHKD+7, CHKD+10, CHKD+13
^RMPR(661.4 - [#661.4] QM2A, LIKE+6, LIKE+7, LIKEA+10

Label References

Name Line Occurrences
ADDNMX OKADD+6, OKADD+7, OKADD+8
CHKDX CHKD+3, CHKD+5, CHKD+6, CHKD+7
CHKNX CHKN+3, CHKN+5, CHKN+6, CHKN+7
ITEMA1 ITEMA1+8, ITEMA1+9
ITEMX ITEM+4, ITEM+5, ITEMA1+1, ITEMA1+2, ITEMA1+3, ITEMA1+6, ITEMA1+7, ITEMA1+10, ITEMA1+11
LIKE ITEMA1+5
LIKEA LIKEA+10, LIKEA+24
LIKEB LIKEA+1, LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6, LIKEA+23
LIKEX LIKEB, LIKEB+9, LIKEB+10, LIKEB+11, LIKEB+12
QM2 QM+1, QQM
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 ITEM+1~, QM2~, LIKE+1~
DIR ITEM+1~, OKADD+1~, QM2~, LIKE+1~
DIR("?" ITEM+11*
DIR("??" ITEM+12*
DIR("A" ITEM+10*, OKADD+4*, QM2+4*, LIKEB+6*
DIR(0 ITEM+9*, OKADD+3*, QM2+3*, LIKEB+5*
DIROUT ITEM+1~, ITEMA1+2, OKADD+1~, OKADD+7, QM2~, QM2B+2, LIKE+1~, LIKEB+10
DIRUT OKADD+1~, QM2~, LIKE+1~
DTOUT ITEM+1~, ITEMA1+1, OKADD+1~, OKADD+6, QM2~, QM2B+1, LIKE+1~, LIKEB+9
DUOUT ITEM+1~, OKADD+1~, QM2~, QM2B+3, LIKE+1~, LIKEB+12
RMPR QM2~, QM2A+2!, QM2A+6, LIKE+2~, LIKEA+7!, LIKEA+9
RMPR("DESCRIPTION" QM2A+7
RMPR("HCPCS" QM2A+4*
RMPR("HCPCS-ITEM" QM2A+7
RMPR("IEN" LIKEA+8*
RMPR("ITEM" QM2A+5*, LIKEA+10
RMPR("STATION" QM2A+3*
RMPR11 ITEM~, ITEMA1+5, CHKN~, CHKN+8, CHKD~, CHKD+14, OKADD~, LIKE~, LIKEB+3, LIKEB+13!
, LIKEB+15
RMPR11("DESCRIPTION" ITEMA1+10*, CHKD+6, CHKD+7, CHKD+9, CHKD+11, CHKD+13, OKADD+4
RMPR11("HCPCS" ITEM+5, ITEM+8, CHKN+5, CHKN+7, CHKD+5, CHKD+7, CHKD+13
RMPR11("IEN" ITEMA1+4*, ITEMA1+9, ITEMA1+10, CHKD+13*, LIKEB+2*, LIKEB+14*
RMPR11("ITEM" CHKN+6, CHKN+7
RMPR11("STATI ON IEN" , ITEM+7*, CHKN+4*, CHKD+4*
RMPR11("STATION" ITEM+6*, CHKN+3, CHKN+4, CHKN+7, CHKD+3, CHKD+4, CHKD+7, CHKD+10, CHKD+13
RMPRA LIKE+1~, LIKEA1!
RMPRA( LIKEA+16*, LIKEA+22*, LIKEB+14
RMPRD CHKD+1~, CHKD+9*, CHKD+10*, CHKD+11
RMPRERR ITEM+1~, ITEM+2*, ITEM+4*, ITEM+5*, ITEMX, CHKN+1~, CHKN+2*, CHKN+3*, CHKN+5*, CHKN+6*
, CHKN+7*, CHKN+8*, CHKN+9*, CHKNX, CHKD+1~, CHKD+2*, CHKD+3*, CHKD+5*, CHKD+6*, CHKD+8*
, CHKD+11*, CHKD+14*, CHKD+15*, CHKDX, QM2~, QM2A+6*, LIKE+2~, LIKEA+9*, LIKEA+13*, LIKEB+3*
, LIKEB+15*
RMPREXC ITEM~, ITEM+3*, ITEMA1+1*, ITEMA1+2*, ITEMA1+3*, ITEMA1+5, ITEMA1+6, ITEMA1+7, ITEMA1+8, OKADD~
, OKADD+2*, OKADD+6*, OKADD+7*, OKADD+8*, OKADD+10*, QM2+2*, QM2B+1*, QM2B+2*, QM2B+3*, LIKE~
, LIKE+3*, LIKEB+9*, LIKEB+10*, LIKEB+11*, LIKEB+12*
RMPREXMA LIKE+2~, LIKE+5*, LIKE+7*, LIKEA+11, LIKEA+12, LIKEA+13, LIKEA+17!, LIKEA+18*, LIKEB+1, LIKEB+2
RMPREXMA("DESCRIPTION" LIKEA+15
RMPREXMA("IEN" LIKEA+12*, LIKEA+16
RMPRGBL LIKE+1~, LIKE+2~, LIKE+9*, LIKEA*, LIKEA+1, LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6
, LIKEA+8, LIKEA+21, LIKEA+22
RMPRHCPC ITEM+1~, ITEM+8*, ITEMA1+5, QM2A, QM2A+4, LIKE~, LIKE+6, LIKE+7, LIKE+9, LIKEA+5
, LIKEA+10
RMPRI QM2~, QM2+5*, QM2A*, QM2A+1, QM2A+5, QM2A+7
RMPRLCN ITEM~, ITEMA1+5, QM2A, LIKE~, LIKE+6, LIKE+7, LIKEA+10
RMPRLIN QM2~, QM2+1*, QM2A+8*, QM2A+9, LIKE+1~, LIKEA1*, LIKEA+14*, LIKEA+15, LIKEA+16, LIKEA+20*
, LIKEA+21, LIKEA+22, LIKEA+23, LIKEB, LIKEB+5, LIKEB+6
RMPRMAX QM2~, QM2+1*, QM2A+9, LIKE+1~, LIKE+4*, LIKEA+23
RMPRN LIKE+2~
RMPRSRC ITEM+1~
RMPRSTN ITEM~, ITEM+4, ITEM+6, ITEM+7, ITEMA1+5, QM2A, QM2A+3, LIKE~, LIKE+6, LIKE+7
, LIKE+9, LIKEA+4, LIKEA+10
RMPRTXT LIKE~, LIKE+6, LIKE+7, LIKE+9, LIKEA+6
RMPRYN OKADD~, OKADD+9*
X ITEM+1~, ITEMA1+3, ITEMA1+5, ITEMA1+9, ITEMA1+10, OKADD+1~, OKADD+8, QM2~, QM2B+3, LIKE+1~
, LIKEB+11, LIKEB+12, LIKEB+14
Y ITEM+1~, OKADD+1~, OKADD+9, QM2~, LIKE+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All