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

Package: Radiology Nuclear Medicine

Routine: RABTCH


Information

RABTCH ;HISC/CAH,FPT AISC/MJK,RMO-Batch Report Menu ;3/1/96 13:18

Source Information

Source file <RABTCH.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;;Select a Batch
Q1
2 ;;List Batch Entries
START2 ; start report processing
Q2
HDR2 ; report header
3 ;;Print a Batch
ASKPRT
BTCH
START
Q3
4 ;;Remove/Add a Report from a Batch
Q4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !?1,RAFL,?2,RACNDSP
  • Line Location: START2+10
Function Call: WRITE
  • Prompt: "+"
  • Condition for execution: RA1]""
  • Line Location: START2+10
Function Call: WRITE
  • Prompt: ?22,Y,?35,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,29),1:"Unknown")
  • Line Location: START2+10
Function Call: WRITE
  • Prompt: !?2,RAFL,?3,$J(RACN,4)
  • Line Location: START2+11
Function Call: WRITE
  • Prompt: " +"
  • Condition for execution: RA1]""
  • Line Location: START2+11
Function Call: WRITE
  • Prompt: ?15,Y,?30,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,29),1:"Unknown")
  • Line Location: START2+11
Function Call: WRITE
  • Prompt: !,"Batch: ",$P(Y(0),"^"),?30,"Date Created: "
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: Y,?65,$S($D(^VA(200,+$P(Y(0),"^",3),0)):$E($P(^(0),"^"),1,14),1:"")
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !?30,"Last Printed: ",Y,!!,"* indicates the report has been printed from batch",!
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("=",79)
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !!?1,"Case No.",?22,"Exam Date",?35,"Patient",?60,"Interpreting Phys."
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !?1,"----------------",?22,"-----------",?35,"--------------------",?60,"------------------"
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !!?1,"Case No.",?15,"Exam Date",?30,"Patient",?60,"Interpreting Phys."
  • Line Location: HDR2+8
Function Call: WRITE
  • Prompt: !?1,"--------",?15,"---------",?30,"-------",?60,"------------------"
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+4
Function Call: WRITE
  • Prompt: !!,"Batch: ",$P(Y(0),"^"),?30,"Date Created: "
  • Line Location: 3+5
Function Call: WRITE
  • Prompt: Y,?65,$S($D(^VA(200,+$P(Y(0),"^",3),0)):$E($P(^(0),"^"),1,14),1:"")
  • Line Location: 3+5
Function Call: WRITE
  • Prompt: !?30,"Last Printed: ",Y
  • Line Location: 3+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Are you sure? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to print this batch, or 'NO' not to."
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BTCH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: Q3+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 4+1

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