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

Package: Prosthetics

Routine: RMPRPS34


Information

RMPRPS34 ;HISC/RVD/HNC -Check 661.1 and Save Inventory flag ;9/2/04 12:13

Source Information

Source file <RMPRPS34.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
SAVE
RESET
UPCPT ;update Inactive CPT code starting 4/1/02
DUP ;repoint duplicate HCPCS (660, 664, 664.1, 665, 661.2, 661.3
KILLB ;kill & set 'B' cross reference in 661.1.
KILLC ;kill & set 'C' cross reference in 661.1.
KILLE ;kill & set 'E' cross reference in 661.1.
EXIT ;EXIT
PAT64
PAT64X
WHUP ;Wheelchair Update Record with new Grouper Number
KILLNDS ;
P91 ;Patch 91
HLST ;Wheelchair IEN to update to R10 A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*********************************************************"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"* Your RMPR(661.1 global is CORRUPTED, DO NOT INSTALL *"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"* the new RMPR(661.1 global. Please, contact *"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"* National IRM Help Desk at 1-888-596-4357 for HELP!!!! *"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"*********************************************************",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"Saving Inventory Data ...."
  • Line Location: SAVE+0
Function Call: WRITE
  • Prompt: !,"Done Saving Inventory Data, please load the ^RMPR(661.1) global now"
  • Line Location: SAVE+9
Function Call: WRITE
  • Prompt: !,"File RMPR_3_84.GBL",!
  • Line Location: SAVE+10
Function Call: WRITE
  • Prompt: !,"Start Reset of the Inventory flag...."
  • Line Location: RESET+0
Function Call: WRITE
  • Prompt: !!,"End Reset of the Inventory flag.",!
  • Line Location: RESET+6
Function Call: WRITE
  • Prompt: !,"Start Converting Inactive CPT code....",!
  • Line Location: UPCPT+1
Function Call: WRITE
  • Prompt: !,"Done Converting Inactive CPT code....",!
  • Line Location: UPCPT+12
Function Call: WRITE
  • Prompt: !,"Done with Installation of Patch RMPR*3*84"
  • Line Location: KILLE+5
Function Call: WRITE
  • Prompt: !!,"Done HCPCS update!!!"
  • Line Location: PAT64+16
Function Call: WRITE
  • Prompt: !!,"Start Reindexing the 'B' cross reference of file #661.1 ..."
  • Line Location: PAT64+17
Function Call: WRITE
  • Prompt: !!,"Done Reindexing file #661.1!!!",!!
  • Line Location: PAT64+20
Function Call: WRITE
  • Prompt: !,PD," ",L
  • Line Location: KILLNDS+1
Function Call: WRITE
  • Prompt: !,"ALL DONE"
  • Line Location: P91+7

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