Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 7 $$NAMCODE^RACPTMSC  SETVARS^RAPSET1  EN1^RASELCT  (DATE,ZIS)^RAUTL  ACCVIO^RAUTL19  $$DIVLOC^RAUTL7  ASK1^RAWKL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RACPT  

Entry Points

Name Comments DBIA/ICR reference
PROCNUM() ; Determine the number of procedures a user has chosen.
HANG1 ; Issue EOP prompt
CHK ;
HANG ; get to the EOP
HED ; Issue header
PRINT ; Output data
; 01/19/2006 KAM/BAY Changed next line to utilize $$NAMCODE^RACPTMSC
YESNO() ; Pass back the user's response to the 'Yes/No' question
; returns: 0=user answers No, 1=user answers Yes, -1='^' or timeout
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.
DATE

External References

Name Field # of Occurrence
^DIR CHK+16, DATE+4, YESNO+6
$$NAMCODE^RACPTMSC PRINT+2, PRINT+4
SETVARS^RAPSET1 CHK+1
EN1^RASELCT CHK+21
DATE^RAUTL DATE
ZIS^RAUTL DATE+9
ACCVIO^RAUTL19 CHK+2
$$DIVLOC^RAUTL7 CHK+4
ASK1^RAWKL CHK+3

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: ?45,$J(RATOT,5),?52,$S(RATOT(4)=0:$J(0,3,0),1:$J(RATOT/RATOT(4)*100,3,0))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?56,$J(RATOT(1),8,2)
  • Line Location: PRINT+9
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+10
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
Routine Call
  • DIR
  • Line Location:
    • CHK+16
    • DATE+4
    • YESNO+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HED+5
^RAMIS(71 - [#71] PRINT+2, PRINT+4
^TMP($J CHK+5, CHK+6, CHK+22, PRINT+6, PRINT+7, PROCNUM+2

Label References

Name Line Occurrences
$$PROCNUM CHK+24
$$YESNO CHK+8
HANG1 PRINT+11
HED PRINT+11

Naked Globals

Name Field # of Occurrence
^(0 PRINT+2, PRINT+4, HED+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEGDATE DATE+2
>> BEGDATE(0 HED+7
>> CPT PRINT+2, PRINT+4
DIR CHK+12!, CHK+16!, DATE+5!, YESNO+2~
DIR("?" CHK+14*, CHK+15*, DATE+3*, YESNO+4*, YESNO+5*, YESNO+6*
DIR("A" CHK+13*, DATE+3*, YESNO+3*
DIR("B" CHK+12*, DATE+3*, YESNO+2*
DIR(0 CHK+12*, DATE+3*, YESNO+2*
DIROUT YESNO+2~
DIRUT CHK+16, DATE+4, YESNO+2~, YESNO+7
DTIME HANG1+1
DTOUT YESNO+2~
DUOUT YESNO+2~
DUZ CHK+1, CHK+2
>> ENDDATE DATE+2
>> ENDDATE(0 HED+8
IOF HED+1
IOSL PRINT+11, HANG+2
IOST PRINT+11, HED+1, HANG+1
>> J PRINT+2, PRINT+4
>> PAGE HED+1, HED+4*
>> QQ HED+13
RA HED+2~*, HED+3*, HED+4, SRTPA~, SRTPA+5
>> RABEG DATE+2*
>> RACAN CHK+8*, CHK+11, HED+10
>> RACCESS( CHK+1, CHK+2
>> RACMLIST PRINT+2, PRINT+4, HED+11, HED+12
RADIC CHK+19!, CHK+20*, CHK+21
RADIC("A" CHK+20*
RADIC(0 CHK+20*
>> RADIV PRINT+6, PRINT+7, HED+5
>> RAEND DATE+2*
>> RAEOPFLG SRTPA+5
>> RAEXIT PRINT+11, HANG1+2*
>> RAI PRINT+6, PRINT+7, HED+3
>> RAIMAG(0 HED+6
>> RAIMAG(1 PRINT+6, PRINT+7
>> RAINPUT CHK+17*, CHK+18, CHK+21, HED+9
>> RANUMPRC CHK+24*, HED+9
>> RAPOP DATE
>> RAPSTX CHK+1*
>> RAQUIT CHK+2*, CHK+4*, CHK+11*, CHK+16*, CHK+18, CHK+22*, DATE+4*
>> RARUNDTE HED+8
>> RASORT DATE+4*, SRTPA+5
>> RASV DATE+7*, DATE+8*
>> RATOT PRINT+5, PRINT+8
>> RATOT(1 PRINT+2*, PRINT+4*, PRINT+5, PRINT+9
>> RATOT(2 PRINT+5*, PRINT+10
>> RATOT(4 PRINT+6*, PRINT+8
>> RATOT(5 PRINT+7*, PRINT+10
>> RAUTIL CHK+21*
U PRINT+2, PRINT+4, HED+5, HANG1+2
X DATE+5!, HANG1+1*, HANG1+2, PROCNUM+1~*, PROCNUM+2*, YESNO+2~
Y CHK+17, DATE+4, DATE+5!, PROCNUM+1~*, PROCNUM+2*, PROCNUM+3, YESNO+2~, YESNO+7*, YESNO+8
>> Z HANG+2*
>> ZTRTN DATE+6*
>> ZTSAVE( DATE+7*
>> ZTSAVE("^TMP( $J, ""RA " , DATE+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All