Routine: BSDP12PS

Information

BSDP12PS ;cmi/anch/maw - PIMS Patch 1012 Post Init 2/27/2007 10:32:52 AM

Source file <BSDP12PS.m>

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR MES^XPDUTL
VA Fileman	2	(,IX)^DIC UPDATE^DIE

Name	Comments	DBIA/ICR reference
IMES	;
EN	;EP - Post Init Entry Point
INSTALLD(BSDSTAL)	;EP - Determine if patch BJPCSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
ADDPRT	;-- add an entry to the protocol file
SORRY(X)	;
ENV	;--environment check

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error adding BSD FOLLOW UP APPT to the Item Multiple of Protocol BSDAM MENU" Line Location: ADDPRT+12
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: ADDPRT+11
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	ADDPRT+2, ADDPRT+3

Name	Field # of Occurrence
BSDSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
BSDY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIFQ	SORRY+1!
FDA	ADDPRT+6~
FDA(	ADDPRT+8, ADDPRT+9, ADDPRT+10*
FERR	ADDPRT+6~
FERR(1	ADDPRT+12
FIENS	ADDPRT+6~, ADDPRT+7*, ADDPRT+8, ADDPRT+9, ADDPRT+10
IOM	IMES+1, SORRY+4
PROT	ADDPRT+1~, ADDPRT+2*, ADDPRT+4, ADDPRT+7
PROTA	ADDPRT+1~, ADDPRT+3*, ADDPRT+5, ADDPRT+8
X	ENV+2, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	ENV+2*
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDENV	ENV+1
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1