Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XBPKDEL

Package: IHS VA Utilities

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 ; XB*3*8
; KILL XBPKF,XBPKGLO,XBPKEY,XBPKSTP,XBPKNSP,XBPKNSPC,XBPKQUIT,XBPKRUN,XBPKDOC,DUOUT,DTOUT ; XB*3*8
ASK ;ASK USER IF WANTS TO CONTINUE
GETKEY ; CODE TO ACQUIRE SECURITY KEY FLAG
DELETE ;

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All