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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIK  ^DIR  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
Radiology Nuclear Medicine 1 ($$EOS,$$XTERNAL)^RAUTL5  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA BTCHDEL DATE  

Entry Points

Name Comments DBIA/ICR reference
KILL1
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.
DELDT ; Delete a batch within a specified date range.
DEL ; $O through the ^TMP global to delete entries in 74.2!
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
KILL ; Kill and quit
DISPLAY ; Display selected Report Batches data

External References

Name Field # of Occurrence
^%DT DELDT+21
^%ZTLOAD DELDT+56
^DIK DEL+2
^DIR DELDT+35, DELDT+49, YN+7
$$EOS^RAUTL5 DISPLAY+10
$$XTERNAL^RAUTL5 DISPLAY+7, DISPLAY+8, DISPLAY+9
$$NOW^XLFDT DELDT+17

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
Routine Call
  • DIR
  • Line Location:
    • DELDT+35
    • DELDT+49
    • YN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RABTCH(74.2 - [#74.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DELDT+17, DELDT+24
^DD(74.2 DISPLAY+7, DISPLAY+8, DISPLAY+9
^RABTCH(74.2 - [#74.2] DISPLAY+5, SETMP+5, SETMP+7
^TMP($J DELDT+14!, KILL1!, DEL+2, DISPLAY+4, SETMP+9*
^XUSEC("RA MGR" DELDT+6

Label References

Name Line Occurrences
$$YN DELDT+25
DEL DELDT+60
DISPLAY DELDT+30
KILL1 DELDT+39, DELDT+50
SETMP DELDT+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DELDT+15!*, DELDT+21!
%DT("A" DELDT+16*
%DT("B" DELDT+18*
%DT(0 DELDT+15*
DA DEL+1~*, DEL+2*
DDH KILL1+1!
DIC DEL+1~
DIK DEL+1~*
DIR DELDT+32!, DELDT+35!, DELDT+46!, DELDT+49!, YN+3~
DIR("?" DELDT+33*, DELDT+34*, DELDT+47*, DELDT+48*, YN+5*, YN+6*
DIR("A" YN+4*
DIR("B" YN+3*
DIR(0 DELDT+32*, DELDT+46*, YN+3*
DIROUT DELDT+4~, YN+3~
DIRUT DELDT+4~, DELDT+36, DELDT+37, DELDT+50, YN+3~, YN+7
DT DELDT+17
DTOUT DELDT+4~, YN+3~
DUOUT DELDT+4~, YN+3~
DUZ DELDT+5
I KILL1+1!, DISPLAY+1~, DISPLAY+6*
IOF DISPLAY+3, DISPLAY+10
IOSL DISPLAY+10
POP KILL1+1!
RA DELDT+4~, DISPLAY+1~*, DISPLAY+4*, DISPLAY+5, SETMP+4*, SETMP+5*, SETMP+7
RA( DISPLAY+6*
RA("%" DELDT+12*, DELDT+13, DELDT+22*, DELDT+23, DELDT+37*
RA("CNT" DELDT+14!, DELDT+27, DELDT+40, DELDT+41, DELDT+42, SETMP+8*
RA("DT" DELDT+12*, DELDT+22*, DELDT+36*, DELDT+39
RA("DTI" DELDT+23*, SETMP+5
RA("DTX" DELDT+24*, DELDT+25, DELDT+28, DELDT+31, DELDT+54
RA(0 DISPLAY+5*, DISPLAY+6, DISPLAY+11
RA(1 SETMP+6*, SETMP+7*, SETMP+9
RA(2 DISPLAY+7
RA(3 DISPLAY+8
RA(4 DISPLAY+9
RABTCH DISPLAY+1~
RADT YN~, YN+4, YN+5, YN+6
RADTC DISPLAY+1~, DISPLAY+7*, DISPLAY+12
RADTP DISPLAY+1~, DISPLAY+9*, DISPLAY+14
RADUZ DELDT+4~, DELDT+5*, DELDT+6
RATXT DISPLAY+1~, DISPLAY+2*, DISPLAY+3, DISPLAY+10
RAUPRT DELDT+4~, DELDT+12*, DELDT+13, DELDT+25*, DELDT+28, DELDT+39, SETMP+4
RAUSER DISPLAY+1~, DISPLAY+8*, DISPLAY+13
RAXIT DELDT+4~, DELDT+14*, DELDT+30, DISPLAY+4, DISPLAY+10*
RAXREF SETMP+4~*, SETMP+5, SETMP+7
X DELDT+4~, YN+3~
Y DELDT+4~, DELDT+17*, DELDT+18, DELDT+22, DELDT+23, DELDT+24, DELDT+37, DELDT+51, YN+3~, YN+7*
, YN+8
ZTDESC DELDT+53*, DELDT+54*, KILL+1!
ZTIO DELDT+52*, KILL+1!
ZTRTN DELDT+52*, KILL+1!
ZTSAVE KILL+1!
ZTSAVE("^TMP( $J, ""RA BTCHDEL DT"", " , DELDT+55*
ZTSK KILL+1!
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 |  Local Variables |  All