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
Print Page as PDF
Routine: RMPRPST

Package: Prosthetics

Routine: RMPRPST


Information

RMPRPST ;HISC/RVD - POST INIT FOR HCPCS CONVERSION;1/02/98

Source Information

Source file <RMPRPST.m>

Entry Points

Name Comments DBIA/ICR reference
START ;x-ref field 4.1 in file 660
660 ;HCPCS conversion for file 660
664 ;hcpcs conversion for file 664
6641 ;hcpcs conversion for file 664.1
KILL
GETHC ;get hcpcs IEN from 661.1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Entry......"
  • Line Location: RMPRPST+2
Function Call: WRITE
  • Prompt: !!!!!!!!!!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$C(7),"**** Unable to continue POST INIT, file 661.1 was not transported correctly !!!!"
  • Line Location: 660+2
Function Call: WRITE
  • Prompt: !!,"***** CONVERTING HCPCS entry for 660...."
  • Line Location: 660+4
Function Call: WRITE
  • Prompt: !,$C(7),"***** FILE 660, HCPCS CONVERSION IS DONE!!!!"
  • Line Location: 660+6
Function Call: WRITE
  • Prompt: !!,"***** CONVERTING HCPCS entry for 664...."
  • Line Location: 664+2
Function Call: WRITE
  • Prompt: !,$C(7),"***** FILE 664, HCPCS CONVERSION IS DONE!!!!"
  • Line Location: 664+4
Function Call: WRITE
  • Prompt: !!,"***** CONVERTING HCPCS entry for 664.1...."
  • Line Location: 6641+2
Function Call: WRITE
  • Prompt: !,$C(7),"***** FILE 664.1, HCPCS CONVERSION IS DONE!!!!"
  • Line Location: 6641+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Note: Conversion of HCPCS has completed successfully."
  • Line Location: 6641+5
Function Call: WRITE
  • Prompt: !,?6,"You can let Prosthetic users back to the system !!!!!"
  • Line Location: 6641+6
Info |  Source |  Entry Points |  Interaction Calls