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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Prosthetics 2 PAT76^RMPRPS35  CONV^RMPRPS36  
VA FileMan 2 FILE^DIE  ENALL^DIK  

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

External References

Name Field # of Occurrence
FILE^DIE UPCPT+10, PAT64+14, WHUP+31
ENALL^DIK KILLB+2, KILLC+2, PAT64+19
PAT76^RMPRPS35 RESET+17
CONV^RMPRPS36 RESET+15

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
Routine Call
  • DIE
  • Line Location:
    • UPCPT+10
    • PAT64+14
    • WHUP+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661.1 - [#661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR("INV" SAVE+2!, SAVE+7*, RESET+3, EXIT+1!
^RMPR(660 - [#660] UPCPT+4, WHUP+6, WHUP+17, WHUP+21, WHUP+22
^RMPR(661.1 - [#661.1] EN+13, SAVE+4, SAVE+5, RESET+4*, KILLB+1!, KILLC+1!, KILLE+1!, EXIT+1!, PAT64+10, PAT64+18!
, WHUP+7, KILLNDS+1, P91+3*, P91+4*, P91+5*, P91+6*
^RMPR(661.6 - [#661.6] RESET+15, RESET+17
^RMPR(661.7 - [#661.7] RESET+15, RESET+17
^RMPR(661.9 - [#661.9] RESET+15, RESET+17
^RMPR(669.9 - [#669.9] WHUP+25, WHUP+27, WHUP+28*

Label References

Name Line Occurrences
EXIT EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDC SAVE+3*, SAVE+4*, SAVE+5, SAVE+7, SAVE+11!, RESET+2*, RESET+3*, RESET+4, EXIT+1!
DIK KILLB+1!, KILLB+2*, KILLC+1!, KILLC+2*, KILLE+1!, PAT64+19*
DIK(1 KILLB+2*, KILLC+2*, PAT64+19*
I EXIT+1!, PAT64~, PAT64+9*, PAT64+10, PAT64+15
>> L KILLNDS+1*
>> PD KILLNDS+1*
RM0 SAVE+1!, SAVE+5*, SAVE+6, SAVE+11!, UPCPT+4*, UPCPT+5, UPCPT+11!
RM60 UPCPT+7*, UPCPT+9, UPCPT+11!
RM661 EN+13*, SAVE+11!, EXIT+1!
RMCPI UPCPT+5*, UPCPT+6, UPCPT+11!
RMCPT UPCPT+8*, UPCPT+9, UPCPT+11!
RMEXIT EN+1*, EN+13, EN+19*, SAVE+11!, EXIT+1!
RMPR PAT64~, WHUP+3~
RMPR( PAT64+13*
RMPR(660 WHUP+30*
RMPR11 PAT64~
RMPR11( PAT64+9
RMPR11("D5924" PAT64+3*
RMPR11("D5934" PAT64+4*
RMPR11("L8500" PAT64+5*
RMPR11("L8501" PAT64+6*
RMPR11("L8614" PAT64+7*
RMPR11("L8619" PAT64+8*
RMPRFME PAT64~, WHUP+3~
RMPRG WHUP+3~, WHUP+27*, WHUP+28*, WHUP+30
RMPRI PAT64~, PAT64+10*, PAT64+11, PAT64+12*, PAT64+13, WHUP+3~, WHUP+10*, WHUP+11*, P91+1*, P91+2*
, P91+8!
RMPRPH WHUP+3~, WHUP+5*, WHUP+6*, WHUP+7, WHUP+17
RMPRPHE WHUP+3~, WHUP+7*, WHUP+9, WHUP+14
RMPRPHL WHUP+3~, WHUP+16*, WHUP+17*, WHUP+21, WHUP+22, WHUP+29
>> RMPRPHLL WHUP+29*, WHUP+30
RMPRSITE WHUP+3~, WHUP+24*, WHUP+25*, WHUP+26, WHUP+27, WHUP+28
RMPRSTN WHUP+3~, WHUP+22*, WHUP+23, WHUP+25
RMPRY WHUP+3~, WHUP+11*, WHUP+12, WHUP+14, P91+2*, P91+3, P91+8!
RMUPD UPCPT+2!, UPCPT+11!
RMUPD(660 UPCPT+9*
ROI UPCPT+4*, UPCPT+11!
ROJ UPCPT+4*, UPCPT+7, UPCPT+11!
U EN+1*, EN+13, SAVE+5, RESET+1*, RESET+4, UPCPT+3*, UPCPT+5, WHUP+7, WHUP+22, WHUP+28
, P91+3, P91+4, P91+5, P91+6

Marked Items

Name Field # of Occurrence
$T(HLST+RMPRI WHUP+11, P91+2
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 |  Marked Items  | All