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

Package: Prosthetics

Routine: RMPR5N1


Information

RMPR5N1 ;HIN/RVD-PROS STOCK ITEM RECORDS ;3/17/03 13:19

Source Information

Source file <RMPR5N1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT
PRI
PRI1
EXIT ;EXIT FROM REPORT HERE
EXIT1
REST ;
SET ;
WRI
HEAD
IHEAD
HEAD1 ;write heading
HTOTAL ;
ITOTAL ;
NONE ;nothing to report.
NONEALL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: @IOF,!!,"Processing report......"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: ?9,$E($P(^DPT(RMPAT,0),U,1),1,14),?26,RMSSN,?31,RMUSR,?47,RMQTY,?59,RMSER,?73,$J(RMCUB,7,0)
  • Line Location: WRI+16
Function Call: WRITE
  • Prompt: ?11,"**Note: ",RMCOM,?49,$J(RMONO,4),?54,$J(RMREC,4),?73,$J(RMCUB,7,0)
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+20
Function Call: WRITE
  • Prompt: !,"*** ISSUE and STOCK CONTROL RECORD - PROSTHETICS STOCK ITEMS ***",?65,"Page: ",RMPAGE,!,?30,"station: ",$E($P($G(^DIC(4,RMPR("STA"),0)),U,1),1,20)
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,Y," to "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"HCPCS: ",R0,?16,"Item: ",R1
  • 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: !,?44,"QTY",?50,"QTY",?55,"QTY",?63,"SERIAL"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !," DATE",?9,"PATIENT",?26,"SSN",?31,"USER",?44,"ISSUE",?50,"ORDR",?55,"REC",?63,"NUMBER",?73,"BALANCE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !," ----",?9,"-------",?26,"---",?31,"----",?44,"-----",?50,"----",?55,"---",?63,"------",?73,"-------"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!,?23,"*** Dollar Value of HCPCS Issued",?60,"=",?62,$J(RMTOCOH,11,2)
  • Line Location: HTOTAL+1
Function Call: WRITE
  • Prompt: !,?42,"--------------------------------------",!,?23,"*** Dollar Value of Item Issued",?60,"=",?62,$J(RMTOCO,11,2)
  • Line Location: ITOTAL+1
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"No Item Statistics for HCPCS: ",RQ,"...for this date range !!!"
  • Line Location: NONE+1
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