Routine: BMCALERT

Package	Total	Call Graph
Referred Care Information System	4	$$TOFAC^BMC EN^BMCAL1 START^BMCREF $$AVDOS^BMCRLU
Kernel	2	$$PATCH^XPDUTL SETUP^XQALERT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
Referred Care Information System	4	BMCADD1 BMCMOD BMCRPC3 ^BMCREF

Entry Points

Name	Comments	DBIA/ICR reference
APRV	;BMC4.08 5.14.2013 IHS/ITSC/FCJ ALERT FOR REF STATUS CHG TO APPROVED
COM	;BO COMMENTS;BMC4.05 3.4.2009 IHS.OIT.FCJ ADDED SECTION
EN1	; EP - POSSIBLE HIGH COST ALERT (ROLL AND SCROLL)
EN2	; EP - COSMETIC PROCEDURE ALERT (ROLL AND SCROLL)
EN3	;EP - POSSIBLE HIGH COST PROCEDURE ALERT (ROLL AND SCROLL)
EN4	;EP - EXPERIMENTAL CPT PROCEDURE ALERT (ROLL AND SCROLL)
EN5	;EP - 3RD PARTY LIABILITY ALERT (ROLL AND SCROLL)
TXT	;BMC4.05 3.4.2009 IHS.OIT.FCJ ADDED SECTION
PALRT1	;EP-ALERT FOR PHYS
PALRT2	;ALERT TO DISPLAY

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are entering a diagnosis that indicates this may be a high cost case.",!,"You may want to carefully explore alternative resources and alert your case",!,"manager." Line Location: EN1+2
Function Call: WRITE	Prompt: !,"You are entering a cosmetic procedure that may require CMO approval." Line Location: EN2+2
Function Call: WRITE	Prompt: !,"You are entering a procedure that indicates this may be a high cost case.",!,"You may want to carefully explore alternative resources and alert your case",!,"manager." Line Location: EN3+3
Function Call: WRITE	Prompt: !,"You are entering a procedure that indicates this may be a Experimental",!,"Procedure. If so, CHS funds cannot be used to pay for this procedure." Line Location: EN4+4
Function Call: WRITE	Prompt: !,"You are entering a diagnosis that indicates this may involve third party",!,"liability. You may want to investigate this possibility in order to recover",!,"costs." Line Location: EN5+3
Function Call: WRITE	Prompt: !!,"Processing alert for Physician(s)." Line Location: PALRT1+3
Function Call: WRITE	Prompt: !,"Primary Care Provider is not definned.",?45,"*ALERT WAS NOT SENT*" Line Location: PALRT1+15
Function Call: WRITE	Prompt: !,"Referring Provider is not definned.",?45,"*ALERT WAS NOT SENT*" Line Location: PALRT1+16

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PALRT1+13, TXT+1, APRV+3
^BMCCOM - [#90001.03]	COM+3, COM+6, COM+8
^BMCCOM("AD"	COM+1, COM+2
^BMCPARM - [#90001.31]	PALRT1+13, PALRT1+14
^BMCREF - [#90001]	EN1+1, EN2+1, EN3+2, EN4+3, EN5+2, PALRT1+14, PALRT2+2, TXT+1, APRV+2, APRV+3
^DPT - [#2]	TXT+1

Name	Field # of Occurrence
^(0	TXT+1

Name	Field # of Occurrence
>> BMCCDFN	COM+2*, COM+3, COM+5, COM+6, COM+8
>> BMCDFN	PALRT1+7, PALRT1+13, APRV+3
>> BMCPPRV	PALRT1+13, PALRT1+15, PALRT1+17, APRV+3, APRV+6
>> BMCREC	PALRT2+2*
>> BMCREC("PAT N	AME" , PALRT1+8
>> BMCRHDR	PALRT1+8, TXT+10, APRV+3*
>> BMCRIEN	EN1+1, EN2+1, EN3+2, EN4+3, EN5+2, PALRT1+10, PALRT1+14, PALRT2+1*, PALRT2+2, TXT+1 , TXT+2, TXT+3, TXT+4, TXT+5, TXT+6, TXT+7, TXT+8, COM+1, COM+2, APRV+2 , APRV+3
>> BMCRPRV	PALRT1+14, PALRT1+16, PALRT1+17, APRV+3, APRV+5, APRV+6
>> BMCSTR	TXT+7*, TXT+8
BMCT	TXT+9, COM+4, COM+5, COM+7*, COM+8, COM+9!
>> BMCTST(6	TXT+6*
BMCTXT	PALRT1+21, PALRT1+24!
BMCTXT(	COM+4, COM+5, COM+8*
BMCTXT(1	TXT+1*
BMCTXT(2	TXT+2*
BMCTXT(3	TXT+3*
BMCTXT(4	TXT+4*
BMCTXT(5	TXT+5*
BMCTXT(7	TXT+8*
>> BMCV	TXT+6*
>> DA	APRV+1
DUZ(2	PALRT1+13, PALRT1+14, TXT+1
F	COM+6*, COM+8, COM+9!
U	EN1+1, EN2+1, EN3+2, EN4+3, EN5+2, PALRT1+13, PALRT1+14, TXT+1, COM+3, APRV+2 , APRV+3
XQA	PALRT1+12, PALRT1+24!, APRV+4~, APRV+7
XQA(	PALRT1+13, PALRT1+14, APRV+5, APRV+6
XQAARCH	PALRT1+4~, PALRT1+24!
XQADATA	PALRT1+4~, PALRT1+10*, PALRT1+24!, PALRT2+1
XQAFLG	PALRT1+4~, PALRT1+24!
XQAGUID	PALRT1+4~, PALRT1+24!
XQAID	PALRT1+4~, PALRT1+7*, PALRT1+24!
XQALERR	PALRT1+4~, PALRT1+24!
XQAMSG	PALRT1+4~, PALRT1+8*, PALRT1+24!
XQAOPT	PALRT1+4~, PALRT1+24!
XQAROU	PALRT1+4~, PALRT1+9*, PALRT1+24!
XQASUPV	PALRT1+4~, PALRT1+24!
XQASURO	PALRT1+4~, PALRT1+24!
XQATEXT	PALRT1+4~, PALRT1+21, PALRT1+22, PALRT1+24!
>> Y	APRV+1*