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

Package: Prosthetics

Routine: RMPRPS36


Information

RMPRPS36 ;HIN CIO/RVD - HCPCS Update Utilities ; 3/25/04 12:29pm

Source Information

Source file <RMPRPS36.m>

Entry Points

Name Comments DBIA/ICR reference
F6111 ; Update PIP files 661.11
F614 ; Update PIP files 661.4
F6141 ; Update PIP files 661.41
F616 ; Update PIP files 661.6
F6163 ; Update PIP files 661.63
F617 ; Update PIP files 661.7
F619 ; Update PIP files 661.9
PAT76 ; Set up array and replace HCPCS
PAT77 ;Convert old HCPCS and set consult service requestor in file 660.
ADDHCPC ;list of HCPCS added in #77
CONV ;convert old HCPCS in PIP to new HCPCS
CONV35
HLST ;List of old^new HCPCS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Replacing the following HCPCS...",!
  • Line Location: PAT76+3
Function Call: WRITE
  • Prompt: !,RMHOLD," with ",RMHNEW
  • Line Location: PAT76+15
Function Call: WRITE
  • Prompt: !!,"HCPCS replacement complete.",!
  • Line Location: PAT76+29
Function Call: WRITE
  • Prompt: !!,"Adding new PSAS HCPCS to file #661.1.....",!
  • Line Location: PAT77+4
Function Call: WRITE
  • Prompt: !!,"Done adding new PSAS HCPCS!!!",!
  • Line Location: PAT77+18
Function Call: WRITE
  • Prompt: !!,"Replacing old/INACTIVE HCPCS to new/ACTIVE HCPCS in PIP.....",!
  • Line Location: CONV+1
Function Call: WRITE
  • Prompt: !!,"HCPCS replacement complete!!!",!
  • Line Location: CONV35+23

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