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 |  Local Variables  | All
Print Page as PDF
Routine: RALIST1

Package: Radiology Nuclear Medicine

Routine: RALIST1


Information

RALIST1 ;HISC/GJC-List all patients w/exams associated w/specific Amis ;4/8/96 14:55

Source Information

Source file <RALIST1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Radiology Nuclear Medicine 2 $$EOS^RAUTL5  STOPCHK^RAUTL9  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RALIST  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
HD
NUMDIV() ; Returns boolean
; '0' if only one division selected
; '1' if more than one division selected
PROCNUM() ; Return the number of procedures selected.

External References

Name Field # of Occurrence
$$EOS^RAUTL5 PRINT+7, PRINT+14, PRINT+19, PRINT+23, PRINT+27
STOPCHK^RAUTL9 HD+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(TMP,U),?30,$P(TMP,U,2),?49,$P(TMP,U,3),?50,$P(TMP,U,4)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?$S(IOM=132:90,1:90#80),$P(TMP,U,5)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?$S(IOM=132:110,1:110#80),$P(TMP,U,6)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,"Total=",+$G(RACNT(RADIVN))
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: " Inpatient=",+$G(RAIN(RADIVN))
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: " Outpatient=",+$G(RAOUT(RADIVN))
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!,"+ counts as multiple exams",!,"- counts as zero exams"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !!,"Divisions Included: "
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !?($X+($L("Divisions Included: ")))
  • Condition for execution: $X>(IOM-30)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: X,?($X+3)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !!,"Grand Total=",RACNT," Inpatient=",RAIN," Outpatient=",RAOUT
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,">>>>> AMIS Code Dump by Patient <<<<<"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?120,"Page: ",PAGE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"Patient List for AMIS Category ",RAMIS," - ",$E(RAMIS1,1,44)
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?90,"For Period: ",BEG," to",!,"Run Date: ",RANOW,?102,END
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,">>>>> AMIS Code Dump by Patient <<<<<",?64,"Page: ",PAGE
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,"Patient List for AMIS Category ",RAMIS," - ",$E(RAMIS1,1,40)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?49,"For Period: ",BEG," to",!,"Run Date: ",RANOW,?61,END
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,"Division: ",RADIVN
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"# of Procedures Selected: ",$S(RAINPUT:"All",1:$$PROCNUM())
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !!,"Patient Name",?30,"Pt ID",?50,"Procedure"
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<132
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: ?$S(IOM=132:90,1:90#80),"Exam Date"
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: ?$S(IOM=132:110,1:110#80),"Ward/Clinic"
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: !,"------------",?30,"-----",?50,"---------"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<132
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: ?$S(IOM=132:90,1:90#80),"-----------"
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: ?$S(IOM=132:110,1:110#80),"-----------"
  • Line Location: HD+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+19, PRINT+26, NUMDIV+4, NUMDIV+5, PROCNUM+1, PROCNUM+3

Label References

Name Line Occurrences
$$PROCNUM HD+13
HD PRINT+3, PRINT+7, PRINT+14, PRINT+24, PRINT+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEG HD+5, HD+10
>> END HD+5, HD+10
IOF HD
IOM PRINT+9, PRINT+10, PRINT+11, PRINT+28, HD+1, HD+16, HD+17, HD+19, HD+20
IOSL PRINT+7, PRINT+14, PRINT+27
IOST HD
>> PAGE HD*, HD+3, HD+8
>> RACNT PRINT+1*, PRINT+15*, PRINT+30
>> RACNT( PRINT+15
>> RACOUNT PRINT+4*, PRINT+5*, PRINT+6
>> RADIVN PRINT+1*, PRINT+2*, PRINT+3, PRINT+5, PRINT+6, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+24*
, HD+12
>> RADIVNUM PRINT+22
>> RAFLG PRINT+3*, PRINT+7*, PRINT+14*, PRINT+24*, HD+14
>> RAIN PRINT+1*, PRINT+16*, PRINT+30
>> RAIN( PRINT+16
>> RAINPUT HD+13
>> RAMIS HD+4, HD+9
>> RAMIS1 HD+4, HD+9
>> RANOW HD+5, HD+10
>> RAOUT PRINT+1*, PRINT+17*, PRINT+30
>> RAOUT( PRINT+17
>> RAXIT PRINT+2, PRINT+3, PRINT+5, PRINT+7*, PRINT+13, PRINT+14*, PRINT+19*, PRINT+21, PRINT+24, PRINT+26
, PRINT+27*, HD+22*
>> TMP PRINT+6*, PRINT+8, PRINT+10, PRINT+11
U PRINT+8, PRINT+10, PRINT+11
X PRINT+23*, PRINT+26*, PRINT+28, NUMDIV+3~, NUMDIV+4*, NUMDIV+5, PROCNUM+2~*, PROCNUM+3*, PROCNUM+4
Y NUMDIV+3~, NUMDIV+4*, NUMDIV+5*, NUMDIV+6, PROCNUM+2~*, PROCNUM+3*
>> ZTQUEUED HD+22
>> ZTSTOP HD+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All