Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Kernel 1 KILL^XUSCLEAN  

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()

External References

Name Field # of Occurrence
^DIC VEN+4, VEN+7, FCP+4, FCP+8, HCPCS+4, HCPCS+8, ITEM+4, ITEM+7, COST+4, SITE+3
^DIE VEN+16, FCP+15, HCPCS+15, ITEM+15, COST+15
^DIR START+5, COST+8
KILL^XUSCLEAN EXIT+2

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
Routine Call
  • DIC
  • Line Location:
    • VEN+4
    • VEN+7
    • FCP+4
    • FCP+8
    • HCPCS+4
    • HCPCS+8
    • ITEM+4
    • ITEM+7
    • COST+4
    • SITE+3
Routine Call
  • DIE
  • Line Location:
    • VEN+16
    • FCP+15
    • HCPCS+15
    • ITEM+15
    • COST+15
Routine Call
  • DIR
  • Line Location:
    • START+5
    • COST+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19.1 - [#19.1] KEY+3
^PRC(440 - [#440] VEN+11, VEN+12
^PRC(441 - [#441] ITEM+11, COST+6
^RMPR(661 - [#661] ITEM+5, ITEM+8, COST+5
^RMPR(661.1 - [#661.1] HCPCS+5, HCPCS+8
^RMPR(665 - [#665] VEN+13, VEN+14, FCP+12, FCP+13, HCPCS+12, HCPCS+13, ITEM+12, ITEM+13, COST+12, COST+13
^VA(200 - [#200] KEY+4

Label References

Name Line Occurrences
$$RQUIT VEN+5, VEN+7, FCP+5, FCP+8, HCPCS+5, HCPCS+8, ITEM+5, ITEM+7, COST+4, COST+8
SITE+3
@( START+8
EXIT START+1, START+2, START+9
KEY START+1
SITE START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C LJ~, LJ+1*, LJ+2
DA VEN+1~, VEN+8!, VEN+16*, FCP+1~, FCP+9!, FCP+15*, HCPCS+1~, HCPCS+9!, HCPCS+15*, ITEM+1~
ITEM+9!, ITEM+15*, COST+1~, COST+9!, COST+15*, SITE+1!
DA(1 VEN+3*, VEN+4, VEN+15*, FCP+3*, FCP+4, FCP+14*, HCPCS+14*, ITEM+14*, COST+14*
DD SITE+1!
DIC VEN+1~, VEN+4*, VEN+8!, FCP+1~, FCP+4*, FCP+9!, HCPCS+1~, HCPCS+4*, HCPCS+9!, ITEM+1~
ITEM+4*, ITEM+9!, COST+1~, COST+4*, COST+9!, SITE+1!, SITE+2*
DIC("A" VEN+3*, VEN+6*, FCP+3*, FCP+6*, HCPCS+3*, HCPCS+7*, ITEM+3*, ITEM+6*, COST+3*, SITE+2*
DIC("S" VEN+5*, FCP+7*, HCPCS+6*
DIC(0 VEN+4*, FCP+4*, HCPCS+4*, ITEM+4*, COST+4*, SITE+2*
DIE VEN+1~, VEN+10*, VEN+15*, FCP+1~, FCP+14*, HCPCS+1~, HCPCS+14*, ITEM+1~, ITEM+14*, COST+1~
COST+14*, SITE+1!
DIR START+3!, FCP+1~, HCPCS+1~, ITEM+1~, COST+1~
DIR("A" START+5*, COST+7*
DIR("B" START+5*
DIR(0 START+4*, COST+8*
>> DIRUT START+6, RQUIT
DR VEN+16*, FCP+15*, HCPCS+15*, ITEM+15*, COST+15*, SITE+1!
DT VEN+13, FCP+12, HCPCS+12, ITEM+12, COST+12
>> DTOUT START+6, RQUIT, EQUIT
>> DUOUT RQUIT
DUZ KEY+4
RD VEN+1~, VEN+13*, FCP+1~, FCP+12*, HCPCS+1~, HCPCS+12*, ITEM+1~, ITEM+12*, COST+1~, COST+12*
RI VEN+1~, VEN+13*, VEN+14, VEN+15, FCP+1~, FCP+12*, FCP+13, FCP+14, HCPCS+1~, HCPCS+12*
HCPCS+13, HCPCS+14, ITEM+1~, ITEM+12*, ITEM+13, ITEM+14, COST+1~, COST+12*, COST+13, COST+14
RIT VEN+1~, VEN+14*, FCP+1~, FCP+13*, HCPCS+1~, HCPCS+13*, ITEM+1~, ITEM+13*, COST+1~, COST+13*
RJ VEN+1~, VEN+14*, VEN+16, FCP+1~, FCP+13*, FCP+15, HCPCS+1~, HCPCS+13*, HCPCS+15, ITEM+1~
ITEM+13*, ITEM+15, COST+1~, COST+13*, COST+15
>> RMCNT START+3*, VEN+3*, VEN+16*, VEN+17, FCP+15*, FCP+16, HCPCS+15*, HCPCS+16, ITEM+15*, ITEM+16
COST+15*, COST+16
RMFCP FCP+1~, FCP+13*
RMHCPC HCPCS+2~, HCPCS+13*
>> RMIDT VEN+13*, FCP+12*, HCPCS+12*, ITEM+12*, COST+12*
RMIFIT COST+1~, COST+5*, COST+6
RMIT COST+1~, COST+5*, COST+13
RMITDES COST+1~, COST+6*, COST+7, COST+11
RMITEM ITEM+1~, ITEM+13*, COST+1~, COST+13*
RMKEY KEY+2~, KEY+3*, KEY+4
RMNCOST COST+2~, COST+8*, COST+11
RMNDES FCP+1~, FCP+8*, FCP+11, HCPCS+1~, HCPCS+8*, HCPCS+11
RMNEWHCP HCPCS+2~, HCPCS+8*
RMNEWVEN VEN+2!, VEN+7*, VEN+12
>> RMNIFIT ITEM+8*, ITEM+11
RMNITEM ITEM+2~, ITEM+8*
RMODES FCP+1~, FCP+5*, FCP+11, FCP+13, HCPCS+1~, HCPCS+5*, HCPCS+11
>> RMOIFIT ITEM+5*, ITEM+11
RMOITEM ITEM+2~, ITEM+5*, ITEM+13
RMOLDFCP FCP+2~, FCP+5*
RMOLDHCP HCPCS+2~, HCPCS+5*, HCPCS+13
RMOLDVEN VEN+2!, VEN+5*, VEN+11, VEN+14
RMPOXITE EXIT+1!, START+2, VEN+3, VEN+13, FCP+3, FCP+12, HCPCS+12, ITEM+12, COST+12, SITE+1!
SITE+4*
RMPR EXIT~
>> RMPRCHA START+7*, START+8
RMPRSITE EXIT~
RMSTA VEN+1~, VEN+13*, FCP+1~, FCP+12*, HCPCS+1~, HCPCS+12*, ITEM+1~, ITEM+12*, COST+1~, COST+12*
>> RMVEN VEN+14*
RQUIT EXIT+1!, START+1, VEN+13, VEN+14, FCP+12, FCP+13, HCPCS+12, HCPCS+13, ITEM+12, ITEM+13
COST+12, COST+13, KEY+6*, RQUIT*, EQUIT*
S LJ~, LJ+2*, LJ+3
U VEN+11, VEN+12, VEN+13, VEN+14, FCP+5, FCP+8, FCP+12, FCP+13, HCPCS+5, HCPCS+8
HCPCS+12, HCPCS+13, ITEM+5, ITEM+8, ITEM+11, ITEM+12, ITEM+13, COST+5, COST+6, COST+12
COST+13
W LJ~, LJ+2
X VEN+1~, FCP+1~, HCPCS+1~, ITEM+1~, ITEM+6!, COST+1~
Y START+7, VEN+1~, VEN+5, VEN+7, FCP+1~, FCP+5, FCP+8, HCPCS+1~, HCPCS+5, HCPCS+8
ITEM+1~, ITEM+5, ITEM+6!, ITEM+7, ITEM+8, COST+1~, COST+4, COST+5, COST+8, SITE+3
SITE+4, EQUIT
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All