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) ;
  • ICR #7554
    • Status: Active
    • Usage: Controlled Subscription
    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