Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRD1

Package: Prosthetics

Routine: RMPRD1


Information

RMPRD1 ;PHX/HNB-DISPLAY LOOKUP ;10/19/1993 [ 06/28/94 3:17 PM ]<<= NOT VERIFIED >

Source Information

Source file <RMPRD1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;DISPLAY DATE,PATIENT,ITEM,COST FROM 660
  • ICR #7553
    • Status: Active
    • Usage: Controlled Subscription
    EN1 ;DISPLAY DATE,REFERENCE,PATIENT FROM 664
    EN2 ;DISPLAY NAME
    EN3 ;DISPLAY LAB ORDER
    EN4 ;DISPLAY 2529-3 REQUEST
    EN5 ;Inquire to 1358 transaction
    EN6
    EXIT ;EXIT FROM EN5/EN6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: ?36,$E(RMPRIT,1,23),?70,RMPRCST
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: ?40,$P(^(0),U)
    • Line Location: EN1+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN1+15
    Function Call: WRITE
    • Prompt: ?64,"PICKUP/DELIVERY",!
    • Line Location: EN1+16
    Function Call: WRITE
    • Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15)
    • Line Location: EN2+1
    Function Call: WRITE
    • Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15),?40,$P(^RMPR(664.1,+Y,0),U,13),?57,$P(^(0),U,17)
    • Line Location: EN3+3
    Function Call: WRITE
    • Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15)
    • Line Location: EN3+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN3+4
    Function Call: WRITE
    • Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15)
    • Line Location: EN4+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN4+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EN6+10
    Function Call: WRITE
    • Prompt: "Patient: ",RPO(664,RMPRDA,1),?40,"Vendor:",RPO(664,RMPRDA,4)
    • Line Location: EN6+11
    Function Call: WRITE
    • Prompt: !,"Request Date: ",RPO(664,RMPRDA,.01),?33,"Date Required: ",RPO(664,RMPRDA,20),?69,"Days: ",RPO(664,RMPRDA,21)
    • Line Location: EN6+12
    Function Call: WRITE
    • Prompt: !,"Form: ",RPO(664,RMPRDA,15),?33,"Initiator: ",$E(RPO(664,RMPRDA,10),1,12),?60,"Sta.: ",$E(RPO(664,RMPRDA,18),1,11)
    • Line Location: EN6+13
    Function Call: WRITE
    • Prompt: !!,"Obligation #:",RPO(664,RMPRDA,.5)
    • Line Location: EN6+25
    Function Call: WRITE
    • Prompt: ?35,"C.P.:",RPO(664,RMPRDA,6)
    • Line Location: EN6+26
    Function Call: WRITE
    • Prompt: !,"Reference: ",RPO(664,RMPRDA,7)
    • Line Location: EN6+27
    Function Call: WRITE
    • Prompt: ?35,"% Discount: ",RPO(664,RMPRDA,17)
    • Line Location: EN6+28
    Function Call: WRITE
    • Prompt: ?60,"PSC Category: ",RPO(664,RMPRDA,16)
    • Line Location: EN6+29

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(664 - [#664] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call