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
Print Page as PDF
Routine: RART2

Package: Radiology Nuclear Medicine

Routine: RART2


Information

RART2 ;HISC/GJC-Reporting Menu (Part 3) ;4/3/97 08:33

Source Information

Source file <RART2.m>

Entry Points

Name Comments DBIA/ICR reference
4 ;;Print Report By Patient
START ; start printing the data
CLOSE ; Close the device
Q4 ; Kill & Quit
CHK(X) ; check if a valid report
; 'X' is the subscript on ^TMP($J,"RAEX")

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"There are no reports left to print!",$C(7)
  • Line Location: 4+13
Function Call: WRITE
  • Prompt: !
  • Line Location: 4+15
Function Call: WRITE
  • Prompt: !?5,"Request Queued, Task #: ",$G(ZTSK)
  • Line Location: 4+23
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+1
Function Call: WRITE
  • Prompt: !?3,*7,"No report filed for case number ",RACASE,"."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !?3,"Report for case number ",RACASE," is not in a 'draft' status."
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: !?3,"Report filed for case number ",RACASE," but not available"
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: " for printing.",$C(7)
  • Line Location: CHK+14
Info |  Source |  Entry Points |  Interaction Calls