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 |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORAM(103 - [#103] GET1^DIQ
103.011 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call