Routine: ORWPCE3

Package	Total	Call Graph
DRG Grouper	2	($$CODECS,$$CSI,$$SAB)^ICDEX ($$ICDDATA,ICDDESC)^ICDXCODE
Lexicon Utility	2	$$EXP^LEXCODE $$CSYS^LEXU
Order Entry Results Reporting	2	(BLDPARR,BLDPRMPT)^ORFEDT NOTEVSTR^ORWPCE
PCE Patient Care Encounter	2	($$GETENC,ENCEVENT)^PXAPI (VICR,VIMM,VSKIN)^PXPXRM
CPT HCPCS Codes	1	$$CODEC^ICPTCOD
Clinical Reminders	1	GETFIND^PXRMRPCG
Kernel	1	($$SENTENCE,$$UP)^XLFSTR

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORAMX1 ORWPCE GET DX TEXT ORWPCE PCE4NOTE
Enterprise Health Management Platform	1	HMPDJ02

Name	Comments	DBIA/ICR reference
PCE4NOTE(LST,IEN,DFN,VSITSTR)	; Return encounter for an associated note IA#4214,6132,6614 ; LST(1)=HDR^AllowEdit^CPTRequired^VStr^Author^hasCPT^VisitIEN ; LST(n)=TYP+^CODE^CAT^NARR^QUAL1^QUAL2 (QUAL1=Primary!Qty, QUAL2=Prv)
ICR	;for contraindicated/refused:
IMM	;for immunization: ; LST(n)="IMM"^Code^^^Series^prv^Reaction^Contraindicated^Refused
SKT	;for skin test: ; LST(n)="SK"^Code^^^result^prv^reading^d/t read^d/t given
GETFIND	;
GETDXTXT(ORY,NARR,CODE)	; RPC to resolve Dx Text for PCE view
SETNARR(NARR,CODE)	; Set narrative string
ICDDESC(ORCODE,ORDT)	; Get description for ICD9 Code
ICDDESQ

Name	Field # of Occurrence
$$CODECS^ICDEX	SETNARR+7
$$CSI^ICDEX	PCE4NOTE+84
$$SAB^ICDEX	PCE4NOTE+84
$$ICDDATA^ICDXCODE	PCE4NOTE+86
ICDDESC^ICDXCODE	ICDDESC+2
$$CODEC^ICPTCOD	PCE4NOTE+101
$$EXP^LEXCODE	SKT+85
$$CSYS^LEXU	SKT+84
BLDPARR^ORFEDT	PCE4NOTE+41
BLDPRMPT^ORFEDT	PCE4NOTE+40
NOTEVSTR^ORWPCE	PCE4NOTE+25
$$GETENC^PXAPI	PCE4NOTE+11
ENCEVENT^PXAPI	PCE4NOTE+39
VICR^PXPXRM	ICR+2
VIMM^PXPXRM	IMM+3
VSKIN^PXPXRM	SKT+3
GETFIND^PXRMRPCG	GETFIND+1
$$SENTENCE^XLFSTR	ICDDESC+4
$$UP^XLFSTR	SETNARR+10, SETNARR+14

RPC Name	Call Tags
ORWPCE PCE4NOTE	PCE4NOTE
ORWPCE GET DX TEXT	GETDXTXT

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PCE4NOTE+15, PCE4NOTE+28
^AUTNPOV - [#9999999.27]	PCE4NOTE+89, PCE4NOTE+104, PCE4NOTE+106, SKT+105, SKT+106, SETNARR+2
^AUTTEDT - [#9999999.09]	SKT+30
^AUTTEXAM - [#9999999.15]	SKT+66
^AUTTHF - [#9999999.64]	SKT+48
^SC - [#44]	PCE4NOTE+47
^TIU(8925 - [#8925]	PCE4NOTE+20
^TMP("ORWPCE"	PCE4NOTE+36
^TMP("PXKENC"	PCE4NOTE+38!, PCE4NOTE+42, PCE4NOTE+43, PCE4NOTE+44, PCE4NOTE+51, PCE4NOTE+74, PCE4NOTE+75, PCE4NOTE+81, PCE4NOTE+83, PCE4NOTE+99 , PCE4NOTE+100, PCE4NOTE+110, PCE4NOTE+111, ICR+1, IMM+2, SKT+2, SKT+27, SKT+28, SKT+45, SKT+46 , SKT+63, SKT+64, SKT+81, SKT+82, SKT+99, SKT+100
^VA(200 - [#200]	PCE4NOTE+77

Name	Line Occurrences
$$ICDDESC	SETNARR+9, SETNARR+13
$$SETNARR	PCE4NOTE+87, GETDXTXT+1
GETFIND	PCE4NOTE+35, PCE4NOTE+42
ICDDESQ	ICDDESC+3

Name	Field # of Occurrence
^(12	PCE4NOTE+20, PCE4NOTE+100, SKT+28, SKT+46, SKT+64, SKT+82, SKT+100
^(220	SKT+28, SKT+46, SKT+64, SKT+82
^(802	PCE4NOTE+83, PCE4NOTE+100, SKT+100
^(811	PCE4NOTE+83, PCE4NOTE+100, SKT+28, SKT+46, SKT+64, SKT+82, SKT+100

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CAT	PCE4NOTE+3~, PCE4NOTE+9~, PCE4NOTE+15, PCE4NOTE+17, PCE4NOTE+18, PCE4NOTE+88, PCE4NOTE+89, PCE4NOTE+93, PCE4NOTE+103, PCE4NOTE+104* , PCE4NOTE+115, SKT+34, SKT+37, SKT+52, SKT+55, SKT+70, SKT+73, SKT+88, SKT+91, SKT+103* , SKT+105*, SKT+109
CODE	PCE4NOTE+3~, PCE4NOTE+77, PCE4NOTE+80, PCE4NOTE+84, PCE4NOTE+85, PCE4NOTE+86, PCE4NOTE+87, PCE4NOTE+93, PCE4NOTE+101, PCE4NOTE+102* , PCE4NOTE+115, SKT+29, SKT+30, SKT+37, SKT+47, SKT+48, SKT+55, SKT+65, SKT+66, SKT+73 , SKT+83, SKT+85, SKT+91, SKT+101*, SKT+109, GETDXTXT~, GETDXTXT+1, SETNARR~, SETNARR+7, SETNARR+8 , SETNARR+9, SETNARR+13, SETNARR+14, SETNARR+15
CPIECE	PCE4NOTE+5~, SKT+15, SKT+16, SKT+17
DFN	PCE4NOTE~, PCE4NOTE+11, PCE4NOTE+22*, GETFIND+1
DT	PCE4NOTE+84, PCE4NOTE+86, SETNARR+7, ICDDESC+1
GCNT	PCE4NOTE+5~, GETFIND+2*, GETFIND+4
GFINDS	PCE4NOTE+5~, GETFIND+1
GFINDS(	GETFIND+2, GETFIND+4
I	SETNARR+1~, SETNARR+8*, SETNARR+9
ICDC	SETNARR+9~*, SETNARR+10, SETNARR+11
ICDCSYS	PCE4NOTE+82~, PCE4NOTE+84*, PCE4NOTE+86
ICDD	SETNARR+9~, SETNARR+10, SETNARR+13~, SETNARR+14, ICDDESC+1~, ICDDESC+2, ICDDESC+3
ICDD(1	ICDDESC+4
ICDLBL	SETNARR+1~, SETNARR+7*, SETNARR+10, SETNARR+11, SETNARR+14, SETNARR+15
ICOM	PCE4NOTE+5~, PCE4NOTE+31, PCE4NOTE+95, PCE4NOTE+96, PCE4NOTE+98, PCE4NOTE+117, PCE4NOTE+118, PCE4NOTE+120, ICR+19, ICR+20 , ICR+21, IMM+14, IMM+15, IMM+16, IMM+18, IMM+19, IMM+20, SKT+14, SKT+17, SKT+18 , SKT+39, SKT+40, SKT+42, SKT+57, SKT+58, SKT+60, SKT+75, SKT+76, SKT+78, SKT+93* , SKT+94, SKT+96, SKT+111*, SKT+112, SKT+114
ICPT	PCE4NOTE+4~, PCE4NOTE+99*, PCE4NOTE+100, PCE4NOTE+110, PCE4NOTE+111
IEN	PCE4NOTE~, PCE4NOTE+8, PCE4NOTE+20, PCE4NOTE+25, GETFIND+1
IHF	PCE4NOTE+4~, SKT+45*, SKT+46
IIMM	PCE4NOTE+4~, IMM+2*, IMM+3
ILST	PCE4NOTE+3~, PCE4NOTE+30, PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+47, PCE4NOTE+48, PCE4NOTE+54, PCE4NOTE+56, PCE4NOTE+58, PCE4NOTE+60* , PCE4NOTE+62, PCE4NOTE+65, PCE4NOTE+68, PCE4NOTE+71, PCE4NOTE+79, PCE4NOTE+80, PCE4NOTE+92, PCE4NOTE+93, PCE4NOTE+96, PCE4NOTE+97* , PCE4NOTE+98, PCE4NOTE+114, PCE4NOTE+115, PCE4NOTE+118, PCE4NOTE+119, PCE4NOTE+120, ICR+3, ICR+21, IMM+4, IMM+16 , IMM+20, SKT+4, SKT+18, SKT+36, SKT+37, SKT+40, SKT+41, SKT+42, SKT+54, SKT+55 , SKT+58, SKT+59, SKT+60, SKT+72, SKT+73, SKT+76, SKT+77, SKT+78, SKT+90, SKT+91 , SKT+94, SKT+95, SKT+96, SKT+108, SKT+109, SKT+112, SKT+113, SKT+114, GETFIND+3, GETFIND+4
IPED	PCE4NOTE+4~, SKT+27*, SKT+28
IPOV	PCE4NOTE+4~, PCE4NOTE+81*, PCE4NOTE+83
IPRV	PCE4NOTE+4~, PCE4NOTE+74*, PCE4NOTE+75
ISK	PCE4NOTE+4~, SKT+2*, SKT+3
ISSECV	PCE4NOTE+5~, PCE4NOTE+23, PCE4NOTE+24, PCE4NOTE+27
IST	PCE4NOTE+6~, SKT+81*, SKT+82
ITEM	PCE4NOTE+5~, ICR+1*, ICR+2
ITRT	PCE4NOTE+4~, SKT+99*, SKT+100
IXAM	PCE4NOTE+4~, SKT+63*, SKT+64
LOC	PCE4NOTE+3~, PCE4NOTE+44*, PCE4NOTE+47
LOTNODE	PCE4NOTE+3~
LST	PCE4NOTE~, PCE4NOTE+36*
LST(	PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+47, PCE4NOTE+48, PCE4NOTE+54, PCE4NOTE+56, PCE4NOTE+58, PCE4NOTE+60, PCE4NOTE+62, PCE4NOTE+65 , PCE4NOTE+68, PCE4NOTE+71, PCE4NOTE+80, PCE4NOTE+93, PCE4NOTE+96, PCE4NOTE+98, PCE4NOTE+115, PCE4NOTE+118, PCE4NOTE+120, ICR+9 , ICR+12, ICR+13, ICR+16, ICR+17, ICR+20, ICR+21, ICR+22, IMM+5, IMM+10, IMM+11 , IMM+15, IMM+16, IMM+19, IMM+20, IMM+27, IMM+30, IMM+31, SKT+5, SKT+10, SKT+11 , SKT+17, SKT+18, SKT+21, SKT+23, SKT+24, SKT+37, SKT+40, SKT+42, SKT+55, SKT+58 , SKT+60, SKT+73, SKT+76, SKT+78, SKT+91, SKT+94, SKT+96, SKT+109, SKT+112, SKT+114 , GETFIND+4*
LST(1	PCE4NOTE+32, PCE4NOTE+34, PCE4NOTE+37, PCE4NOTE+43*
MAG	PCE4NOTE+6~, SKT+31, SKT+37, SKT+49, SKT+55, SKT+67, SKT+73, SKT+86, SKT+91
MANUF	PCE4NOTE+3~
MCNT	PCE4NOTE+5~, PCE4NOTE+109, PCE4NOTE+112, PCE4NOTE+113
MIDX	PCE4NOTE+5~, PCE4NOTE+109, PCE4NOTE+110, PCE4NOTE+111
MIEN	PCE4NOTE+5~, PCE4NOTE+111*, PCE4NOTE+112
MODS	PCE4NOTE+5~, PCE4NOTE+109, PCE4NOTE+112, PCE4NOTE+113*, PCE4NOTE+115
NARR	PCE4NOTE+3~, PCE4NOTE+77, PCE4NOTE+80, PCE4NOTE+84, PCE4NOTE+87, PCE4NOTE+93, PCE4NOTE+105, PCE4NOTE+106, PCE4NOTE+115, SKT+30 , SKT+37, SKT+48, SKT+55, SKT+66, SKT+73, SKT+85, SKT+91, SKT+104, SKT+106, SKT+109 , GETDXTXT~, GETDXTXT+1, SETNARR~, SETNARR+2, SETNARR+5, SETNARR+6, SETNARR+10, SETNARR+11, SETNARR+14, SETNARR+15 , SETNARR+16
NODE	PCE4NOTE+3~
OLST	PCE4NOTE+3~
ORCODE	ICDDESC~, ICDDESC+2
ORDATA	PCE4NOTE+5~, ICR+2!, IMM+3!, SKT+3!
ORDATA(	ICR+4, ICR+5, ICR+6, ICR+8, ICR+12, ICR+13, ICR+15, ICR+18, ICR+21, ICR+22 , IMM+6, IMM+10, IMM+11, IMM+13, IMM+16, IMM+17, IMM+20, IMM+23, IMM+24, IMM+30 , IMM+31, SKT+6, SKT+10, SKT+11, SKT+13, SKT+18, SKT+21, SKT+23, SKT+24
ORDATA("SUB"	SKT+21
ORDT	ICDDESC~, ICDDESC+1*, ICDDESC+2
ORPARR	PCE4NOTE+6~, PCE4NOTE+41
ORPARR(	ICR+10, IMM+8, SKT+8
ORPRMPTS	PCE4NOTE+3~, PCE4NOTE+40
ORPRMPTS(	ICR+22, IMM+28, IMM+30, IMM+31, SKT+19, SKT+21, SKT+23, SKT+24
ORPRMPTS("pnumImmContra"	ICR+16
ORPRMPTS("pnumImmRefused"	ICR+17
ORPRMPTS("pnumRefusedGroup"	ICR+9
ORPVAL	PCE4NOTE+6~, ICR+10, ICR+11, ICR+12, ICR+13, ICR+14, ICR+18, ICR+22, IMM+8, IMM+9 , IMM+10, IMM+11, IMM+12, IMM+17, IMM+21, IMM+28, IMM+29, IMM+30, IMM+31, SKT+8* , SKT+9, SKT+10, SKT+11, SKT+12, SKT+19, SKT+20, SKT+21, SKT+22, SKT+23, SKT+24
ORSUB	PCE4NOTE+6~
ORY	GETDXTXT~, GETDXTXT+1, ICDDESC+1~, ICDDESC+4*, ICDDESQ
PRIM	PCE4NOTE+3~, PCE4NOTE+78, PCE4NOTE+80, PCE4NOTE+90, PCE4NOTE+93
PRIMARY	PCE4NOTE+6~, PCE4NOTE+7, PCE4NOTE+24, PCE4NOTE+28*, PCE4NOTE+34
PRIMCODE	SETNARR+1~, SETNARR+7*
PRV	PCE4NOTE+3~, PCE4NOTE+91, PCE4NOTE+93, PCE4NOTE+108, PCE4NOTE+115, SKT+35, SKT+37, SKT+53, SKT+55, SKT+71* , SKT+73, SKT+89, SKT+91, SKT+107, SKT+109
QTY	PCE4NOTE+3~, PCE4NOTE+107, PCE4NOTE+115, SKT+33, SKT+37, SKT+51, SKT+55, SKT+69, SKT+73, SKT+102* , SKT+109
SCNODE	PCE4NOTE+50~, PCE4NOTE+51*, PCE4NOTE+54, PCE4NOTE+56, PCE4NOTE+58, PCE4NOTE+60, PCE4NOTE+62, PCE4NOTE+65, PCE4NOTE+68, PCE4NOTE+71
SUB	PCE4NOTE+6~, ICR+4, ICR+5, ICR+6, ICR+7, ICR+8, ICR+10, ICR+12, ICR+13, ICR+15 , ICR+18, ICR+21, ICR+22, IMM+6, IMM+7, IMM+8, IMM+10, IMM+11, IMM+13, IMM+16 , IMM+17, IMM+20, IMM+23, IMM+24, IMM+30, IMM+31, SKT+6*, SKT+7, SKT+8, SKT+10 , SKT+11, SKT+13, SKT+16, SKT+18, SKT+21, SKT+23, SKT+24
SYSIEN	PCE4NOTE+6~, SKT+84*, SKT+85
SYSTEM	PCE4NOTE+6~
TEMP	PCE4NOTE+6~, ICR+8, ICR+9, ICR+15, ICR+16, ICR+17
TOPLST	PCE4NOTE+6~, ICR+3, ICR+9, ICR+12, ICR+13, ICR+16, ICR+17, ICR+20, ICR+22, IMM+4 , IMM+5, IMM+10, IMM+11, IMM+15, IMM+19, IMM+27, IMM+30, IMM+31, SKT+4*, SKT+5 , SKT+10, SKT+11, SKT+17, SKT+21, SKT+23, SKT+24
U	PCE4NOTE+13, PCE4NOTE+15, PCE4NOTE+22, PCE4NOTE+23, PCE4NOTE+24, PCE4NOTE+28, PCE4NOTE+32, PCE4NOTE+34, PCE4NOTE+37, PCE4NOTE+43 , PCE4NOTE+44, PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+47, PCE4NOTE+54, PCE4NOTE+56, PCE4NOTE+58, PCE4NOTE+60, PCE4NOTE+62, PCE4NOTE+65 , PCE4NOTE+68, PCE4NOTE+71, PCE4NOTE+77, PCE4NOTE+78, PCE4NOTE+80, PCE4NOTE+84, PCE4NOTE+86, PCE4NOTE+88, PCE4NOTE+89, PCE4NOTE+90 , PCE4NOTE+91, PCE4NOTE+93, PCE4NOTE+96, PCE4NOTE+98, PCE4NOTE+101, PCE4NOTE+103, PCE4NOTE+104, PCE4NOTE+105, PCE4NOTE+106, PCE4NOTE+107 , PCE4NOTE+108, PCE4NOTE+115, PCE4NOTE+118, PCE4NOTE+120, ICR+6, ICR+9, ICR+12, ICR+13, ICR+16, ICR+17 , ICR+20, ICR+21, ICR+22, IMM+5, IMM+10, IMM+11, IMM+15, IMM+16, IMM+19, IMM+20 , IMM+24, IMM+27, IMM+30, IMM+31, SKT+5, SKT+10, SKT+11, SKT+17, SKT+18, SKT+21 , SKT+23, SKT+24, SKT+29, SKT+30, SKT+31, SKT+32, SKT+33, SKT+35, SKT+37, SKT+40 , SKT+42, SKT+47, SKT+48, SKT+49, SKT+50, SKT+51, SKT+53, SKT+55, SKT+58, SKT+60 , SKT+65, SKT+66, SKT+67, SKT+68, SKT+69, SKT+71, SKT+73, SKT+76, SKT+78, SKT+83 , SKT+84, SKT+85, SKT+86, SKT+87, SKT+88, SKT+89, SKT+91, SKT+94, SKT+96, SKT+101 , SKT+102, SKT+103, SKT+104, SKT+105, SKT+106, SKT+107, SKT+109, SKT+112, SKT+114, SETNARR+2 , SETNARR+7
UCUM	PCE4NOTE+6~, SKT+32, SKT+37, SKT+50, SKT+55, SKT+68, SKT+73, SKT+87, SKT+91
VAL	PCE4NOTE+50~
VCAT	PCE4NOTE+9~, PCE4NOTE+15*, PCE4NOTE+17, PCE4NOTE+18
VIS	PCE4NOTE+5~, IMM+22, IMM+25, IMM+26*, IMM+27
VISCNT	PCE4NOTE+5~, IMM+23*, IMM+24
VISIT	PCE4NOTE+3~, PCE4NOTE+11, PCE4NOTE+13, PCE4NOTE+14, PCE4NOTE+15, PCE4NOTE+17, PCE4NOTE+18, PCE4NOTE+23, PCE4NOTE+24, PCE4NOTE+27 , PCE4NOTE+28*, PCE4NOTE+34, PCE4NOTE+35, PCE4NOTE+39, PCE4NOTE+42, PCE4NOTE+43, PCE4NOTE+44, PCE4NOTE+51, PCE4NOTE+74, PCE4NOTE+75 , PCE4NOTE+81, PCE4NOTE+83, PCE4NOTE+99, PCE4NOTE+100, PCE4NOTE+110, PCE4NOTE+111, ICR+1, IMM+2, SKT+2, SKT+27 , SKT+28, SKT+45, SKT+46, SKT+63, SKT+64, SKT+81, SKT+82, SKT+99, SKT+100, GETFIND+1
VISIT2	PCE4NOTE+9~, PCE4NOTE+13*, PCE4NOTE+16, PCE4NOTE+17
VISTEMP	PCE4NOTE+5~, IMM+24*, IMM+25, IMM+26
VSITSTR	PCE4NOTE~, PCE4NOTE+11, PCE4NOTE+12, PCE4NOTE+15
VSTR	PCE4NOTE+3~, PCE4NOTE+12*, PCE4NOTE+25, PCE4NOTE+27, PCE4NOTE+29, PCE4NOTE+32, PCE4NOTE+36, SKT+85
VTYP	PCE4NOTE+4~, PCE4NOTE+29*, PCE4NOTE+32, PCE4NOTE+37
X	PCE4NOTE+4~
X0	PCE4NOTE+4~, PCE4NOTE+10, PCE4NOTE+20, PCE4NOTE+22, PCE4NOTE+24, PCE4NOTE+32, PCE4NOTE+44, PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+75 , PCE4NOTE+77, PCE4NOTE+78, PCE4NOTE+83, PCE4NOTE+84, PCE4NOTE+90, PCE4NOTE+100, PCE4NOTE+101, PCE4NOTE+105, PCE4NOTE+107, SKT+28* , SKT+29, SKT+33, SKT+46, SKT+47, SKT+51, SKT+64, SKT+65, SKT+69, SKT+82, SKT+83 , SKT+84, SKT+88, SKT+100, SKT+101, SKT+102, SKT+104
X12	PCE4NOTE+4~, PCE4NOTE+10, PCE4NOTE+20, PCE4NOTE+23, PCE4NOTE+32, PCE4NOTE+91, PCE4NOTE+100, PCE4NOTE+108, SKT+28, SKT+35 , SKT+46, SKT+53, SKT+64, SKT+71, SKT+82, SKT+89, SKT+100, SKT+107
X13	PCE4NOTE+4~
X16	PCE4NOTE+4~
X2	PCE4NOTE+4~
X220	PCE4NOTE+6~, SKT+28, SKT+31, SKT+32, SKT+46, SKT+49, SKT+50, SKT+64, SKT+67, SKT+68 , SKT+82, SKT+86, SKT+87
X802	PCE4NOTE+4~, PCE4NOTE+83, PCE4NOTE+88, PCE4NOTE+100, PCE4NOTE+103, SKT+100*, SKT+103
X811	PCE4NOTE+4~, PCE4NOTE+83, PCE4NOTE+94, PCE4NOTE+98, PCE4NOTE+100, PCE4NOTE+116, PCE4NOTE+120, SKT+28, SKT+38, SKT+42 , SKT+46, SKT+56, SKT+60, SKT+64, SKT+74, SKT+78, SKT+82, SKT+92, SKT+96, SKT+100* , SKT+110, SKT+114

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWPCE3

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: