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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRCDP

Package: Prosthetics

Routine: RMPRCDP


Information

RMPRCDP ;PHX/DWL,HNB-PURGE FILE 664 ;8/29/1994

Source Information

Source file <RMPRCDP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 (C,NOW)^%DTC  DT^DICRW  ^DIK  EN^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 1 DIV4^RMPRSIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Prosthetics 3 RMPR PURGE AGED  RMPR PURGE CANCELLED  RMPR PURGE CLOSED  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Purge 664, Canceled Transactions
EN4
EN11
EN ;PURGE 664 FILE OF ENTRIES CLOSED OUT FOR A STATION/DIVISION
EN5
EN2
END
EN3 ;Purge Non-Obligated Transactions
EN3A ;
EN20 ;Purge 664, Aged order transactions based on file 442 purge history for closed/cancelled orders
EN21 ;Select Fiscal Year
EN25
EN26
END1

External References

Name Field # of Occurrence
C^%DTC EN11+1, EN2+1
NOW^%DTC EN11+1, EN2+1, EN26+1
^%ZIS EN4, EN5, EN3+3, EN25
^%ZISC END, EN3A+8, END1
^%ZTLOAD EN4+6, EN5+3, EN3+5, EN25+6
DT^DICRW EN21+1
^DIK EN11+8, EN2+8, EN3A+6, EN26+10
EN^DIQ EN11+7, EN2+7, EN3A+5, EN26+9
^DIR EN20+2, EN21+4, EN21+7
DIV4^RMPRSIT EN1+1, EN+1, EN3+2, EN20+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"YOU MAY NOT SELECT YOUR TERMINAL"
  • Line Location: EN4+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED!>",1:"<REQUEST NOT QUEUED!>")
  • Line Location: EN4+6
Function Call: WRITE
  • Prompt: !!,"Purge Canceled Prosthetic Purchasing Transactions For: ",!,$P(^RMPR(669.9,RMPRSITE,0),U,1)," On ",Y,!!
  • Line Location: EN11+2
Function Call: WRITE
  • Prompt: "Deleted...",!
  • Line Location: EN11+8
Function Call: WRITE
  • Prompt: !,L,!,?5,"NO CANCELED PURCHASING TRANSACTIONS DELETED"
  • Line Location: EN11+9
Function Call: WRITE
  • Prompt: !,$C(7),"YOU MAY NOT SELECT YOUR OWN TERMINAL"
  • Line Location: EN5+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED!>",1:"<REQUEST NOT QUEUED>")
  • Line Location: EN5+3
Function Call: WRITE
  • Prompt: !!,"Purge Closed Prosthetic Purchasing Transactions For",!,$P(^RMPR(669.9,RMPRSITE,0),U,1)," On ",Y,!!
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: "Deleted",!
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !,L,!,?5,"NO CLOSED PURCHASING TRANSACTIONS DELETED",!
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED!>",1:"<REQUEST NOT QUEUED>")
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: "Deleted...",!
  • Line Location: EN3A+6
Function Call: WRITE
  • Prompt: !!,"No Non-Obligated Transactions deleted."
  • Line Location: EN3A+7
Function Call: WRITE
  • Prompt: " You CANNOT purge Prosthetics order data for a fiscal year LESS than 8 years ago!!"
  • Line Location: EN21+5
Function Call: WRITE
  • Prompt: !,$C(7),"YOU MAY NOT SELECT YOUR TERMINAL"
  • Line Location: EN25+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED!>",1:"<REQUEST NOT QUEUED!>")
  • Line Location: EN25+6
Function Call: WRITE
  • Prompt: !!,"Purge Prosthetic Purchasing Transactions For: ",RMPRFY," On ",Y,!!
  • Line Location: EN26+2
Function Call: WRITE
  • Prompt: !,"Deleted...",!
  • Line Location: EN26+11
Function Call: WRITE
  • Prompt: !!,RMPRL,!!,?5,"TOTAL PROSTHETICS PURCHASING TRANSACTIONS DELETED: ",RMPRTOTD,!
  • Line Location: EN26+12
Routine Call
  • DIR
  • Line Location:
    • EN20+2
    • EN21+4
    • EN21+7
Routine Call
  • %ZIS
  • Line Location:
    • EN4
    • EN5
    • EN3+3
    • EN25

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN11+1, EN2+1, EN26+1
^PRC(442 - [#442] EN26+7
^RMPR(664 - [#664] EN11+3, EN11+5, EN11+6, EN2+3, EN2+5, EN2+6, EN3A+1, EN3A+3, EN3A+4, EN26+3
, EN26+4
^RMPR(669.9 - [#669.9] EN11, EN11+2, EN2, EN2+2

Label References

Name Line Occurrences
EN21 EN21+5, EN21+7
END EN4, EN4+6, EN11, EN11+10, EN5, EN5+3, EN2, EN3+3, EN3+6
END1 EN20+3, EN21+4, EN25, EN25+6

Naked Globals

Name Field # of Occurrence
^(0 EN11+6, EN2+6, EN3A+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN11+1, EN2+1, EN26+1
%ZIS EN4!*, EN5!*, EN3+3!*, EN25!*
%ZIS("B" EN4*, EN5*, EN3+3*, EN25*
DA EN11+7*, EN11+8*, EN2+7*, EN2+8*, END!, EN3A+5*, EN3A+6*, EN3A+8!, EN26+9*, END1!
DIC EN11+7*, EN11+8, EN2+7*, EN2+8, END!, EN3A+5*, EN3A+6, EN3A+8!, EN26+9*, EN26+10!
, END1!
DIK EN11+8*, EN2+8*, END!, EN3A+6*, EN3A+8!, EN26+10*!, END1!
DIR END!, EN21+4!, END1!
DIR("?" EN20+1*, EN21+3*, EN21+6*
DIR("A" EN20+2*, EN21+4*, EN21+7*
DIR("B" EN20+2*, EN21+4*, EN21+7*
DIR(0 EN20+2*, EN21+4*, EN21+7*
DIRUT EN20+2, EN21+4, EN21+7, END1!
DT EN11+1, EN2+1, EN21+1, EN21+2
DTOUT EN20+2, EN21+7, END1!
I EN11*, EN2*, END!, EN3A+8!, EN26*, END1!
IO EN11+2, EN2+2, EN26+2
IO("Q" EN4+2, EN4+6!, EN5+2, EN5+3!, EN3+4, EN3+5!, EN25+2, EN25+6!
IOM EN11+9, EN2+9, EN26+12
IOP EN4!, EN5!, EN3+3!, EN25!
L EN11+9*, EN2+9*, END!
>> POP EN4, EN5, EN3+3, EN25
RD EN4+5*, EN5+2*, END!, END1!
RDEL EN11+8*, EN11+9, EN2+8*, EN2+9, END!, EN3A+6*, EN3A+7
RMPR END!, END1!
RMPR("STA" EN11+6, EN2+6, EN3+4, EN3A+4, EN26+5
RMPRA EN3A+1*, EN3A+3, EN3A+4, EN3A+5, EN3A+6, EN3A+8!
RMPRDEL EN26+4*, EN26+6*, EN26+7*, EN26+8, END1!
RMPRDT EN11*, EN11+1*, EN11+6, EN2*, EN2+1*, EN2+6, END!, END1!
RMPRFY EN21+2*, EN21+4*, EN21+5, EN21+7, EN21+8, EN26+2, END1!
RMPRFYDT EN21+8*, EN26+5, END1!
RMPRFYT EN21+2*, EN21+4, EN21+5, END1!
RMPRIEN EN11*, EN11+3*, EN11+5, EN11+6, EN11+7, EN11+8, EN2*, EN2+3*, EN2+5, EN2+6
, EN2+7, EN2+8, END!, EN26*, EN26+3*, EN26+4, EN26+9, END1!
RMPRL EN26+12*, END1!
RMPRODT EN26+4*, EN26+5, END1!
RMPROIEN EN26+4*, EN26+6, EN26+7, END1!
RMPRORD EN26+4*, EN26+6, EN26+7, END1!
RMPROSIT EN26+4*, EN26+5, EN26+7, END1!
>> RMPRSITE EN11, EN11+2, EN2, EN2+2
RMPRTOTD EN26*, EN26+11*, EN26+12, END1!
U EN11, EN11+2, EN11+6, EN2, EN2+2, EN2+6, EN3A+4, EN26+4
X EN1+1, EN11+1, EN+1, EN2+1, EN3+2, EN20+3, END1!
X1 EN11+1*, EN2+1*, END!, END1!
X2 EN11+1*, EN2+1*, END!, END1!
>> Y EN11+1*, EN11+2, EN2+1*, EN2+2, EN20+2, EN21+4, EN21+7, EN26+1*, EN26+2
>> ZTDESC EN4+4*, EN5+2*, EN3+4*, EN25+4*
ZTIO EN4!, EN5!, EN3+3!, EN25!
>> ZTRTN EN4+3*, EN5+2*, EN3+4*, EN25+3*
>> ZTSAVE( EN4+5*, EN5+2*
>> ZTSAVE("RMPR*" EN3+4*, EN25+5*
ZTSK EN4+6, EN5+3, END!, EN3+5, EN25+6, END1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All