Routine: VIABRPC

Package	Total	Call Graph
Kernel	5	$$NOW^XLFDT $$PATCH^XPDUTL $$GETSURO^XQALSURO DEVICE^XUDHGUI DIV4^XUSER
PCE Patient Care Encounter	3	($$DATA2PCE,$$GETENC)^PXAPI SCCOND^PXUTLSCC IMMSHORT^PXVRPC4
Registration	3	$$PT^DGPMOBS RDIS^DGRPDB ELIG^VADPT
Consult Request Tracking	2	($$REAF,GETDEF)^GMRCDRFR $$PROVDX^GMRCUTL1
VA FileMan	2	($$GET1,GETS)^DIQ ^DIWP
Automated Information Collection System	1	GETLST^IBDF18A
CPT HCPCS Codes	1	($$CODM,$$CPTD)^ICPTCOD
Inpatient Medications	1	$$STARTSTP^PSJORPOE
Lab Service	1	SHOW^LR7OV4
Lexicon Utility	1	$$IMPDATE^LEXU
Outpatient Pharmacy	1	DSUP^PSOSIGDS
Problem List	1	DSELECT^GMPLENFM
Text Integration Utility	1	($$VSTRBLD,FILE)^TIUSRVP
VistA Integration Adapter	1	DQSAVE^VIABRPC7

Package	Total	Caller Graph
VistA Integration Adapter	23	VIAB ACTPROB VIAB ADMIN VIAB CPTMODS VIAB CURSPE VIAB DEFAULT REQUEST REASON VIAB DEVICE VIAB DFLTSPLY VIAB EDIT DEFAULT REASON VIAB GET IMMUNIZATION TYPE VIAB GET USER DIVISIONS VIAB GETSURR VIAB IMMED COLLECT VIAB ISPROSVC VIAB NOTEVSTR VIAB PATCH VIAB PROVDX VIAB RADSRC VIAB SCDIS VIAB SCSEL VIAB SITENAME VIAB TIU SECVST VIAB VISIT VIABPCE SAVE

Entry Points

Name	Comments	DBIA/ICR reference
GETSURR(RESULT,USER)	; surrogate info.
SNAME(RET,SID)	; get station/site name
USERDIV(RESULT,VIADUZ)	; station IEN^station number^station name^default division
DEFRFREQ(RESULT,VIAIEN,VIADFN,RESOLVE)	;Return default reason for request for service - ICR #3119
EDITDRFR(RESULT,VIAIEN)	; Allow editing of reason for request? - ICR #3119
RADSRC(RESULT,SRCTYPE)	; return list of available contract/sharing/research sources - ICR #2968
CURSPE(RESULT,PTDFN)	; Return current treating specialty - ICR #2664
CPTMODS(RESULT,VIACPTCOD,VIADATE)	;Return CPT Modifiers for a CPT Code - ICR #1995
ACTPROB(RESULT,DFN,VIADATE)	;get list of patient's active problems - ICR #1365
NOTEVSTR(RESULT,IEN)	; return the VSTR^AUTHOR for a note -; ICR#4075
PROVDX(RESULT,VIAIEN)	;Return provisional dx prompting info for service; ICR#3121
ISPROSVC(RESULT,GMRCIEN)	; Is this service part of the consults-prosthetics interface? ICR #6473
SECVST(RESULT,NOTEIEN,VIADFN,VIAENCDT,VIAHLOC)	; save secondary visit in TIU, if inpatient; ICR#1894,#3540
SCDIS(RESULT,DFN)	; Return service connected % and rated disabilities; ICR#10061,#649,#4807,#142
SCSEL(RESULT,DFN,APPDT,HLOC,VST)	; return SC conditions that maRESULT be selected; ICR#2348
VISIT(RESULT,CLINIC,VIADATE)	; get list of visit types for clinic; ICR#1296
IMMTYPE(RESULT,VIACVXS)	;get the list of active immunizations; ICR#6663
IMMTYPE2(RESULT,VIACVXS)	;get one or more active immunizations by CVX code; ICR#6663
IMMCOLL(RESULT)	; Return help screen showing immediate collect times;ICR#-2429
ADMIN(RESULT,DFN,SCH,OI,LOC,ADMIN)	; return administration time info;ICR-#2843,10040,10035,3167
FIRST(DFN,WARD,OI,DATA,ORDER,ADMIN)
NUMCHAR(STRING,SUB)	;
DFLTSPLY(RESULT,UPD,SCH,PAT,DRG,OI)	; return days supply given quantity;ICR-#2843,3278
DEVICE(RESULT,FROM,DIR,MARGIN)	; Return a subset of printer entries from the Device file;ICR-#3771
SAVE(OK,PCELIST,NOTEIEN,VIALOC)	; save PCE information
CLINUSER(VIADUZ)	;is this a clinical user?
GETVSIT(VSTR,DFN)	; lookup a visit
PATCH(VAL,X)	; Return 1 if patch X is installed *22

Name	Field # of Occurrence
$$PT^DGPMOBS	CURSPE+3
RDIS^DGRPDB	SCDIS+7
$$GET1^DIQ	SNAME+6, USERDIV+8, USERDIV+12, ISPROSVC+4, SCDIS+6, SCDIS+9, ADMIN+5, ADMIN+6, DFLTSPLY+8
GETS^DIQ	IMMTYPE2+12
^DIWP	IMMTYPE2+23
DSELECT^GMPLENFM	ACTPROB+6
$$REAF^GMRCDRFR	EDITDRFR+2
GETDEF^GMRCDRFR	DEFRFREQ+9
$$PROVDX^GMRCUTL1	PROVDX+3
GETLST^IBDF18A	VISIT+4
$$CODM^ICPTCOD	CPTMODS+4
$$CPTD^ICPTCOD	IMMTYPE2+21
$$IMPDATE^LEXU	ACTPROB+5
SHOW^LR7OV4	IMMCOLL+4
$$STARTSTP^PSJORPOE	FIRST+8
DSUP^PSOSIGDS	DFLTSPLY+14
$$DATA2PCE^PXAPI	GETVSIT+9
$$GETENC^PXAPI	SECVST+5
SCCOND^PXUTLSCC	SCSEL+7
IMMSHORT^PXVRPC4	IMMTYPE+7, IMMTYPE2+9
$$VSTRBLD^TIUSRVP	NOTEVSTR+4
FILE^TIUSRVP	SECVST+10
ELIG^VADPT	SCDIS+4
DQSAVE^VIABRPC7	SAVE+41
$$NOW^XLFDT	RADSRC+6
$$PATCH^XPDUTL	PATCH+1
$$GETSURO^XQALSURO	GETSURR+4
DEVICE^XUDHGUI	DEVICE+18
DIV4^XUSER	USERDIV+5

RPC Name	Call Tags
VIAB GETSURR	GETSURR
VIAB SITENAME	SNAME
VIAB GET USER DIVISIONS	USERDIV
VIAB EDIT DEFAULT REASON	EDITDRFR
VIAB DEFAULT REQUEST REASON	DEFRFREQ
VIAB RADSRC	RADSRC
VIAB CURSPE	CURSPE
VIAB CPTMODS	CPTMODS
VIAB NOTEVSTR	NOTEVSTR
VIAB ACTPROB	ACTPROB
VIAB SCDIS	SCDIS
VIAB SCSEL	SCSEL
VIAB PROVDX	PROVDX
VIAB GET IMMUNIZATION TYPE	IMMTYPE
VIAB ISPROSVC	ISPROSVC
VIAB VISIT	VISIT
VIAB TIU SECVST	SECVST
VIAB IMMED COLLECT	IMMCOLL
VIAB ADMIN	ADMIN
VIAB DFLTSPLY	DFLTSPLY
VIAB DEVICE	DEVICE
VIABPCE SAVE	SAVE
VIAB PATCH	PATCH

FileNo	Call Tags
^ORD(101.43 - [#101.43]	GET1^DIQ
^GMR(123.5 - [#123.5]	GET1^DIQ
^DIC(31 - [#31]	GET1^DIQ
^DG(391 - [#391]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^AUTTIMM - [#9999999.14]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(34 - [#34]	RADSRC+4, RADSRC+5, RADSRC+6, RADSRC+7
^DIC(4 - [#4]	SNAME+4
^DIC(9.4 - [#9.4]	GETVSIT+2
^DPT - [#2]	ADMIN+7
^TIU(8925 - [#8925]	NOTEVSTR+3
^TMP("IB"	ACTPROB+3!, ACTPROB+9, ACTPROB+10!, ACTPROB+11, ACTPROB+17, ACTPROB+18!, ACTPROB+19, ACTPROB+20
^TMP("VIABREQ"	DEFRFREQ+7
^TMP("VIAPCE"	SAVE+38!, SAVE+39*
^UTILITY($J	IMMTYPE2+23!, IMMTYPE2+24, IMMTYPE2+30!
^XUSEC("ORELSE"	CLINUSER+4
^XUSEC("ORES"	CLINUSER+3
^XUSEC("PROVIDER"	CLINUSER+5

Name	Line Occurrences
$$CLINUSER	SAVE+40
$$FIRST	ADMIN+7
$$NUMCHAR	FIRST+4
IMMTYPE2	IMMTYPE+3, IMMTYPE2+5

Name	Field # of Occurrence
^(12	NOTEVSTR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	IMMTYPE2+2~, IMMTYPE2+21*
ADMIN	ADMIN~, ADMIN+7, FIRST~, FIRST+7*, FIRST+8
APPDT	SCSEL~, SCSEL+7
CLINIC	VISIT~, VISIT+4
CNT	IMMTYPE+5~, IMMTYPE+6, IMMTYPE+9, IMMTYPE2+2~, IMMTYPE2+3, IMMTYPE2+29, FIRST+1~, FIRST+5, FIRST+6, NUMCHAR+1~ , NUMCHAR+3
CPT2	IMMTYPE2+2~
CPT2(	IMMTYPE2+16*, IMMTYPE2+18
CPTNAM	IMMTYPE2+2~, IMMTYPE2+13*
CPTS	IMMTYPE2+2~, IMMTYPE2+26!, IMMTYPE2+27, IMMTYPE2+28
DATA	IMMTYPE2+2~, IMMTYPE2+21!, FIRST~, FIRST+3
DATA(	IMMTYPE2+23
DFN	ACTPROB~, SCDIS~, SCDIS+7, SCSEL~, SCSEL+7, ADMIN~, ADMIN+7, FIRST~, FIRST+2, FIRST+8 , GETVSIT~, GETVSIT+5
DIR	DEVICE~, DEVICE+16*, DEVICE+18
DIS	SCDIS+3~, SCDIS+9*, SCDIS+11
DIWL	IMMTYPE2+2~, IMMTYPE2+23*, IMMTYPE2+24
DIWR	IMMTYPE2+2~, IMMTYPE2+23*
DRG	DFLTSPLY~, DFLTSPLY+6
DT	CPTMODS+3, ACTPROB+4, VISIT+3
DUZ	SAVE+40
DUZ(2	IMMCOLL+3, IMMCOLL+4
FROM	DEVICE~, DEVICE+15*, DEVICE+18
GMPINDT	ACTPROB+2~, ACTPROB+5*
GMPLUSER	SAVE+36~, SAVE+40*
GMRCIEN	ISPROSVC~, ISPROSVC+4
HLOC	SCSEL~, SCSEL+7
I	RADSRC+4, RADSRC+7, SCDIS+3~, SCDIS+8, IMMTYPE2+2~, IMMTYPE2+6, DFLTSPLY+4~, DFLTSPLY+11, DFLTSPLY+12, DFLTSPLY+13
IEN	NOTEVSTR~, NOTEVSTR+3
II	IMMTYPE2+2~, IMMTYPE2+18*
ILST	SCDIS+3~, SCDIS+8, SCDIS+11, SCDIS+12
J	IMMTYPE2+24, FIRST+1~, FIRST+9, FIRST+10*, FIRST+11
JJ	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+23
LOC	ADMIN~, ADMIN+4, ADMIN+6*, ADMIN+7
MARGIN	DEVICE~, DEVICE+17*, DEVICE+18
MODNAME	CPTMODS+2~, CPTMODS+7*, CPTMODS+8
NOTEIEN	SECVST~, SECVST+4, SECVST+10, SAVE~, SAVE+40*
OI	ADMIN~, ADMIN+4, ADMIN+5*, ADMIN+7, FIRST~, FIRST+2, FIRST+8, DFLTSPLY~, DFLTSPLY+7, DFLTSPLY+8
OK	SAVE~, SAVE+42, GETVSIT+1~, GETVSIT+9
ORCNT	FIRST+1~, FIRST+3, FIRST+6, FIRST+7, FIRST+8, FIRST+10
ORDER	FIRST~, FIRST+8
ORI	FIRST+1~, FIRST+3, FIRST+10
ORX	FIRST+1~
ORX(	FIRST+8*, FIRST+10, FIRST+11
ORZ	FIRST+1~, FIRST+3, FIRST+4, FIRST+6, FIRST+10
PAT	DFLTSPLY~, DFLTSPLY+5
PATH	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+18, IMMTYPE2+19
PCELIST	SAVE~, SAVE+39
PCELIST(1	SAVE+38
PKG	GETVSIT+1~, GETVSIT+2*, GETVSIT+9
PSOI	DFLTSPLY+4~, DFLTSPLY+9*, DFLTSPLY+10
PTDFN	CURSPE~, CURSPE+2, CURSPE+3
RESOLVE	DEFRFREQ~, DEFRFREQ+6, DEFRFREQ+8*, DEFRFREQ+9
RESULT	GETSURR~, GETSURR+3, GETSURR+4, GETSURR+5, USERDIV~, USERDIV+2!, DEFRFREQ~, DEFRFREQ+7, DEFRFREQ+9, DEFRFREQ+10 , EDITDRFR~, EDITDRFR+2, RADSRC~, CURSPE~, CURSPE+3, CURSPE+4, CPTMODS~, ACTPROB~, ACTPROB+20, NOTEVSTR~ , NOTEVSTR+4, NOTEVSTR+5, PROVDX~, PROVDX+3, ISPROSVC~, ISPROSVC+4, SECVST~, SECVST+3, SECVST+11, SCDIS~ , SCSEL~, SCSEL+8, VISIT~, IMMTYPE~, IMMTYPE+3, IMMTYPE2~, IMMTYPE2+5, IMMCOLL~, IMMCOLL+4, ADMIN~ , ADMIN+6, ADMIN+7, NUMCHAR+1~, NUMCHAR+2, NUMCHAR+3, NUMCHAR+4, DFLTSPLY~, DFLTSPLY+15, DEVICE~, DEVICE+14! , DEVICE+18
RESULT(	USERDIV+8, USERDIV+12, RADSRC+7, CPTMODS+8, SCDIS+11, IMMTYPE+9, IMMTYPE2+29*
RESULT(1	USERDIV+7, SCDIS+5*
RESULT(2	SCDIS+6, SCDIS+12
RET	SNAME~, SNAME+3, SNAME+4, SNAME+6*
S	SCSEL+5~, SCSEL+6*, SCSEL+8
SC	SCDIS+3~, SCDIS+10*, SCDIS+11
SCH	ADMIN~, ADMIN+7, FIRST+1~, FIRST+6*, FIRST+8, DFLTSPLY~, DFLTSPLY+13
SID	SNAME~, SNAME+3, SNAME+4
SIEN	SNAME+2~, SNAME+4*, SNAME+6
SPEC	CURSPE+3~*, CURSPE+4
SRC	GETVSIT+1~, GETVSIT+3*, GETVSIT+9
SRCTYPE	RADSRC~, RADSRC+5
STRING	NUMCHAR~, NUMCHAR+3
SUB	NUMCHAR~, NUMCHAR+3
TNUM	FIRST+1~, FIRST+4*, FIRST+5
TPKG	DFLTSPLY+4~, DFLTSPLY+8*, DFLTSPLY+9
U	RADSRC+5, RADSRC+7, CURSPE+4, CPTMODS+7, CPTMODS+8, ACTPROB+12, NOTEVSTR+3, NOTEVSTR+5, SCDIS+5, SCDIS+10 , SCDIS+11, FIRST+3, FIRST+10, DFLTSPLY+11, DFLTSPLY+12, DFLTSPLY+13, SAVE+38
UPD	DFLTSPLY~, DFLTSPLY+11, DFLTSPLY+12
USER	GETSURR~, GETSURR+3, GETSURR+4
VAEL	SCDIS+3~
VAEL(3	SCDIS+5
VAEL(4	SCDIS+6
VAEL(6	SCDIS+6
VAERR	SCDIS+3~
VAL	PATCH~, PATCH+1*
VIAB	SCSEL+5~, SCSEL+7
VIAB("AO"	SCSEL+8
VIAB("CV"	SCSEL+8
VIAB("EC"	SCSEL+8
VIAB("HNC"	SCSEL+8
VIAB("IR"	SCSEL+8
VIAB("MST"	SCSEL+8
VIAB("SC"	SCSEL+8
VIAB("SHAD"	SCSEL+8
VIABX	DFLTSPLY+4~, DFLTSPLY+14
VIABX("DAYS S	UPPLY" , DFLTSPLY+15
VIABX("DOSE O	RDERED" , DFLTSPLY+12*
VIABX("DRUG"	DFLTSPLY+6*
VIABX("OI"	DFLTSPLY+10*
VIABX("PATIENT"	DFLTSPLY+5*
VIABX("SCHEDULE"	DFLTSPLY+13*
VIACPT	IMMTYPE2+2~, IMMTYPE2+11!
VIACPT(	IMMTYPE2+15, IMMTYPE2+16, IMMTYPE2+18, IMMTYPE2+19
VIACPTCOD	CPTMODS~, CPTMODS+4
VIACVX	IMMTYPE2+2~
VIACVX(	IMMTYPE2+8*, IMMTYPE2+10
VIACVXS	IMMTYPE~, IMMTYPE+3, IMMTYPE2~, IMMTYPE2+5, IMMTYPE2+6
VIADATE	CPTMODS~, CPTMODS+3, CPTMODS+4, ACTPROB~, ACTPROB+4, ACTPROB+5, ACTPROB+10, VISIT~, VISIT+3*, VISIT+4
VIADC	USERDIV+3~, USERDIV+4, USERDIV+8, USERDIV+11*, USERDIV+12
VIADFN	DEFRFREQ~, DEFRFREQ+6, DEFRFREQ+9, SECVST~, SECVST+4, SECVST+5
VIADR	USERDIV+3~, USERDIV+5
VIADR(	USERDIV+7, USERDIV+8!, USERDIV+10
VIADUZ	USERDIV~, USERDIV+5, CLINUSER~, CLINUSER+3, CLINUSER+4, CLINUSER+5
VIADX	USERDIV+3~, USERDIV+6, USERDIV+7, USERDIV+8, USERDIV+9, USERDIV+10, USERDIV+12
VIAENCDT	SECVST~, SECVST+4, SECVST+5
VIAFND	IMMTYPE2+2~, IMMTYPE2+13*
VIAHLOC	SECVST~, SECVST+4, SECVST+5
VIAI	CPTMODS+2~, CPTMODS+5, CPTMODS+7, CPTMODS+8
VIAIDX	CPTMODS+2~, CPTMODS+5, CPTMODS+6, CPTMODS+7, CPTMODS+8
VIAIEN	DEFRFREQ~, DEFRFREQ+5, DEFRFREQ+9, EDITDRFR~, EDITDRFR+2, PROVDX~, PROVDX+3
VIAIMPDT	ACTPROB+2~, ACTPROB+5*, ACTPROB+10
VIALOC	SAVE~, SAVE+35*
VIAM	CPTMODS+2~, CPTMODS+4
VIAM(	CPTMODS+6, CPTMODS+7, CPTMODS+8
VIAOK	SECVST+8~, SECVST+10, SECVST+11
VIAPRCNT	ACTPROB+2~, ACTPROB+7, ACTPROB+16, ACTPROB+19
VIAPROB	ACTPROB+2~, ACTPROB+11, ACTPROB+12, ACTPROB+13*, ACTPROB+14, ACTPROB+15, ACTPROB+17
VIAPROB(	ACTPROB+14, ACTPROB+15*
VIAPROBIX	ACTPROB+2~, ACTPROB+8, ACTPROB+9, ACTPROB+10, ACTPROB+11, ACTPROB+17, ACTPROB+18
VIAPXAPI	GETVSIT+1~
VIAPXAPI("ENCOUNTER"	GETVSIT+4, GETVSIT+5, GETVSIT+6, GETVSIT+7, GETVSIT+8*
VIARES	IMMTYPE+5~, IMMTYPE+7, IMMTYPE2+2~, IMMTYPE2+9
VIARES(	IMMTYPE+8, IMMTYPE2+10
VIARR	SCDIS+3~, SCDIS+7
VIARR(	SCDIS+8
VIARY	IMMTYPE+5~, IMMTYPE2+2~
VIARY(	IMMTYPE+8, IMMTYPE+9, IMMTYPE2+28, IMMTYPE2+29
VIAUSER	CLINUSER+1~, CLINUSER+2, CLINUSER+3, CLINUSER+4, CLINUSER+5, CLINUSER+6
VIAVISIT	GETVSIT+1~, GETVSIT+9, GETVSIT+10
VIAVST	SECVST+2~, SECVST+5*, SECVST+6, SECVST+9
VIAX	RADSRC+2~, RADSRC+3, RADSRC+4, RADSRC+5, RADSRC+6, RADSRC+7, SECVST+8~, SECVST+10
VIAX(1207	SECVST+9*
VISIT	NOTEVSTR+2~, NOTEVSTR+3*, NOTEVSTR+4
VOK	SAVE+36~, SAVE+42
VST	SCSEL~, SCSEL+7
VSTR	SAVE+36~, SAVE+38*, SAVE+39, GETVSIT~, GETVSIT+4, GETVSIT+6, GETVSIT+7
WARD	FIRST~, FIRST+8
X	SCDIS+3~, SCDIS+8, SCDIS+9, SCDIS+10, SCDIS+11, IMMTYPE+5~, IMMTYPE+8, IMMTYPE+9, IMMTYPE2+2~, IMMTYPE2+3 , IMMTYPE2+6, IMMTYPE2+7, IMMTYPE2+8, IMMTYPE2+23, IMMTYPE2+29*, PATCH~, PATCH+1
X0	NOTEVSTR+2~, NOTEVSTR+3*, NOTEVSTR+5
X12	NOTEVSTR+2~, NOTEVSTR+3*, NOTEVSTR+5
XX	IMMTYPE2+2~, IMMTYPE2+10*
Y	IMMTYPE+5~, IMMTYPE+8, IMMTYPE2+2~, FIRST+1~, FIRST+9, FIRST+10, FIRST+11, FIRST+12
YY	IMMTYPE2+2~, IMMTYPE2+10*, IMMTYPE2+12, IMMTYPE2+28
ZCPT	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+17!, IMMTYPE2+23, IMMTYPE2+24, IMMTYPE2+25
ZCPT(	IMMTYPE2+25*, IMMTYPE2+27
ZCPT2	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+19, IMMTYPE2+21, IMMTYPE2+25, IMMTYPE2+26, IMMTYPE2+27
ZTDESC	SAVE+37~
ZTDTH	SAVE+37~
ZTIO	SAVE+37~
ZTRTN	SAVE+37~
ZTSAVE	SAVE+37~
ZTSK	SAVE+37~
ZTSYNC	SAVE+37~
ZXX	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+15, IMMTYPE2+16
ZYY	IMMTYPE2+2~, IMMTYPE2+13, IMMTYPE2+15, IMMTYPE2+16
ZZZ	IMMTYPE2+2~, IMMTYPE2+13*

Customize PDF page

Package: VistA Integration Adapter

Routine: VIABRPC

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 23

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: