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

Package: Radiology Nuclear Medicine

Routine: RABTCH1


Information

RABTCH1 ;HISC/CAH,FPT AISC/MJK,RMO-Batch Report Menu ;9/28/94 10:49

Source Information

Source file <RABTCH1.m>

Entry Points

Name Comments DBIA/ICR reference
VERIFY ;Verify Batch
ASKVER
ASKBAT
Q1
Q
CHK
NXT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !!,"Batch: ",$P(Y(0),"^"),?30,"Date Created: "
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: Y,?65,$S($D(^VA(200,+$P(Y(0),"^",3),0)):$E($P(^(0),"^"),1,14),1:"")
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !?30,"Last Printed: ",Y
  • Line Location: VERIFY+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Is this the batch you want to verify? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKVER+0
Function Call: WRITE
  • Prompt: !!,?3,"Enter 'YES' to verify this batch, or 'NO' not to."
  • Line Location: ASKVER+0
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: ASKVER+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Can this batch now be deleted? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKBAT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to delete this batch, or 'NO' not to."
  • Line Location: ASKBAT+0
Function Call: WRITE
  • Prompt: !?3,"...deletion complete."
  • Line Location: ASKBAT+1
Function Call: WRITE
  • Prompt: !?3,"...report for case no. ",RACNDSP," is already verified"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,"Report for case no. ",RACNDSP," for ",$S($D(^DPT(RADFN,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !?3,"...report for case no. ",RACN," is already verified"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !,"Report for case no. ",RACN," for ",$S($D(^DPT(RADFN,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: NXT+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