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