Routine: ORAMX1

Package	Total	Call Graph
Order Entry Results Reporting	3	HCT^ORAM $$DTCHK^ORAM2 $$SETNARR^ORWPCE3
DRG Grouper	2	($$CODEC,$$CODECS,$$VLTD)^ICDEX ICDDESC^ICDXCODE
Kernel	2	$$FMTE^XLFDT ($$TITLE,$$UP)^XLFSTR
Lexicon Utility	1	$$IMPDATE^LEXU
PCE Patient Care Encounter	1	$$GETENC^PXAPI
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORAM2

Name	Comments	DBIA/ICR reference
RPT(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE)	; Generate report for CPRS
WRAP(TEXT,LENGTH)	; Breaks text string into substrings of length LENGTH
GETVSIT(ORDXS,ORDFN,ORVDT,ORLOC)	; Find the Visit for a given Pt, Location, and Visit Date(/Time)

Name	Field # of Occurrence
$$CODEC^ICDEX	GETVSIT+12
$$CODECS^ICDEX	RPT+26, RPT+36, RPT+41
$$VLTD^ICDEX	GETVSIT+13
ICDDESC^ICDXCODE	RPT+27, RPT+37, RPT+42
$$IMPDATE^LEXU	RPT+14
HCT^ORAM	RPT+76
$$DTCHK^ORAM2	RPT+107
$$SETNARR^ORWPCE3	GETVSIT+15
$$GETENC^PXAPI	GETVSIT+4
$$FMTE^XLFDT	RPT+109, RPT+110, RPT+119
$$TITLE^XLFSTR	RPT+28, RPT+38, RPT+43, GETVSIT+13
$$UP^XLFSTR	RPT+44, RPT+78
$$GET^XPAR	RPT+21, RPT+23, RPT+31, RPT+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),"^")," ",$E($P(^DPT(DFN,0),"^",9),1,3),"-",$E($P(^DPT(DFN,0),"^",9),4,5),"-",$E($P(^DPT(DFN,0),"^",9),6,9) Line Location: RPT+3
Function Call: WRITE	Prompt: !,?10,"***** COMPLEX PATIENT *****" Line Location: RPT+4
Function Call: WRITE	Prompt: !!,"Primary Indication: ",$P(PIND,"\|") Line Location: RPT+48
Function Call: WRITE	Prompt: !?22,$P(PIND,"\|",ORI) Line Location: RPT+49
Function Call: WRITE	Prompt: !," Add'l Indications: ",$P(SIND,"\|") Line Location: RPT+53
Function Call: WRITE	Prompt: !?22,$P(SIND,"\|",ORJ) Line Location: RPT+54
Function Call: WRITE	Prompt: !,$S($D(ORAMSIND):" ",1:" Add'l Indication: "),$P(AIND,"\|") Line Location: RPT+56
Function Call: WRITE	Prompt: !?22,$P(AIND,"\|",ORI) Line Location: RPT+57
Function Call: WRITE	Prompt: !!,"Primary Indication: ",$P(AIND,"\|") Line Location: RPT+61
Function Call: WRITE	Prompt: !?22,$P(AIND,"\|",ORI) Line Location: RPT+62
Function Call: WRITE	Prompt: !!,"Primary Indication: ",$P(PIND,"\|") Line Location: RPT+66
Function Call: WRITE	Prompt: !?22,$P(PIND,"\|",ORI) Line Location: RPT+67
Function Call: WRITE	Prompt: !?$S(ORDXS>2:1,1:2),"Add'l Indication",$S(ORDXS>2:"s",1:""),": ",$P(AIND,"\|") Line Location: RPT+70
Function Call: WRITE	Prompt: !?22,$P(AIND,"\|",ORI) Line Location: RPT+71
Function Call: WRITE	Prompt: !?$S(ORI=1:20,1:22),$P(AIND,"\|",ORI) Line Location: RPT+74
Function Call: WRITE	Prompt: !!," Goal INR: ",$P(^ORAM(103,DFN,0),"^",2) Line Location: RPT+75
Function Call: WRITE	Prompt: !?10,"Last ",$S($$UP^XLFSTR($P(ORAMHCT,U,3))["HGB":"Hgb",$$UP^XLFSTR($P(ORAMHCT,U,3))["HEMOGLOBIN":"Hgb",1:"HCT"),": " Line Location: RPT+78
Function Call: WRITE	Prompt: $S($P(ORAMHCT,U)]"":$P(ORAMHCT,U),1:"No result")," on ",$S($P(ORAMHCT,U,2)]"":$P(ORAMHCT,U,2),1:"file") Line Location: RPT+79
Function Call: WRITE	Prompt: !!?10,ORAMHCT Line Location: RPT+80
Function Call: WRITE	Prompt: !!,"Patient is Eligible for LMWH Bridging" Line Location: RPT+82
Function Call: WRITE	Prompt: ":" Line Location: RPT+85
Function Call: WRITE	Prompt: !?2,$G(^ORAM(103,DFN,7,ORI,0)) Line Location: RPT+86
Function Call: WRITE	Prompt: "." Line Location: RPT+87
Function Call: WRITE	Prompt: !!,"Special Instructions:" Line Location: RPT+89
Function Call: WRITE	Prompt: !?2,^ORAM(103,DFN,1,ORAMJ,0) Line Location: RPT+90
Function Call: WRITE	Prompt: !?2,"Pt has given permission to leave anticoag msg on msg machine." Line Location: RPT+91
Function Call: WRITE	Prompt: !?2,"OK to leave anticoagulation message with:" Line Location: RPT+93
Function Call: WRITE	Prompt: !?4,^ORAM(103,DFN,4,ORAMJ,0) Line Location: RPT+94
Function Call: WRITE	Prompt: !!,"Secondary Indication(s)/Risk Factors:" Line Location: RPT+96
Function Call: WRITE	Prompt: !?2,^ORAM(103,DFN,2,ORAMJ,0) Line Location: RPT+97
Function Call: WRITE	Prompt: ! Line Location: RPT+98
Function Call: WRITE	Prompt: !,"Start Date: ",$P(^ORAM(103,DFN,0),"^",5) Line Location: RPT+99
Function Call: WRITE	Prompt: ?35,"Duration: ",$P(^ORAM(103,DFN,0),"^",7) Line Location: RPT+100
Function Call: WRITE	Prompt: !,"===========================================================================" Line Location: RPT+101
Function Call: WRITE	Prompt: !,"DATE",?10,"INR",?18,"Notified",?30,"TWD",?36,"Comments:" Line Location: RPT+102
Function Call: WRITE	Prompt: !,"---------------------------------------------------------------------------" Line Location: RPT+103
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($E($P(^ORAM(103,DFN,3,ORAMFSD,0),"^",9),1,7),2) Line Location: RPT+109
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(ORAMDD1,2) Line Location: RPT+110
Function Call: WRITE	Prompt: ?11,$P(^ORAM(103,DFN,3,ORAMFSD,0),"^",3) Line Location: RPT+112
Function Call: WRITE	Prompt: ?18,$P(ORAMPNOT,"\|") Line Location: RPT+113
Function Call: WRITE	Prompt: ?30,$P(^ORAM(103,DFN,3,ORAMFSD,0),"^",6) Line Location: RPT+114
Function Call: WRITE	Prompt: ?10,$$FMTE^XLFDT($P(^ORAM(103,DFN,3,ORAMFSD,0),"^"),2) Line Location: RPT+119
Function Call: WRITE	Prompt: ?38,^ORAM(103,DFN,3,ORAMFSD,1,ORAMCLN,0),! Line Location: RPT+121
Function Call: WRITE	Prompt: ?18,$P(ORAMPNOT,"\|",ORAMI),! Line Location: RPT+124
Function Call: WRITE	Prompt: ! Line Location: RPT+125
Function Call: WRITE	Prompt: ?18,$P(ORAMPNOT,"\|",ORAMI),! Line Location: RPT+127
Function Call: WRITE	Prompt: !,"Patient Instructions (from Letter):" Line Location: RPT+131
Function Call: WRITE	Prompt: !?2,$P(ORPILN,"\|",ORJ) Line Location: RPT+135
Function Call: WRITE	Prompt: ! Line Location: RPT+136
Function Call: WRITE	Prompt: !,"Current Dosing (using ",ORAMPS," mg tab):",! Line Location: RPT+142
Function Call: WRITE	Prompt: ?6,$J("Sun",6),?12,$J("Mon",6),?18,$J("Tue",6),?24,$J("Wed",6),?30,$J("Thu",6),?36,$J("Fri",6),?42,$J("Sat",6),?48,$J("Tot",6),! Line Location: RPT+143
Function Call: WRITE	Prompt: "Tab" Line Location: RPT+144
Function Call: WRITE	Prompt: ?(6*ORI),$J(($P(ORAMDOSE,"\|",ORI)/ORAMPS),6) Line Location: RPT+144
Function Call: WRITE	Prompt: ?48,$J(ORAMTP,6),! Line Location: RPT+145
Function Call: WRITE	Prompt: "mgs" Line Location: RPT+146
Function Call: WRITE	Prompt: ?(6*ORI),$J($P(ORAMDOSE,"\|",ORI),6) Line Location: RPT+146
Function Call: WRITE	Prompt: ?48,$J(ORAMTM,6),! Line Location: RPT+147
Function Call: WRITE	Prompt: ?38,ORAMCTXT,"noted: (",^ORAM(103,DFN,3,ORAMFSD,2,ORAMRSF,0),")",! Line Location: RPT+154
Function Call: WRITE	Prompt: ?$S(ORI=1:38,1:40),$P(ORAMCMPL,"\|",ORI),! Line Location: RPT+158
Function Call: WRITE	Prompt: ?38,"-------------------------------------",! Line Location: RPT+159

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RPT+3
^ORAM(103 - [#103]	RPT+2, RPT+4, RPT+5, RPT+6, RPT+10, RPT+11, RPT+39, RPT+40, RPT+75, RPT+81 , RPT+83, RPT+86, RPT+88, RPT+90, RPT+91, RPT+92, RPT+94, RPT+95, RPT+97, RPT+99 , RPT+100, RPT+104, RPT+106, RPT+109, RPT+110, RPT+111, RPT+112, RPT+114, RPT+116, RPT+118 , RPT+119, RPT+121, RPT+129, RPT+132, RPT+133, RPT+138, RPT+141, RPT+149, RPT+151, RPT+152 , RPT+154, RPT+155
^TMP("PXKENC"	GETVSIT+2!, GETVSIT+6, GETVSIT+8, GETVSIT+10, GETVSIT+16!

Name	Line Occurrences
$$WRAP	RPT+47, RPT+52, RPT+55, RPT+60, RPT+65, RPT+69, RPT+73, RPT+111, RPT+134, RPT+157
GETVSIT	RPT+13

Name	Field # of Occurrence
^(0	RPT+151

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIND	RPT+46~, RPT+55, RPT+56, RPT+57, RPT+59~, RPT+60, RPT+61, RPT+62, RPT+64~, RPT+69* , RPT+70, RPT+71, RPT+73*, RPT+74
ALPHA	RPT~, RPT+107
CODSYS	RPT+1~, RPT+15, RPT+26, RPT+28, RPT+36, RPT+38, RPT+41, RPT+44
DFN	RPT~, RPT+2, RPT+3, RPT+4, RPT+5, RPT+6, RPT+10, RPT+11, RPT+13, RPT+39 , RPT+40, RPT+75, RPT+76, RPT+81, RPT+83, RPT+86, RPT+88, RPT+90, RPT+91, RPT+92 , RPT+94, RPT+95, RPT+97, RPT+99, RPT+100, RPT+104, RPT+106, RPT+107, RPT+109, RPT+110 , RPT+111, RPT+112, RPT+114, RPT+116, RPT+118, RPT+119, RPT+121, RPT+129, RPT+132, RPT+133 , RPT+138, RPT+141, RPT+149, RPT+151, RPT+152, RPT+154, RPT+155
DT	RPT+7
DTRANGE	RPT~
ICDC	RPT+19~, RPT+21, RPT+23, RPT+24, RPT+26, RPT+27, RPT+28, RPT+29, RPT+31, RPT+33* , RPT+34, RPT+36, RPT+37, RPT+38
ICDCS	RPT+17~, RPT+25~, RPT+26, RPT+35~, RPT+36, RPT+41*
ICDD	RPT+25~, RPT+35~
ICDDESC	RPT+25~, RPT+27, RPT+35~, RPT+37
ICDDESC(1	RPT+28, RPT+38
ID	RPT~
IMPLDT	RPT+1~, RPT+14*, RPT+15, RPT+20, RPT+30
LENGTH	WRAP~, WRAP+5, WRAP+6, WRAP+10
LINE	WRAP+1~, WRAP+8, WRAP+10, WRAP+11
MAX	RPT~
OMEGA	RPT~, RPT+107
ORAICODE	RPT+1~, RPT+40*, RPT+41, RPT+42, RPT+44
ORAIDESC	RPT+1~, RPT+42
ORAIDESC(1	RPT+43
ORAINARR	RPT+1~, RPT+43*, RPT+44
ORAIND	RPT+1~, RPT+44*, RPT+55, RPT+60
ORAITXT	RPT+1~, RPT+39*, RPT+44
ORAMCC	RPT+117~, RPT+122, RPT+123, RPT+124
ORAMCLIN	RPT+1~, RPT+5*, RPT+13, RPT+18, RPT+21, RPT+23, RPT+31, RPT+33
ORAMCLN	RPT+117~, RPT+118, RPT+119, RPT+120, RPT+121
ORAMCMPL	RPT+150~, RPT+155, RPT+156, RPT+157*, RPT+158
ORAMCNT	RPT+1~, RPT+88, RPT+90, RPT+92, RPT+94, RPT+95, RPT+97, RPT+105
ORAMCTXT	RPT+150~, RPT+151*, RPT+154
ORAMDD1	RPT+108~, RPT+110*
ORAMDOSE	RPT+108~, RPT+138*, RPT+139, RPT+144, RPT+146
ORAMFSD	RPT+105~, RPT+106, RPT+107, RPT+109, RPT+110, RPT+111, RPT+112, RPT+114, RPT+116, RPT+118 , RPT+119, RPT+121, RPT+129, RPT+132, RPT+133, RPT+138, RPT+141, RPT+149, RPT+151, RPT+152 , RPT+154, RPT+155
ORAMHCT	RPT+1~, RPT+76, RPT+77, RPT+78, RPT+79, RPT+80
ORAMI	RPT+124~, RPT+127~, WRAP+1~, WRAP+3, WRAP+4, WRAP+7, WRAP+9, WRAP+10, WRAP+11, WRAP+12*
ORAMJ	RPT+1~, RPT+90, RPT+94, RPT+97, WRAP+1~, WRAP+12
ORAMPIND	RPT+1~, RPT+5, RPT+28, RPT+45, RPT+47
ORAMPNOT	RPT+108~, RPT+111*, RPT+113, RPT+120, RPT+123, RPT+124, RPT+126, RPT+127
ORAMPS	RPT+108~, RPT+141*, RPT+142, RPT+144
ORAMRSF	RPT+152~*, RPT+154, RPT+155
ORAMSIND	RPT+1~, RPT+5, RPT+38, RPT+50, RPT+52, RPT+56
ORAMTM	RPT+140~, RPT+141, RPT+146, RPT+147
ORAMTP	RPT+140~, RPT+141, RPT+144, RPT+145
ORAMX	WRAP+1~, WRAP+4*, WRAP+5, WRAP+6
ORAMX(	WRAP+10, WRAP+11*, WRAP+12
ORAMX(1	WRAP+8*
ORAMX1	WRAP+1~, WRAP+6*, WRAP+7
ORAMX2	WRAP+1~, WRAP+6*, WRAP+7
ORAMY	WRAP+1~, WRAP+10, WRAP+11
ORDA	RPT+9~, RPT+10*, RPT+11
ORDFN	GETVSIT~, GETVSIT+4
ORDFS0	RPT+9~, RPT+11*, RPT+12
ORDX	GETVSIT+9~, GETVSIT+11*, GETVSIT+12, GETVSIT+13
ORDXC	GETVSIT+9~, GETVSIT+12*, GETVSIT+15
ORDXS	RPT+1~, RPT+13, RPT+16, RPT+68, RPT+70, RPT+72, GETVSIT~, GETVSIT+3, GETVSIT+5, GETVSIT+6* , GETVSIT+14*, GETVSIT+15
ORDXS(	RPT+73, GETVSIT+15*
ORDXS(1	RPT+65
ORDXS(2	RPT+69
ORDXT	GETVSIT+9~, GETVSIT+13*
ORFHIE	RPT~
ORI	RPT+46~, RPT+49, RPT+57, RPT+59~, RPT+62, RPT+64~, RPT+67, RPT+71, RPT+74, RPT+84~* , RPT+86, RPT+130~, RPT+132, RPT+133, RPT+140~, RPT+144, RPT+146, RPT+153~, RPT+158, GETVSIT+1~ , GETVSIT+7, GETVSIT+8, GETVSIT+10
ORJ	RPT+51~, RPT+54, RPT+64~, RPT+72, RPT+73, RPT+133~, RPT+135*
ORLOC	GETVSIT~, GETVSIT+4
ORPILN	RPT+133~, RPT+134, RPT+135
ORPOV	GETVSIT+9~, GETVSIT+10*, GETVSIT+11, GETVSIT+15
ORVDT	RPT+1~, RPT+6, RPT+7, RPT+10, RPT+12*, RPT+13, RPT+15, RPT+20, RPT+26, RPT+27 , RPT+30, RPT+36, RPT+37, RPT+41, RPT+42, GETVSIT~, GETVSIT+4, GETVSIT+13
ORVSIT	GETVSIT+1~, GETVSIT+4*, GETVSIT+5, GETVSIT+6, GETVSIT+8, GETVSIT+10
PIND	RPT+46~, RPT+47, RPT+48, RPT+49, RPT+64~, RPT+65, RPT+66, RPT+67
REMOTE	RPT~
ROOT	RPT~
SIND	RPT+51~, RPT+52*, RPT+53, RPT+54
TEXT	WRAP~, WRAP+2, WRAP+3, WRAP+4, WRAP+7, WRAP+8, WRAP+9, WRAP+10, WRAP+11, WRAP+12 , WRAP+13
U	RPT+5, RPT+12, RPT+26, RPT+28, RPT+36, RPT+38, RPT+41, RPT+44, RPT+47, RPT+52 , RPT+55, RPT+60, RPT+65, RPT+69, RPT+73, RPT+77, RPT+78, RPT+79, RPT+81, GETVSIT+11 , GETVSIT+15

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORAMX1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: