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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (,ENALL,IXALL)^DIK  ^DIR  EN^DIU2  
Kernel 1 DEL^XPDKEY  

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

External References

Name Field # of Occurrence
^DIK LOAN+6, LOAN+11, OPT+2, AR+2, PT+2, PT+6
ENALL^DIK PT+9, PT+10
IXALL^DIK LOAN+14
^DIR LOAN+4
EN^DIU2 LOAN+12, LOAN+16, PT+3, PT+4, PT+5, PT+7, PT+33
DEL^XPDKEY PT+15

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
Routine Call
  • DIR
  • Line Location:
    • LOAN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(669.9 PT+49
^DIC(19 - [#19] OPT+2
^DIC(19.1 - [#19.1] PT+14
^DIC(669.9 PT+22, PT+25, PT+26, PT+29, PT+30, PT+31
^DIC(9.4 - [#9.4] RMPRPOST+4
^RMPR(660.1 - [#660.1] LOAN+1, LOAN+6, LOAN+9!
^RMPR(669.9 - [#669.9] PT+19, PT+22*, PT+26*, PT+29*, PT+30*, PT+31*, PT+39, PT+40, PT+41

Label References

Name Line Occurrences
POST RMPRPOST+5

Naked Globals

Name Field # of Occurrence
^(0 LOAN+6, PT+40*, PT+41*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LOAN+6*, LOAN+9!, LOAN+11*, LOAN+14!, OPT+2*!, AR+2*, PT+2!*, PT+3!, PT+6*
DA(1 LOAN+11*, AR+2*, PT+2*, PT+6*
DIK LOAN+6*, LOAN+9!, LOAN+11*, LOAN+14!*, OPT+2*!, AR+2*, PT+2!*, PT+6*, PT+9*, PT+10*
DIK(1 PT+9*, PT+10*
>> DIR("A" LOAN+3*
>> DIR("B" LOAN+4*
>> DIR(0 LOAN+3*
DIU LOAN+12*, LOAN+16*!, PT+3*!, PT+4*, PT+5*, PT+7*, PT+33*
DIU(0 LOAN+12*, LOAN+16*, PT+3*, PT+4*, PT+5*, PT+7*, PT+33*
>> OPT OPT+1*, OPT+2
>> REN OPT+2*
>> RMPRB PT+24*, PT+25*, PT+26, PT+38*, PT+39*, PT+40, PT+41
RMPRFIND LOAN+5!, LOAN+6*, LOAN+7, LOAN+8
RMPRKEY PT+12*, PT+14*, PT+15, PT+16*, PT+17!
RMPRKEYS PT+13*, PT+14, PT+17!
>> RMPRL LOAN+6*
U LOAN+6, PT+40, PT+41
>> Y LOAN+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All