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

Package: Prosthetics

Routine: RMPORPR


Information

RMPORPR ;VA-EDS/PAK LIST HOME OXY PTS PRESCRIPTIONS/ITEMS ;7/24/98

Source Information

Source file <RMPORPR.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Compile and print report
SELP ; Select patient
PRINT ; Print report
ADTL() ; Get Additional detail: cost, FCP and calculate total cost of all items
COST()
FCP()
EXTC() ; Return extended cost
EXIT ;
END ; End the report line
SSN() ; Get SSN ;RNPR*3.0*179 Flag a deceased patient by attaching an '*' to SSN. ^DPT(D0,.35) direct read supported by ICR #10035
SDT() ; Get Rx activation Date.
EDT() ; Get the most recently entered Rx.
RPTHDR ; Report header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?47,"Total Patients: ",COUNT
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,?38,"Total Deceased Patients: ",RMPODCNT
  • Line Location: END+4
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RMPO("NAME"))/2)),RMPO("NAME"),?65,"Page: "_PAGE
  • Line Location: RPTHDR+2
Function Call: WRITE
  • Prompt: !,?23,"Prescription Report",?52,"* denotes deceased patient",!
  • Line Location: RPTHDR+3

FileMan Files Accessed Via FileMan Db Call

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