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

Package: Prosthetics

Routine: RMPRPI04


Information

RMPRPI04 ;HIN/RVD-PROS STOCK ITEM RECORDS ;3/8/05 11:24

Source Information

Source file <RMPRPI04.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT
EXIT ;exit here if report prints in home device.
EXIT1 ;close device and clean-up variables.
WRI
HEAD ;print headers
IHEAD
HEAD1 ;write column headers
HTOTAL ;
ITOTAL ;prints totals.
NONE ;nothing to report.
NONEALL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+2
Function Call: WRITE
  • Prompt: @IOF,!!,"Processing report......"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"ERROR NUMBER = ",RMCHK,!,"*** Error in API RMPRPI03 !!!"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?9,"**Note: ",RMTRA,?31,RMUSE,?45,$J(RMQTY,4),?69,$J(RMVAL,9,2)
  • Line Location: WRI+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: !,"*** ISSUE and STOCK CONTROL RECORD - PROSTHETICS STOCK ITEMS ***"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?65,"Page: ",RMPAGE,!,?30,"station: "
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(4,RMPR("STA"),0)),U,1),1,20)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,Y," to "
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"HCPCS: ",RH,"-",R2,?16,"Item: ",RI
  • Line Location: IHEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,?45,"QTY",?54,"QTY",?61,"QTY",?72,"DOLLAR"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !," DATE",?9,"PATIENT",?26,"SSN",?31,"USER",?44,"ISSUE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?53,"ORDER",?61,"REC",?72,"VALUE"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !," ----",?9,"-------",?26,"---",?31,"----",?44,"-----"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?53,"-----",?61,"---",?72,"------"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"No Item Statistics for HCPCS: "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: RQ,"...for this date range !!!"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !!,"NO DATA AT THIS DATE RANGE!!!!"
  • Line Location: NONEALL+0

FileMan Files Accessed Via FileMan Db Call

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