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
Print Page as PDF
Routine: RMPRSP6

Package: Prosthetics

Routine: RMPRSP6


Information

RMPRSP6 ;HIN/RVD-PRINT 2319 WITH SUSPENSE LINK ;8/27/01

Source Information

Source file <RMPRSP6.m>

Entry Points

Name Comments DBIA/ICR reference
STDT ;RMPRSDT is start date in FM internal form.
CONT
PRINT
BUILD ;build a tmp global.
WRITE ;write report to a selected device
HEAD
HEAD1
EXIT
EXIT1
SUMTYP ;get total of each type of request
NONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: STDT+9
Function Call: WRITE
  • Prompt: !!,"Processing report......."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: !,"Totals:",?10,"Routine Prosthetics = ",$J(RMPR("ROUTINE"),5)
  • Line Location: WRITE+17
Function Call: WRITE
  • Prompt: ?40,"Eyeglass = ",$J(RMPR("EYEGLASS"),5)
  • Line Location: WRITE+18
Function Call: WRITE
  • Prompt: ?59,"Contact Lens = ",$J(RMPR("CONTACT"),5)
  • Line Location: WRITE+19
Function Call: WRITE
  • Prompt: !,?17," Oxygen = ",$J(RMPR("OXYGEN"),5)
  • Line Location: WRITE+20
Function Call: WRITE
  • Prompt: ?42,"Manual = ",$J(RMPR("MANUAL"),5)
  • Line Location: WRITE+21
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: WRITE+22
Function Call: WRITE
  • Prompt: !,"PROSTHETICS PATIENT RECORDS LINKED TO SUSPENSE Run Date: ",RMDATE,?70,"PAGE: ",RMPAGE
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Start Date: ",RMSDAT,?26,"End Date: ",RMEDAT,?51,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,19)
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?40,"TYPE OF",?52,"CPRS"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"DATE",?10,"PATIENT",?21,"ITEM",?40,"REQUEST",?50,"REQUESTOR",?68,"INITIATOR"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"----",?10,"-------",?21,"----",?40,"-------",?50,"---------",?68,"---------"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!,"NO DATA TO PRINT !!!!!"
  • Line Location: NONE+0
Info |  Source |  Entry Points |  Interaction Calls