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

Package: Radiology Nuclear Medicine

Routine: RADLQ3


Information

RADLQ3 ;HISC/GJC-Delq Status/Incomplete Rpt's ;5/7/97 15:58

Source Information

Source file <RADLQ3.m>

Entry Points

Name Comments DBIA/ICR reference
DISPXAM ; Display exam statuses for selected Imaging Types. These exam
; statuses need the 'DELINQUENT STATUS REPORT?' field tripped to
; 'yes' in file 72.
OUTPUT ; Print out the results
CHECK(DUZ) ; Check for the existence of RACCESS. Pass in user's DUZ!
LIST ; List divisions and I-Types
EXIT ; Kill and quit
ZEROUT(SUB) ; Zero out the ^TMP($J global.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RAHD(0))\2),RAHD(0)
  • Line Location: DISPXAM+7
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHD(1))\2),RAHD(1)
  • Line Location: DISPXAM+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPXAM+12
Function Call: WRITE
  • Prompt: !!?10,X,!?10,UNDRLN
  • Line Location: DISPXAM+13
Function Call: WRITE
  • Prompt: @IOF,!?10,X,!?10,UNDRLN
  • Line Location: DISPXAM+21
Function Call: WRITE
  • Prompt: !!,RASTR(1)
  • Line Location: OUTPUT+17
Function Call: WRITE
  • Prompt: !,RANME,?RATAB(1),RACN,?RATAB(2)+7,RASSN,?RATAB(3),RADT,?RATAB(4)
  • Line Location: OUTPUT+26
Function Call: WRITE
  • Prompt: $E(RAWHE,1,25),?RATAB(5),RAVRFIED
  • Line Location: OUTPUT+27
Function Call: WRITE
  • Prompt: !?RATAB(6),$E(RAPRC,1,30),?RATAB(7),$E(RAST,1,30)
  • Line Location: OUTPUT+28
Function Call: WRITE
  • Prompt: ?RATAB(8),RARP,?RATAB(9),$E(RAIPHY,1,20),?RATAB(10),RATECH
  • Line Location: OUTPUT+29
Function Call: WRITE
  • Prompt: !,RANME,?RATAB(1),RACN,?RATAB(2),RASSN,?RATAB(3),RADT,?RATAB(4)
  • Line Location: OUTPUT+31
Function Call: WRITE
  • Prompt: $E(RAWHE,1,25),?RATAB(5),RAVRFIED
  • Line Location: OUTPUT+32
Function Call: WRITE
  • Prompt: !?RATAB(6),$E(RAPRC,1,30),?RATAB(7),$E(RAST,1,30)
  • Line Location: OUTPUT+33
Function Call: WRITE
  • Prompt: ?RATAB(8),RARP,?RATAB(9),$E(RAIPHY,1,20),?RATAB(10),RATECH
  • Line Location: OUTPUT+34
Function Call: WRITE
  • Prompt: !,$E(RANME,1,20),?RATAB(1),RACN,?RATAB(2)+7,RASSN,?RATAB(3),RADT
  • Line Location: OUTPUT+38
Function Call: WRITE
  • Prompt: ?RATAB(4),$E(RAWHE,1,15),?RATAB(5),RAVRFIED
  • Line Location: OUTPUT+39
Function Call: WRITE
  • Prompt: !?RATAB(6),$E(RAPRC,1,20),?RATAB(7),$E(RAST,1,11)
  • Line Location: OUTPUT+40
Function Call: WRITE
  • Prompt: ?RATAB(8),RARP,?RATAB(9),$E(RAIPHY,1,15),?RATAB(10),RATECH
  • Line Location: OUTPUT+41
Function Call: WRITE
  • Prompt: !,$E(RANME,1,20),?RATAB(1),RACN,?RATAB(2),RASSN,?RATAB(3),RADT
  • Line Location: OUTPUT+43
Function Call: WRITE
  • Prompt: ?RATAB(4),$E(RAWHE,1,15),?RATAB(5),RAVRFIED
  • Line Location: OUTPUT+44
Function Call: WRITE
  • Prompt: !?RATAB(6),$E(RAPRC,1,20),?RATAB(7),$E(RAST,1,11)
  • Line Location: OUTPUT+45
Function Call: WRITE
  • Prompt: ?RATAB(8),RARP,?RATAB(9),$E(RAIPHY,1,15),?RATAB(10),RATECH
  • Line Location: OUTPUT+46
Function Call: WRITE
  • Prompt: !,RALN1
  • Line Location: OUTPUT+48
Function Call: WRITE
  • Prompt: !!,"Division: ",$P($G(^DIC(4,A,0)),"^"),!?3,"Imaging Type(s): "
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?($X+$L("Imaging Type(s): ")+3)
  • Condition for execution: $X>(IOM-30)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: B,?($X+3)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !!?RATAB(6),"Total Over All Divisions: ",+$G(^TMP($J,"RADLQ"))
  • Line Location: LIST+10
Info |  Source |  Entry Points |  Interaction Calls