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

Entry Points

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

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