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

Package: Radiology Nuclear Medicine

Routine: RACMP2


Information

RACMP2 ;HISC/GJC-Complication Report (Part 3 of 3) ;7/17/96 14:06

Source Information

Source file <RACMP2.m>

Entry Points

Name Comments DBIA/ICR reference
HEADER ; Header
SORT ; Obtain data
SYNOP ; Final synopsis of data presented to the user.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,RAHDR(1)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?RATAB(6),"Page: ",RAPG
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?RATAB(6),"Date: ",RATDY
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !?6,RAHDR(2),!,RALN
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Name",?RATAB(2),"Pt ID",?RATAB(3),"Date/Time"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?RATAB(4),"Procedure/Complication",?RATAB(5),"Personnel"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,"Name/Pt-Id",?RATAB(3),"Date/Time"
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: ?RATAB(4),"Procedure/Complication"
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !?RATAB(1),"Personnel",!,RALN
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !!?10,"Division: ",$P($G(^DIC(4,A,0)),U),!?3,"Imaging Type(s): "
  • Line Location: SYNOP+4
Function Call: WRITE
  • Prompt: !?($X+$L("Imaging Type(s): ")+3)
  • Condition for execution: $X>(IOM-25)
  • Line Location: SYNOP+7
Function Call: WRITE
  • Prompt: B,?($X+3)
  • Line Location: SYNOP+7
Function Call: WRITE
  • Prompt: !!!?5,"Totals for all Divisions:"
  • Line Location: SYNOP+12
Function Call: WRITE
  • Prompt: !!,"Complications: ",+$G(^TMP($J,"RACOMP"))
  • Line Location: SYNOP+13
Function Call: WRITE
  • Prompt: " Exams: ",+$G(^TMP($J,"RAEXAM"))," % Complications: "
  • Line Location: SYNOP+14
Function Call: WRITE
  • Prompt: "0"
  • Line Location: SYNOP+15
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACOMP"))/+$G(^TMP($J,"RAEXAM")))*100,6,2)
  • Line Location: SYNOP+16
Function Call: WRITE
  • Prompt: !,"Contrast Media Comp.: ",+$G(^TMP($J,"RACMRE"))
  • Line Location: SYNOP+17
Function Call: WRITE
  • Prompt: " C.M. Exams: ",+$G(^TMP($J,"RACOMP"))
  • Line Location: SYNOP+18
Function Call: WRITE
  • Prompt: " % C.M. Comp.: "
  • Line Location: SYNOP+19
Function Call: WRITE
  • Prompt: "0"
  • Line Location: SYNOP+20
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACMRE"))/+$G(^TMP($J,"RACOMP")))*100,6,2)
  • Line Location: SYNOP+21
Info |  Source |  Entry Points |  Interaction Calls