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

Package: Radiology Nuclear Medicine

Routine: RADLY1


Information

RADLY1 ;HISC/GJC-Rad Daily Log Report ;5/7/97 13:50

Source Information

Source file <RADLY1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; Output subroutine part one
P1
P2
P3
P4
P5
P6
HD ; Header
PRT1 ; Output subroutine two
KILL ; Kill variables
DIVCHK ; Output statistics within division.
IMGCHK ; Check for EOS on I-Type
LOCCHK ; Check for EOS on Loc-Type
CKCHANGE ; Check for change in div/img-type/img-loc, for header
SORT ; Gather/sort data
ZEROUT ; zero out the ^tmp($j,"RADLY"
; loop throu raccess(duz,"DIV,ITYP-ILOC",divname,imgtypename,imglocname)
; THIS SECTION REPLACES THE ORIGINAL CALL TO ZEROUT^RADLQ3("RADLY")
; so to ensure that locations not assigned to the user will be
; zeroed out, if those locations share the same imaging types that
; his assigned locations have
ZER1
ZER2
ZER3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHEAD)\2-5),RAHEAD,?RATAB(9),"Page: ",RAPG
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?RATAB(9),"Date: ",RATDY
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Name",?RATAB(2),"Pt ID",?RATAB(3)-2,"Time",?RATAB(4)-2
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: "Ward/Clinic",?RATAB(5)-1,"Procedure",?RATAB(6)-2,"Exam Status"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: ?RATAB(7)-4,"Case#",?RATAB(8)+6,"Rptd",!,RALN
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !,"Name",?RATAB(2),"Pt ID",?RATAB(3),"Time",?RATAB(4),"Ward/Clinic"
  • Line Location: HD+21
Function Call: WRITE
  • Prompt: ?RATAB(5),"Procedure",?RATAB(6),"Exam Status",?RATAB(7),"Case#"
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: ?RATAB(8),"Reported",!,RALN
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !,"Name",?RATAB(3),"Pt ID",?RATAB(5),"Ward/Clinic"
  • Line Location: HD+27
Function Call: WRITE
  • Prompt: ?RATAB(7),"Procedure",!,?RATAB(2),"Exam Status",?RATAB(4),"Case #"
  • Line Location: HD+28
Function Call: WRITE
  • Prompt: ?RATAB(6)+9,"Time",?RATAB(8)+8,"Reported",!,RALN
  • Line Location: HD+29
Function Call: WRITE
  • Prompt: !,"Name",?RATAB(3),"Pt ID",?RATAB(5),"Ward/Clinic"
  • Line Location: HD+31
Function Call: WRITE
  • Prompt: ?RATAB(7),"Procedure",!,?RATAB(2),"Exam Status",?RATAB(4),"Case #"
  • Line Location: HD+32
Function Call: WRITE
  • Prompt: ?RATAB(6),"Time",?RATAB(8),"Reported",!,RALN
  • Line Location: HD+33
Function Call: WRITE
  • Prompt: !,RA4,?RATAB(2),RASSN,?RATAB(3)-2,RATME,?RATAB(4)-2,RAWHE
  • Line Location: PRT1+9
Function Call: WRITE
  • Prompt: ?RATAB(5)-1,RAPRC,?RATAB(6)-2,$E(RAST,1,14),?RATAB(7)-4,RACN
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: ?RATAB(8)+6,RARPT
  • Line Location: PRT1+11
Function Call: WRITE
  • Prompt: !,RA4,?RATAB(2),RASSN,?RATAB(3),RATME,?RATAB(4),RAWHE
  • Line Location: PRT1+13
Function Call: WRITE
  • Prompt: ?RATAB(5),RAPRC,?RATAB(6),RAST,?RATAB(7),RACN,?RATAB(8),RARPT
  • Line Location: PRT1+14
Function Call: WRITE
  • Prompt: !,RA4,?RATAB(3),RASSN,?RATAB(5),RAWHE,?RATAB(7),RAPRC,!?RATAB(2)
  • Line Location: PRT1+18
Function Call: WRITE
  • Prompt: RAST,?RATAB(4),RACN,?RATAB(6)+9,RATME,?RATAB(8)+8,RARPT
  • Line Location: PRT1+19
Function Call: WRITE
  • Prompt: !,RA4,?RATAB(3),RASSN,?RATAB(5),RAWHE,?RATAB(7),RAPRC
  • Line Location: PRT1+21
Function Call: WRITE
  • Prompt: !?RATAB(2),RAST,?RATAB(4),RACN,?RATAB(6),RATME,?RATAB(8),RARPT
  • Line Location: PRT1+22
Function Call: WRITE
  • Prompt: !?RATAB(2),"Division Total '"_RADIV_"': ",+$G(^TMP($J,"RADLY",RA1))
  • Line Location: DIVCHK+2
Function Call: WRITE
  • Prompt: !?RATAB(2),"Imaging Type Total '"_RAITYPE_"': ",+$G(^TMP($J,"RADLY",RA1,RAITYPE))
  • Line Location: IMGCHK+2
Function Call: WRITE
  • Prompt: !?RATAB(2),"Imaging Location Total '"_RAILOC_"': ",+$G(^TMP($J,"RADLY",RA1,RAITYPE,RAILOC))
  • Line Location: LOCCHK+2
Info |  Source |  Entry Points |  Interaction Calls