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

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.

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
Info |  Source |  Entry Points |  Interaction Calls