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

Package: Radiology Nuclear Medicine

Routine: RAWORK


Information

RAWORK ;HISC/CAH,FPT,GJC AISC/TMP,RMO-Rad/Nuc Med Worksheet print (132 Char. Format) ;9/5/95 12:39

Source Information

Source file <RAWORK.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Radiology Nuclear Medicine 1 (CLOSE,ZIS)^RAUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA WORKSHEETS  RAORDC  RAORDU  RAPERR  RAUTL0  

Entry Points

Name Comments DBIA/ICR reference
LINE1
Q
START
ASKNUM
RAREP
PCE() ;Switch to turn on/off the PCE API vs the SDACS credit interface

External References

Name Field # of Occurrence
CLOSE^RAUTL Q+1
ZIS^RAUTL ASKNUM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"*** RADIOLOGY/NUCLEAR MEDICINE WORKSHEETS ***",!!!
  • Line Location: RAWORK+2
Function Call: READ
  • Prompt: "Enter the number of worksheets needed: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKNUM+0
Function Call: WRITE
  • Prompt: !!?3,"Enter the number of worksheets to be printed."
  • Line Location: ASKNUM+0
Function Call: WRITE
  • Prompt: !!,"NOTE: This output should be sent to a printer that supports 132 columns.",!
  • Line Location: ASKNUM+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: J>1
  • Line Location: RAREP+0
Function Call: WRITE
  • Prompt: !,?56,"RADIOLOGY/NUCLEAR MEDICINE WORKSHEET",!
  • Line Location: RAREP+0
Function Call: WRITE
  • Prompt: RALINE
  • Line Location: RAREP+0
Function Call: WRITE
  • Prompt: @RASKIP,!,"| |",?9,"VAMC ",RADIV,?64,"|",?131,"|",@RASKIP,!,"| | DATE ",$E(RALINE,1,32),?46,"AGE ",$E(RALINE,1,11),?64,"|",?75,"TIME: ",$E(RALINE,1,20),?131,"|",@RASKIP
  • Line Location: RAREP+1
Function Call: WRITE
  • Prompt: !,"| | SSN ",$E(RALINE,1,32),?46,"TCH ",$E(RALINE,1,11),?64,"|",?75,"LAST EXAM: ",$E(RALINE,1,15),?131,"|",@RASKIP,!,"| | NAME ",$E(RALINE,1,32),?64,"|",?75,"WARD OR OTHER: ",$E(RALINE,1,11),?131,"|"
  • Line Location: RAREP+2
Function Call: WRITE
  • Prompt: @RASKIP
  • Line Location: RAREP+3
Function Call: WRITE
  • Prompt: !,"| |",$E(RALINE,1,60),"|",?131,"|",!,"|",?131,"|"
  • Line Location: RAREP+4
Function Call: WRITE
  • Prompt: !,"|",?131,"|",!,"!",?9,"AMIS",?21,"|",?47,"DESCRIPTION",?83,"|",?89,"TECH",?99,"|",?105,"DIAG.",?115,"|",?121,"M.D.",?131,"|"
  • Line Location: RAREP+5
Function Call: WRITE
  • Prompt: @RASKIP1
  • Line Location: RAREP+6
Function Call: WRITE
  • Prompt: !,?120,"__________",!,?100,"DATA ENTRY CLERK: | |",!,?119,"|__________|"
  • Line Location: RAREP+7
Function Call: WRITE
  • Prompt: !,"|",$E(RALINE,1,20),"|",$E(RALINE,1,61),"|",$E(RALINE,1,15),"|",$E(RALINE,1,15),"|",$E(RALINE,1,15),"|"
  • Line Location: LINE1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] ASKNUM+1

Label References

Name Line Occurrences
ASKNUM ASKNUM
LINE1 RAREP+6, RAREP+7
Q ASKNUM, ASKNUM+3
RAREP START+2

Naked Globals

Name Field # of Occurrence
^(0 ASKNUM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME ASKNUM
DUOUT Q!
I Q!, RAREP+3*
I1 Q!, RAREP+6*
I2 Q!, RAREP+6*
IO START
IOF RAREP
J START+2*, Q!, RAREP
POP Q!
RADIV ASKNUM+1*, Q!, RAREP+1
RALIM Q!
RALINE START*, Q!, RAREP, RAREP+1, RAREP+2, RAREP+4, LINE1
>> RAMDIV ASKNUM+1
RAMES Q!
RANUM ASKNUM+1*, START+2, Q!
RAPOP ASKNUM+3, Q!
RASKIP START*, Q!, RAREP+1, RAREP+2, RAREP+3
RASKIP1 START+1*, Q!, RAREP+6
RAZIS ASKNUM+3*, Q!
X ASKNUM*, ASKNUM+1, Q!
ZTDESC Q!
ZTRTN ASKNUM+3*, Q!
ZTSAVE Q!
ZTSAVE("RADIV" ASKNUM+3*
ZTSAVE("RANUM" ASKNUM+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All