Routine: PXRPC

Package	Total	Call Graph
Lexicon Utility	3	$$EXP^LEXCODE UCUMDATA^LEXMUCUM $$IMPDATE^LEXU
Kernel	2	$$TRIM^XLFSTR $$PATCH^XPDUTL
PCE Patient Care Encounter	2	$$DATA2PCE^PXAI $$PKG2IEN^VSIT
VA FileMan	2	$$FIND1^DIC CHK^DIE
CPT HCPCS Codes	1	$$CODEN^ICPTCOD
DRG Grouper	1	$$ICDDX^ICDEX

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PX SAVE DATA

Name	Comments	DBIA/ICR reference
SAVE(OK,PCELIST,LOC,PKGNAME,SRC)	; save PCE information	ICR #6134 Status: Withdrawn Usage: Controlled Subscription
DQSAVE(PCELIST,PXPCEARR,PXPCEDARR,PROBLEMS,SRC)	;	ICR #6386 Status: Active Usage: Private
DATA2PCE(OK,PXPCEARR,PKG,SRC,PXAVST,PXERROR)	;
IMMSRC(IMMIS)	; Returns Event Info Source IEN
IMMROUTE(IMMRT)	; Returns Route IEN
IMMLOC(IMMAL)	; Returns Anatomic Location IEN
IMMLOT(IMMLOT,IMMMANUF,IMMEXPDT)	; Returns Lot_IEN^Comment
IMMVIS(IMMVISMULT,ROOT)	; Sets ROOT's VIS multiple
IMMRMRKS(IMMREMARKS,IMMNUM,REMARK)	; Sets REMARK array
IMMDSG(IMMDSG)	;

Name	Field # of Occurrence
$$FIND1^DIC	DQSAVE+111, IMMSRC+6, IMMROUTE+6, IMMROUTE+8, IMMLOC+6, IMMLOC+8
CHK^DIE	IMMDSG+17
$$ICDDX^ICDEX	DQSAVE+96
$$CODEN^ICPTCOD	DQSAVE+73
$$EXP^LEXCODE	DQSAVE+100
UCUMDATA^LEXMUCUM	IMMDSG+15
$$IMPDATE^LEXU	DQSAVE+34
$$DATA2PCE^PXAI	DATA2PCE+2
$$PKG2IEN^VSIT	SAVE+7
$$TRIM^XLFSTR	DQSAVE+208, DQSAVE+209, DQSAVE+210, DQSAVE+211, IMMVIS+4, IMMDSG+2
$$PATCH^XPDUTL	DQSAVE+68

RPC Name	Call Tags
PX SAVE DATA	SAVE

FileNo	Call Tags
^AUPNVIMM - [#9000010.11]	CHK^DIE
^PXV(920.1 - [#920.1]	FIND1^DIC
^PXV(920.2 - [#920.2]	FIND1^DIC
^PXV(920.3 - [#920.3]	FIND1^DIC
^AUTTIMM - [#9999999.14]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXRPC"	SAVE+4!, SAVE+8*

Name	Line Occurrences
$$IMMDSG	DQSAVE+133
$$IMMLOC	DQSAVE+127, DQSAVE+163
$$IMMLOT	DQSAVE+129
$$IMMROUTE	DQSAVE+125
$$IMMSRC	DQSAVE+123
DATA2PCE	SAVE+12
DQSAVE	SAVE+9
IMMRMRKS	DQSAVE+147
IMMVIS	DQSAVE+146

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CAT	DQSAVE+27~, DQSAVE+37*, DQSAVE+80, DQSAVE+101, DQSAVE+198, DQSAVE+216
CDT	DQSAVE+90~, DQSAVE+93*, DQSAVE+94, DQSAVE+96, DQSAVE+100
CODE	DQSAVE+26~, DQSAVE+37, DQSAVE+39, DQSAVE+44, DQSAVE+46, DQSAVE+51, DQSAVE+52, DQSAVE+53, DQSAVE+54, DQSAVE+56 , DQSAVE+57, DQSAVE+58, DQSAVE+59, DQSAVE+60, DQSAVE+61, DQSAVE+62, DQSAVE+63, DQSAVE+64, DQSAVE+65, DQSAVE+71 , DQSAVE+73, DQSAVE+88, DQSAVE+89, DQSAVE+91, DQSAVE+104, DQSAVE+111, DQSAVE+112, DQSAVE+114, DQSAVE+152, DQSAVE+154 , DQSAVE+168, DQSAVE+170, DQSAVE+176, DQSAVE+178, DQSAVE+187, DQSAVE+189, DQSAVE+195, DQSAVE+197, DQSAVE+205, DQSAVE+207 , DQSAVE+215, DQSAVE+217
COM	DQSAVE+29~, DQSAVE+219, DQSAVE+221, DQSAVE+222, DQSAVE+223, DQSAVE+224, DQSAVE+225, DQSAVE+228, DQSAVE+229, DQSAVE+230 , DQSAVE+231, DQSAVE+233, DQSAVE+236, DQSAVE+237, DQSAVE+238, DQSAVE+239, DQSAVE+240, DQSAVE+243, DQSAVE+244, DQSAVE+245 , DQSAVE+246, DQSAVE+247
COMMENT	DQSAVE+29~
COMMENT(	DQSAVE+84, DQSAVE+105, DQSAVE+121, DQSAVE+160, DQSAVE+173, DQSAVE+184, DQSAVE+192, DQSAVE+202, DQSAVE+212*, DQSAVE+221 , DQSAVE+225
COMMENTS	DQSAVE+29~
COMMENTS(	DQSAVE+217, DQSAVE+221, DQSAVE+223, DQSAVE+224*, DQSAVE+225, DQSAVE+229, DQSAVE+233, DQSAVE+237, DQSAVE+240, DQSAVE+244 , DQSAVE+247
CPT	DQSAVE+28~, DQSAVE+35, DQSAVE+72, DQSAVE+84, DQSAVE+85
CSYS	DQSAVE+90~, DQSAVE+94*, DQSAVE+96, DQSAVE+100
DFN	DQSAVE+30~, DQSAVE+52*
DT	DQSAVE+93
HF	DQSAVE+28~, DQSAVE+35, DQSAVE+177, DQSAVE+184
I	DQSAVE+26~, DQSAVE+36*, DQSAVE+37
ICD	DQSAVE+28~, DQSAVE+35, DQSAVE+92, DQSAVE+104, DQSAVE+105
ICR	DQSAVE+28~, DQSAVE+35, DQSAVE+206, DQSAVE+212
IEN	DQSAVE+26~, DQSAVE+73, DQSAVE+74, DQSAVE+90~, DQSAVE+96, DQSAVE+97, DQSAVE+98
IMM	DQSAVE+28~, DQSAVE+35, DQSAVE+113, DQSAVE+121, DQSAVE+147, DQSAVE+149
IMMAL	IMMLOC~, IMMLOC+2, IMMLOC+3, IMMLOC+4
IMMALERR	DQSAVE+32~
IMMALHL	IMMLOC+1~, IMMLOC+3*, IMMLOC+5, IMMLOC+6
IMMALIEN	DQSAVE+32~, DQSAVE+127, DQSAVE+128, DQSAVE+163, DQSAVE+164, IMMLOC+1~, IMMLOC+4, IMMLOC+5, IMMLOC+6, IMMLOC+7 , IMMLOC+8*, IMMLOC+9
IMMALNAME	DQSAVE+32~
IMMALNM	IMMLOC+1~, IMMLOC+2*, IMMLOC+7, IMMLOC+8
IMMCOMM	DQSAVE+32~, DQSAVE+131, DQSAVE+138, DQSAVE+139, DQSAVE+142, DQSAVE+143, IMMLOT+1~, IMMLOT+11, IMMLOT+12, IMMLOT+13* , IMMLOT+14*, IMMLOT+15
IMMCOMMS	DQSAVE+32~
IMMCOMMS(	DQSAVE+142*, DQSAVE+222, DQSAVE+224
IMMCVX	DQSAVE+33~, DQSAVE+110*, DQSAVE+111, DQSAVE+115
IMMCVXER	DQSAVE+33~
IMMDOSE	IMMDSG+1~, IMMDSG+4, IMMDSG+8, IMMDSG+11, IMMDSG+17, IMMDSG+20
IMMDOSEV	IMMDSG+1~, IMMDSG+17, IMMDSG+18
IMMDSG	DQSAVE+33~, DQSAVE+133, DQSAVE+134, DQSAVE+135, DQSAVE+136, DQSAVE+137, DQSAVE+138, IMMDSG~, IMMDSG+2, IMMDSG+3 , IMMDSG+4, IMMDSG+5, IMMDSG+6, IMMDSG+7, IMMDSG+8, IMMDSG+9
IMMEXPDT	DQSAVE+32~, IMMLOT~, IMMLOT+14
IMMIS	IMMSRC~, IMMSRC+2, IMMSRC+3
IMMISHL	IMMSRC+1~, IMMSRC+2*, IMMSRC+6
IMMISIEN	DQSAVE+32~, DQSAVE+123, DQSAVE+124, IMMSRC+1~, IMMSRC+3, IMMSRC+5, IMMSRC+6*, IMMSRC+7
IMMISNM	DQSAVE+32~
IMMLOT	DQSAVE+32~, DQSAVE+129*, DQSAVE+130, DQSAVE+131, IMMLOT~, IMMLOT+2, IMMLOT+3
IMMLOTIEN	DQSAVE+32~, DQSAVE+130, DQSAVE+132, IMMLOT+1~, IMMLOT+3, IMMLOT+5
IMMLOTNM	IMMLOT+1~, IMMLOT+2*, IMMLOT+12
IMMMANUF	DQSAVE+32~, IMMLOT~, IMMLOT+13
IMMNUM	IMMRMRKS~, IMMRMRKS+6
IMMOVERRIDE	DQSAVE+33~
IMMOVERRIDE(	DQSAVE+149*, DQSAVE+237, DQSAVE+238, DQSAVE+239
IMMREMARKS	IMMRMRKS~, IMMRMRKS+2, IMMRMRKS+3
IMMRT	IMMROUTE~, IMMROUTE+2, IMMROUTE+3, IMMROUTE+4
IMMRTERR	DQSAVE+32~
IMMRTHL	IMMROUTE+1~, IMMROUTE+3*, IMMROUTE+5, IMMROUTE+6
IMMRTIEN	DQSAVE+32~, DQSAVE+125, DQSAVE+126, IMMROUTE+1~, IMMROUTE+4, IMMROUTE+5, IMMROUTE+6, IMMROUTE+7, IMMROUTE+8, IMMROUTE+9
IMMRTNM	DQSAVE+32~, IMMROUTE+1~, IMMROUTE+2*, IMMROUTE+7, IMMROUTE+8
IMMUNERR	IMMDSG+1~
IMMUNIT	IMMDSG+1~, IMMDSG+5, IMMDSG+9, IMMDSG+13, IMMDSG+15, IMMDSG+20
IMMUNITIEN	IMMDSG+1~, IMMDSG+6, IMMDSG+13, IMMDSG+16, IMMDSG+18
IMMVIS	IMMVIS+1~, IMMVIS+5, IMMVIS+6, IMMVIS+8, IMMVIS+10
IMMVISDT	IMMVIS+1~, IMMVIS+7*, IMMVIS+8
IMMVISENTRY	IMMVIS+1~, IMMVIS+4*, IMMVIS+5, IMMVIS+7
IMMVISMULT	IMMVIS~, IMMVIS+3, IMMVIS+4
IMPLDT	DQSAVE+27~, DQSAVE+34*, DQSAVE+94
LEXIEN	DQSAVE+90~, DQSAVE+100*
LOC	SAVE~
MOD	DQSAVE+28~, DQSAVE+78*, DQSAVE+79
MODCNT	DQSAVE+28~, DQSAVE+76*, DQSAVE+77
MODIDX	DQSAVE+28~, DQSAVE+77*, DQSAVE+78
MODS	DQSAVE+28~, DQSAVE+76*, DQSAVE+78
NARR	DQSAVE+27~, DQSAVE+37*, DQSAVE+81, DQSAVE+102, DQSAVE+104, DQSAVE+199
NUM	DQSAVE+33~, DQSAVE+231, DQSAVE+232, DQSAVE+233, DQSAVE+239, DQSAVE+240, DQSAVE+246*, DQSAVE+247
OK	SAVE~, SAVE+3, SAVE+5, SAVE+6, SAVE+7, SAVE+10, SAVE+12, DATA2PCE~, DATA2PCE+2
PCELIST	SAVE~, SAVE+8, SAVE+9, DQSAVE~
PCELIST(	DQSAVE+36, DQSAVE+37
PCELIST(1	SAVE+3, SAVE+4
PED	DQSAVE+28~, DQSAVE+35, DQSAVE+169, DQSAVE+173
PKG	SAVE+2~, SAVE+7*, SAVE+12, DATA2PCE~, DATA2PCE+2
PKGNAME	SAVE~, SAVE+5, SAVE+7
PROBLEMS	SAVE+2~, SAVE+9, DQSAVE~
PROBLEMS(	DQSAVE+104*
PRV	DQSAVE+28~, DQSAVE+35, DQSAVE+40, DQSAVE+41, DQSAVE+42
PXAPI	SAVE+2~, SAVE+10
PXAPI("PROVIDER"	SAVE+11
PXAPREDT	SAVE+2~, SAVE+11, DQSAVE+30~, DQSAVE+48
PXAVST	SAVE+2~, SAVE+12, DATA2PCE~, DATA2PCE+1*, DATA2PCE+2
PXCPTDEL	DQSAVE+30~, DQSAVE+85*
PXDEL	SAVE+2~
PXDX	DQSAVE+87~, DQSAVE+91, DQSAVE+95, DQSAVE+96, DQSAVE+100
PXDXI	DQSAVE+87~, DQSAVE+89*, DQSAVE+91, DQSAVE+99, DQSAVE+104, DQSAVE+105
PXENCDT	DQSAVE+27~, DQSAVE+51*, DQSAVE+93
PXEND	IMMRMRKS+1~, IMMRMRKS+3*, IMMRMRKS+4, IMMRMRKS+5
PXERROR	SAVE+2~, SAVE+12, DATA2PCE~, DATA2PCE+2
PXPCEARR	DQSAVE~, DQSAVE+41, DQSAVE+50, DQSAVE+72, DQSAVE+92, DQSAVE+113, DQSAVE+153, DQSAVE+169, DQSAVE+177, DQSAVE+180 , DQSAVE+188, DQSAVE+196, DQSAVE+206, DQSAVE+225, DQSAVE+232, DQSAVE+233, DQSAVE+240, DQSAVE+247, DQSAVE+249, DATA2PCE~ , DATA2PCE+2
PXPCEDARR	DQSAVE~, DQSAVE+42
PXSEQ	IMMVIS+1~, IMMVIS+2, IMMVIS+9, IMMVIS+10
PXSTART	IMMRMRKS+1~, IMMRMRKS+2*, IMMRMRKS+4, IMMRMRKS+5
PXX	IMMVIS+1~, IMMVIS+3, IMMVIS+4, IMMRMRKS+1~, IMMRMRKS+5, IMMRMRKS+6
REMARK	DQSAVE+33~, DQSAVE+147, IMMRMRKS~
REMARK(	DQSAVE+229, DQSAVE+230, DQSAVE+231, IMMRMRKS+6*
ROOT	DQSAVE+27~, DQSAVE+41, DQSAVE+44, DQSAVE+45, DQSAVE+50, DQSAVE+51, DQSAVE+52, DQSAVE+53, DQSAVE+54, DQSAVE+56 , DQSAVE+57, DQSAVE+58, DQSAVE+59, DQSAVE+60, DQSAVE+61, DQSAVE+62, DQSAVE+63, DQSAVE+64, DQSAVE+66, DQSAVE+68 , DQSAVE+69, DQSAVE+72, DQSAVE+74, DQSAVE+79, DQSAVE+80, DQSAVE+81, DQSAVE+82, DQSAVE+83, DQSAVE+85, DQSAVE+92 , DQSAVE+98, DQSAVE+99, DQSAVE+100, DQSAVE+101, DQSAVE+102, DQSAVE+103, DQSAVE+104, DQSAVE+106, DQSAVE+113, DQSAVE+114 , DQSAVE+115, DQSAVE+116, DQSAVE+117, DQSAVE+118, DQSAVE+119, DQSAVE+120, DQSAVE+124, DQSAVE+126, DQSAVE+128, DQSAVE+132 , DQSAVE+135, DQSAVE+136, DQSAVE+143, DQSAVE+144, DQSAVE+145, DQSAVE+146, DQSAVE+148, DQSAVE+150, DQSAVE+153, DQSAVE+154 , DQSAVE+155, DQSAVE+156, DQSAVE+157, DQSAVE+158, DQSAVE+159, DQSAVE+161, DQSAVE+162, DQSAVE+164, DQSAVE+166, DQSAVE+169* , DQSAVE+170, DQSAVE+171, DQSAVE+172, DQSAVE+174, DQSAVE+177, DQSAVE+178, DQSAVE+179, DQSAVE+181, DQSAVE+182, DQSAVE+185 , DQSAVE+188, DQSAVE+189, DQSAVE+190, DQSAVE+191, DQSAVE+193, DQSAVE+196, DQSAVE+197, DQSAVE+198, DQSAVE+199, DQSAVE+200 , DQSAVE+201, DQSAVE+203, DQSAVE+206, DQSAVE+207, DQSAVE+208, DQSAVE+209, DQSAVE+210, DQSAVE+211, DQSAVE+213, IMMVIS~ , IMMVIS+10
ROOT2	DQSAVE+27~, DQSAVE+42*, DQSAVE+46, DQSAVE+47
SEQ	DQSAVE+33~, DQSAVE+232*, DQSAVE+233
SK	DQSAVE+28~, DQSAVE+35, DQSAVE+153, DQSAVE+160, DQSAVE+165
SKRDCOM	DQSAVE+33~
SKRDCOM(	DQSAVE+165*, DQSAVE+244, DQSAVE+245, DQSAVE+246
SRC	SAVE~, SAVE+6, SAVE+9, SAVE+12, DQSAVE~, DQSAVE+183*, DATA2PCE~, DATA2PCE+2
SVCAT	DQSAVE+29~, DQSAVE+56*, DQSAVE+93
TRT	DQSAVE+28~, DQSAVE+35, DQSAVE+196, DQSAVE+202
TYP	DQSAVE+26~, DQSAVE+37, DQSAVE+38, DQSAVE+43, DQSAVE+49, DQSAVE+70, DQSAVE+85, DQSAVE+86, DQSAVE+106, DQSAVE+107 , DQSAVE+150, DQSAVE+151, DQSAVE+166, DQSAVE+167, DQSAVE+174, DQSAVE+175, DQSAVE+185, DQSAVE+186, DQSAVE+193, DQSAVE+194 , DQSAVE+203, DQSAVE+204, DQSAVE+213, DQSAVE+214, DQSAVE+230, DQSAVE+232, DQSAVE+233, DQSAVE+238, DQSAVE+240, DQSAVE+245 , DQSAVE+247
U	SAVE+4, DQSAVE+37, DQSAVE+45, DQSAVE+51, DQSAVE+52, DQSAVE+53, DQSAVE+54, DQSAVE+56, DQSAVE+57, DQSAVE+58 , DQSAVE+59, DQSAVE+60, DQSAVE+61, DQSAVE+62, DQSAVE+63, DQSAVE+64, DQSAVE+66, DQSAVE+67, DQSAVE+68, DQSAVE+69 , DQSAVE+75, DQSAVE+76, DQSAVE+82, DQSAVE+83, DQSAVE+84, DQSAVE+99, DQSAVE+100, DQSAVE+103, DQSAVE+104, DQSAVE+105 , DQSAVE+110, DQSAVE+116, DQSAVE+117, DQSAVE+118, DQSAVE+119, DQSAVE+120, DQSAVE+121, DQSAVE+123, DQSAVE+125, DQSAVE+127 , DQSAVE+129, DQSAVE+133, DQSAVE+134, DQSAVE+135, DQSAVE+136, DQSAVE+137, DQSAVE+138, DQSAVE+142, DQSAVE+144, DQSAVE+145 , DQSAVE+146, DQSAVE+147, DQSAVE+148, DQSAVE+149, DQSAVE+155, DQSAVE+156, DQSAVE+157, DQSAVE+158, DQSAVE+159, DQSAVE+160 , DQSAVE+161, DQSAVE+162, DQSAVE+163, DQSAVE+165, DQSAVE+171, DQSAVE+172, DQSAVE+173, DQSAVE+179, DQSAVE+180, DQSAVE+181 , DQSAVE+182, DQSAVE+183, DQSAVE+184, DQSAVE+190, DQSAVE+191, DQSAVE+192, DQSAVE+200, DQSAVE+201, DQSAVE+202, DQSAVE+208 , DQSAVE+209, DQSAVE+210, DQSAVE+211, DQSAVE+212, DQSAVE+217, IMMVIS+8, IMMDSG+18, IMMDSG+20
UCUMDATA	IMMDSG+14~, IMMDSG+15
UCUMDATA(0	IMMDSG+16
VSTR	SAVE+1~, SAVE+4*, SAVE+8
X	DQSAVE+26~, DQSAVE+36, DQSAVE+37, DQSAVE+45, DQSAVE+51, DQSAVE+52, DQSAVE+53, DQSAVE+54, DQSAVE+56, DQSAVE+57 , DQSAVE+58, DQSAVE+59, DQSAVE+60, DQSAVE+61, DQSAVE+62, DQSAVE+63, DQSAVE+64, DQSAVE+66, DQSAVE+67, DQSAVE+68 , DQSAVE+69, DQSAVE+75, DQSAVE+76, DQSAVE+82, DQSAVE+83, DQSAVE+84, DQSAVE+99, DQSAVE+103, DQSAVE+104, DQSAVE+105 , DQSAVE+110, DQSAVE+116, DQSAVE+117, DQSAVE+118, DQSAVE+119, DQSAVE+120, DQSAVE+121, DQSAVE+123, DQSAVE+125, DQSAVE+127 , DQSAVE+129, DQSAVE+133, DQSAVE+142, DQSAVE+144, DQSAVE+145, DQSAVE+146, DQSAVE+147, DQSAVE+148, DQSAVE+149, DQSAVE+155 , DQSAVE+156, DQSAVE+157, DQSAVE+158, DQSAVE+159, DQSAVE+160, DQSAVE+161, DQSAVE+162, DQSAVE+163, DQSAVE+165, DQSAVE+171 , DQSAVE+172, DQSAVE+173, DQSAVE+179, DQSAVE+180*, DQSAVE+181, DQSAVE+182, DQSAVE+183, DQSAVE+184, DQSAVE+190, DQSAVE+191 , DQSAVE+192, DQSAVE+200, DQSAVE+201, DQSAVE+202, DQSAVE+208, DQSAVE+209, DQSAVE+210, DQSAVE+211, DQSAVE+212, DQSAVE+217 , IMMSRC+1~, IMMROUTE+1~, IMMLOC+1~, IMMLOT+1~, IMMVIS+1~, IMMRMRKS+1~, IMMDSG+1~
XAM	DQSAVE+28~, DQSAVE+35, DQSAVE+188, DQSAVE+192

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRPC

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: