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

Package: Prosthetics

Routine: RMPRPOST


Information

RMPRPOST ;PHX/JLT,HNB-POST INIT / DELETE LOAN PROGRAM ;5/23/95

Source Information

Source file <RMPRPOST.m>

Entry Points

Name Comments DBIA/ICR reference
LOAN ;check if loan program has already been deleted
OPT ;delete options
POST ;POST INIT FOR VERSION 3.0
AR ;DELETE OLD LAB AMIS CODES FROM FILE 660
PT ;DELETE EXPIRED FIELDS FROM FILE PROSTHETICS PATIENT FILE 665
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),?5,"PROSTHETICS PACKAGE NOT LOADED ON THIS SYSTEM!"
  • Line Location: RMPRPOST+4
Function Call: WRITE
  • Prompt: !,$C(7),?5,"LOAN PROGRAM HAS ALREADY BEEN DELETED!"
  • Line Location: LOAN+1
Function Call: WRITE
  • Prompt: !!,?5,"Searching for and deleting Loan Cards"
  • Line Location: LOAN+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOAN+6
Function Call: WRITE
  • Prompt: !!,?5," ** No Loan Cards have been entered on your system"
  • Line Location: LOAN+7
Function Call: WRITE
  • Prompt: !!,?5," ** All Loan Card Entries have been Deleted"
  • Line Location: LOAN+8
Function Call: WRITE
  • Prompt: !!,?5,"Removing Loan Card Fields from the 660.1 Data Dictionary"
  • Line Location: LOAN+10
Function Call: WRITE
  • Prompt: !!,?5,"Re-indexing File 660.1"
  • Line Location: LOAN+13
Function Call: WRITE
  • Prompt: !!,?5,"Deleting File 660.2"
  • Line Location: LOAN+15
Function Call: WRITE
  • Prompt: !!,?5,"Deleting Loan Card Options"
  • Line Location: LOAN+17
Function Call: WRITE
  • Prompt: !!,?5,"Deleting "_OPT_" Option"
  • Line Location: OPT+2
Function Call: WRITE
  • Prompt: !!,"Deleting Expired Fields From File 660 "
  • Line Location: AR+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: AR+2
Function Call: WRITE
  • Prompt: !!,"Deleting Expired Fields From File 665 "
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+7
Function Call: WRITE
  • Prompt: !!,"Setting New Cross References ..."
  • Line Location: PT+8
Function Call: WRITE
  • Prompt: !!,"Removing Obsolete Keys ..."
  • Line Location: PT+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+22
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+26
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+28
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+29
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+30
Function Call: WRITE
  • Prompt: "."
  • Line Location: PT+31
Function Call: WRITE
  • Prompt: "..."
  • Line Location: PT+33
Function Call: WRITE
  • Prompt: !!,"Checking Purge Parameters ...",!
  • Line Location: PT+37
Function Call: WRITE
  • Prompt: !,"Close-Out Purchasing Purge set to 120 Days for ",$P(^(0),U,1),"."
  • Line Location: PT+40
Function Call: WRITE
  • Prompt: !,"Cancellation Purchasing Purge set to 120 Days for ",$P(^(0),U,1),"."
  • Line Location: PT+41
Function Call: WRITE
  • Prompt: !!,?20,"THANK YOU, ALL DONE!"
  • Line Location: PT+49
Function Call: WRITE
  • Prompt: !!!,"Installation NOT COMPLETE, D ^RMPTINIT to Finish This Installation!"
  • Line Location: PT+50
Info |  Source |  Entry Points |  Interaction Calls