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

Package: Radiology Nuclear Medicine

Routine: RAPROD1


Information

RAPROD1 ;HISC/FPT,GJC AISC/MJK,RMO-Detailed Exam View ;11/26/96 08:24

Source Information

Source file <RAPROD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 6 CMHIST^RAPROD2  DISP^RART1  D^RAUTL  ELAPSED^RAUTL1  ($$CONTIN,$$PUTTCOM3)^RAUTL11  $$EOS^RAUTL5  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAPROD  

Entry Points

Name Comments DBIA/ICR reference
PERINFO(RADFN,RADTI,RACNI) ; Personnel information
; Pass back 0 if ok, 1 if interrupt
STAT
STATHDR ; Print status tracking header
STAT1 ; display status tracking info
ASKTXT
ACT1
ACT
SECSTF ; Secondary Staff data
PER ; Display personnel information.
PERHDR ; Print personnel header
Q ; kill and quit
ASKSTA
CUMUL ; calculate time frame
SECRES ; Secondary Resident data
TEXT

External References

Name Field # of Occurrence
HOME^%ZIS STATHDR+1, PERHDR+1
^DIR PER+4
CMHIST^RAPROD2 PER+10
DISP^RART1 ASKTXT+1
D^RAUTL ACT1, STAT1+2
ELAPSED^RAUTL1 STAT1+1
$$CONTIN^RAUTL11 ACT+7
$$PUTTCOM3^RAUTL11 ACT+2
$$EOS^RAUTL5 STAT1+4, PERINFO+34, PERINFO+41, PERINFO+52
$$FMTE^XLFDT PERINFO+14, PERINFO+15

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Do you wish to display activity log? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if activity log should be displayed, or 'NO' if not."
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !!?23,"*** Exam Activity Log ***",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?3,"Technologist comment",!?2,"---------------------",?25,"------",?60,"-------------"
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !!?22,"*** Report Activity Log ***",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?2,"---------",?25,"------",?60,"-------------"
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: X
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: !?2,Y,?25,$E($P($P(^DD(RADD,2,0),$P(RAY,"^",2)_":",2),";"),1,33),?60,$E($S($D(^VA(200,+$P(RAY,"^",3),0)):$P(^(0),"^"),1:"Unknown"),1,18)
  • Line Location: ACT1+0
Function Call: READ
  • Prompt: "Do you wish to display exam status tracking log? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKSTA+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if exam status tracking log should be displayed, or 'NO' if not."
  • Line Location: ASKSTA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSTA+6
Function Call: WRITE
  • Prompt: X
  • Line Location: ASKSTA+6
Function Call: READ
  • Prompt: "Do you wish to display exam report text? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKTXT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if report text should be displayed, or 'NO' if not."
  • Line Location: ASKTXT+0
Function Call: WRITE
  • Prompt: !?2,$S($D(^RA(72,+$P(RA,"^",2),0)):$E($P(^(0),"^"),1,20),1:"Unknown"),?25,Y
  • Line Location: STAT1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STATHDR+1
Function Call: WRITE
  • Prompt: !!,?23,"*** Exam Status Tracking Log ***",!,?47,"Elapsed Time",?61,"Cumulative Time",!,?2,"Status",?25,"Date/Time",?48,"(DD:HH:MM)",?64,"(DD:HH:MM)",!,?2,"------",?25,"---------",?47,"------------",?61,"---------------"
  • Line Location: STATHDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PERHDR+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(X)\2),X,!,Y
  • Line Location: PERHDR+3
Function Call: WRITE
  • Prompt: !,"Primary Int'g Resident: ",RAPIR
  • Line Location: PERINFO+22
Function Call: WRITE
  • Prompt: !,"Primary Int'g Staff : ",RAPIS
  • Line Location: PERINFO+23
Function Call: WRITE
  • Prompt: !,"Pre-Verifier: ",RAPRE," ",RAPRE("DT")
  • Line Location: PERINFO+24
Function Call: WRITE
  • Prompt: !,"Verifier : ",RAVER," ",RAVER("DT"),!
  • Line Location: PERINFO+25
Function Call: WRITE
  • Prompt: !,"None",?40,"None"
  • Line Location: PERINFO+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PERINFO+37
Function Call: WRITE
  • Prompt: !
  • Line Location: PERINFO+44
Function Call: WRITE
  • Prompt: !,"None",?40,RATRAN
  • Line Location: PERINFO+45
Function Call: WRITE
  • Prompt: RATXT
  • Line Location: SECRES+3
Function Call: WRITE
  • Prompt: $S($D(^VA(200,+RASIR(0),0)):$P(^(0),"^"),1:"")
  • Line Location: SECRES+6
Function Call: WRITE
  • Prompt: ?40,RATXT
  • Line Location: SECSTF+3
Function Call: WRITE
  • Prompt: ?40,$S($D(^VA(200,+RASIS(0),0)):$P(^(0),"^"),1:"")
  • Line Location: SECSTF+6
Routine Call
  • %ZIS
  • Line Location:
    • STATHDR+1
    • PERHDR+1
Routine Call
  • DIR
  • Line Location:
    • PER+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ACT1
^RA(72 - [#72] STAT1+5
^RADPT - [#70] ACT+2, STAT, ASKSTA+5, PERINFO+5, PERINFO+19, PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2
, SECRES+5, SECSTF+2, SECSTF+5
^RARPT - [#74] ACT+7, PERINFO+9, PERINFO+10
^VA(200 - [#200] ACT1, PERINFO+11, PERINFO+12, PERINFO+13, PERINFO+17, PERINFO+18, PERINFO+50, SECRES+6, SECSTF+6

Label References

Name Line Occurrences
$$PERINFO PER+8
ACT PER+6, ACT
ACT1 ACT+2, ACT+7
ASKSTA ASKSTA
ASKTXT ASKTXT
CUMUL STAT1+1
PERHDR PER+7, PERINFO+35, PERINFO+42, PERINFO+53
Q PER+5, PER+9, PER+11, ACT, ACT+3, ACT+9, ASKSTA, TEXT, ASKTXT
SECRES PERINFO+37
SECSTF PERINFO+37
STAT ACT, ACT+5, ACT+11
STAT1 ASKSTA+5
STATHDR ASKSTA+3, STAT1+4
TEXT STAT, ASKSTA

Naked Globals

Name Field # of Occurrence
^( ACT+2, ACT+7, ASKSTA+5
^(0 ACT+2, ACT+7, ACT1, ASKSTA+5, STAT1+5, PERINFO+11, PERINFO+12, PERINFO+13, PERINFO+17, PERINFO+18
, PERINFO+50, SECRES+6, SECSTF+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PER+1!, PER+5!
DIR("A" PER+3*
DIR("B" PER+2*
DIR(0 PER+2*
DIROUT PER+1!, PER+5!
DIRUT PER+1!, PER+4, PER+5!
DTIME ACT, ASKSTA, ASKTXT
DTOUT PER+1!, PER+5!
DUOUT PER+1!, PER+5!
I ACT+2*, ACT+7*, ASKSTA+5*, Q+1!
IOF STATHDR+1, PERHDR+1
IOM PERHDR+3
IOSL STAT1+4, PERINFO+33, PERINFO+40, PERINFO+51
J Q+1!
POP Q+1!
RA ASKSTA+5*, Q+1!, STAT1+5, PERINFO+47~*, PERINFO+48*, PERINFO+49
RA( CUMUL+1*, CUMUL+2*
RA("RST" TEXT
RA(1 CUMUL+3!
RA(2 CUMUL+3!
RA(3 CUMUL+3!
RA18RET ACT+2~*
RA70 PERINFO+3~, PERINFO+5*, PERINFO+6, PERINFO+17, PERINFO+18
RACI Q+1!
RACM PER+10, Q+2!
RACN Q+1!
RACNI PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19
, PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RACUM ASKSTA+4*, Q+1!, STAT1+3, CUMUL+1, CUMUL+3*
RADATE Q+1!
RADD ACT+2*, ACT+7*, ACT1, Q+1!
RADFN PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19
, PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RADI Q+1!
RADTE Q+1!
RADTI PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19
, PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RAELAP Q+1!, STAT1+1!*, STAT1+3
RAHD1 PERINFO+3~, PERINFO+26*, PERINFO+28, PERINFO+35
RAHD2 PERINFO+3~, PERINFO+27*, PERINFO+28, PERINFO+35
RAHD3 PERINFO+3~, PERINFO+44*, PERINFO+53
RAI CUMUL+1*, CUMUL+2*, CUMUL+3!
RAMOD Q+1!
RAMTIME ASKSTA+5, Q+1!, STAT1+1
RANME Q+1!
RAPIR PERINFO+3~, PERINFO+17*, PERINFO+22
RAPIS PERINFO+3~, PERINFO+18*, PERINFO+23
RAPRC Q+1!
RAPRE PERINFO+3~, PERINFO+7*, PERINFO+12*, PERINFO+24
RAPRE("DT" PERINFO+7*, PERINFO+14*, PERINFO+24
RAPRT Q+1!
RARP PERINFO+3~
RARPT ACT+5, ACT+7, Q+1!, PERINFO+3~, PERINFO+6*, PERINFO+7, PERINFO+8, PERINFO+9, PERINFO+10
RARPT("T" PERINFO+10*, PERINFO+11
RARPT(0 PERINFO+9*, PERINFO+12, PERINFO+13, PERINFO+14, PERINFO+15
RASIR PERINFO+3~, PERINFO+19*, PERINFO+29, PERINFO+31*, PERINFO+32, PERINFO+37, SECRES+1, SECRES+2*, SECRES+3, SECRES+5
RASIR(0 SECRES+5*, SECRES+6
RASIS PERINFO+3~, PERINFO+20*, PERINFO+29, PERINFO+31*, PERINFO+32, PERINFO+37, SECSTF+1, SECSTF+2*, SECSTF+3, SECSTF+5
RASIS(0 SECSTF+5*, SECSTF+6
RASSN Q+1!
RAST Q+1!
RATECH PERINFO+4~, PERINFO+21*, PERINFO+45, PERINFO+50*, PERINFO+55
RATECH(0 PERINFO+49*, PERINFO+50
RATRAN PERINFO+4~, PERINFO+6*, PERINFO+11*, PERINFO+45, PERINFO+55*
RATXT SECRES+1*, SECRES+3, SECRES+8!, SECSTF+1*, SECSTF+3, SECSTF+8!
RAVER PERINFO+4~, PERINFO+7*, PERINFO+13*, PERINFO+25
RAVER("DT" PERINFO+7*, PERINFO+15*, PERINFO+25
RAX Q+1!
RAX1 ASKSTA+5*, Q+1!, STAT1+1, STAT1+2
RAX2 ASKSTA+4!, ASKSTA+5*, Q+1!, STAT1+1
RAXIT PER+7*, PER+8*, PER+9, PER+11, ACT+2*, ACT+3, ACT+7*, ACT+9, ASKSTA+3*, ASKSTA+5
, ASKSTA+6, Q+2!, STAT1+4*, PERINFO+30, PERINFO+32, PERINFO+33, PERINFO+34*, PERINFO+35, PERINFO+40, PERINFO+41*
, PERINFO+42, PERINFO+46, PERINFO+48, PERINFO+51, PERINFO+52*, PERINFO+53
RAY ACT+2*, ACT+7*, ACT1, Q+1!
X PER+4*, PER+5, ACT*, ACT+10*!, ASKSTA*, ASKSTA+6*!, TEXT*, ASKTXT*, STAT1+1*, PERHDR+2~*
, PERHDR+3
>> X1 STAT1+1*
Y PER+1~, PER+6, ACT+2*, ACT+7*, ACT1, STAT1+1, STAT1+2*, STAT1+5, CUMUL+1, PERHDR+2~
, PERHDR+3*
Z Q+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All