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

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"*** RADIOLOGY/NUCLEAR MEDICINE WORKSHEETS ***",!!!
  • Line Location: RAWORK+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter the number of worksheets needed: "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls