Routine: BMCMM

Information

BMCMM ; IHS/OIT/FCJ - RCIS - SEND MAILMAN MESSAGE ; [ 09/12/2006 11:50 AM ]

Source Information

Source file <BMCMM.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	5	DD^%DT NOW^%DTC ^DIC ^DIE ^DIR
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
MailMan	1	EN^XMB
Referred Care Information System	1	($$AVDOS,$$FACREF)^BMCRLU

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Referred Care Information System	3	BMCADD1 BMCMOD BMCRPC3

Entry Points

Name	Comments	DBIA/ICR reference
MGRP	;SELECT MAIL GROUPS TO SEND MESSAGE TO
ENMM	;EP;MESSAGE for NEW REF AND MODIFICATIONS
MSGGRP	;EP CALL BY BMCAPIA1;GROUP MESSAGE
APER	;ADD PERSON MESSAGE WAS SENT TO
SND	;SEND MESSAGE
COMMENTS	;IHS/ITSC/FCJ ADDED BO COM FR RCIS COMMENTS FILE,LIFO DISPLAY
ADD	;IF MESSAGE SENT ADD TO RCIS MESSAGE FILE
MSGPRV	;PRIM PROV AND REF PHY MESSAGE
AGRP	;ADD GROUPS MESSAGE WAS SENT TO
MPER	;SETS PRIM PROV AND REF PROV TO AUTO SEND MESSAGE TO
MSG	;TEST FOR EXISTING MESSAGES ALREADY SENT
EXT

External References

Name	Field # of Occurrence
DD^%DT	MSG+5
NOW^%DTC	ADD+2
$$DOB^AUPNPAT	MSGPRV+11
$$AVDOS^BMCRLU	MSGGRP+15, MSGPRV+13
$$FACREF^BMCRLU	MSGGRP+11, MSGPRV+12
^DIC	ADD+4, AGRP+3, APER+3
^DIE	AGRP+6, APER+6
^DIR	MSG+15, MGRP+10
$$VAL^XBDIQ1	MSGGRP+10, MSGGRP+12, MSGGRP+13, MSGGRP+18, MSGPRV+14, COMMENTS+10
$$FMTE^XLFDT	COMMENTS+10
EN^XMB	SND+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"DATE",?25,"SENT BY",?55,"GROUP/PROV" Line Location: MSG+3
Function Call: WRITE	Prompt: !!,"A Message has NOT been sent for this referral." Line Location: MSG+13
Function Call: WRITE	Prompt: !,"THERE ARE NOT ANY RCIS MAIL GROUPS SET UP.",!,"If you would like to set up a mail group, use Mail Groups Option under the",!,"RCIS Management Menu." Line Location: MGRP+6
Function Call: WRITE	Prompt: !?5,I_". "_$P(BMCGRP(I),U) Line Location: MGRP+7
Function Call: WRITE	Prompt: !?5,"*MESSAGE WAS NOT SENT*" Line Location: MGRP+10
Function Call: WRITE	Prompt: !,"Primary Care Provider and Referring Provider are not definned.",!?5,"*MESSAGE WAS NOT SENT*" Line Location: MPER+4
Function Call: WRITE	Prompt: !?5,"*ERROR: NO MESSAGE SENT*" Line Location: SND+3
Routine Call	DIE Line Location: AGRP+6 APER+6
Routine Call	DIC Line Location: ADD+4 AGRP+3 APER+3
Routine Call	DIR Line Location: MSG+15 MGRP+10

FileNo	Call Tags
^BMCMSG - [#90001.57]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	MPER+1, MSGPRV+8
^BMCCOM - [#90001.03]	COMMENTS+5, COMMENTS+8, COMMENTS+10, COMMENTS+12, COMMENTS+14
^BMCCOM("AD"	COMMENTS+2, COMMENTS+4
^BMCMSG - [#90001.57]	MSG+5, MSG+6, MSG+7, MSG+8, MSG+10, MSG+11, AGRP+2, AGRP+7, APER+2, APER+7
^BMCMSG("C"	MSG+1, MSG+4
^BMCPARM - [#90001.31]	MSGGRP+6
^BMCREF - [#90001]	MPER+2, MSGGRP+1, MSGGRP+16, MSGPRV+1, MSGPRV+6, MSGPRV+7
^VA(200 - [#200]	MSG+6, MSG+12, MSGGRP+17, MSGPRV+10
^XMB(3.8 - [#3.8]	MSG+9, MGRP+3, MGRP+4
^XTMP("BMCMSG"	COMMENTS+10, COMMENTS+14, EXT+2!

Name	Line Occurrences
APER	ADD+5
COMMENTS	MSGGRP+19, MSGPRV+15
EXT	MSG+15, MSG+19, MGRP+10, MPER+4, SND+4
MGRP	MSG+17
MPER	MSG+16
MSGGRP	MSG+17
MSGPRV	MSG+16
SND	MSG+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADD+2
>> BMCAPIA	SND+4, SND+6
BMCCTYP	COMMENTS+5*, COMMENTS+6, COMMENTS+7, COMMENTS+9, EXT+1!
>> BMCDFN	ENMM+2, MPER+1, MSGPRV+8, MSGPRV+11
>> BMCDTYPE	MSG+16, COMMENTS+6, ADD+5
BMCGRP	MSG+7, MSG+8, MGRP+2, MGRP+3, MGRP+4, MGRP+5, AGRP+4, AGRP+5, EXT+1!
BMCGRP(	MGRP+5*, MGRP+7, MGRP+12
BMCGRP1	MSG+8, MSG+9, MGRP+4, MGRP+5, EXT+1!
BMCGRPS	EXT+1!
BMCGRPS(	MGRP+12*, AGRP+4
>> BMCHRN	MSGPRV+1, MSGPRV+8, MSGPRV+9
BMCL	COMMENTS+3, COMMENTS+4, COMMENTS+5, COMMENTS+8, COMMENTS+10, COMMENTS+12, COMMENTS+14, EXT+1!
BMCL1	COMMENTS+11, COMMENTS+12, COMMENTS+14, EXT+1!
BMCL2	COMMENTS+3, COMMENTS+10, COMMENTS+13, COMMENTS+14, COMMENTS+15*, EXT+1!
BMCLDT	EXT+1!
>> BMCMODE	MSG+16, COMMENTS+6, COMMENTS+7, ADD+5
BMCMSG	MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+10, MSG+11, EXT+1!
BMCPER	MSG+10, MSG+11, MPER+5, MPER+6, APER+4*, APER+5, EXT+2!
BMCPER1	MSG+11*, MSG+12, EXT+2!
>> BMCPPRV	MPER+1*, MPER+4, MPER+5, MSGPRV+10, APER+4
>> BMCRDATE	ENMM+3
>> BMCREC("PAT N	AME" , MSGGRP+5, MSGPRV+5
>> BMCREC("REF D	ATE" , MSGGRP+7
>> BMCRIEN	MSG+1, MSG+4, MPER+2, MSGGRP+1, MSGGRP+10, MSGGRP+11, MSGGRP+12, MSGGRP+13, MSGGRP+15, MSGGRP+16 , MSGGRP+18, MSGPRV+1, MSGPRV+6, MSGPRV+7, MSGPRV+12, MSGPRV+13, MSGPRV+14, COMMENTS+2, COMMENTS+4, ADD+3
>> BMCRNUMB	MSGGRP+8, MSGPRV+9, ADD+3
>> BMCRPRV	MPER+2*, MPER+4, MPER+5, APER+4
>> BMCSP	MSGPRV+1, MSGPRV+2
BMCTMP	EXT+1!
DA	ADD+4, AGRP+1, AGRP+7, AGRP+8, APER+1, APER+7, APER+8*, EXT!
DA(1	AGRP+1, AGRP+2, AGRP+7, APER+1, APER+2, APER+7
DIC	ENMM+1~, ADD+1, AGRP+1, APER+1*, EXT!
DIC("DR"	ADD+3*
DIC(0	ADD+1*
DIE	ADD+1, AGRP+1, APER+1*, EXT!
DIR	MSG+15!, EXT!
DIR("A"	MSG+14, MGRP+8
DIR("B"	MSG+14*
DIR(0	MSG+14, MGRP+2, MGRP+9*
>> DIRUT	MSG+15, MGRP+10
DR	AGRP+5, APER+5, EXT!
DUZ	ADD+3
DUZ(2	MSGGRP+6
>> I	MGRP+7, MGRP+12, MSGPRV+2, MSGPRV+7, MSGPRV+8, COMMENTS+9*, COMMENTS+10
U	MSG+5, MSG+6, MSG+8, MSG+9, MSG+11, MSG+12, MGRP+5, MGRP+7, MGRP+12, MPER+1 , MPER+2, MSGGRP+1, MSGGRP+6, MSGGRP+16, MSGGRP+17, MSGPRV+1, MSGPRV+6, MSGPRV+7, MSGPRV+8, MSGPRV+10 , COMMENTS+5, COMMENTS+10, AGRP+7, APER+7
>> X	ADD+2*
XMB	MGRP+11!, MPER+3!, MSGGRP+4, MSGPRV+4, SND+4, EXT!
XMB(	MSGGRP+6*
XMB(1	MSGGRP+5, MSGGRP+6, MSGPRV+5
XMB(2	MSGGRP+7, MSGPRV+9
XMB(3	MSGGRP+8, MSGPRV+9
XMB(4	MSGGRP+9, MSGGRP+17, MSGPRV+10*
XMB(5	MSGGRP+10, MSGPRV+11
XMB(6	MSGGRP+11, MSGPRV+12
XMB(7	MSGGRP+12, MSGPRV+13
XMB(8	MSGGRP+13, MSGGRP+15, MSGPRV+14*
XMB(9	MSGGRP+18*
>> XMTEXT	COMMENTS+1*
XMY	MGRP+11!, MPER+3!, EXT!
XMY(	MPER+6*
XMY("G."	MGRP+12*
XMZ	MSGGRP+2, MSGPRV+3, EXT!
Y	ENMM+1~, MSG+5, MSG+6, MSG+15, MGRP+2, MGRP+5, MGRP+6, MGRP+7, MGRP+9, MGRP+12 , MSGGRP+1, MSGGRP+16, MSGGRP+17, MSGPRV+1, ADD+4, AGRP+1, APER+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCMM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: