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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RARTST2A

Package: Radiology Nuclear Medicine

Routine: RARTST2A


Information

RARTST2A ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Reports Distribution ;11/24/97 12:12

Source Information

Source file <RARTST2A.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Radiology Nuclear Medicine 5 SET^RARD  ^RARTFLDS  $$IMG^RARTST3  $$IMAG^RASITE  $$SSN^RAUTL  
VA Fileman 4 ^%DT  (,LIST)^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RARTST1  

Entry Points

Name Comments DBIA/ICR reference
SORT
LOC
RPTST(RARPT) ; Report's Print Status, called from 8^RARTST1.
; This code replaces the call to the compiled template routine.
; Input: RARPT -> ien of the Report in file 74
IMAG ;imaging type selection
DATE
PRINT
DIV ; Division selection
; save all Med Center Divisions (40.8) by pntr to file 4

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+3
^DIC DIV+20
LIST^DIC DIV+2
$$GET1^DIQ RPTST+19, RPTST+20
^DIR IMAG+11, LOC+7
SET^RARD SORT+2, PRINT+1
^RARTFLDS RPTST+9
$$IMG^RARTST3 IMAG+2
$$IMAG^RASITE IMAG+10
$$SSN^RAUTL RPTST+6
$$FMTE^XLFDT RPTST+10, RPTST+16
$$REPEAT^XLFSTR RPTST+3, RPTST+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Division Selection:",!,"-------------------"
  • Line Location: DIV+17
Function Call: WRITE
  • Prompt: !!,"Imaging Type Selection:",!,"-----------------------"
  • Line Location: IMAG+8
Function Call: WRITE
  • Prompt: !!,"Sort Sequence Selection:",!,"------------------------"
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"First Sort Selection:",!,"---------------------"
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !!,"Print/Reprint Reports Selection:",!,"--------------------------------"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"Date Range Selection:",!,"---------------------"
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM),!!
  • Line Location: RPTST+3
Function Call: WRITE
  • Prompt: "Report : ",$P(RA74(0),"^")
  • Line Location: RPTST+4
Function Call: WRITE
  • Prompt: ?30,"Patient: ",$E(Y,1,25)
  • Line Location: RPTST+6
Function Call: WRITE
  • Prompt: ?65,$$SSN^RAUTL(X)
  • Condition for execution: X
  • Line Location: RPTST+6
Function Call: WRITE
  • Prompt: !,"Procedure: ",$E(X,1,30)
  • Line Location: RPTST+9
Function Call: WRITE
  • Prompt: ?45,"Verified: ",$$FMTE^XLFDT($P(RA74(0),"^",7),"1P")
  • Line Location: RPTST+10
Function Call: WRITE
  • Prompt: !!?4,"Routing Queue",?24,"Date Printed",?44,"Printed By",?62,"Ward/Clinic"
  • Line Location: RPTST+11
Function Call: WRITE
  • Prompt: !?4,"-------------",?24,"------------",?44,"----------",?62,"-----------"
  • Line Location: RPTST+12
Function Call: WRITE
  • Prompt: !,$E(Y,1,20),?24,$E($$FMTE^XLFDT($P(X,"^",4),1),1,18)
  • Line Location: RPTST+16
Function Call: WRITE
  • Prompt: ?44,$E(Y,1,17),?62
  • Line Location: RPTST+18
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",IOM),!
  • Line Location: RPTST+22
Routine Call
  • DIC
  • Line Location:
    • DIV+2
Routine Call
  • DIC
  • Line Location:
    • DIV+20
Routine Call
  • DIR
  • Line Location:
    • IMAG+11
    • LOC+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DG(40.8 - [#40.8] LIST^DIC
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RPTST+5
^RA(79 - [#79] DIV+14
^RABTCH(74.3 - [#74.3] DIV+11, IMAG+13, RPTST+15
^RABTCH(74.4 - [#74.4] RPTST+13, RPTST+14
^RADPT - [#70] RPTST+7, RPTST+8
^RARPT - [#74] RPTST+4
^VA(200 - [#200] RPTST+17

Label References

Name Line Occurrences
IMAG DIV+15
LOC IMAG+13

Naked Globals

Name Field # of Occurrence
^(0 RPTST+5, RPTST+15, RPTST+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1*, DATE+3*!
%DT("A" DATE+1*, DATE+3*
%DT("B" DATE+1*, DATE+3*
%DT(0 DATE+2*
C DIV+14*, DIV+15!, DIV+21!
>> DIC DIV+18*
>> DIC("A" DIV+18*, DIV+20!
>> DIC("B" DIV+16*, DIV+20!
>> DIC("S" DIV+19*, DIV+20!
>> DIC(0 DIV+18*
DIR IMAG+11!, LOC+2!, LOC+7!
DIR("?" LOC+4*, LOC+5*, LOC+6*
DIR("A" IMAG+9*, LOC+3*
DIR("B" IMAG+10*, LOC+2*
DIR(0 IMAG+9*, LOC+2*
>> DIRUT IMAG+11, LOC+7
I DIV+14*, DIV+15!, DIV+21!, DIV+22*, DIV+23, DIV+24, DIV+26!, RPTST+3~, RPTST+13*, RPTST+14
I(0 DIV+23*, DIV+24
I1 DIV+11*, DIV+12, DIV+14*, DIV+15!, DIV+21!
IOM RPTST+3, RPTST+22
>> RA4( DIV+8*, DIV+15, DIV+16, DIV+22, DIV+23, DIV+24!
RA408 DIV+21!
RA408("DILIST" DIV+3, DIV+4, DIV+8, DIV+9
RA74 RPTST+3~
RA74(0 RPTST+4*, RPTST+5, RPTST+7, RPTST+8, RPTST+10
>> RAB DIV+11, IMAG+13
RABEG DATE!, DATE+2*
RADIV DIV+14!, DIV+15*, DIV+20*, DIV+21, DIV+24
RAEND DATE!, DATE+4*
RAEXFLD RPTST+3~, RPTST+9*
>> RAF408( DIV+9*, DIV+24!
RAI DIV+4*, DIV+8, DIV+9, DIV+21!
RAIMAG IMAG+1!, IMAG+2*, IMAG+5!, IMAG+7
RAIMAG( IMAG+11*
>> RALOCSRT LOC, LOC+7*, LOC+9*
>> RAMDIV DIV+16
>> RAMLC IMAG+10
>> RAOMA IMAG+1
RAPRMPT DIV+11!, DIV+12*, DIV+13*, DIV+18, DIV+20!
RAPRT PRINT!, PRINT+2*, DATE+1!, DATE+3!
RARD SORT+2!, PRINT+1!
RARD("A" SORT+1*
RARD("B" SORT+1*, PRINT+1*
RARD(1 SORT+1*, PRINT+1*
RARD(2 SORT+1*, PRINT+1*
RARD(3 SORT+1*
RARPT RPTST~, RPTST+4, RPTST+13
>> RARTST1 LOC
RASRT IMAG+14*, SORT+1!, SORT+2*
RASRT(0 IMAG+14*, SORT+2*, LOC+3, LOC+4, LOC+5
RAY3 RPTST+3~, RPTST+8*
U IMAG+10, LOC+7
X SORT+2, PRINT+1, PRINT+2, RPTST+3~, RPTST+5*, RPTST+6, RPTST+7, RPTST+8, RPTST+9, RPTST+14*
, RPTST+16, RPTST+17, RPTST+19, RPTST+20
Y DIV+20, IMAG+11, LOC+7, DATE+1, DATE+2, DATE+3, DATE+4, RPTST+3~, RPTST+5*, RPTST+6
, RPTST+7*, RPTST+8, RPTST+14*, RPTST+15*, RPTST+16, RPTST+17*, RPTST+18
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 |  Naked Globals |  Local Variables |  All