Routine: BMCRPC4

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC (FILE,UPDATE)^DIE DT^DILF $$GET1^DIQ
Kernel	2	$$NOW^XLFDT $$ACTIVE^XUSER
Referred Care Information System	1	(SENDXM,SETMEDHX)^BMCRPC3

Package	Total	Caller Graph
Referred Care Information System	2	BMCRPC1 BMCRPC2

Entry Points

Name	Comments	DBIA/ICR reference
SETSCNRF(RSLT,PRIMREF,CALLIN,REFDATE,PATIEN,TYPE,INOROUT,ICDCAT,CPTCAT,PURPOSE,PRIORITY,TYPEEXT,HXCMNTS,BCMNTS,SCHWIDAY,ICSRP,IFSHT,IHLSM,IHSPH,IEKG,ILBRP,IPCC,IPRNL,ITUBL,ICLNT,IXRYR,IXRYFSNMDCT,SNMDPT,SNMDST,OTHRTYP)	;;insert sec. ref. data
CRENVREF(RTN,SNMDCT,SNMDPT,PATIENT,VISIT,PROBLEM,RREFIEN,EVENTDT,OPROVIDER,CLINIC,ENCPROVIDER,PARENT,OUTSIDEPROV,ORDERINGLOC,DTENTERED,ENTEREDBY)	;;Create Entry in V_Referral ; S PROVIDER="2117" ; S LOCATION="644" ; D CRENVREF^BMCRPC4(.R,"980","","541","3CCDC-CIX","","113245",DT_"."_$REPLACE($ZT($H),":",""),PROVIDER,LOCATION,PROVIDER,"","COLE,WENDY E",LOCATION,DT_"."_$REPLACE($ZT($H),":",""),"1") W @R ; RRIEN = RCIS Feferral IEN ; PRTXDATE = DATE TIME PRINTED OR TRANSMITTED FILE for example May 16, 2013 ; PRTXBY = PRINTED-TRANSMITTED BY (IEN of NEW PERSON (200) File) ; DOCTYPE = Accept Set Of Code Internal Format only C32, CP or CT ; CCDADOCID = Free text ; RSLT=IEN of entry created in 600 (TRANSITION OF CARE DOCUMENT) multiple
PROV(Y,ISPROV)	; RETURN LIST OF PROVIDERS ; D PROV^BMCRPC4(.Y,0 or 1) ZW @Y
CRTMSG(RSLT,DETAIL)	;; build result ;; DETAIL=0 ; search list , DETAIL=1 - get by Id
UPENVREF(VREFIEN,SNMDCT,ENTEREDBY,PROBLEM)	;Updating V_Referral file
GTPTELST(RSLT,PATIEN)	;BMC PATIENT ELIGIBILITY STATUS ; Takes Patient IEN and return Its Eligibility Status ; D GTPTELST^BMCRPC4(.RSLT,"5") W RSLT

External References

Name	Field # of Occurrence
SENDXM^BMCRPC3	SETSCNRF+73
SETMEDHX^BMCRPC3	SETSCNRF+76, SETSCNRF+78
$$FIND1^DIC	CRTMSG+16
FILE^DIE	UPENVREF+12
UPDATE^DIE	CRENVREF+30, SETSCNRF+71
DT^DILF	SETSCNRF+26
$$GET1^DIQ	CRTMSG+14, CRTMSG+18, CRTMSG+19, CRTMSG+20, CRTMSG+21, CRTMSG+39, CRTMSG+40, CRTMSG+44, CRTMSG+54, CRTMSG+61 , UPENVREF+6, GTPTELST+3, SETSCNRF+9, SETSCNRF+10, SETSCNRF+11
$$NOW^XLFDT	UPENVREF+10
$$ACTIVE^XUSER	PROV+8, PROV+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @R Line Location: CRENVREF+3
Function Call: WRITE	Prompt: !!,"The following error message was returned:",!! Line Location: CRENVREF+33
Function Call: WRITE	Prompt: FDAMSG1("DIERR",1,"TEXT",FDAMSG1),! Line Location: CRENVREF+34
Function Call: WRITE	Prompt: RSLT Line Location: GTPTELST+2
Routine Call	DIE Line Location: CRENVREF+30 SETSCNRF+71
Routine Call	DIC Line Location: CRTMSG+16
Routine Call	DIE Line Location: UPENVREF+12

Used in RPC

RPC Name	Call Tags
BMC PATIENT ELIGIBILITY STATUS	GTPTELST
BMC GET USERS/PROVIDERS	PROV

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNVREF - [#9000010.59]	FIND1^DIC, GET1^DIQ
^BMCREF - [#90001]	GET1^DIQ
^BMCPARM - [#90001.31]	GET1^DIQ
^BMCLPRV - [#90001.53]	GET1^DIQ
90001.6	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	CRTMSG+38
^BMCREF - [#90001]	CRTMSG+43, CRTMSG+81, SETSCNRF+21
^BMCREF("S"	SETSCNRF+15, SETSCNRF+16
^TMP($J	CRTMSG+4, CRTMSG+5!, CRTMSG+7, CRTMSG+9, CRTMSG+10, CRTMSG+11, CRTMSG+12, CRTMSG+13, CRTMSG+22, CRTMSG+23 , CRTMSG+24, CRTMSG+25, CRTMSG+26, CRTMSG+27, CRTMSG+28, CRTMSG+29, CRTMSG+30, CRTMSG+31, CRTMSG+32, CRTMSG+33 , CRTMSG+34, CRTMSG+35, CRTMSG+36, CRTMSG+37, CRTMSG+45, CRTMSG+46, CRTMSG+49, CRTMSG+50, CRTMSG+51, CRTMSG+52 , CRTMSG+53, CRTMSG+55, CRTMSG+56, CRTMSG+57, CRTMSG+58, CRTMSG+59, CRTMSG+60, CRTMSG+64, CRTMSG+65, CRTMSG+66 , CRTMSG+67, CRTMSG+68, CRTMSG+69, CRTMSG+70, CRTMSG+71, CRTMSG+72, CRTMSG+73, CRTMSG+74, CRTMSG+75, CRTMSG+76 , CRTMSG+77, CRTMSG+78, CRTMSG+79, CRTMSG+80, CRTMSG+81, CRTMSG+82, CRTMSG+83, CRTMSG+84!, PROV+4!, PROV+8* , PROV+9*, PROV+10, SETSCNRF+1!
^VA(200 - [#200]	PROV+6
^XUSEC("PROVIDER"	PROV+8

Naked Globals

Name	Field # of Occurrence
^(	PROV+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADTLINFO	SETSCNRF+2~, SETSCNRF+3, SETSCNRF+64, SETSCNRF+65
APPTDT	CRTMSG+1~, CRTMSG+25*, CRTMSG+45, CRTMSG+78
BCMNTS	SETSCNRF~, SETSCNRF+77, SETSCNRF+78
C32DATA	CRTMSG+42~, CRTMSG+44, CRTMSG+45
C32IEN	CRTMSG+42~, CRTMSG+43, CRTMSG+44
CALLIN	SETSCNRF~, SETSCNRF+38
CASEMGR	SETSCNRF+2~, SETSCNRF+9*, SETSCNRF+50
CHSELIG	CRTMSG+1~, CRTMSG+6, CRTMSG+14, CRTMSG+39*, CRTMSG+45, CRTMSG+78
CHSSTATS	CRTMSG+1~, CRTMSG+26, CRTMSG+78, SETSCNRF+2~, SETSCNRF+8, SETSCNRF+49
CLINIC	CRENVREF~
CPTCAT	SETSCNRF~, SETSCNRF+30*, SETSCNRF+41
CPTCATID	CRTMSG+2~, CRTMSG+53*, CRTMSG+79
DENLRSN	CRTMSG+1~, CRTMSG+32*, CRTMSG+45, CRTMSG+78
DETAIL	CRTMSG~, CRTMSG+41, CRTMSG+47
DT	SETSCNRF+68, SETSCNRF+69
DTENTERED	CRENVREF~, CRENVREF+26, CRENVREF+28
DUZ	SETSCNRF+6, SETSCNRF+67
DUZ(2	SETSCNRF+7
ENCPROVIDER	CRENVREF~, CRENVREF+21
ENTEREDBY	CRENVREF~, CRENVREF+27, CRENVREF+29, UPENVREF~, UPENVREF+11
ERR1	UPENVREF+1~, SETSCNRF+2~
ERR1("DIERR"	UPENVREF+13, SETSCNRF+72
EVENTDT	CRENVREF~, CRENVREF+18
FCLTYRFT	CRTMSG+1~, CRTMSG+24, CRTMSG+45, CRTMSG+63, CRTMSG+78
FDA	CRENVREF+10!, UPENVREF+1~, SETSCNRF+2~
FDA(	CRENVREF+13, CRENVREF+14, CRENVREF+15, CRENVREF+16, CRENVREF+17, CRENVREF+18, CRENVREF+19, CRENVREF+21, CRENVREF+22, CRENVREF+24 , CRENVREF+25, CRENVREF+26, CRENVREF+27, CRENVREF+28, CRENVREF+29, UPENVREF+7, UPENVREF+8, UPENVREF+9, UPENVREF+10, UPENVREF+11
FDA(90001	SETSCNRF+26, SETSCNRF+31, SETSCNRF+32, SETSCNRF+33, SETSCNRF+34, SETSCNRF+35, SETSCNRF+36, SETSCNRF+37, SETSCNRF+38, SETSCNRF+39 , SETSCNRF+40, SETSCNRF+41, SETSCNRF+42, SETSCNRF+43, SETSCNRF+44, SETSCNRF+45, SETSCNRF+46, SETSCNRF+47, SETSCNRF+48, SETSCNRF+49 , SETSCNRF+50, SETSCNRF+51, SETSCNRF+52, SETSCNRF+53, SETSCNRF+54, SETSCNRF+55, SETSCNRF+56, SETSCNRF+57, SETSCNRF+58, SETSCNRF+59 , SETSCNRF+60, SETSCNRF+61, SETSCNRF+62, SETSCNRF+63, SETSCNRF+65, SETSCNRF+66, SETSCNRF+67, SETSCNRF+68, SETSCNRF+69*
FDADA1	CRENVREF+11~, CRENVREF+31*, CRENVREF+35, CRENVREF+36
FDAIEN	SETSCNRF+70~*
FDAIEN(1	SETSCNRF+73, SETSCNRF+74, SETSCNRF+80
FDAIEN1	CRENVREF+10!
FDAIEN1(1	CRENVREF+31
FDAMSG1	CRENVREF+10!, CRENVREF+32, CRENVREF+34*, CRENVREF+35
FDAMSG1("DIERR"	CRENVREF+34
HXCMNTS	SETSCNRF~, SETSCNRF+75, SETSCNRF+76
I	PROV+3~, PROV+5, PROV+8, PROV+9*
ICDCAT	SETSCNRF~, SETSCNRF+29*, SETSCNRF+40
ICDCATID	CRTMSG+2~, CRTMSG+52*, CRTMSG+79
ICLNT	SETSCNRF~, SETSCNRF+53, SETSCNRF+64
ICSRP	SETSCNRF~, SETSCNRF+62, SETSCNRF+64
IEKG	SETSCNRF~, SETSCNRF+58, SETSCNRF+64
IEN	PROV+3~, PROV+6*, PROV+8, PROV+9
IFSHT	SETSCNRF~, SETSCNRF+56, SETSCNRF+64
IHLSM	SETSCNRF~, SETSCNRF+57, SETSCNRF+64
IHSPH	SETSCNRF~, SETSCNRF+59, SETSCNRF+64
ILBRP	SETSCNRF~, SETSCNRF+63, SETSCNRF+64
INCLCLNT	CRTMSG+48~, CRTMSG+66*, CRTMSG+80
INCLCSRP	CRTMSG+48~, CRTMSG+75*, CRTMSG+79
INCLEKG	CRTMSG+48~, CRTMSG+71*, CRTMSG+79
INCLFSHT	CRTMSG+48~, CRTMSG+69*, CRTMSG+79
INCLHLSM	CRTMSG+48~, CRTMSG+70*, CRTMSG+79
INCLHSPH	CRTMSG+48~, CRTMSG+72*, CRTMSG+79
INCLLBRP	CRTMSG+48~, CRTMSG+76*, CRTMSG+79
INCLPCC	CRTMSG+48~, CRTMSG+65*, CRTMSG+79
INCLPRNL	CRTMSG+48~, CRTMSG+67*, CRTMSG+79
INCLTUBL	CRTMSG+48~, CRTMSG+68*, CRTMSG+79
INCLXRYF	CRTMSG+48~, CRTMSG+74*, CRTMSG+80
INCLXRYR	CRTMSG+48~, CRTMSG+73*, CRTMSG+80
INDEX	CRTMSG+1~, CRTMSG+7, CRTMSG+8, CRTMSG+9, CRTMSG+10, CRTMSG+11, CRTMSG+12, CRTMSG+13, CRTMSG+22, CRTMSG+23 , CRTMSG+24, CRTMSG+25, CRTMSG+26, CRTMSG+27, CRTMSG+28, CRTMSG+29, CRTMSG+30, CRTMSG+31, CRTMSG+32, CRTMSG+33 , CRTMSG+34, CRTMSG+35, CRTMSG+36, CRTMSG+37, CRTMSG+45, CRTMSG+46, CRTMSG+49, CRTMSG+50, CRTMSG+51, CRTMSG+52 , CRTMSG+53, CRTMSG+55, CRTMSG+56, CRTMSG+57, CRTMSG+58, CRTMSG+59, CRTMSG+60, CRTMSG+64, CRTMSG+65, CRTMSG+66 , CRTMSG+67, CRTMSG+68, CRTMSG+69, CRTMSG+70, CRTMSG+71, CRTMSG+72, CRTMSG+73, CRTMSG+74, CRTMSG+75, CRTMSG+76 , CRTMSG+77, CRTMSG+78, CRTMSG+79, CRTMSG+80, CRTMSG+81, CRTMSG+82
INOROUT	SETSCNRF~, SETSCNRF+25, SETSCNRF+37
INSURNCE	CRTMSG+1~, CRTMSG+6*
IPCC	SETSCNRF~, SETSCNRF+52, SETSCNRF+64
IPRNL	SETSCNRF~, SETSCNRF+54, SETSCNRF+64
ISPROV	PROV~, PROV+2*, PROV+8, PROV+9
ITUBL	SETSCNRF~, SETSCNRF+55, SETSCNRF+64
>> IXRYF	SETSCNRF+61, SETSCNRF+64
IXRYFSNMDCT	SETSCNRF~
IXRYR	SETSCNRF~, SETSCNRF+60, SETSCNRF+64
NAME	PROV+3~, PROV+5, PROV+6, PROV+7, PROV+8, PROV+9
NREFIEN	SETSCNRF+2~, SETSCNRF+74*, SETSCNRF+76, SETSCNRF+78
OPROVIDER	CRENVREF~, CRENVREF+19
ORDERINGLOC	CRENVREF~, CRENVREF+25
OTHERTYPE	CRTMSG+2~, CRTMSG+56, CRTMSG+58, CRTMSG+61, CRTMSG+62, CRTMSG+80
OTHERTYPETEXT	CRTMSG+2~, CRTMSG+61, CRTMSG+62, CRTMSG+80
OTHRTYP	SETSCNRF~
OUT	UPENVREF+1~, SETSCNRF+2~
OUTSIDEPROV	CRENVREF~, CRENVREF+24
PARENT	CRENVREF~, CRENVREF+22
PATHRN	CRTMSG+1~, CRTMSG+6, CRTMSG+38, CRTMSG+45, CRTMSG+78
PATIEN	CRTMSG+1~, CRTMSG+6, CRTMSG+13, CRTMSG+14, CRTMSG+16, CRTMSG+36, CRTMSG+37, CRTMSG+38, CRTMSG+39, CRTMSG+40 , CRTMSG+45, CRTMSG+78, GTPTELST~, GTPTELST+3, SETSCNRF~, SETSCNRF+11, SETSCNRF+25, SETSCNRF+34, SETSCNRF+76, SETSCNRF+78
PATIENT	CRENVREF~, CRENVREF+14
PATNAME	CRTMSG+1~, CRTMSG+12*, CRTMSG+45, CRTMSG+78
PRIMPYR	SETSCNRF+2~, SETSCNRF+5*, SETSCNRF+39
PRIMREF	SETSCNRF~, SETSCNRF+10, SETSCNRF+11, SETSCNRF+21, SETSCNRF+33
PRIORITY	CRTMSG+2~, CRTMSG+35*, CRTMSG+80, SETSCNRF~, SETSCNRF+25, SETSCNRF+43
PROBLEM	CRTMSG+3~, CRTMSG+19*, CRTMSG+80, CRENVREF~, CRENVREF+16, UPENVREF~, UPENVREF+6, UPENVREF+8, UPENVREF+9
PURPOSE	SETSCNRF~, SETSCNRF+25, SETSCNRF+42
REFCNBY	CRTMSG+3~, CRTMSG+31*, CRTMSG+46, CRTMSG+81
REFCNDT	CRTMSG+3~, CRTMSG+30*, CRTMSG+46, CRTMSG+81
REFCNST	CRTMSG+3~, CRTMSG+29*, CRTMSG+46, CRTMSG+81
REFDATE	CRTMSG+1~, CRTMSG+10*, CRTMSG+45, CRTMSG+78, SETSCNRF~, SETSCNRF+25, SETSCNRF+26
REFIEN	CRTMSG+1~, CRTMSG+9*, CRTMSG+15, CRTMSG+43, CRTMSG+44, CRTMSG+45, CRTMSG+54, CRTMSG+78, CRTMSG+81
REFNMBR	CRTMSG+1~, CRTMSG+11, CRTMSG+45, CRTMSG+78, SETSCNRF+2~, SETSCNRF+10, SETSCNRF+15, SETSCNRF+16, SETSCNRF+31
REFPRPS	CRTMSG+1~, CRTMSG+28*, CRTMSG+45, CRTMSG+78
REFSTATS	SETSCNRF+2~, SETSCNRF+4*, SETSCNRF+66
REFSTATUS	CRTMSG+3~, CRTMSG+27, CRTMSG+45, CRTMSG+77, CRTMSG+81
REFTYPE	CRTMSG+2~, CRTMSG+49*, CRTMSG+55, CRTMSG+56, CRTMSG+57, CRTMSG+58, CRTMSG+59, CRTMSG+60, CRTMSG+78
RQSTFAC	CRTMSG+1~, CRTMSG+22, CRTMSG+38, SETSCNRF+2~, SETSCNRF+7, SETSCNRF+9, SETSCNRF+25, SETSCNRF+36
RQSTPRDR	SETSCNRF+2~, SETSCNRF+6*, SETSCNRF+38
RQSTPRV	CRTMSG+1~, CRTMSG+23, CRTMSG+45, CRTMSG+54, CRTMSG+78
RREFIEN	CRENVREF~, CRENVREF+17
>> RS	SETSCNRF+76, SETSCNRF+78, SETSCNRF+79
RSLT	CRTMSG~, CRTMSG+83, CRTMSG+85, UPENVREF+1~, UPENVREF+2, UPENVREF+3, UPENVREF+4, UPENVREF+5, UPENVREF+6, UPENVREF+13* , UPENVREF+14, UPENVREF+15, GTPTELST~, GTPTELST+3, SETSCNRF~, SETSCNRF+25, SETSCNRF+72, SETSCNRF+79, SETSCNRF+80, SETSCNRF+81
RTN	CRENVREF~, CRENVREF+35, CRENVREF+36, CRENVREF+37
SCHNOTES	CRTMSG+2~, CRTMSG+33*, CRTMSG+45, CRTMSG+78
SCHWIDAY	CRTMSG+48~, CRTMSG+64*, CRTMSG+79, SETSCNRF~, SETSCNRF+51
SCR	CRTMSG+2~, CRTMSG+15*, CRTMSG+16
SECNSFX	SETSCNRF+2~, SETSCNRF+19*, SETSCNRF+32
SNMDCT	CRENVREF~, CRENVREF+13, UPENVREF~, UPENVREF+4, UPENVREF+5, UPENVREF+6, UPENVREF+7
SNMDPT	CRENVREF~, SETSCNRF~
SNMDST	SETSCNRF~
SNOMEDCT	CRTMSG+2~, CRTMSG+18*, CRTMSG+80
>> SNOMEDPT	CRTMSG+20*, CRTMSG+80
SUFFIX	CRTMSG+2~, CRTMSG+34*, CRTMSG+45, CRTMSG+79
TDATE	PROV+3~
TYPE	SETSCNRF~, SETSCNRF+27*, SETSCNRF+35, SETSCNRF+44, SETSCNRF+45, SETSCNRF+46, SETSCNRF+47
TYPEEXT	CRTMSG+2~, CRTMSG+55, CRTMSG+57, CRTMSG+59, CRTMSG+60, CRTMSG+63, CRTMSG+79, SETSCNRF~, SETSCNRF+28*, SETSCNRF+44 , SETSCNRF+45, SETSCNRF+46, SETSCNRF+47
U	SETSCNRF+21
VAELIG	CRTMSG+1~, CRTMSG+6, CRTMSG+40, CRTMSG+45, CRTMSG+78
VISIT	CRTMSG+3~, CRTMSG+21*, CRTMSG+81, CRENVREF~, CRENVREF+15
VISITS	SETSCNRF+2~, SETSCNRF+21, SETSCNRF+22, SETSCNRF+25, SETSCNRF+48
VREFIEN	CRTMSG+2~, CRTMSG+16*, CRTMSG+17, CRTMSG+18, CRTMSG+19, CRTMSG+20, CRTMSG+21, UPENVREF~, UPENVREF+2, UPENVREF+3 , UPENVREF+6, UPENVREF+7, UPENVREF+8, UPENVREF+9, UPENVREF+10, UPENVREF+11
VSTNMBR	CRTMSG+2~, CRTMSG+51*, CRTMSG+78
VSTTYPE	CRTMSG+2~, CRTMSG+50*, CRTMSG+78
Y	PROV~, PROV+10, SETSCNRF+16, SETSCNRF+17
Y1	SETSCNRF+12~, SETSCNRF+14, SETSCNRF+15, SETSCNRF+18, SETSCNRF+19, SETSCNRF+24!
Y2	SETSCNRF+12~, SETSCNRF+14, SETSCNRF+17, SETSCNRF+19*, SETSCNRF+21, SETSCNRF+24!
Y3	SETSCNRF+12~, SETSCNRF+14, SETSCNRF+17, SETSCNRF+18, SETSCNRF+24!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRPC4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: