Routine: BDMPOST

Information

BDMPOST ; cmi/anch/maw - POST INIT ROUTINE ; [ 08/23/2006 3:21 PM ]

Source Information

Source file <BDMPOST.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	(,IX)^DIC FILE^DICN ^DIE ^DIK
Diabetes Registry	3	^BDMBUL (DIE,DIK)^BDMFDIC DMLAB^BDMFUTIL
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
P2	;EP;
P3	;EP;
PP	;EP;TO SYNCHRONIZE PRIMARY PROVIDER WITH FILE 9000001
EN
P6	;EP;
ENV	;EP; ; The following line prevents the "Disable Options..." and "Move ; Routines..." questions from being asked during the install.
P4	;EP;
P5	;EP;
V2POST	;EP - called from post init of kids build
COMP	;EP;TO ELIMINATE DUPLICATE COMPLICATIONS
REGISTER	;CREATE QMAN REGISTER ENTRY
RTEXT	;;
IMES	;
NEWOPT2	;MODIFY MAIN MENU EXIT ACTION
DMLAB	;EP;TO UPDATE PRIMARY PROVIDER AND DM LAB VALUES
SORRY(X)	;
ACM421	;EP;TO CHECK RG MULTIPLE NODE OF THE CMS COMPLICATIONS LIST FILE
INSTALLD(BDMSTAL)	;EP - Determine if patch BDMSTAL was installed, where ; BDMSTAL is the name of the INSTALL. E.g "AG6.011".
NEWOP	;ADD NEW OPTIONS

External References

Name	Field # of Occurrence
^BDMBUL	P5+2, V2POST+10
DIE^BDMFDIC	PP+16, COMP+11
DIK^BDMFDIC	COMP+15
DMLAB^BDMFUTIL	DMLAB+4
^DIC	INSTALLD+8, INSTALLD+11
IX^DIC	INSTALLD+5
FILE^DICN	ACM421+14
^DIE	NEWOPT2+5, V2POST+3, V2POST+5, V2POST+7, V2POST+9
^DIK	ACM421+20
$$CJ^XLFSTR	IMES+1, SORRY+4
$$ADD^XPDMENU	P6+3, P6+13, P6+17, P6+21, P6+25, NEWOP+3
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: NEWOPT2+5 V2POST+3 V2POST+5 V2POST+7 V2POST+9
Routine Call	DIC Line Location: INSTALLD+8 INSTALLD+11
Routine Call	DIC Line Location: INSTALLD+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(42 - [#9002242]	Classic Fileman Calls
^ACM(42.1 - [#9002242.1]	Classic Fileman Calls
^ACM(58.1 - [#9002258.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PP+3, PP+5, PP+7
^ACM(42 - [#9002242]	COMP+6
^ACM(42.1 - [#9002242.1]	ACM421+4, ACM421+5*, COMP+2, COMP+4
^ACM(58.1 - [#9002258.1]	V2POST+2, V2POST+4, V2POST+6, V2POST+8
^AMQQ(5 - [#9009075]	REGISTER+1
^AMQQ(7 - [#9009077]	REGISTER+1
^APCHSCTL("B"	DMLAB+2
^AUPNPAT - [#9000001]	PP+9
^DD(2160032	P2+1!
^DD(9000001	PP+1
^DIC(19 - [#19]	ACM421+6, ACM421+7, ACM421+9, ACM421+15, ACM421+17, NEWOPT2+3
^DIC(2160032	P2+1!

Label References

Name	Line Occurrences
COMP	P2+4
DMLAB	P2+5
IMES	INSTALLD+6, INSTALLD+9, INSTALLD+13
NEWOP	P2+2, P4+1, P5+1
PP	P2+3
REGISTER	EN

Naked Globals

Name	Field # of Occurrence
^(0	ACM421+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDMDA	DMLAB+2, DMLAB+3, PP+2, PP+3, PP+5, PP+7, PP+13, COMP+5, COMP+6*, COMP+7
>> BDMNAME	NEWOPT2+2*, NEWOPT2+3
>> BDMOPT	NEWOPT2+3*, NEWOPT2+4
BDMSTAL	INSTALLD~, INSTALLD+3, INSTALLD+7, INSTALLD+10, IMES+1
>> BDMX	P6+1, P6+3, P6+11, P6+13, P6+15, P6+17, P6+19, P6+21, P6+23, P6+25 , NEWOP+1, NEWOP+3, DMLAB+1, DMLAB+2, COMP+1, COMP+2, COMP+4
BDMY	P6+2, P6+3, P6+12, P6+13, P6+16, P6+17, P6+20, P6+21, P6+24, P6+25 , NEWOP+2, NEWOP+3, COMP+2, COMP+3, COMP+9, INSTALLD+2~, INSTALLD+12, INSTALLD+14
>> BDMZ	COMP+2, COMP+4, COMP+6, COMP+12
>> D	INSTALLD+4*
DA	ACM421+15, ACM421+16, ACM421+17, ACM421+18, ACM421+21!, NEWOPT2+4, NEWOPT2+5!, PP+13, COMP+7, COMP+12 , V2POST+3!, V2POST+5!, V2POST+7!, V2POST+9!
DA(1	ACM421+6*, ACM421+8, ACM421+9, ACM421+17, ACM421+19
DD	ACM421+10!
DIC	ACM421+11, ACM421+21!, INSTALLD+2~, INSTALLD+4, INSTALLD+7, INSTALLD+10
DIC("DR"	ACM421+13*
DIC(0	ACM421+12, INSTALLD+4
DIE	NEWOPT2+4, NEWOPT2+5!, PP+14, COMP+8, V2POST+3!, V2POST+5!, V2POST+7!, V2POST+9*!
DIFQ	SORRY+1!
DIK	ACM421+19, ACM421+21!, COMP+13
DO	ACM421+10!
DR	ACM421+21!, NEWOPT2+4, NEWOPT2+5!, PP+15, COMP+9, V2POST+3!, V2POST+5!, V2POST+7!, V2POST+9*!
IOM	IMES+1, SORRY+4
J	REGISTER+2~, REGISTER+4, REGISTER+6
>> PAT	PP+5*, PP+6, PP+9
>> PP	PP+7*, PP+8, PP+11
>> PPP	PP+9*, PP+10, PP+11, PP+15
U	ACM421+5, PP+5, PP+7, PP+9
X	ENV+3, REGISTER+4, REGISTER+5, REGISTER+9, ACM421+2~, ACM421+3, ACM421+4, ACM421+5, ACM421+7, ACM421+8 , ACM421+9, P6+3, P6+13, P6+17, P6+21, P6+25, NEWOP+3, INSTALLD+2~, INSTALLD+3, INSTALLD+7 , INSTALLD+10, SORRY~, SORRY+2, SORRY+3, V2POST+1~, V2POST+2, V2POST+3, V2POST+4, V2POST+5, V2POST+6 , V2POST+7, V2POST+8*, V2POST+9
>> XPDDIQ(	ENV+3*
>> XPDQUIT	SORRY+2, SORRY+3
Y	REGISTER+7, REGISTER+8, REGISTER+9, ACM421+2~, INSTALLD+2~, INSTALLD+6, INSTALLD+7, INSTALLD+9, INSTALLD+10, INSTALLD+12 , IMES+1
Z	REGISTER+3*, ACM421+2~

Name	Field # of Occurrence
$T(@Z+J	REGISTER+4
$T(RTEXT+J	REGISTER+7

Customize PDF page

Package: Diabetes Registry

Routine: BDMPOST

Call Graph Total: 10