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

Package: Radiology Nuclear Medicine

Routine: RARTST1


Information

RARTST1 ;HISC/CAH,FPT,GJC,DAD AISC/MJK,RMO-Reports Distribution ;7/23/97 12:44

Source Information

Source file <RARTST1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 5 (DIV,RPTST)^RARTST2A  (DIP,SELECT)^RARTST3  EN1^RASELCT  (CLOSE,D,ZIS)^RAUTL  UPDLOC^RAUTL10  
VA Fileman 4 ^%DT  ^DIC  DO^DIC1  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Radiology Nuclear Medicine 9 RA RPTDISTACTIVITY  RA RPTDISTLISTCLINIC  RA RPTDISTLISTUNPRINTED  RA RPTDISTLISTWARD  RA RPTDISTPRINTSTATUS  RA RPTDISTQUE  RA RPTDISTSINGLECLINIC  RA RPTDISTSINGLEWARD  
RARTE6  

Entry Points

Name Comments DBIA/ICR reference
Q
HD4
Q4
P4
Q41
DICW ; Build DIC("W") string
S4
1 ;;Routing Queue
3 ;;Single Clinic Distribution
2 ;;Individual Ward Distribution
5 ;;Unprinted Reports List
4 ;;Distribution File Activity
7 ;;Ward Distribution List
6 ;;Clinic Distribution List
8 ;;Report's Print Status
81
DIP ;RANGE defined only if prt'g via 'Individual Ward' or 'Single Clinic'

External References

Name Field # of Occurrence
^%DT HD4+2
^DIC 1+4, 4+1, 8+3
DO^DIC1 DICW+1
$$GET1^DIQ P4+1
DIV^RARTST2A 1+6, 2+3, 3+3
RPTST^RARTST2A 8+7
DIP^RARTST3 5+2
SELECT^RARTST3 6+1, 7+2
EN1^RASELCT 2+6, 3+6
CLOSE^RAUTL Q4, Q+1
D^RAUTL P4+1, HD4+2
ZIS^RAUTL 4+2, DIP+9
UPDLOC^RAUTL10 8+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RADATE,?20,RACT,?30,$E(RADUZ,1,15),?50,$E(RARTMES,1,20),?72,RARTCNT
  • Line Location: P4+2
Function Call: READ
  • Prompt: "Press RETURN to continue or '^' to stop"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: HD4+1
Function Call: WRITE
  • Prompt: @IOF,!,RABN_" Distribution Activity Log",?70,"Page: ",RAPAGE,!,"Run Date: "
  • Line Location: HD4+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: HD4+2
Function Call: WRITE
  • Prompt: !!,"Log Date",?20,"Activity",?30,"User",?50,"Comment",?72,"Qty",!,"--------",?20,"--------",?30,"----",?50,"-------",?72,"---"
  • Line Location: HD4+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Report has not been 'verified'."
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Report is not in any distribution queue."
  • Line Location: 8+5
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIP+5
Routine Call
  • DIC
  • Line Location:
    • 1+4
    • 4+1
    • 8+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^RARPT - [#74] Classic Fileman Calls
^RABTCH(74.3 - [#74.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RABTCH(74.3 - [#74.3] 2+2, 3+2, S4, 6+1, 7+1
^RABTCH(74.4 - [#74.4] 8+5, 8+6
^TMP($J Q!

Label References

Name Line Occurrences
8 8+4, 8+5
81 8+3, 8+4, 8+5
DICW 8+3
DIP 1+7, 2+7, 3+7
HD4 S4, P4+2
P4 S4
Q 1+4, 1+6, 2+3, 2+6, 3+3, 3+6
Q4 4+2
Q41 4+1

Naked Globals

Name Field # of Occurrence
^( S4
^(0 S4, 8+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 81!, 81+1!, Q!
%DT HD4+2*!, Q!
>> BY 5+1*
C 81!
D 81!, Q!
D0 8+6*, 81!, Q!
D1 Q!
DA Q!
DDH 81!, Q!
>> DHD 5+1*
DIC 1+4*!, 4+1*!, Q4!, 6+1*, 7+1*, 8+1*, 8+3!, Q!
DIC("A" 1+2*, 4+1*, 8+1*
DIC("B" 1+2*, 4+1*
DIC("S" 1+3*, 8+2*
DIC("W" DICW+2*
DIC(0 1+1*, 4+1*, 8+1*
DIE Q!
DIERR P4~
DILCT 81!
DIPGM 81!
DIR Q!
DIRUT Q!
>> DIS(0 5+2*
DISH 5+3!
DISTP 81!
DISYS 81!, Q+1!
DIXX 81+1!, Q!
DN 81!
DO DICW+1~
DTIME HD4+1
DUOUT Q41!, Q+1!
DXS 8+7!, 81+1!
F 5+3!
>> FLDS 5+1*
I Q41!, 5+3!, 7+1!, 81+1!, Q+1!
IO S4
IOF HD4+2
IOP DIP+5*, DIP+9!
IOSL P4+2
J Q!
O 5+3!
POP Q41!, 5+3!, 7+1!, 81!, Q!, Q+1!
RA4 1+7!, 2+7!, 3+7!, DIP+7, Q+1!
RAB 1+5*, 2+2*, 3+2*, 4+1*, S4, Q4!, 6+1*, 7+2*, 8+6*, 81+1!
, Q!
RABEG DIP+6, Q!
RABN 4+1*, Q4!, HD4+2
RABTY 81+1!
RACN 81+1!, Q!
RACT S4*, Q4!, P4+1*, P4+2
RAD0 8+6*, 81+1!
RADATE Q4!, P4+1*, P4+2
RADFN 8+6*, 81+1!
RADIC 2+4*, 2+6!, 3+4*, 3+6!
RADIC("A" 2+4*, 3+4*
RADIC("S" 2+5*, 3+5*
RADIC(0 2+4*, 3+4*
RADIV 1+6, 2+3, 3+3, Q!
RADTE S4*, Q4!, P4+1
RADTI S4*, Q4!
RADUZ S4*, Q4!, P4+1*, P4+2
RAEND Q!
RAF408 1+7!, 2+7!, 3+7!, DIP+7, Q+1!
RAIMAG 1+6, 2+3, 3+3, Q!
RAIOM Q4!
RAIOSL Q4!
RALOCSRT Q!
RAMES Q41!, Q+1!
RANGE 2+7*, 3+7*, DIP+2*, DIP+8, Q!
RAOMA 1+1~*, 2+1~*, 3+1~*
RAPAGE Q4!, HD4*, HD4+1, HD4+2
RAPOP 4+2, Q4!, Q!
RAPRT 1+6, 2+3, 3+3, Q!
RAPRTOK 81+1!
RAQUIT 2+6, 2+7!, 3+6, 3+7!, Q!
RARD Q!
RARDIFN 8+6*, 81+1!
RARPT 8+6*, 8+7, 81+1!
RARPTFLG 5+1*, 5+3!
RARTCNT S4*, Q4!, P4+2
RARTMES S4*, Q4!, P4+2
RARTST1 1+5*, Q!
RASRT 1+6, 2+3, 3+3, Q!
RASSN 81!
>> RAWC 6+1*, 7+1*
RAY3 8+6*, 81!
U 8+6
W 5+3!
X S4*, Q4!, P4+2, HD4+1*, HD4+2*, 81+1!, Q!
X1 81+1!, Q!
Y 1+4, 1+5, 2+2*, 3+2*, 4+1, Q4!, P4+1*, HD4+2, 6+1*, 7+1*
, 7+2, 8+3, 8+5, 8+6, 81+1!, Q!
Y(0 1+5, 8+4, 8+6
ZTDESC Q41!, Q+1!
ZTRTN 4+2*, Q41!, DIP+5*, Q+1!
ZTSAVE Q41!, Q+1!
ZTSAVE("RA4(" DIP+7*
ZTSAVE("RAB" 4+2*, DIP+5*
ZTSAVE("RABEG" DIP+6*
ZTSAVE("RABN" 4+2*
ZTSAVE("RADIV" DIP+5*
ZTSAVE("RAEND" DIP+6*
ZTSAVE("RAF408(" DIP+7*
ZTSAVE("RAIMAG(" DIP+5*
ZTSAVE("RALOCSRT" DIP+5*
ZTSAVE("RANGE" DIP+8*
ZTSAVE("RASRT" DIP+5*
ZTSAVE("^TMP($J,""WARD/CLIN""," DIP+8*
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