Routine: XBPKDEL

Information

XBPKDEL ; IHS/ADC/GTH - REMOVE OPTIONS, INPUT,SORT,PRINT TEMPLATES, HELP FRAMES, BULLETINS, FUNCTIONS, AND IF INDICATED, SECURITY KEYS FOR A PACKAGE ; [ 12/11/2000 3:13 PM ]

Source Information

Source file <XBPKDEL.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	5	YN^DICN ^DIE ^DIK ^DIWP ^DIWW
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	ENASK^XQ3

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS Release Of Information	2	BRNPOST BRNPOST3
Case Management System	1	ACMPREI
IHS VA Utilities	1	XBPKDEL1
Patient Care Component	1	APCDPOST
Quality Assurance	1	AQAOPREE

Entry Points

Name	Comments	DBIA/ICR reference
A	;
PAUSE	; Screen control for LIST
RUN	; ENTRY POINT FOR ACQUIRING CONTROL ARGUMENTS AND DOING DELETIONS
GETNSP	; CODE TO ACQUIRE NAMESPACE
LIST	; ENTRY POINT FOR LISTING NAMESPACED ITEMS
LIST2	;
START	;
EOJ	;EP - Clean up after this routine or XBPKDEL1 ; XB38 ; KILL XBPKF,XBPKGLO,XBPKEY,XBPKSTP,XBPKNSP,XBPKNSPC,XBPKQUIT,XBPKRUN,XBPKDOC,DUOUT,DTOUT ; XB38
ASK	;ASK USER IF WANTS TO CONTINUE
GETKEY	; CODE TO ACQUIRE SECURITY KEY FLAG
DELETE	;

Name	Field # of Occurrence
YN^DICN	ASK+21, GETKEY+3
^DIE	DELETE+14
^DIK	DELETE+3, DELETE+5
^DIWP	ASK+12, ASK+14, ASK+16
^DIWW	ASK+16
$$DIR^XBDIR	PAUSE+1
ENASK^XQ3	START+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Filemanager does not exist in this UCI!" Line Location: START+1
Function Call: WRITE	Prompt: !,*7,"Namespace variable does not exist!" Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: START+11
Function Call: WRITE	Prompt: !,*7,"Be sure to give users a new primary menu option if one of the menu options",!,"deleted within this namespace had been used as a primary menu option." Line Location: START+13
Function Call: WRITE	Prompt: !!,*7,XBPKDOC," will delete all options, sort, input," Line Location: ASK+2
Function Call: WRITE	Prompt: !,"and print templates, bulletins, functions, " Line Location: ASK+3
Function Call: WRITE	Prompt: $S($D(XBPKEY):"help frames and security keys",1:"and help frames") Line Location: ASK+4
Function Call: WRITE	Prompt: !,"namespaced '",XBPKNSP,"' that are currently in this UCI. " Line Location: ASK+5
Function Call: WRITE	Prompt: !!,*7 Line Location: ASK+10
Function Call: WRITE	Prompt: !,"Do you want to continue" Line Location: ASK+19
Function Call: WRITE	Prompt: !!,"If you answer with a ""NO"" or a ""^"" I will stop package initialization.",! Line Location: ASK+22
Function Call: WRITE	Prompt: ! Line Location: ASK+24
Function Call: WRITE	Prompt: !!,"Now deleting `",XBPKNSP,"' namespaced ",$P(@(XBPKGLO_"0)"),U),"S..." Line Location: DELETE+1
Function Call: WRITE	Prompt: !?3,XBPKNSPC Line Location: DELETE+4
Function Call: WRITE	Prompt: !?3,XBPKNSPC Line Location: DELETE+5
Function Call: WRITE	Prompt: !,*7,"Filemanager does not exist in this UCI!" Line Location: LIST+1
Function Call: WRITE	Prompt: !!,"Utility to list all namespaced items in current UCI",! Line Location: LIST+3
Function Call: WRITE	Prompt: !!,"Listing of items in namespace ",XBPKNSP,! Line Location: LIST+6
Function Call: WRITE	Prompt: @IOF,!!,"Listing of items in namespace ",XBPKNSP,! Line Location: LIST+7
Function Call: WRITE	Prompt: "--------------------------------------",! Line Location: LIST+8
Function Call: WRITE	Prompt: ! Condition for execution: XBPKF Line Location: LIST2+2
Function Call: WRITE	Prompt: "NO ",$P(@(XBPKGLO_"0)"),"^",1),"S",! Line Location: LIST2+2
Function Call: WRITE	Prompt: !,$P(@(XBPKGLO_"0)"),"^",1),"S",! Line Location: LIST2+4
Function Call: WRITE	Prompt: ?3,XBPKNSPC,! Line Location: LIST2+6
Function Call: WRITE	Prompt: @IOF Line Location: PAUSE+2
Function Call: WRITE	Prompt: @IOF,! Line Location: PAUSE+3
Function Call: WRITE	Prompt: !,*7,"Filemanager does not exist in this UCI!" Line Location: RUN+1
Function Call: WRITE	Prompt: !,"PROGRAMMER ACCESS REQUIRED",! Line Location: RUN+2
Function Call: WRITE	Prompt: !!,"Utility to delete all namespaced items in current UCI",! Line Location: RUN+3
Function Call: WRITE	Prompt: "Enter null line or '^' to quit.",! Line Location: GETNSP+3
Function Call: WRITE	Prompt: "Namespace must begin with an upper-case letter and",!," consist only of upper-case letters and numbers",! Line Location: GETNSP+4
Function Call: WRITE	Prompt: "Do you want to delete security keys" Line Location: GETKEY+1
Function Call: WRITE	Prompt: !!,"If you answer with a ""NO"" security keys will not be deleted.",! Line Location: GETKEY+4
Routine Call	DIE Line Location: DELETE+14

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(0	START+1, LIST+1, RUN+1
^UTILITY($J	ASK+7!, ASK+17!
^XUSEC(	DELETE+12

Name	Line Occurrences
A	START+7
ASK	START+6, ASK+22, GETKEY+4
DELETE	START+9, START+10
EOJ	A+1, LIST+5, LIST+12, RUN+5, RUN+7
GETKEY	RUN+6
GETNSP	LIST+4, RUN+4, GETNSP+4
LIST2	LIST+11
PAUSE	LIST2+6
XBPKDEL	RUN+9

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+12, ASK+20, ASK+22, ASK+23, GETKEY+2*, GETKEY+4, GETKEY+5
DA	DELETE+3!, DELETE+5!, DELETE+9, DELETE+10~, DELETE+13, LIST2+6
DA(1	DELETE+13*
>> DIE	DELETE+13*
DIFQ	ASK+23!
DIK	DELETE+3!, DELETE+5!
DIW	ASK+8~
DIWF	ASK+8~, ASK+9*
DIWL	ASK+8~, ASK+9*
DIWR	ASK+8~, ASK+9*
DIWT	ASK+8~
>> DR	DELETE+13*
DTOUT	EOJ+2!
DUOUT	LIST2+6, EOJ+2!
DUZ(0	START+3, LIST+2, RUN+2
IOF	LIST+7, PAUSE+3
IOM	ASK+9
IOSL	LIST2+6
>> L	DELETE+5*
U	START+3, DELETE+1, LIST+2
>> X	ASK+11, ASK+13, ASK+15*
XBPKDOC	START+4, START+5, ASK+11, EOJ+2!
XBPKEY	START+10, ASK+15, RUN+7, GETKEY+5, GETKEY+6, EOJ+2!
XBPKF	LIST+9, LIST2+2, LIST2+3*, EOJ+2!
XBPKGLO	START+9, START+10, DELETE+1, DELETE+3, DELETE+5, DELETE+8, LIST+11*, LIST2+1, LIST2+2, LIST2+4 , LIST2+6, EOJ+2!
XBPKHIEN	DELETE+11, DELETE+12, DELETE+13, EOJ+2!
XBPKKIEN	DELETE+9*, DELETE+13, EOJ+2!
XBPKNSP	START+2, START+3, ASK+15, DELETE+1, DELETE+2, LIST+5, LIST+7, LIST+9, LIST2+2, LIST2+5 , RUN+5, GETNSP+1*, GETNSP+2, GETNSP+3, GETNSP+4, EOJ+2!
XBPKNSPC	DELETE+2, DELETE+5, DELETE+12, LIST2+1, LIST2+2, LIST2+5, LIST2+6*, EOJ+2!
XBPKQUIT	START+3, DELETE+5, LIST+9, LIST2+6, EOJ+2!
XBPKRUN	START+4, ASK+23, RUN+8*, EOJ+2!
XBPKSTP	START+7, ASK+1, ASK+23, EOJ+2!
>> Y	PAUSE+1*

Customize PDF page

Package: IHS VA Utilities

Routine: XBPKDEL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: