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

Package: Prosthetics

Routine: RMPRPIYY


Information

RMPRPIYY ;HINCIO/ODJ - PIP EDIT - PROMPTS AND BARCODE ;3/8/01

Source Information

Source file <RMPRPIYY.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Prosthetics 2 ($$GET,$$GETI)^RMPRPIXN  (NLABP,PRINT)^RMPRPIYS  
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 2 RMPRPIY9  RMPRPIYG  

Entry Points

Name Comments DBIA/ICR reference
OK(RMPRYN,RMPREXC) ;
OKX
PORD(RMPRSTN,RMPRHCPC,RMPRITM,RMPR41,RMPREXC) ;
PORDL1
PORDL1A
PORDL1B
PORDL2
PORDP
PORDG
PORDX
PORDE() ;
PORDH
NLAB
SELP ;
RCNX ;K RMPR6,RMPRTVAL,RMPRQTY,RMPRUCST,RMPRBCP,RMPRQ,RMPRIOP,RMPRNLAB
RCX

External References

Name Field # of Occurrence
^DIR OK+7, PORDP+2
$$GET^RMPRPIXN PORD+16, PORDL1B+5, PORDG+3
$$GETI^RMPRPIXN PORDL1B+4, PORDG+2
NLABP^RMPRPIYS NLAB+1
PRINT^RMPRPIYS SELP+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(RMPRLIN,2)," ",$E(RMPRS,4,5)_"/"_$E(RMPRS,6,7)_"/"_$E(RMPRS,2,3)
  • Line Location: PORDL2+3
Function Call: WRITE
  • Prompt: ?11,$J(RMPR41("ORDER QTY"),5,0)
  • Line Location: PORDL2+4
Function Call: WRITE
  • Prompt: ?18,$E(RMPR41("VENDOR"),1,30)
  • Line Location: PORDL2+5
Function Call: WRITE
  • Prompt: ?49,$J(RMPR41("RECEIVE QTY"),5,0)
  • Line Location: PORDL2+7
Function Call: WRITE
  • Prompt: " ",$E(RMPRS,4,5)_"/"_$E(RMPRS,6,7)_"/"_$E(RMPRS,2,3)
  • Line Location: PORDL2+9
Function Call: WRITE
  • Prompt: !,"Please select a stock order record"
  • Line Location: PORDP+9
Function Call: WRITE
  • Prompt: !,"by entering a line number in range 1 - "
  • Line Location: PORDP+10
Function Call: WRITE
  • Prompt: RMPRLIN
  • Line Location: PORDP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PORDH+0
Function Call: WRITE
  • Prompt: !,"Select a current stock order record, or ^ if not receiving against an order.",!
  • Line Location: PORDH+1
Function Call: WRITE
  • Prompt: ?3,"Date",?13,"Qty",?18,"Vendor",?49,"Received"
  • Line Location: PORDH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NLAB+1
Routine Call
  • DIR
  • Line Location:
    • OK+7
    • PORDP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.41 - [#661.41] PORD+12, PORD+14

Label References

Name Line Occurrences
NLAB SELP+1
OKX OK+8, OK+9, OK+10
PORDG PORD+23
PORDH PORDL2+1, PORDP+5
PORDL1A PORDL1B
PORDL1B PORDL2+13
PORDL2 PORDP+5
PORDP PORDL1A, PORDL1B+6, PORDP+8
PORDX PORD+22, PORDL1A, PORDP+3, PORDP+4, PORDP+6, PORDP+7
RCNX NLAB+3, NLAB+4, NLAB+5
RCX NLAB+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA OK+1~, PORD+1~
DIR OK+1~, PORD+1~
DIR("A" OK+4*, PORDL1B+7*, PORDP+1*, PORDP+5!
DIR("B" OK+5*
DIR(0 OK+6*, PORDP*
DIROUT OK+1~, OK+9, PORD+1~, PORDP+4
DIRUT OK+1~, PORD+1~
DTOUT OK+1~, OK+8, PORD+1~, PORDP+3
DUOUT OK+1~, PORD+1~, PORDP+7
>> RMPR11("DESCRIPTION" SELP+7
>> RMPR11("HCPCS" SELP+4
>> RMPR11("HCPCS-ITEM" SELP+6
>> RMPR11("ITEM MASTER" , SELP+8
RMPR41 PORD~, PORD+7!, PORD+15!, PORD+16, PORD+22!, PORDL1B+1!, PORDL1B+5, PORDL2+12!, PORDG+3
RMPR41("BALAN CE QTY" , PORD+18
RMPR41("IEN" PORD+15*, PORD+23*, PORDL1B+2*, PORDL1B+3, PORDL2+11, PORDP+13*, PORDG+1
RMPR41("ORDER QTY" , PORDL2+4
RMPR41("RECEI VE QTY" , PORDL2+6, PORDL2+7
RMPR41("VENDO R IEN" , PORDG+4*
RMPR41("VENDOR" PORDL2+5
RMPR41I PORD+2~, PORDL1B+1!, PORDL1B+4, PORDL2+12!, PORDG!, PORDG+2
RMPR41I("DATE ORDER" , PORDL2+2,  RECEIVE" , PORDL2+8
RMPR41I("IEN" PORDL1B+3*, PORDG+1*
RMPR41I("VENDOR" PORDG+4
>> RMPR5("NAME" SELP+11
>> RMPR6("DATE&TIME" SELP+4, SELP+5
>> RMPR6("QUANTITY" NLAB, NLAB+1
RMPRA PORD+1~
RMPRA( PORDL2+11*, PORDP+8, PORDP+13
>> RMPRBARC SELP+4*
RMPRD PORD+2~, PORD+12*, PORD+14, PORD+19, PORDL1*, PORDL1A*, PORDL1B
RMPRERR PORD+1~, PORD+3*, PORD+12, PORD+14, PORD+16*, PORD+17*, PORDL1B+4*, PORDL1B+5*, PORDG+2*, PORDG+3*
RMPREXC OK~, OK+2*, OK+8*, OK+9*, OK+10*, PORD~, PORD+4*, PORDP+3*, PORDP+4*, PORDP+6*
, PORDP+7*, NLAB+1, NLAB+2, NLAB+3, NLAB+4, SELP+1
RMPRGBL PORD+2~, PORDE+1, PORDE+2, PORDE+3, PORDE+4, PORDE+5, PORDE+6
RMPRGBLR PORD+1~
RMPRHCPC PORD~, PORD+12, PORD+14, PORDE+5
RMPRIEN PORD+2~, PORD+13*, PORD+14*, PORD+15, PORD+19, PORDL1B*, PORDL1B+2
RMPRIEN1 PORD+1~, PORD+11!, PORD+19*, PORD+23
RMPRITM PORD~, PORD+12, PORD+14, PORDE+6
>> RMPRITXT("DATE" SELP+5*
>> RMPRITXT("ITE M DESC" , SELP+7*
>> RMPRITXT("ITEM" SELP+6*
>> RMPRITXT("LOCATION" SELP+11*
>> RMPRITXT("MAS TER DESC" , SELP+8*
>> RMPRITXT("UNI T PRICE" , SELP+9*
>> RMPRITXT("VENDOR" SELP+10*
RMPRLIN PORD+2~, PORD+6*, PORDL1A, PORDL1B+6, PORDL2*, PORDL2+1, PORDL2+3, PORDL2+11, PORDP+1, PORDP+11
RMPRMAX PORD+2~, PORD+5*, PORDL1B+6
>> RMPRNLAB NLAB*, NLAB+1, NLAB+5
RMPROCNT PORD+2~, PORD+3*, PORD+19*, PORD+22, PORD+23
RMPRORD PORD+11!
RMPRORD( PORD+19*, PORDL1A, PORDL1B
RMPRS PORD+2~, PORDL2+2*, PORDL2+3, PORDL2+8*, PORDL2+9
RMPRSTN PORD~, PORD+12, PORD+14, PORDE+3
>> RMPRUCST SELP+9
>> RMPRVEND("NAME" SELP+10
RMPRYN OK~, OK+3*, OK+11*
STS PORD+2~, PORD+12*, PORD+14, PORD+19
X OK+1~, OK+10, PORD+1~, PORDP+5, PORDP+6, PORDP+7, PORDP+8, PORDP+13
Y OK+1~, OK+11, PORD+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All