Routine: BMCRPC3

Information

BMCRPC3 ; IHS/CAS/AU - GUI-REFERRED CARE INFO SYSTEM (3/4);

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Referred Care Information System	5	PALRT1^BMCALERT DIE^BMCFMC (EXT,MPER,MSGGRP,MSGPRV,SND)^BMCMM CRENSCCT^BMCRPC3 $$SETWP^BMCRPC5
VA Fileman	5	NOW^%DTC LIST^DIC (FILE,UPDATE)^DIE DT^DILF ($$GET1,GETS)^DIQ
IHS Patient	1	($$MCD,$$MCR,$$PI)^AUPNPAT
IHS Standard Terminology	1	SUBLST^BSTSAPI

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Referred Care Information System	3	BMCRPC2 BMCRPC3 BMCRPC4

Entry Points

Name	Comments	DBIA/ICR reference
SENDALRT(BMCRIEN)
SENDXM(BMCRIEN,BMCMODE)
ADDC32LG(RSLT,REFIEN,USERIEN,RRINTDT)	;;Add log entry for C32 print in 600 (C32 PRINTED) multiple of 90001(RCIS REFERRAL) file
SETMEDHX(RSLT,CMNTSX,PATIEN,REFIEN,TYPE)
UPDTSTRF(RSLT,REFIEN,STATUS)	;;Update Status Of Referral against Ref IEN return 0 or 1 ; Not in Use
STATIC(PATIEN,REFIEN)	;;EP - STORE STATIC DATA OF REFERRAL
GTREFTYP(RSLT)	;;Get Purpose Of Referrals
GTTMPLST(RSLT)	;; Get RCIS Template List from RCIS ROUTINE REFERRAL DEF
UPCNRINF(RSLT,REFIEN,CONSULTBY,CONSULTDT,CONSULTSTATUS)	;;Updates new Multiple Consulted By ; S REFIEN="113248" ; S CONSULTBY="3039" ; GDIT/HS/BEE 05/08/2018 - BMC4.013 - Time is passed in and required ; OLD: S CONSULTDT="8/12/2013" ; S CONSULTDT="8/12/2013@10:30" ; S CONSULTSTATUS="R" ; D UPCNRINF^BMCRPC3(.R,REFIEN,CONSULTBY,CONSULTDT,CONSULTSTATUS) W R ; S ^TMP("FAR",12)=$G(REFIEN)_"^"_$G(CONSULTBY)_"^"_$G(CONSULTDT)_"^"_$G(CONSULTSTATUS)
CRENSCCT(RSLT,RRIEN,TERM)	; Create entry in 2300 (SNOMED CLOSED CLINICAL TERM) multiple of RCIS REFERRAL (90001) file ; D CRENSCCT^BMCRPC3(.R,"113255","371530004") W @R ; RRIEN = RCIS Feferral IEN ; TERM = Free text ; RSLT=IEN of entry created in 2300 (SNOMED CLOSED CLINICAL TERM) multiple
GETTMPLT(RSLT,TMPLTIEN)	;; Get Template Detail ; D GETTMPLT^BMCRPC3(.R,8) W R
CRENSCT(RSLT,RRIEN,TERM)	; Create entry in 2200 (SNOMED CLINICAL TERM) multiple of RCIS REFERRAL (90001) file ; D CRENSCT^BMCRPC3(.R,"113255","371530004") W @R ; RRIEN = RCIS Feferral IEN ; TERM = Free text ; RSLT=IEN of entry created in 2200 (SNOMED CLINICAL TERM) multiple

External References

Name	Field # of Occurrence
NOW^%DTC	ADDC32LG+7
$$MCD^AUPNPAT	STATIC+22
$$MCR^AUPNPAT	STATIC+21
$$PI^AUPNPAT	STATIC+23
PALRT1^BMCALERT	SENDALRT+9
DIE^BMCFMC	STATIC+25
EXT^BMCMM	SENDXM+18
MPER^BMCMM	SENDXM+16
MSGGRP^BMCMM	SENDXM+14
MSGPRV^BMCMM	SENDXM+16
SND^BMCMM	SENDXM+17
CRENSCCT^BMCRPC3	UPCNRINF+25
$$SETWP^BMCRPC5	SETMEDHX+18
SUBLST^BSTSAPI	GTREFTYP+13
LIST^DIC	GTTMPLST+3
FILE^DIE	UPDTSTRF+7, UPCNRINF+23
UPDATE^DIE	ADDC32LG+11, SETMEDHX+11, CRENSCCT+9, CRENSCT+9
DT^DILF	ADDC32LG+6, UPCNRINF+19
$$GET1^DIQ	GETTMPLT+10, GETTMPLT+12, GETTMPLT+14, SENDALRT+4, SENDXM+3, SENDXM+5, UPCNRINF+12, UPCNRINF+13, UPCNRINF+14, UPCNRINF+15
GETS^DIQ	GETTMPLT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: R Line Location: GETTMPLT+1
Function Call: WRITE	Prompt: R Line Location: UPCNRINF+7
Function Call: WRITE	Prompt: @R Line Location: CRENSCCT+1
Function Call: WRITE	Prompt: !!,"The following error message was returned:",!! Line Location: CRENSCCT+12
Function Call: WRITE	Prompt: FDAMSG("DIERR",1,"TEXT",FDAMSG),! Line Location: CRENSCCT+13
Function Call: WRITE	Prompt: @R Line Location: CRENSCT+1
Function Call: WRITE	Prompt: !!,"The following error message was returned:",!! Line Location: CRENSCT+12
Function Call: WRITE	Prompt: FDAMSG("DIERR",1,"TEXT",FDAMSG),! Line Location: CRENSCT+13
Routine Call	DIC Line Location: GTTMPLST+3
Routine Call	DIE Line Location: ADDC32LG+11 SETMEDHX+11 CRENSCCT+9 CRENSCT+9
Routine Call	DIE Line Location: UPDTSTRF+7 UPCNRINF+23

RPC Name	Call Tags
BMC GET RCIS TEMPLATE LIST	GTTMPLST
BMC GET RCIS TEMPLATE DETAIL	GETTMPLT
BMC ADD C32 PRINT LOG	ADDC32LG
BMC GET PURPOSE OF REF API	GTREFTYP
BMC CONSULTATION STATUS UPDATE	UPCNRINF
BMC REFERRAL STATUS UPDATE	UPDTSTRF

FileNo	Call Tags
^BMCREF - [#90001]	Classic Fileman Calls, GET1^DIQ
^BMCRTNRF - [#90001.32]	GETS^DIQ, LIST^DIC
^BMCLPRV - [#90001.53]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ
^AUTTVNDR - [#9999999.11]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	STATIC+10, STATIC+13
^AUTTLOC - [#9999999.06]	STATIC+12
^AUTTTRI - [#9999999.03]	STATIC+15
^AUTTVNDR - [#9999999.11]	STATIC+18, STATIC+19
^BMCMSG("C"	SENDXM+7
^BMCPARM - [#90001.31]	SENDALRT+9
^BMCREF - [#90001]	STATIC+2
^DIC(4 - [#4]	STATIC+11
^DPT - [#2]	SENDALRT+5, SENDXM+4, STATIC+3
^TMP($J	GTREFTYP+3!, GTREFTYP+16, GTREFTYP+18, GTREFTYP+19
^XMB(3.8 - [#3.8]	SENDXM+9, SENDXM+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADDC32LG+8, STATIC+1~, STATIC+8, STATIC+9, STATIC+10, STATIC+11, STATIC+12, STATIC+16, STATIC+17, STATIC+18 , STATIC+19, STATIC+20*, STATIC+21, STATIC+22, STATIC+23
ADTLINFO	UPCNRINF+9~
BCMNTS	GETTMPLT+4~, GETTMPLT+28, GETTMPLT+31, GETTMPLT+33*, GETTMPLT+35
BMCDFN	SENDALRT+4, SENDALRT+5, SENDXM+3, SENDXM+4, SENDXM+7!, SENDXM+19!
BMCDTYPE	SENDXM+5*, SENDXM+7!, SENDXM+19!
BMCGRP	SENDXM+2~, SENDXM+8, SENDXM+9, SENDXM+10, SENDXM+11
BMCGRP(	SENDXM+11*, SENDXM+13
BMCGRP1	SENDXM+2~, SENDXM+10*, SENDXM+11
BMCGRPS	SENDXM+2~
BMCGRPS(	SENDXM+13*
BMCMODE	SENDXM~, SENDXM+6, SENDXM+7!, SENDXM+15, SENDXM+19!
BMCRDATE	SENDXM+3*, SENDXM+7!, SENDXM+19!
BMCREC	SENDXM+7!, SENDXM+19!, STATIC+1~, STATIC+2*, STATIC+8, STATIC+16, STATIC+20
BMCREC("PAT N	AME" , SENDALRT+5, SENDXM+4
BMCREC("REF D	ATE" , SENDXM+5*
BMCRHDR	SENDALRT+2~, SENDALRT+7*
BMCRIEN	SENDALRT~, SENDALRT+3, SENDALRT+4, SENDALRT+8, SENDXM~, SENDXM+3, SENDXM+5, SENDXM+7!, SENDXM+19!
BMCRNUMB	SENDXM+5*, SENDXM+7!, SENDXM+19!
CMNTSX	SETMEDHX~, SETMEDHX+3, SETMEDHX+18
CONSULTBY	UPCNRINF~, UPCNRINF+20
CONSULTDT	UPCNRINF~, UPCNRINF+19, UPCNRINF+21
CONSULTSTATUS	UPCNRINF~, UPCNRINF+14, UPCNRINF+22
CPTCAT	GETTMPLT+2~, GETTMPLT+17*, GETTMPLT+35
DA	STATIC+24*, STATIC+26!
DIE	STATIC+24*, STATIC+26!
DR	STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+10, STATIC+11, STATIC+12, STATIC+14, STATIC+15, STATIC+18 , STATIC+19, STATIC+21, STATIC+22, STATIC+23, STATIC+26!
DT	SETMEDHX+6
DUZ	ADDC32LG+3, ADDC32LG+4, SETMEDHX+9
DUZ(2	SENDALRT+9
ERR1	ADDC32LG+2~, SETMEDHX+4~, UPCNRINF+9~
ERR1("DIERR"	ADDC32LG+12, SETMEDHX+12, UPDTSTRF+8, UPCNRINF+24
ERR2	SETMEDHX+4~
FCLTYRFT	GETTMPLT+2~, GETTMPLT+5, GETTMPLT+10, GETTMPLT+12, GETTMPLT+13, GETTMPLT+14*, GETTMPLT+35
FDA	ADDC32LG+2~, SETMEDHX+4~, UPCNRINF+9~, CRENSCCT+5!, CRENSCT+5!
FDA(	ADDC32LG+9, ADDC32LG+10, SETMEDHX+6, SETMEDHX+7, SETMEDHX+8, SETMEDHX+9, SETMEDHX+10*
FDA(42	CRENSCCT+8, CRENSCT+8
FDA(90001	UPDTSTRF+6, UPCNRINF+20, UPCNRINF+21, UPCNRINF+22
FDADA	CRENSCCT+6~, CRENSCCT+10, CRENSCCT+14, CRENSCCT+15, CRENSCT+6~, CRENSCT+10, CRENSCT+14, CRENSCT+15
FDAIEN	ADDC32LG+2~, CRENSCCT+5!, CRENSCT+5!
FDAIEN(1	ADDC32LG+13, CRENSCCT+10, CRENSCT+10
FDAIENP	SETMEDHX+4~
FDAIENP(1	SETMEDHX+18, SETMEDHX+20
FDAMSG	CRENSCCT+5!, CRENSCCT+11, CRENSCCT+13, CRENSCCT+14, CRENSCT+5!, CRENSCT+11, CRENSCT+13, CRENSCT+14
FDAMSG("DIERR"	CRENSCCT+13, CRENSCT+13
HXCMNTS	GETTMPLT+2~, GETTMPLT+5, GETTMPLT+22, GETTMPLT+25, GETTMPLT+27, GETTMPLT+35
I	SENDXM+2~, SENDXM+13*
ICDCAT	GETTMPLT+2~, GETTMPLT+16*, GETTMPLT+35
INDEX	GTTMPLST+1~, GTTMPLST+4, GTTMPLST+5, GTTMPLST+6, GTTMPLST+7, GETTMPLT+2~, GETTMPLT+23, GETTMPLT+24, GETTMPLT+25, GETTMPLT+26 , GETTMPLT+29, GETTMPLT+30, GETTMPLT+31, GETTMPLT+32, SETMEDHX+4~, SETMEDHX+5, GTREFTYP+12~, GTREFTYP+14, GTREFTYP+15*
INOROUT	GETTMPLT+2~, GETTMPLT+15*, GETTMPLT+35
MSG	UPCNRINF+9~, UPCNRINF+15*, UPCNRINF+16
ND	GTREFTYP+12~, GTREFTYP+14*
NOTESCHD	GETTMPLT+2~, GETTMPLT+21*, GETTMPLT+35
OTHERTYPE	GETTMPLT+2~, GETTMPLT+10, GETTMPLT+12, GETTMPLT+35
OTHERTYPETEXT	GETTMPLT+2~, GETTMPLT+10, GETTMPLT+12, GETTMPLT+35
OUT	GTTMPLST+1~, GETTMPLT+2~, GETTMPLT+7, UPCNRINF+9~
OUT(	GETTMPLT+8, GETTMPLT+10, GETTMPLT+12, GETTMPLT+14, GETTMPLT+15, GETTMPLT+16, GETTMPLT+17, GETTMPLT+18, GETTMPLT+19, GETTMPLT+20 , GETTMPLT+21, GETTMPLT+23, GETTMPLT+25, GETTMPLT+26, GETTMPLT+29, GETTMPLT+31, GETTMPLT+32, GETTMPLT+34
OUT("DILIST"	GTTMPLST+4, GTTMPLST+6, GTTMPLST+7
PATIEN	STATIC~, STATIC+3, STATIC+10, STATIC+13, STATIC+21, STATIC+22, STATIC+23, SETMEDHX~, SETMEDHX+3, SETMEDHX+7 , UPCNRINF+9~
PRIORITY	GETTMPLT+2~, GETTMPLT+19*, GETTMPLT+35
PURPOSE	GETTMPLT+2~, GETTMPLT+18*, GETTMPLT+35
REFIEN	ADDC32LG~, ADDC32LG+1, ADDC32LG+9, ADDC32LG+10, STATIC~, STATIC+2, STATIC+24, SETMEDHX~, SETMEDHX+3, SETMEDHX+8 , UPDTSTRF~, UPDTSTRF+3, UPDTSTRF+5, UPDTSTRF+6, UPCNRINF~, UPCNRINF+10, UPCNRINF+11, UPCNRINF+12, UPCNRINF+13, UPCNRINF+14 , UPCNRINF+15, UPCNRINF+20, UPCNRINF+21, UPCNRINF+22, UPCNRINF+25
RET	SETMEDHX+4~, SETMEDHX+18*, SETMEDHX+19
RRIEN	CRENSCCT~, CRENSCCT+8, CRENSCT~, CRENSCT+8
RRINTDT	ADDC32LG~, ADDC32LG+6, ADDC32LG+8*, ADDC32LG+9
RSLT	GTTMPLST~, GTTMPLST+2, GTTMPLST+6, GTTMPLST+8, GTTMPLST+9, GETTMPLT~, GETTMPLT+35, GETTMPLT+36, ADDC32LG~, ADDC32LG+1* , ADDC32LG+5, ADDC32LG+6, ADDC32LG+12, ADDC32LG+13, SETMEDHX~, SETMEDHX+3, SETMEDHX+12, SETMEDHX+19, SETMEDHX+20, SETMEDHX+21 , GTREFTYP~, GTREFTYP+19, UPDTSTRF~, UPDTSTRF+3, UPDTSTRF+4, UPDTSTRF+5, UPDTSTRF+8, UPDTSTRF+10, UPCNRINF~, UPCNRINF+10* , UPCNRINF+11, UPCNRINF+16, UPCNRINF+19, UPCNRINF+24, UPCNRINF+26, CRENSCCT~, CRENSCCT+14, CRENSCCT+15, CRENSCT~, CRENSCT+14 , CRENSCT+15*
STATUS	UPDTSTRF~, UPDTSTRF+4, UPDTSTRF+6
TERM	CRENSCCT~, CRENSCCT+8, CRENSCT~, CRENSCT+8
TMP	GTREFTYP+12~, GTREFTYP+15*, GTREFTYP+16
TMP(	GTREFTYP+14*, GTREFTYP+15
TMPLTIEN	GETTMPLT~, GETTMPLT+6, GETTMPLT+8, GETTMPLT+10, GETTMPLT+12, GETTMPLT+14, GETTMPLT+15, GETTMPLT+16, GETTMPLT+17, GETTMPLT+18 , GETTMPLT+19, GETTMPLT+20, GETTMPLT+21, GETTMPLT+23, GETTMPLT+25, GETTMPLT+26, GETTMPLT+29, GETTMPLT+31, GETTMPLT+32, GETTMPLT+34
TRM	GTREFTYP+12~, GTREFTYP+14*
TYPE	GETTMPLT+2~, GETTMPLT+8*, GETTMPLT+10, GETTMPLT+12, GETTMPLT+13, GETTMPLT+14, GETTMPLT+35, SETMEDHX~, SETMEDHX+10
TYPEEXT	GETTMPLT+2~, GETTMPLT+5, GETTMPLT+10, GETTMPLT+12, GETTMPLT+13, GETTMPLT+14*, GETTMPLT+35
U	SENDALRT+5, SENDALRT+9, SENDXM+4, SENDXM+11, SENDXM+13, STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8 , STATIC+10, STATIC+11, STATIC+12, STATIC+14, STATIC+15, STATIC+16, STATIC+18, STATIC+19, STATIC+20, GTREFTYP+14
USERIEN	ADDC32LG~, ADDC32LG+3, ADDC32LG+4, ADDC32LG+5, ADDC32LG+10
VAR	GTREFTYP+12~
VAR(	GTREFTYP+14
VISITS	GETTMPLT+2~, GETTMPLT+20*, GETTMPLT+35
VREFSNOMED	GETTMPLT+2~, GETTMPLT+34*, GETTMPLT+35
WP	SETMEDHX+4~
XMB	SENDXM+12!
XMY	SENDXM+12!
XMY("G."	SENDXM+13*
XQA	SENDALRT+6~
XQADATA	SENDALRT+2~, SENDALRT+8*
Y	SENDXM+8, SENDXM+11, SENDXM+13, STATIC+1~, STATIC+3, STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+13 , STATIC+14, STATIC+15

Customize PDF page

Package: Referred Care Information System

Routine: BMCRPC3

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: