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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRCDP

Package: Prosthetics

Routine: RMPRCDP


Information

RMPRCDP ;PHX/DWL,HNB-PURGE FILE 664 ;Oct 21, 2024@09:10

Source Information

Source file <RMPRCDP.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(664 - [#664] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call