Routine: BJPC2P20

Package	Total	Call Graph
VA Fileman	4	(,IX)^DIC (,UPDATE,WP)^DIE ENALL^DIK EN^DIU2
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU ($$VERSION,MES)^XPDUTL
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;
IMES	;
INSTALLD(BJPCSTAL)	;EP - Determine if patch BJPCSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
BMIH	;-bmi help
ADDMSR	;-add the measurement type
SORRY(X)	;
BMIPH	;-bmip help
VPED	;REINDEX APRB, APRV ON V PATIENT ED
POST	;
ADDM(MSR)	;-- add it here
ER	;MOVE V ER .16 TO 1.01

Name	Field # of Occurrence
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
^DIE	POST+5, ER+5
UPDATE^DIE	ADDM+9
WP^DIE	ADDM+16
ENALL^DIK	VPED+4
EN^DIU2	PRE+1
$$VAL^XBDIQ1	ER+3
$$CJ^XLFSTR	BJPC2P20+8, BJPC2P20+9, BJPC2P20+11, BJPC2P20+12, BJPC2P20+13, ER+1, VPED+1, IMES+1, SORRY+4
$$ADD^XPDMENU	POST+2
$$VERSION^XPDUTL	BJPC2P20+8, BJPC2P20+11
MES^XPDUTL	BJPC2P20+8, BJPC2P20+9, BJPC2P20+11, BJPC2P20+12, BJPC2P20+13, ER+1, VPED+1, IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Attempt to add DUPLICATE PATIENT ED option failed.." Line Location: POST+3
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: ADDM+9
Routine Call	DIE Line Location: POST+5 ER+5
Routine Call	DIC Line Location: INSTALLD+6
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIE Line Location: ADDM+16

Name	Line Occurrences (* Changed, ! Killed)
^APCHSMPN - [#9001017]	POST+8, POST+9, POST+10, POST+14, POST+15
^APCLACTG("B"	POST+5
^APCLVGMS - [#9001003.71]	ADDM+12*
^APCLVGMS("B"	ADDM+5
^AUPNVER - [#9000010.29]	ER+2
^AUPNVPED("APRB"	VPED+2!
^AUPNVPED("APRV"	VPED+3!
^AUTTMSR - [#9999999.07]	POST+12
^AUTTMSR("B"	ADDM+3

Name	Field # of Occurrence
BJPCDA	POST+7~, POST+8, POST+9, POST+10, POST+14, POST+15, ER+2, ER+3, ER+5
BJPCDA1	POST+7~, POST+9*, POST+10, POST+14, POST+15
BJPCH	ADDM+17!, BMIH+1!, BMIPH+1!
BJPCH(1	BMIH+2, BMIPH+2
BJPCH(2	BMIH+3, BMIPH+3
BJPCH(3	BMIH+4, BMIPH+4
BJPCH(4	BMIPH+5*
BJPCSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BJPCX	ER+3*, ER+4, ER+5
BJPCY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DA	POST+5!, ER+5!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIE	POST+5!, ER+5!
DIFQ	SORRY+1!
DIK	VPED+4*!
DIK(1	VPED+4*
DIU	PRE+1*!
DIU(0	PRE+1*
DR	POST+5!, ER+5!
FDA	ADDM+1~
FDA(	ADDM+7, ADDM+8
FERR	ADDM+1~
FERR(1	ADDM+10
FIENS	ADDM+1~, ADDM+6*, ADDM+7, ADDM+8
FIENS(1	ADDM+11
I	ADDMSR+1~, ADDMSR+2*
IOM	IMES+1, SORRY+4
M	POST+7~, POST+12*, POST+13
MIEN	ADDM+1~, ADDM+11*, ADDM+12, ADDM+13
MSR	ADDM~, ADDM+3, ADDM+14, ADDM+15
MSRI	ADDM+1~, ADDM+3*, ADDM+4, ADDM+5, ADDM+7
U	POST+10, POST+12, POST+14
WFERR	ADDM+2~
WFIENS	ADDM+2~, ADDM+13*, ADDM+16
WFROOT	ADDM+2~
WP	ADDM+2~
X	BJPC2P20+6, POST+2, POST+3, POST+7~, POST+10, POST+11, POST+12, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	BJPC2P20+6*
>> XPDDIQ("XPZ1"	BJPC2P20+5*
>> XPDDIQ("XPZ2"	BJPC2P20+5*
>> XPDENV	BJPC2P20+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1