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

Package: Radiology Nuclear Medicine

Routine: RABTCH2


Information

RABTCH2 ;HISC/GJC-Batch Report Option, delete by date ;2/6/97 09:34

Source Information

Source file <RABTCH2.m>

Entry Points

Name Comments DBIA/ICR reference
DELDT ; Delete a batch within a specified date range.
KILL ; Kill and quit
KILL1
DEL ; $O through the ^TMP global to delete entries in 74.2!
DISPLAY ; Display selected Report Batches data
SETMP ; Set ^TMP($J,"RA BTCHDEL DT"). If only printed batches are selected,
; (RAUPRT=0) then just hit the 'E' xref. If both printed and unprinted
; batches are selected (RAUPRT=1) hit the Date/Time Batch Created 'F'
; xref.
YN(RADT) ; Yes/No prompt asking the user if unprinted batches are to be
; included as criteria for our batch deletion.
; Returns: 1 if yes, 0 if no, -1 if '^' or timeout

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"This option can only be used by those Radiology/Nuclear"
  • Line Location: DELDT+7
Function Call: WRITE
  • Prompt: " Medicine users that"
  • Line Location: DELDT+8
Function Call: WRITE
  • Prompt: !?5,"have access to the Radiology/Nuclear Medicine Manager's"
  • Line Location: DELDT+9
Function Call: WRITE
  • Prompt: " (RA MGR) key.",$C(7)
  • Line Location: DELDT+10
Function Call: WRITE
  • Prompt: !!?5,"All batches up to the date you enter will be purged"
  • Line Location: DELDT+19
Function Call: WRITE
  • Prompt: !?5,"from the Report Batches file #74.2.",$C(7),!
  • Line Location: DELDT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DELDT+25
Function Call: WRITE
  • Prompt: !!?5,"No "_$S(RAUPRT=1:"unprinted or ",1:"")_"printed batches exist before: ",RA("DTX"),"!"
  • Line Location: DELDT+28
Function Call: WRITE
  • Prompt: !!?5,"'",RA("DTX"),"', are you sure?",!
  • Line Location: DELDT+31
Function Call: WRITE
  • Prompt: !!?5,"There"_$S(+$G(RA("CNT"))>1:" are ",1:" is ")
  • Line Location: DELDT+40
Function Call: WRITE
  • Prompt: +$G(RA("CNT"))," batch"
  • Line Location: DELDT+41
Function Call: WRITE
  • Prompt: $S(+$G(RA("CNT"))>1:"es ",1:" ")
  • Line Location: DELDT+42
Function Call: WRITE
  • Prompt: "selected to be deleted."
  • Line Location: DELDT+43
Function Call: WRITE
  • Prompt: !?5,"Do you wish to task this job off to be completed"
  • Line Location: DELDT+44
Function Call: WRITE
  • Prompt: !?5,"at a later time?",!
  • Line Location: DELDT+45
Function Call: WRITE
  • Prompt: !?5,$C(7),"Beginning the interactive deletion process.",!
  • Line Location: DELDT+59
Function Call: WRITE
  • Prompt: !?5,"The deletion process has successfully completed!"
  • Line Location: DELDT+61
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?3,"Batch: ",$P(RA(0),"^")
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: ?39,"Date Created: ",$S(RADTC]"":RADTC,1:"Unknown")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !?3,"User: ",$S(RAUSER]"":RAUSER,1:"Unknown")
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: ?39,"Date Printed: ",$S(RADTP]"":RADTP,1:""),!
  • Line Location: DISPLAY+14

FileMan Files Accessed Via FileMan Db Call

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