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

Package: Prosthetics

Routine: RMPRPI06


Information

RMPRPI06 ;HIN/RVD-PRINT INVENTORY BALANCE BY HCPCS ;3/8/05 11:36

Source Information

Source file <RMPRPI06.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1 ;
SEL
CONT
PRINT
WRI
TOTAL
HEAD
HEAD1
EXIT
EXIT1
NONE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RAS1,RAS2
  • Line Location: EN1+3
Function Call: READ
  • Variable: RMENTER
  • Timeout: DTIME
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Processing report......."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"*** Error in API RMPRPI01 !!!"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+18
Function Call: WRITE
  • Prompt: !,?56,"=======================",!,?31,"Totals for ",RHO," = "
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: ?54,$J(RTO,7),?69,$J($FN(RVA,",",2),10),!,RMPR("L")
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,"*** PROSTHETICS INVENTORY BALANCE BY HCPCS ***"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",RMPAGE,!,"Run Date: ",RMDAT
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?30,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,20)
  • Line Location: HEAD+2
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: !,?47,"RE-",?52,"UNIT"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,?46,"ORDER",?53,"OF",?65,"UNIT",?74,"TOTAL"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"HCPCS",?10,"ITEM",?26,"SRC",?30,"LOCATION",?39,"VENDOR"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?46,"LEVEL",?52,"ISSUE",?59,"QTY",?65,"COST",?74,"VALUE"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"-----",?10,"----",?26,"---",?30,"--------",?39,"------"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: ?46,"-----",?52,"-----",?59,"---",?65,"----",?73,"------"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !!,"NO DATA !!!!!"
  • Line Location: NONE+2

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