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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RACMP1

Package: Radiology Nuclear Medicine

Routine: RACMP1


Information

RACMP1 ;HISC/GJC,RVD-Complication Report (Part 2 of 3) ;05/13/09 11:08

Source Information

Source file <RACMP1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; Output subroutine part one
PRT1 ; Output subroutine two
PRSC ;DISPLAY pregnancy screen and comment, patch 99
DIVCHK ; Output statistics within division, check for EOS on division
IMGCHK ; Check for EOS on I-Type

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RA3,?RATAB(2),RASSN,?RATAB(3),RADATE,?RATAB(4),RAPRC
  • Line Location: PRT1+9
Function Call: WRITE
  • Prompt: ?RATAB(5),"Physician: ",RAPHY,!?RATAB(3),RATME,?RATAB(4),RACOMP
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: ?RATAB(5),"Interpreting Res. : ",RARES
  • Line Location: PRT1+11
Function Call: WRITE
  • Prompt: !?RATAB(5),"Staff Imaging Phys. : ",RASTF
  • Line Location: PRT1+12
Function Call: WRITE
  • Prompt: !,RA3,?RATAB(3),RADATE,?RATAB(4),RAPRC,!,RASSN,?RATAB(3),RATME
  • Line Location: PRT1+25
Function Call: WRITE
  • Prompt: ?RATAB(4),RACOMP
  • Line Location: PRT1+26
Function Call: WRITE
  • Prompt: !?RATAB(1),"Physician: ",RAPHY
  • Line Location: PRT1+27
Function Call: WRITE
  • Prompt: !?RATAB(1),"Interpreting Res. : ",RARES
  • Line Location: PRT1+28
Function Call: WRITE
  • Prompt: !?RATAB(1),"Staff Imaging Phys. : ",RASTF
  • Line Location: PRT1+29
Function Call: WRITE
  • Prompt: !?RATAB(1),"Tech: ",RATECH
  • Line Location: PRT1+33
Function Call: WRITE
  • Prompt: !,RALBL,$E(RACMPTX,1,65)
  • Line Location: PRT1+37
Function Call: WRITE
  • Prompt: !?$L(RALBL),$E(RALBL,66,100)
  • Condition for execution: $E(RALBL,66,100)]""
  • Line Location: PRT1+38
Function Call: WRITE
  • Prompt: !,RALN1
  • Line Location: PRT1+38
Function Call: WRITE
  • Prompt: !!?5,"Division: "_RADIV("X")
  • Line Location: DIVCHK+3
Function Call: WRITE
  • Prompt: !,"Complications: ",+$G(^TMP($J,"RACOMP",RADIV))
  • Line Location: DIVCHK+4
Function Call: WRITE
  • Prompt: " Exams: ",+$G(^TMP($J,"RAEXAM",RADIV))," % Complications: "
  • Line Location: DIVCHK+5
Function Call: WRITE
  • Prompt: "0"
  • Line Location: DIVCHK+6
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACOMP",RADIV))/+$G(^TMP($J,"RAEXAM",RADIV)))*100,6,2)
  • Line Location: DIVCHK+7
Function Call: WRITE
  • Prompt: !,"Contrast Media Complications: ",+$G(^TMP($J,"RACMRE",RADIV))
  • Line Location: DIVCHK+9
Function Call: WRITE
  • Prompt: " C.M. Exams: ",+$G(^TMP($J,"RACOMP",RADIV))
  • Line Location: DIVCHK+10
Function Call: WRITE
  • Prompt: " % C.M. Comp.: "
  • Line Location: DIVCHK+11
Function Call: WRITE
  • Prompt: "0"
  • Line Location: DIVCHK+12
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACMRE",RADIV))/+$G(^TMP($J,"RACOMP",RADIV)))*100,6,2)
  • Line Location: DIVCHK+13
Function Call: WRITE
  • Prompt: !,"Complications: ",+$G(^TMP($J,"RACOMP",RADIV,RAITYPE))
  • Line Location: IMGCHK+3
Function Call: WRITE
  • Prompt: " Exams: ",+$G(^TMP($J,"RAEXAM",RADIV,RAITYPE))
  • Line Location: IMGCHK+4
Function Call: WRITE
  • Prompt: " % Complications: "
  • Line Location: IMGCHK+5
Function Call: WRITE
  • Prompt: "0"
  • Line Location: IMGCHK+6
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACOMP",RADIV,RAITYPE))/+$G(^TMP($J,"RAEXAM",RADIV,RAITYPE)))*100,6,2)
  • Line Location: IMGCHK+7
Function Call: WRITE
  • Prompt: !,"Contrast Media Complications: ",+$G(^TMP($J,"RACMRE",RADIV,RAITYPE))
  • Line Location: IMGCHK+9
Function Call: WRITE
  • Prompt: " C.M. Exams: ",+$G(^TMP($J,"RACOMP",RADIV,RAITYPE))
  • Line Location: IMGCHK+10
Function Call: WRITE
  • Prompt: " % C.M. Comp.: "
  • Line Location: IMGCHK+11
Function Call: WRITE
  • Prompt: "0"
  • Line Location: IMGCHK+12
Function Call: WRITE
  • Prompt: $J((+$G(^TMP($J,"RACMRE",RADIV,RAITYPE))/+$G(^TMP($J,"RACOMP",RADIV,RAITYPE)))*100,6,2)
  • Line Location: IMGCHK+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAO(75.1 - [#75.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call