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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BRARPT4

Package: IHS Mods To Radiology Nuclear Medicine

Routine: BRARPT4


Information

BRARPT4 ; IHS/ADC/PDW - Print Exam Roster by Tech, Proc. ;

Source Information

Source file <BRARPT4.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 ^%ZISC  
Radiology Nuclear Medicine 1 D^RAUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Mods To Radiology Nuclear Medicine 1 BRARPT3  

Entry Points

Name Comments DBIA/ICR reference
HD2 ;---> SUBHEADER
TOT ;
EXIT ;
PRINT ;
LINE ;---> PRINT A LINE OF PATIENT DATA.
HD ;---> HEADER
SUB ;

External References

Name Field # of Occurrence
^%DT HD+8
^%ZISC EXIT+3
^DIR EXIT+2, HD+2
D^RAUTL HD+7, HD+8, HD+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: ?31,$E(R,4,7),$E(R,2,3),"-",$P(X,U)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?43,$E($P(^RA(78.4,K,0),U),1,20)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?65,$J($P(X,U,3),4)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?75,$J($P(X,U,4),4)
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: ?12," *** FILM USAGE BY TECHNOLOGIST AND PROCEDURE ***"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPAGE
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!?1,"Division: ",$P(^DIC(4,N,0),U),?52,"For period: "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?64,Y,?76,"to"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !?1,"Run Date: ",Y
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?64,Y
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,"Chart#",?10,"Patient",?31,"Date-Case#",?43,"Films: Size"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?64,"Total",?73,"Retakes"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !!?4,"TECHNOLOGIST: ",$E(O,1,19),?40,"PROCEDURE: ",P
  • Line Location: HD2+2
Function Call: WRITE
  • Prompt: !?4
  • Line Location: HD2+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD2+3
Function Call: WRITE
  • Prompt: ?40
  • Line Location: HD2+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD2+4
Function Call: WRITE
  • Prompt: !?37,"Totals for this procedure: ",?65,$J(T,4),?75,$J(S,4)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,"TECHNOLOGIST: ",$E(O,1,22)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?39,"Total Films and Retakes: ",?65,$J(W,4),?75,$J(V,4)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: "*"
  • Line Location: TOT+5
Routine Call
  • DIR
  • Line Location:
    • EXIT+2
    • HD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HD+6
^RA(78.4 - [#78.4] LINE+7
^TMP($J PRINT+6, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14

Label References

Name Line Occurrences
HD PRINT+7, HD2+1, TOT+1
HD2 PRINT+9, LINE+2
LINE PRINT+14
SUB PRINT+11
TOT PRINT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT HD+8*!
>> BRAY PRINT+1*, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+13, EXIT+2, LINE+2, HD+2*, HD2+1
>> DIR(0 EXIT+2*, HD+2*
>> I HD+10*, HD+13*, HD2+3*, HD2+4*, TOT+2*, TOT+5*
IO PRINT+1
IO("S" EXIT+2
IOF EXIT+1, HD+3
IOSL LINE+2, HD2+1, TOT+1
IOST EXIT+1, EXIT+2, HD+2, HD+3
K PRINT+5~, PRINT+13*, PRINT+14, LINE+7
L PRINT+5~*, LINE+4, LINE+5*
N PRINT+5~, PRINT+6*, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14, HD+6
O PRINT+5~, PRINT+7*, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14, HD2+2, HD2+3, TOT+3
P PRINT+5~, PRINT+8*, PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+14, HD2+2, HD2+4
Q PRINT+5~, PRINT+10*, PRINT+11*, PRINT+12, PRINT+13, PRINT+14, LINE+4, LINE+5
R PRINT+5~, PRINT+12*, PRINT+13, PRINT+14, LINE+6
>> RABEGDT HD+7
>> RAENDDT HD+9
>> RAEX LINE+3, SUB+1
>> RAPAGE PRINT+1*, HD+2, HD+3, HD+5*
S PRINT+5~, PRINT+10*, LINE+1*, SUB+2, SUB+3
T PRINT+5~, PRINT+10*, LINE+1*, SUB+2, SUB+3
U LINE+1, LINE+4, LINE+6, LINE+7, LINE+8, LINE+9, HD+6
V PRINT+5~, PRINT+8*, SUB+3*, TOT+4
W PRINT+5~, PRINT+8*, SUB+3*, TOT+4
X PRINT+5~, PRINT+14*, LINE+1, LINE+4, LINE+6, LINE+8, LINE+9, HD+1~, HD+8*
Y HD+1~, HD+2, HD+7*, HD+8, HD+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All