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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORAMTTR

Package: Order Entry Results Reporting

Routine: ORAMTTR


Information

ORAMTTR ; POR/RSF - Rosendaal Calculations, Individual & Group ;10/05/10 11:57

Source Information

Source file <ORAMTTR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 2 ($$FMDIFF,$$FMTE)^XLFDT  $$ABS^XLFMTH  
Order Entry Results Reporting 2 $$INRCHK^ORAM  ($$PATIENT,$$READ)^ORAMX  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 ($$NAME,$$SITE)^VASITE  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Order Entry Results Reporting 2 ORAM ROSENDAAL SINGLE PT TTR  ORAM ROSENDAAL TTR REPORT  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Rosendaal TTR Option
SINGLE ; TTR for Individual
NROSENT(RESULT,TYPE) ;
SD1 ; Get date range for calculations
NRINDV(RESULT,ORAMDFN,ORAMSD,ORAMED,ORAMWON) ; TTR for single patient
NGETINR(ORAMDFN,ORAMCLIN,ORAMSD,ORAMED) ; Get local INRs - sort by clinic, patient, & date
NGETFS(ORAMCARR,ORAMCLIN,ORAMPT,ORAMDATE,D1,D2,V1,V2,PGR,LG,HG,ORAMDIG,ORAMTD) ; Check flow sheet entries vs. goals
DROP(DPT,BDT,EDT) ;
; Return if Patient should be dropped from calculation 1 (yes), 0 (no), -1 (err)
; DPT -> PT DFN (required)
; BDT -> Begin Date (optional)
; EDT -> End Date (optional)

External References

Name Field # of Occurrence
$$GET1^DIQ DROP+9, DROP+11, DROP+12
^DIR MAIN+3
$$INRCHK^ORAM NGETINR+8
$$PATIENT^ORAMX SINGLE+4
$$READ^ORAMX SINGLE+7, SINGLE+9, SD1+1, SD1+3
$$NAME^VASITE SD1+35
$$SITE^VASITE SD1+36
$$FMDIFF^XLFDT NGETFS+11, DROP+15
$$FMTE^XLFDT SD1+38, NRINDV+30
$$ABS^XLFMTH NGETFS+16, NGETFS+18, NGETFS+19, NGETFS+22
$$GET^XPAR NGETINR+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Single Patient TRR Calculation (Rosendaal Method):",!
  • Line Location: SINGLE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SINGLE+6
Function Call: WRITE
  • Prompt: !,"END DATE must be more recent than the START DATE"
  • Line Location: SINGLE+12
Function Call: WRITE
  • Prompt: !!,"Rosendaal method for percentage of INR scores in therapeutic range",!
  • Line Location: NROSENT+6
Function Call: WRITE
  • Prompt: !,"END DATE must be more recent than the START DATE"
  • Line Location: SD1+6
Function Call: WRITE
  • Prompt: !!?2,"Unable to calculate TTR (may be due to a short time frame with few repeat",!?2,"readings on the same patients)."
  • Line Location: SD1+33
Function Call: WRITE
  • Prompt: @IOF,"Results of Rosendaal Method for Time in Therapeutic Range:"
  • Line Location: SD1+37
Function Call: WRITE
  • Prompt: !!,"Facility-wide for ",ORSITE," for ",$$FMTE^XLFDT(ORAMSD,2)," - ",$$FMTE^XLFDT(ORAMED,2)
  • Line Location: SD1+38
Function Call: WRITE
  • Prompt: !,"TTR = ",TOTS,"% (TOTAL DAYS IN GOAL: ",$TR($J(ORAMDIG,8,1)," ","")," TOTAL DAYS: ",$TR($J(ORAMTD,8,1)," ",""),")"
  • Line Location: SD1+39
Function Call: WRITE
  • Prompt: !!,"Results by Clinic:"
  • Line Location: SD1+40
Function Call: WRITE
  • Prompt: !,$E($P(^SC(CNT,0),U),1,21),": TTR = ",CTOT,"% (Total days in goal: ",$TR($J($P(ORAMCARR(CNT),U,2),8,1)," ","")," TOTAL DAYS: ",$TR($J($P(ORAMCARR(CNT),U),8,1)," ",""),")",!
  • Line Location: SD1+43
Function Call: WRITE
  • Prompt: !!,"Rosendaal method for percentage of INR scores in therapeutic range",!
  • Line Location: NRINDV+29
Function Call: WRITE
  • Prompt: !,?5,$E($P(^DPT($G(ORAMDFN),0),U),1,10)_" ("_$E($P(^(0),U,9),6,9)_") for ",$$FMTE^XLFDT(ORAMSD,2)," - ",$$FMTE^XLFDT(ORAMED,2)
  • Line Location: NRINDV+30
Function Call: WRITE
  • Prompt: !,?5,"TTR = ",TOTS,"% (TOTAL DAYS IN GOAL: ",$TR($J(ORAMDIG,8,1)," ","")," TOTAL DAYS: ",$TR($J(ORAMTD,8,1)," ",""),")",!
  • Line Location: NRINDV+31
Function Call: WRITE
  • Prompt: !!,"Parameter ORAM QUICK ORDER not yet established. Please contact your CAC.",!
  • Line Location: NGETINR+7
Function Call: WRITE
  • Prompt: !!,"Parameter ORAM QUICK ORDER not properly set up. Please contact your CAC.",!
  • Line Location: NGETINR+9
Routine Call
  • DIR
  • Line Location:
    • MAIN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORAM(103 - [#103] GET1^DIQ
103.011 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] NRINDV+30, NGETINR+3
^LR - [#63] NGETINR+10, NGETINR+11
^ORAM(103 - [#103] SD1+7, SD1+9, SD1+10, SD1+11, SD1+16, SD1+17, SD1+18, SD1+19, SD1+20, SD1+21
, SD1+22, NRINDV+4, NRINDV+5, NRINDV+6, NRINDV+7, NRINDV+10, NRINDV+13, NRINDV+14, NRINDV+16, NRINDV+17
, NRINDV+18, NRINDV+19, NRINDV+20, DROP+8, DROP+10
^SC - [#44] SD1+43, SD1+44
^TMP("ORAM" NROSENT+5!, SD1+20, SD1+21*, SD1+22*, SD1+26, SD1+28, SD1+30!, SD1+32, SD1+47!, NRINDV+3!
, NRINDV+18, NRINDV+19*, NRINDV+20*, NRINDV+21, NRINDV+25, NRINDV+33!, NGETINR+16*, NGETFS+2, NGETFS+5, NGETFS+6

Label References

Name Line Occurrences
$$DROP SD1+30
NGETFS SD1+32, NRINDV+25
NGETINR SD1+13, NRINDV+11
NRINDV SINGLE+14
NROSENT MAIN+6
SD1 SD1+6

Naked Globals

Name Field # of Occurrence
^(0 SD1+22, NRINDV+20, NRINDV+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDT DROP~, DROP+6*, DROP+14
CG NGETFS+1~, NGETFS+2*, NGETFS+3*, NGETFS+4
CNT NROSENT+4~, SD1+41*, SD1+42, SD1+43, SD1+44
CTOT SD1+42~*, SD1+43
D1 NROSENT+3~, SD1+31*, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+9, NGETFS+11, NGETFS+25*
D2 NROSENT+3~, SD1+31*, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+8*, NGETFS+11, NGETFS+25
DIFF NGETFS+16~*, NGETFS+20, NGETFS+22
DIR MAIN+1~
DIR("B" MAIN+2*
DIR(0 MAIN+2*
DIROUT MAIN+1~, MAIN+4
DIRUT MAIN+1~, MAIN+4, SINGLE+1~, SINGLE+5
DPT DROP~, DROP+8, DROP+9, DROP+10, DROP+11, DROP+12, DROP+13, DROP+14, DROP+15, DROP+16
DT NRINDV+8
DTOUT MAIN+1~, MAIN+4, SINGLE+1~
DUOUT MAIN+1~, MAIN+4, SINGLE+1~
EDT DROP~, DROP+7*, DROP+14
FS DROP+5~, DROP+10*, DROP+11, DROP+12, DROP+14*, DROP+15
FSDT DROP+5~, DROP+11*, DROP+13
HG NROSENT+3~, SD1+31*, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+4*, NGETFS+8, NGETFS+19, NGETFS+22
INR NGETINR+1~, NGETINR+14*, NGETINR+16, DROP+5~, DROP+12*, DROP+13
INRHD NGETINR+1~
INRRD NGETINR+1~
IOF SD1+37
LDATE NGETINR+1~, NGETINR+10*, NGETINR+11, NGETINR+15
LG NROSENT+3~, SD1+31*, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+3, NGETFS+4*, NGETFS+8, NGETFS+18
, NGETFS+22
LRDFN NGETINR+1~, NGETINR+3*, NGETINR+10, NGETINR+11
NUMC NGETFS+16~*, NGETFS+17, NGETFS+18, NGETFS+19, NGETFS+21
NUMPC NGETFS+16~, NGETFS+18*, NGETFS+19*, NGETFS+20*, NGETFS+22*, NGETFS+23, NGETFS+24
ORAMC2 NRINDV+24~*
ORAMCARR NROSENT+4~, SD1+32, SD1+45, NRINDV+24~, NRINDV+25, NGETFS~
ORAMCARR( SD1+41, SD1+42*, SD1+43, SD1+44*, NGETFS+13*, NGETFS+14*, NGETFS+24*
ORAMCARR(0 SD1+40
ORAMCLIN NROSENT+3~, SD1+11*, SD1+13, SD1+20, SD1+21, SD1+22, SD1+25*, SD1+26*, SD1+28, SD1+30
, SD1+32, NRINDV+1~, NRINDV+10*, NRINDV+11, NRINDV+18, NRINDV+19, NRINDV+20, NRINDV+21, NRINDV+24, NRINDV+25
, NGETINR~, NGETINR+16, NGETFS~, NGETFS+2, NGETFS+5, NGETFS+6, NGETFS+13, NGETFS+14, NGETFS+24
ORAMDATE NROSENT+3~, SD1+30~*, SD1+32*, NRINDV+23~, NRINDV+25*, NGETFS~, NGETFS+2, NGETFS+5, NGETFS+6, NGETFS+8
ORAMDAYS NROSENT+3~, NRINDV+23~, NGETFS+1~, NGETFS+11*, NGETFS+12, NGETFS+13, NGETFS+14, NGETFS+23, NGETFS+24
ORAMDD SD1+8~, SD1+15*, SD1+16*, SD1+17, NRINDV+1~, NRINDV+12*, NRINDV+13*, NRINDV+14
ORAMDFN SINGLE+1~, SINGLE+4*, SINGLE+13, SINGLE+14, NROSENT+3~, SD1+7*, SD1+9, SD1+10, SD1+11, SD1+13
, SD1+16, SD1+17, SD1+18, SD1+19, SD1+20, SD1+21, SD1+22, NRINDV~, NRINDV+4, NRINDV+5
, NRINDV+6, NRINDV+7, NRINDV+10, NRINDV+11, NRINDV+13, NRINDV+14, NRINDV+16, NRINDV+17, NRINDV+18, NRINDV+19
, NRINDV+20, NRINDV+21, NRINDV+24, NRINDV+25, NRINDV+30, NGETINR~, NGETINR+2, NGETINR+3, NGETINR+16
ORAMDIG NROSENT+4~, SD1+32, SD1+33, SD1+34, SD1+39, SD1+46, NRINDV+23~, NRINDV+25, NRINDV+26, NRINDV+27
, NRINDV+31, NRINDV+32, NGETFS~, NGETFS+14*, NGETFS+23*
ORAMDROP DROP+5~
ORAMDROP( DROP+14, DROP+15*, DROP+16
ORAMED SINGLE+1~, SINGLE+2*, SINGLE+5, SINGLE+9*, SINGLE+10, SINGLE+11*, SINGLE+12*, SINGLE+13, SINGLE+14, NROSENT+3~
, SD1+3*, SD1+4, SD1+5*, SD1+6*, SD1+13, SD1+19, SD1+30, SD1+38, NRINDV~, NRINDV+8*
, NRINDV+11, NRINDV+17, NRINDV+30, NGETINR~, NGETINR+5
ORAMFS SD1+8~, SD1+17*, SD1+18, SD1+19, SD1+20, SD1+21, SD1+22, NRINDV+1~, NRINDV+14*, NRINDV+16
, NRINDV+17, NRINDV+18, NRINDV+19, NRINDV+20
ORAMFSD NROSENT+3~, SD1+19*, SD1+20, SD1+21, SD1+22, NRINDV+15~, NRINDV+17*, NRINDV+18, NRINDV+19, NRINDV+20
ORAMISS DROP+5~
ORAMISS( DROP+13*, DROP+14
ORAMITST NGETINR+1~, NGETINR+6~, NGETINR+8*, NGETINR+9, NGETINR+11
ORAMIV NGETFS+6~*, NGETFS+7, NGETFS+8
ORAMORD NGETINR+6~
ORAMPT NROSENT+3~, SD1+27~*, SD1+28*, SD1+30, SD1+32, NRINDV+24~*, NGETFS~, NGETFS+2, NGETFS+5, NGETFS+6
ORAMQO NGETINR+1~, NGETINR+6*, NGETINR+7, NGETINR+8
ORAMSD SINGLE+1~, SINGLE+2*, SINGLE+5, SINGLE+7*, SINGLE+8, SINGLE+12*, SINGLE+13, SINGLE+14, NROSENT+3~, SD1+1*
, SD1+2, SD1+6*, SD1+13, SD1+15, SD1+19, SD1+30, SD1+38, NRINDV~, NRINDV+7*, NRINDV+11
, NRINDV+12, NRINDV+17, NRINDV+30, NGETINR~, NGETINR+4
ORAMTD NROSENT+4~, SD1+32, SD1+34, SD1+39, SD1+46, NRINDV+23~, NRINDV+25, NRINDV+27, NRINDV+31, NRINDV+32
, NGETFS~, NGETFS+12*
ORAMWON NRINDV~, NRINDV+9*, NRINDV+26, NRINDV+28
ORAMX NGETINR+15~*, NGETINR+16
ORAMZ NGETFS+1~, NGETFS+2*, NGETFS+9*, NGETFS+10
ORSITE NROSENT+4~, SD1+35*, SD1+36*, SD1+38
PGR SD1+8~, SD1+18*, SD1+32, NRINDV+1~, NRINDV+16*, NRINDV+25, NGETFS~, NGETFS+3
PRE DROP+5~, DROP+14*, DROP+15
RED NGETINR+1~, NGETINR+5*, NGETINR+10
RESULT MAIN+1~, MAIN+6, SINGLE+1~, SINGLE+14, NROSENT~, SD1+33*, SD1+45*, NRINDV~, NRINDV+2*, NRINDV+26*
, NRINDV+32*
RESULT(0 SD1+46*
RSD NGETINR+1~, NGETINR+4*, NGETINR+10
SCORE NGETINR+11~*, NGETINR+12, NGETINR+13, NGETINR+14
TOTS NROSENT+4~, SD1+34*, SD1+39, SD1+46, NRINDV+27~*, NRINDV+31, NRINDV+32
TYPE MAIN+1~, MAIN+5*, MAIN+6, NROSENT~, SD1+30
U SD1+10, SD1+11, SD1+18, SD1+19, SD1+20, SD1+21, SD1+22, SD1+36, SD1+42, SD1+43
, SD1+44, SD1+46, NRINDV+6, NRINDV+7, NRINDV+10, NRINDV+16, NRINDV+17, NRINDV+18, NRINDV+19, NRINDV+20
, NRINDV+30, NRINDV+32, NGETINR+13, NGETINR+14, NGETINR+16, NGETFS+2, NGETFS+5, NGETFS+6, NGETFS+8, NGETFS+13
, NGETFS+14, NGETFS+15, NGETFS+16, NGETFS+18, NGETFS+19, NGETFS+24
V1 NROSENT+3~, SD1+31*, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+14, NGETFS+15, NGETFS+16, NGETFS+25*
V2 NROSENT+3~, SD1+32, NRINDV+23~, NRINDV+25, NGETFS~, NGETFS+8*, NGETFS+14, NGETFS+15, NGETFS+16, NGETFS+25
X MAIN+1~
Y MAIN+1~, MAIN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All