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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: ORAMX

Package: Order Entry Results Reporting

Routine: ORAMX


Information

ORAMX ;POR/RSF - ADDITIONAL ANTICOAGULATION CALLS ;11/10/14 10:28

Source Information

Source file <ORAMX.m>

Entry Points

Name Comments DBIA/ICR reference
COMPRPT
COMP0(ORAMARR,ORAMSDT,ORAMEDT,ORAMINCM) ; Print Report Format
COMP1(ORAMARR,ORAMSDT,ORAMEDT,ORAMINCM,ORAMSORT) ; Print Export Format
CONSULT(RESULT,ORAMDFN,ORAMCNM) ; Called from RPC=ORAMX CONSULT
PCESET(RESULT,ORAMDFN,ORAMD1,ORAMSC44,ORAMEDT,ORAMSVC,ORAMNARR,ORAMPDX,ORAMSDX) ; RPC to file PCE Data
; RPC = ORAMX PCESET
; ORAMDFN = Pt. ID
; ORAMD1 = Data string e.g., 1143~27898|300|99363|427.31|^SC~0^IR~0^EC~1^MST~0^HNC~1^SHAD~0
; ORAMSC44 = Hosp Loc IEN
; ORAMEDT = Enc Dt/Tm
; ORAMSVC = Svc Cat (e.g., "A"mb or "T"elecomm)
; ORAMNARR = Prov Narr
; ORAMPDX = Auto Pri Indic
; ORAMSDX = Auto Sec Indic
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
READX
NAME(X,FMT) ; Call with X="LAST,FIRST MI", FMT=Return Format ("LAST, FI")
NAMEX
PATIENT() ; Select a patient
VALIDORD(ORDA) ; Screen Orderable for INR
VOX
VALIDLAB(ORID) ; Is lab test valid?
VLX
TEAMLIST(ORLIST) ; Team List Reports
NEXTLAB ; Next Lab Report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Anticoagulation Complications Report",!
  • Line Location: COMPRPT+3
Function Call: WRITE
  • Prompt: !,"END DATE must be more recent than the START DATE"
  • Line Location: COMPRPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPRPT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPRPT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPRPT+19
Function Call: WRITE
  • Prompt: !,?5,"No Complications Noted."
  • Line Location: COMP0+3
Function Call: WRITE
  • Prompt: !!,?5,OCLINIC,": Total Complications - ",ORAMARR(OCLINIC,0)
  • Line Location: COMP0+6
Function Call: WRITE
  • Prompt: !!,?7," Bleeds (",ORAMARR(OCLINIC,"B",0),")",!
  • Line Location: COMP0+9
Function Call: WRITE
  • Prompt: !,?7," Details:"
  • Line Location: COMP0+10
Function Call: WRITE
  • Prompt: !
  • Line Location: COMP0+14
Function Call: WRITE
  • Prompt: !,?8,ORAMARR(OCLINIC,"B",ODFN,OCDATE,OCNT)
  • Line Location: COMP0+16
Function Call: WRITE
  • Prompt: !!,?7," Clots (",ORAMARR(OCLINIC,"C",0),")",!
  • Line Location: COMP0+19
Function Call: WRITE
  • Prompt: !,?7," Details:"
  • Line Location: COMP0+20
Function Call: WRITE
  • Prompt: !
  • Line Location: COMP0+24
Function Call: WRITE
  • Prompt: !,?8,ORAMARR(OCLINIC,"C",ODFN,OCDATE,OCNT)
  • Line Location: COMP0+26
Function Call: WRITE
  • Prompt: !,?5,"No Complications Noted."
  • Line Location: COMP1+3
Function Call: WRITE
  • Prompt: !,$S(ORAMSORT="c":"Clinic",1:"Division"),";Event;Patient;INR Draw Date;Complication Date"
  • Line Location: COMP1+4
Function Call: WRITE
  • Prompt: !,ORAMARR(OCLINIC,"BX",ODFN,OCDATE,99)
  • Line Location: COMP1+9
Function Call: WRITE
  • Prompt: !,ORAMARR(OCLINIC,"CX",ODFN,OCDATE,99)
  • Line Location: COMP1+13
Function Call: WRITE
  • Prompt: !!,"List of ",$S(ORLIST="A":"ALL",1:"COMPLEX")," Anticoagulation Patients for a Clinic",!
  • Line Location: TEAMLIST+3
Function Call: WRITE
  • Prompt: $C(7),!!,"You must select a Clinic to proceed...",!
  • Line Location: TEAMLIST+6
Function Call: WRITE
  • Prompt: !,"You must define a list for ",$S(ORLIST="A":"ALL",1:"COMPLEX")," Anticoagulation Patients."
  • Line Location: TEAMLIST+13
Function Call: WRITE
  • Prompt: $$READ("EA","Press Return to Continue...")
  • Line Location: TEAMLIST+14
Function Call: WRITE
  • Prompt: !!,"List Anticoagulation Patients with Pending Lab Draws",!
  • Line Location: NEXTLAB+3
Function Call: WRITE
  • Prompt: $C(7),!!,"You must select a Clinic to proceed...",!
  • Line Location: NEXTLAB+6
Function Call: WRITE
  • Prompt: !,"END DATE must be more recent than the START DATE"
  • Line Location: NEXTLAB+14

Used in RPC

RPC Name Call Tags
ORAMX CONSULT CONSULT
ORAMX PCESET PCESET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.21 - [#100.21] Classic Fileman Calls
^ORAM(103 - [#103] Classic Fileman Calls,  EXTERNAL^DILFD
^SC - [#44] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All