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

Package: Radiology Nuclear Medicine

Routine: RAMIS1


Information

RAMIS1 ;HISC/CAH,FPT,GJC-Radiology AMIS Report ;4/15/96 10:25

Source Information

Source file <RAMIS1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Radiology Nuclear Medicine 3 (CLOSE,D)^RAUTL  $$EOS^RAUTL5  STOPCHK^RAUTL9  
VA FileMan 1 ^%DT  

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 RAMIS  

Entry Points

Name Comments DBIA/ICR reference
Q
PRT
PRT1
NONE
HD1
HD2
EOS(HDR) ; Generate the header passed in by the application

External References

Name Field # of Occurrence
^%DT HD1+3
CLOSE^RAUTL Q+3
D^RAUTL NONE+1, HD1+2, HD1+3
$$EOS^RAUTL5 PRT+4, PRT+18, PRT+35, EOS+4
STOPCHK^RAUTL9 HD1+8, HD2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!,"No data for selected date range."
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!?5,"TOTALS",?45,$J(RAINTOT("EX"),5),?52,$J(RAOUTOT("EX"),5),?59,$J(RATOT("EX"),5),?74,$J(RAINTOT("WT"),5),?81,$J(RAOUTOT("WT"),5),?88,$J(RATOT("WT"),5)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?5,"AVERAGE WEIGHT PER EXAM",?74,$J($S(IN:(RAINTOT("WT")/IN),1:0),5,1),?81,$J($S(OUT:(RAOUTOT("WT")/OUT),1:0),5,1),?88,$J($S(TOT:(RATOT("WT")/TOT),1:0),5,1)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?4,"*CINE RUNS",?45,$J(^TMP($J,"RAMIS",RADIV,"CINERUNS","IN"),5),?52,$J(^("OUT"),5),?59,$J((^("IN")+^("OUT")),5)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !?4,"*NO. OF CINE FEET USED",?45,$J(^TMP($J,"RAMIS",RADIV,"CINE","IN"),5),?52,$J(^("OUT"),5),?59,$J((^("IN")+^("OUT")),5)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !?4,"*NO. OF FILMS USED",?45,$J(^TMP($J,"RAMIS",RADIV,"FLM","IN"),5),?52,$J(^("OUT"),5),?59,$J((^("IN")+^("OUT")),5)
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: !?5,"PATIENT VISITS",?45,$J(IN,5),?52,$J(OUT,5),?59,$J(TOT,5)
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !?5,"AVERAGE EXAMS PER VISIT",?45,$J($S(IN:(RAINTOT("EX")/IN),1:0),5,1),?52,$J($S(OUT:(RAOUTOT("EX")/OUT),1:0),5,1),?59,$J($S(TOT:(RATOT("EX")/TOT),1:0),5,1)
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !?5,"AVERAGE WORK UNITS PER VISIT",?45,$J($S(IN:(RAINTOT("WT")/IN),1:0),5,1),?52,$J($S(OUT:(RAOUTOT("WT")/OUT),1:0),5,1),?59,$J($S(TOT:(RATOT("WT")/TOT),1:0),5,1)
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !!!,"* These data are not to be used for AMIS. Use your inventory data."
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !?1,$S(RAMIS:RAMIS,RAMIS="MULP":""),?5,$S($D(^RAMIS(71.1,RAMIS,0)):$P(^(0),"^"),RAMIS="MULP":"SERIES OF AMIS CODES",1:"UNKNOWN")
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: ?38,$J($S($D(^(0)):$P(^(0),"^",2),1:""),3)
  • Condition for execution: RAMIS<25!(RAMIS=99)!(RAMIS=27)
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: ?45,$J(RAIN("EX"),5),?52,$J(RAOUT("EX"),5),?59,$J(RA("EX"),5),?64,$J(RAP("EX"),7,1)
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: ?74,$J(RAIN("WT"),5),?81,$J(RAOUT("WT"),5),?88,$J(RA("WT"),5),?93,$J(RAP("WT"),7,1)
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: @IOF,!?45,">>> Overall Workload Report <<<"
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !!?5,"No exams registered for time period "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !?45,">>> Overall Workload Report <<<",?115,"Page: ",PAGE
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !?1,"Division: ",Y,?95,"For period: "
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?109,Y,?121,"to"
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !?1,"Run Date: ",Y
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?109,Y
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !!?50,"Examinations",?78,"Weighted Work Units"
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: !?5,"Amis Category",?37,"Weight",?45," IN",?52," OUT",?59,"TOTAL",?66," %",?74," IN",?81," OUT",?88,"TOTAL",?95," %"
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !!!?48,"Other Statistics",!?5,"Statistic Item",?45," IN",?52," OUT",?59,"TOTAL"
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] RAMIS1+10
^RAMIS(71.1 - [#71.1] PRT1+1
^TMP($J RAMIS1+3, RAMIS1+5, RAMIS1+6*, RAMIS1+10, Q!, PRT, PRT+2, PRT+7, PRT+21, PRT+23
, PRT+25, PRT+27, PRT1

Label References

Name Line Occurrences
$$EOS PRT+10, PRT+13, PRT+15, PRT+20, PRT+22, PRT+24, PRT+26, PRT+29, PRT+31, PRT+33
, PRT1+4
@( EOS+5
HD1 PRT+1
HD2 PRT+19
PRT RAMIS1+10, RAMIS1+12
PRT1 PRT+7, PRT+16
Q RAMIS1+11

Naked Globals

Name Field # of Occurrence
^("IN" PRT+21, PRT+23, PRT+25
^("OUT" PRT, PRT+21, PRT+23, PRT+25, PRT+27, PRT1
^(0 RAMIS1+10, PRT1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q!, HD1+3*!
A Q!
BEGDATE Q!, NONE+1, HD1+2
C Q!
D Q!
DDH Q+4!
DUOUT Q+4!
ENDDATE Q!, NONE+1, HD1+3
HDR EOS~, EOS+5
HOLDY EOS+3~*, EOS+5
I Q!, PRT+14*, HD1+7*, HD2+1*
IN Q!, PRT+11*, PRT+12, PRT+27*, PRT+28, PRT+30, PRT+32
IOF NONE, HD1, HD2
IOSL EOS+2
IOST PRT+4, PRT+18, PRT+35, HD1, HD2
J Q!
OUT Q!, PRT+11*, PRT+12, PRT+27*, PRT+28, PRT+30, PRT+32
PAGE RAMIS1+9*, Q!, HD1, HD1+1, HD1+6*
POP Q+4!
RA Q!
RA( PRT1*
RA("EX" PRT1+2
RA("WT" PRT1+3
RA20 Q!
RA21B Q!
RA21H Q!
RABEG Q!
RACCESS Q+2!
RACNI Q!
RACNT RAMIS1+9*, RAMIS1+10*, RAMIS1+12, Q!
RACRT Q!
RAD0 Q!
RADATA RAMIS1+9*, RAMIS1+11, Q!, PRT+6*
RADFLAG Q!
RADFN Q!
RADIV RAMIS1+10*, RAMIS1+12*, Q!, PRT, PRT+2, PRT+7, PRT+21, PRT+23, PRT+25, PRT+27
, PRT1
RADIVN RAMIS1+4*, RAMIS1+5*, RAMIS1+6, Q!
RADIVN(0 RAMIS1+2*, RAMIS1+3*, RAMIS1+5
RADTE Q+1!
RADTI Q+1!
RAEND Q+1!
RAI Q+1!
RAIN Q+1!
RAIN( PRT1*
RAIN("EX" PRT1+2
RAIN("WT" PRT1+3
RAINTOT Q+1!
RAINTOT( PRT*
RAINTOT("EX" PRT+9, PRT+11, PRT+30
RAINTOT("WT" PRT+9, PRT+12, PRT+32
RAMES Q+4!
RAMIS Q+1!, PRT+7*, PRT+16*, PRT1, PRT1+1
RAMUL Q+1!
RAOR Q+1!
RAOUT Q+1!
RAOUT( PRT1*
RAOUT("EX" PRT1+2
RAOUT("WT" PRT1+3
RAOUTOT Q+1!
RAOUTOT( PRT*
RAOUTOT("EX" PRT+9, PRT+11, PRT+30
RAOUTOT("WT" PRT+9, PRT+12, PRT+32
RAP Q+1!
RAP( PRT1*
RAP("EX" PRT1+2
RAP("WT" PRT1+3
RAP0 Q+1!
RAPOP Q+1!
RAPORT Q+1!
RAPRC Q+1!
RAPRI Q+1!
RAPSTX Q+2!
RAQI Q+1!
RAQUIT Q+1!
RASTAT Q+1!
RATOT Q+1!
RATOT( PRT*, PRT1
RATOT("EX" PRT+9, PRT+11, PRT+30
RATOT("WT" PRT+9, PRT+12, PRT+32
RAVST Q+1!
RAWT Q+1!
RAXIT RAMIS1+10, RAMIS1+11, RAMIS1+12, Q+1!, PRT+1, PRT+4*, PRT+7, PRT+8, PRT+10*, PRT+13*
, PRT+15*, PRT+16, PRT+17, PRT+18*, PRT+19, PRT+20*, PRT+22*, PRT+24*, PRT+26*, PRT+29*
, PRT+31*, PRT+33*, PRT+35*, PRT1+4*, HD1+8*, HD2+2*, EOS+1~*, EOS+4*, EOS+5, EOS+6
RAZ Q+1!
T Q+1!, PRT*, PRT1*
TOT Q+1!, PRT+11*, PRT+12, PRT+27*, PRT+28, PRT+30, PRT+32
X Q+1!, HD1+3*
Y RAMIS1+10*, RAMIS1+12*, Q+1!, NONE+1~*, HD1+2~*, HD1+3*, EOS+3, EOS+5*
Z Q+1!
ZTDESC Q+4!
>> ZTQUEUED HD1+8, HD2+2
ZTRTN Q+1!
ZTSAVE Q+1!
>> ZTSTOP HD1+8, HD2+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All