Routine: BMCAPIS

Information

BMCAPIS ; IHS/CAS/FS - REFERRED CARE INFO SYSTEM API FOR MU2 ;

Source Information

Source file <BMCAPIS.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	4	^%DT LIST^DIC UPDATE^DIE $$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Electronic Health Record	1	BEHOCCD

Entry Points

Name	Comments	DBIA/ICR reference
GETREFFV(RSLT,VISITS)	; search referral w.r.t Visit
X2FM(X)
CRENTOCD(RSLT,RRIEN,PRTXDATE,PRTXBY,DOCTYPE,CCDADOCID)	; Create entry in 600 (TRANSITION OF CARE DOCUMENT) multiple of RCIS REFERRAL (90001) file ; D CRENTOCD^BMCAPIS(.R,"4","JAN 11, 2013","4","C32","Done") 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
CRENVREF(RSLT,SNOMEDCT,SNOMEDPT,PATIENT,VISIT,PROBLEM,RREFIEN,EVENTDT,OPROVIDER,CLINIC,ENCPROVIDER,PARENT,OUTSIDEPROV,ORDERINGLOC,ENTEREDBY)	;Create Entry in V Referral ; D CRENTOCD^BMCAPIS(.R,"4","JAN 11, 2013","4","C32","Done") 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

External References

Name	Field # of Occurrence
^%DT	X2FM+1
LIST^DIC	GETREFFV+14
UPDATE^DIE	CRENTOCD+15, CRENVREF+26
$$GET1^DIQ	GETREFFV+22, GETREFFV+23, GETREFFV+24, GETREFFV+25, GETREFFV+28, GETREFFV+29, GETREFFV+30, GETREFFV+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @R Line Location: CRENTOCD+1
Function Call: WRITE	Prompt: !!,"The following error message was returned:",!! Line Location: CRENTOCD+18
Function Call: WRITE	Prompt: FDAMSG("DIERR",1,"TEXT",FDAMSG),! Line Location: CRENTOCD+19
Function Call: WRITE	Prompt: @R Line Location: CRENVREF+1
Function Call: WRITE	Prompt: !!,"The following error message was returned:",!! Line Location: CRENVREF+29
Function Call: WRITE	Prompt: FDAMSG("DIERR",1,"TEXT",FDAMSG),! Line Location: CRENVREF+30
Routine Call	DIC Line Location: GETREFFV+14
Routine Call	DIE Line Location: CRENTOCD+15 CRENVREF+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVREF - [#9000010.59]	LIST^DIC
^BMCREF - [#90001]	GET1^DIQ
^AUTTVNDR - [#9999999.11]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BMCDATA"	GETREFFV+6!, GETREFFV+32*, GETREFFV+36

Label References

Name	Line Occurrences
$$X2FM	CRENTOCD+11, CRENVREF+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CRENVREF+24
%DT	X2FM+1~*
>> %H	CRENVREF+23*
BMCMSG	GETREFFV+6!
BMCOUT	GETREFFV+6!
BMCOUT("DILIST"	GETREFFV+15, GETREFFV+17, GETREFFV+18, GETREFFV+19, GETREFFV+34
CCDADOCID	CRENTOCD~, CRENTOCD+14
CLINIC	CRENVREF~, CRENVREF+18
DOCTYPE	CRENTOCD~, CRENTOCD+13
ENCPROVIDER	CRENVREF~, CRENVREF+19
ENTEREDBY	CRENVREF~, CRENVREF+25
EVENTDT	CRENVREF~, CRENVREF+16
FDA	CRENTOCD+8!, CRENVREF+8!
FDA(	CRENVREF+11, CRENVREF+12, CRENVREF+13, CRENVREF+14, CRENVREF+15, CRENVREF+16, CRENVREF+17, CRENVREF+18, CRENVREF+19, CRENVREF+20 , CRENVREF+21, CRENVREF+22, CRENVREF+24, CRENVREF+25
FDA(42	CRENTOCD+11, CRENTOCD+12, CRENTOCD+13, CRENTOCD+14
FDADA	CRENTOCD+9~, CRENTOCD+16, CRENTOCD+20, CRENTOCD+21, CRENVREF+9~, CRENVREF+27, CRENVREF+31, CRENVREF+32
FDAIEN	CRENTOCD+8!, CRENVREF+8!
FDAIEN(1	CRENTOCD+16, CRENVREF+27
FDAMSG	CRENTOCD+8!, CRENTOCD+17, CRENTOCD+19, CRENTOCD+20, CRENVREF+8!, CRENVREF+28, CRENVREF+30, CRENVREF+31
FDAMSG("DIERR"	CRENTOCD+19, CRENVREF+30
INDEX	GETREFFV+7~, GETREFFV+15, GETREFFV+16, GETREFFV+17, GETREFFV+18, GETREFFV+19, GETREFFV+32, GETREFFV+34
INDX	GETREFFV+7~, GETREFFV+9~, GETREFFV+10, GETREFFV+11, GETREFFV+12, GETREFFV+32, GETREFFV+35
KBTOUT	GETREFFV+6!
OPROVIDER	CRENVREF~, CRENVREF+17
ORDERINGLOC	CRENVREF~, CRENVREF+22
OUTSIDEPROV	CRENVREF~, CRENVREF+21
PARENT	CRENVREF~, CRENVREF+20
PATIENT	CRENVREF~, CRENVREF+12
PROBLEM	CRENVREF~, CRENVREF+14
PRTXBY	CRENTOCD~, CRENTOCD+12
PRTXDATE	CRENTOCD~, CRENTOCD+11
RREFIEN	GETREFFV+7~, GETREFFV+18, GETREFFV+21, GETREFFV+22, GETREFFV+23, GETREFFV+24, GETREFFV+25, GETREFFV+32, GETREFFV+33, CRENVREF~ , CRENVREF+15
RRIEN	CRENTOCD~, CRENTOCD+11, CRENTOCD+12, CRENTOCD+13, CRENTOCD+14
>> RRNUMBER	GETREFFV+25*, GETREFFV+32
RRPURPOSE	GETREFFV+7~, GETREFFV+22, GETREFFV+32, GETREFFV+33
RRSTATUS	GETREFFV+7~, GETREFFV+23, GETREFFV+32, GETREFFV+33
RRVNDRIEN	GETREFFV+7~, GETREFFV+24, GETREFFV+27, GETREFFV+28, GETREFFV+29, GETREFFV+30, GETREFFV+31, GETREFFV+33
RRVNDRNM	GETREFFV+7~, GETREFFV+28, GETREFFV+32, GETREFFV+33
RSLT	GETREFFV~, GETREFFV+36, CRENTOCD~, CRENTOCD+20, CRENTOCD+21, CRENVREF~, CRENVREF+31, CRENVREF+32*
SCR	GETREFFV+6!, GETREFFV+13*, GETREFFV+14
SNOMEDCT	CRENVREF~, CRENVREF+11
SNOMEDPT	CRENVREF~
U	GETREFFV+9~
VISIT	GETREFFV+12*, GETREFFV+32, CRENVREF~, CRENVREF+13
VISITS	GETREFFV~, GETREFFV+8
VISITS(	GETREFFV+12, GETREFFV+35
VISITS(""	GETREFFV+10
VNDEMAIL	GETREFFV+7~, GETREFFV+31, GETREFFV+32, GETREFFV+33
VNDFAX	GETREFFV+7~, GETREFFV+29, GETREFFV+32, GETREFFV+33
VNDPARYN	GETREFFV+7~, GETREFFV+30, GETREFFV+32, GETREFFV+33
VPATIEN	GETREFFV+7~, GETREFFV+19, GETREFFV+32, GETREFFV+33
VREFIEN	GETREFFV+7~, GETREFFV+17, GETREFFV+33
X	X2FM~
>> Y	X2FM+2

Customize PDF page

Package: Referred Care Information System

Routine: BMCAPIS

Call Graph Total: 4

Caller Graph Total: 1