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

Package: Radiology Nuclear Medicine

Routine: RACPT1


Information

RACPT1 ;HISC/GJC,FPT-Procedure/CPT Stats Report ;12/29/00 11:28

Source Information

Source file <RACPT1.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
DATE
PRINT ; Output data
; 01/19/2006 KAM/BAY Changed next line to utilize $$NAMCODE^RACPTMSC
HED ; Issue header
HANG ; get to the EOP
HANG1 ; Issue EOP prompt
SRTPA(RA) ; Check on the sort parameters. If inpatient and outpatient,
; issue a EOP prompt when the sort parameter changes.
; '1' implies that we are sorting by both inpatient/outpatient and
; are on the second parameter, '0' implies that we fail the above
; conditions.
PROCNUM() ; Determine the number of procedures a user has chosen.
YESNO() ; Pass back the user's response to the 'Yes/No' question
; returns: 0=user answers No, 1=user answers Yes, -1='^' or timeout

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No divisions selected."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !!?5,"No imaging types selected."
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+16
Function Call: WRITE
  • Prompt: !!?5,"No procedures selected."
  • Line Location: CHK+22
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: !,$P($$NAMCODE^RACPTMSC(CPT,""),U),?7,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,38),1:"UNKNOWN")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$P($$NAMCODE^RACPTMSC(CPT,""),U),?15,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$S(CPT["-":$P($$NAMCODE^RACPTMSC($P(CPT,"-"),""),U)_"-"_$P(CPT,"-",2),1:$P($$NAMCODE^RACPTMSC(CPT,""),U)),?15,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?45,$J(RATOT,5),?52,$S(RATOT(4)=0:$J(0,3,0),1:$J(RATOT/RATOT(4)*100,3,0))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?56,$J(RATOT(1),8,2)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?65,$J(RATOT(2),10,2),?77,$S(RATOT(5)=0:$J(0,3,0),1:$J(RATOT(2)/RATOT(5)*100,3,0))
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?78-$L(RA)\2,RA,?70,"Page: ",PAGE
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !!," Division: ",$S(RADIV="":"Unknown",$D(^DIC(4,RADIV,0)):$P(^(0),U),1:"Unknown")
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,"Imaging Type: ",RAIMAG(0)
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: ?52,"For period: ",BEGDATE(0)," to"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !," Run Date: ",RARUNDTE,?64,ENDDATE(0)
  • Line Location: HED+8
Function Call: WRITE
  • Prompt: !," # of Procedures selected: ",$S(RAINPUT:"All",1:RANUMPRC)
  • Line Location: HED+9
Function Call: WRITE
  • Prompt: ?52,"Cancelled Exams: "_$S(RACAN:"in",1:"ex")_"cluded"
  • Line Location: HED+10
Function Call: WRITE
  • Prompt: ?44,"# DONE",?52,"(%)",?59,"$UNIT",?69,"$TOTAL",?77,"(%)",!,QQ
  • Line Location: HED+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HANG+2
Info |  Source |  Entry Points |  Interaction Calls