Routine: BDGP16PS

Information

BDGP16PS ;ihs/cmi/maw - PIMS Patch 1016 post init

Source Information

Source file <BDGP16PS.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,IX)^DIC (FILE,UPDATE)^DIE ^DIK
Kernel	2	$$CJ^XLFSTR MES^XPDUTL
IHS Changes To Scheduling	1	MAIN^BSDSCDUP

Entry Points

Name	Comments	DBIA/ICR reference
IMES	;
CLNPAH	;-- clean out existing entries before loading new
DGUP(DG,DG53,DGDG,DGDGS)	;--update DG PAH node
INSTALLD(BDGSTAL)	;EP - Determine if patch BDGSTAL was installed, where ; BDGSTAL is the name of the INSTALL. E.g "AG6.011".
SORRY(X)	;
ENV	;-- environment check
PAH	;-- update the Patch Application History
POST	;-- patch 1016 post init
ENPF	;-- enable patient flags for sites already using
SDUP(SD,SD53,SDSD,SDSDS)	;update SD PAH node

External References

Name	Field # of Occurrence
NOW^%DTC	PAH+10
MAIN^BSDSCDUP	POST+3
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DIE	ENPF+9
UPDATE^DIE	DGUP+14, SDUP+14
^DIK	CLNPAH+3
$$CJ^XLFSTR	IMES+1, SORRY+4
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Updating DG and SD Package file entries for Patch Application History" Line Location: PAH+12
Function Call: WRITE	Prompt: "." Line Location: PAH+17
Function Call: WRITE	Prompt: "." Line Location: PAH+22
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: DGUP+14 SDUP+14
Routine Call	DIC Line Location: INSTALLD+6
Routine Call	DIE Line Location: ENPF+9
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGPAH - [#9009017.9]	CLNPAH+1, PAH+13, PAH+14
^DG(40.8 - [#40.8]	ENPF+3
^DGPF(26.13 - [#26.13]	ENPF+1
^DIC(9	DGUP+3, SDUP+3
^DIC(9.4 - [#9.4]	PAH+2, PAH+4, PAH+6, PAH+8

Label References

Name	Line Occurrences
$$INSTALLD	ENV+1, ENV+2, ENV+3
DGUP	PAH+18
ENPF	POST+1
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
PAH	POST+2
SDUP	PAH+23
SORRY	ENV+1, ENV+2, ENV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAH+11
BDA	PAH+1~, PAH+13*, PAH+14
BDG	PAH+1~, PAH+2*, PAH+3, PAH+4, PAH+18
BDG53	PAH+1~, PAH+4*, PAH+5, PAH+18
BDGDATA	PAH+1~, PAH+14*, PAH+15, PAH+16, PAH+19, PAH+20
BDGDG	PAH+1~, PAH+16*, PAH+18
BDGDGS	PAH+1~, PAH+15*, PAH+18
BDGNOW	PAH+11*, PAH+24!, DGUP+12, SDUP+12
BDGSD	PAH+1~, PAH+20*, PAH+21, PAH+23
BDGSDS	PAH+1~, PAH+19*, PAH+23
BDGSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
BDGY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
BSD	PAH+1~, PAH+6*, PAH+7, PAH+8, PAH+23
BSD53	PAH+1~, PAH+8*, PAH+9, PAH+23
CDA	DGUP+1~, DGUP+3, DGUP+4, SDUP+1~, SDUP+3, SDUP+4
>> D	INSTALLD+5*
DA	CLNPAH+1*, CLNPAH+4!
DDA	DGUP+6~, SDUP+6~
DDA(	DGUP+11, DGUP+12, DGUP+13, SDUP+11, SDUP+12, SDUP+13
DERR	DGUP+6~, SDUP+6~
DG	DGUP~, DGUP+3, DGUP+7, DGUP+9
DG53	DGUP~, DGUP+3, DGUP+8, DGUP+9
DGDG	DGUP~, DGUP+4, DGUP+10
DGDGS	DGUP~, DGUP+10
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIENS	DGUP+6~, DGUP+9, DGUP+11, DGUP+12, DGUP+13, SDUP+6~, SDUP+9, SDUP+11, SDUP+12, SDUP+13
DIENS(1	DGUP+8, SDUP+8
DIENS(2	DGUP+7, SDUP+7
DIFQ	SORRY+1!
DIK	CLNPAH+2*, CLNPAH+4!
DT	ENPF+7, PAH+11
DUZ	ENPF+8, DGUP+13, SDUP+13
FDA	ENPF+4~
FDA(	ENPF+6, ENPF+7, ENPF+8*
FERR	ENPF+4~
FIENS	ENPF+4~, ENPF+5*, ENPF+6, ENPF+7, ENPF+8
IOM	IMES+1, SORRY+4
MATCH	DGUP+1~, DGUP+2, DGUP+4, DGUP+5, SDUP+1~, SDUP+2, SDUP+4, SDUP+5
PDA	ENPF+2~, ENPF+3*, ENPF+5
SD	SDUP~, SDUP+3, SDUP+7, SDUP+9
SD53	SDUP~, SDUP+3, SDUP+8, SDUP+9
SDSD	SDUP~, SDUP+4, SDUP+10
SDSDS	SDUP~, SDUP+10
STR	DGUP+1~, DGUP+10, DGUP+11, SDUP+1~, SDUP+10, SDUP+11
U	ENPF+1, PAH+15, PAH+16, PAH+19, PAH+20
X	INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGP16PS

Call Graph Total: 7