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

Package: Prosthetics

Routine: RMPR4D1


Information

RMPR4D1 ;PHX/HNB -DISPLAY/LOOKUP/DIC(W) PURCHASE CARD ;3/1/1996

Source Information

Source file <RMPR4D1.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
EN5 ;Inquire to purchase card transaction
EN6 ;Printinig Purchase Card
EXIT ;EXIT FROM EN5/EN6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?25,$E(RMPRNAM,1,18),?45,$E(RMPRIT,1,23),?70,RMPRCST
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?40,$P(^(0),U)
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?64,"PICKUP/DELIVERY",!
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: ?33,$E($P(^DPT(+RZ,0),U,1),1,15)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN6+11
Function Call: WRITE
  • Prompt: "Patient: ",RPO(664,RMPRDA,1),?40,"Vendor:",RPO(664,RMPRDA,4)
  • Line Location: EN6+12
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+13
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+14
Function Call: WRITE
  • Prompt: !!,"Obligation #:",RPO(664,RMPRDA,.5)
  • Line Location: EN6+26
Function Call: WRITE
  • Prompt: ?35,"C.P.:",RPO(664,RMPRDA,6)
  • Line Location: EN6+27
Function Call: WRITE
  • Prompt: !,"Reference: ",RPO(664,RMPRDA,7)
  • Line Location: EN6+28
Function Call: WRITE
  • Prompt: ?35,"% Discount: ",RPO(664,RMPRDA,17)
  • Line Location: EN6+29
Function Call: WRITE
  • Prompt: ?60,"PSC Category: ",RPO(664,RMPRDA,16)
  • Line Location: EN6+30

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