Routine: BMXPO

Information

BMXPO ; IHS/CMI/MAW - Populate appcontext with all namespaced RPC's ;

Source file <BMXPO.m>

Package	Total	Call Graph
VA Fileman	4	^DIC UPDATE^DIE ^DIK ^DIR
IHS VA Utilities	1	EN^XBVK

Package	Total	Caller Graph
IHS GPRA Information System	9	BGP313P1 BGP3POS BGP4POS BGP5POS BGP6POS BGP7POS BGP8P181 BGP8POS BGP8VP
Diabetes Registry	7	BDM20P10 BDM20P11 BDM20P12 BDM20P6 BDM20P7 BDM20P8 BDM20P9
Mental Health Social Services	6	AMH40P1 AMH40P2 AMH40P3 AMH40P4 AMH40P5 AMH40P6
IHS Changes To Lab	1	BLRPRE34

Name	Comments	DBIA/ICR reference
CLEAN(APP)	;-- clean out the RPC multiple first
GUIEP(RETVAL,BMXSTR)	;EP - gui entry point
POP(APP,NS)	;populate the app context with RPC's
XIT	;-- clean vars
ASK	;-- ask the name of the OPTION to populate
MAIN	;EP - this is the main routine driver

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+6
Function Call: WRITE	Prompt: !,"Populating Application Context" Line Location: POP+1
Function Call: WRITE	Prompt: "." Line Location: POP+13
Routine Call	DIE Line Location: POP+12
Routine Call	DIC Line Location: ASK+3
Routine Call	DIR Line Location: ASK+9

Name	Line Occurrences (* Changed, ! Killed)
^BMXTMP($J	GUIEP+6!, GUIEP+8*
^DIC(19 - [#19]	CLEAN+4, CLEAN+7!, POP+7
^XWB(8994 - [#8994]	POP+4, POP+6

Name	Field # of Occurrence
APP	CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7, POP~, POP+7, POP+9, POP+10
>> BDMDA	CLEAN+4*
BDMERR	POP+8~
BDMFDA	POP+8~
BDMFDA(	POP+11*
BDMIENS	POP+8~, POP+10*, POP+11
BDMIENS(1	POP+9*
BMXAPP	MAIN+5, GUIEP+1~, GUIEP+4, GUIEP+10, ASK+5
BMXDA	CLEAN+3~, CLEAN+4, CLEAN+5, POP+2~, POP+3, POP+4*, POP+6
>> BMXGUI	GUIEP+3*, POP+1, POP+13
BMXIEN	POP+5~, POP+6*, POP+7, POP+11
BMXNS	MAIN+5, GUIEP+1~, GUIEP+5, GUIEP+10, ASK+11
BMXQFLG	MAIN+1~, MAIN+3, ASK+4, ASK+10
BMXSTR	GUIEP~, GUIEP+4, GUIEP+5
>> DA	CLEAN+5*
>> DA(1	CLEAN+1*, CLEAN+2
DIC	ASK+2*, ASK+7!
DIC("A"	ASK+2*
DIC(0	ASK+2*
>> DIK	CLEAN+2*
>> DIR("A"	ASK+8*
>> DIR(0	ASK+8*
>> DIRUT	ASK+10
NS	POP~, POP+3, POP+4
P	GUIEP+1~, GUIEP+2*, GUIEP+4, GUIEP+5
RETVAL	GUIEP~, GUIEP+7*
>> Y	ASK+4, ASK+5, ASK+11