Routine: ORAMX

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

FileNo	Call Tags
^OR(100.21 - [#100.21]	Classic Fileman Calls
^ORAM(103 - [#103]	Classic Fileman Calls, EXTERNAL^DILFD
^SC - [#44]	EXTERNAL^DILFD

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORAMX

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call