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

Package: Prosthetics

Routine: RMPOVDC


Information

RMPOVDC ;HINCIO/RVD - HOME OXYGEN VENDOR/HCPCS/FCP UPDATE ;11/03/00

Source Information

Source file <RMPOVDC.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
START ;
VEN ;change vendor utility
FCP ;change FCP utility.
HCPCS ; change HCPCS utility.
ITEM ; change ITEM utility.
COST ; change UNIT COST utility.
LJ(S,W,C) ; LEFT JUSTIFY S IN A FIELD W WIDE PADDING WITH CHAR F
SITE ; get Home Oxygen site
KEY() ;user must have the RMPRSUPERVISOR key in order to change
RQUIT()
EQUIT()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"** ",RMCNT," Records updated **"
  • Line Location: VEN+17
Function Call: WRITE
  • Prompt: !!,"Updating HO template for FCP ",RMODES," to ",RMNDES,"......"
  • Line Location: FCP+11
Function Call: WRITE
  • Prompt: !,"** ",RMCNT," Records updated **"
  • Line Location: FCP+16
Function Call: WRITE
  • Prompt: !!,"Updating HO template for HCPCS ",RMODES," to ",RMNDES,"......"
  • Line Location: HCPCS+11
Function Call: WRITE
  • Prompt: !,"** ",RMCNT," Records updated **"
  • Line Location: HCPCS+16
Function Call: WRITE
  • Prompt: !!,"Updating HO template for item ",$P($G(^PRC(441,RMOIFIT,0)),U,2)," to ",$P($G(^PRC(441,RMNIFIT,0)),U,2),"......"
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: !,"** ",RMCNT," Records updated **"
  • Line Location: ITEM+16
Function Call: WRITE
  • Prompt: !!,"Updating HO template for unit cost of item "_RMITDES_" to ",$J(RMNCOST,0,2),"......"
  • Line Location: COST+11
Function Call: WRITE
  • Prompt: !,"** ",RMCNT," Records updated **"
  • Line Location: COST+16
Function Call: WRITE
  • Prompt: WIDE
  • Line Location: LJ+0
Function Call: WRITE
  • Prompt: !!,"You do not hold a RMPSUPERVISOR key !!"
  • Line Location: KEY+5

FileMan Files Accessed Via FileMan Db Call

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