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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AUKD

Package: Utilities

Routine: AUKD


Information

AUKD ; KILLS DICs and GLOBALS [ 08/17/88 4:55 PM ]

Source Information

Source file <AUKD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Uncategorized 4 EN1^%AUDSET  ^%AUGXFR  ^%AUKD2  ^%AUKD3  
Utilities 1 EN1^AURESID  

Entry Points

Name Comments DBIA/ICR reference
TMP
BEGIN
CHECKDD ; CHECK ^DD FOR DANGLING ENTRIES
LO
NOTES ; This routine deletes FileMan dictionaries, and optionally their
; globals, TEMPLATES and AUTHORITIES, by a range of dictionary
; numbers, or if called from another routine, by a predefined
; set of dictionaries. The assumptions made by this routine
; are that ^UTILITY, ^DIC, and ^DD are not UCI TRANSLATED.
; Any other globals may be translated, but the KILLs will
; take place in the current UCI only.
CHKVAL ; CHECK G^T VALUES
LIST ; LIST FILE INFO
CONFIRM ; SHOW AND ASK
EOJ ;
EN1 ;
EN2 ;
HI
DEL
ASK2
ASK ;
MODIFY ;

External References

Name Field # of Occurrence
EN1^%AUDSET EN1+9
^%AUGXFR EOJ+2
^%AUKD2 EN2+7
^%AUKD3 EN2+11
EN1^AURESID EOJ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This program deletes FileMan dictionaries, and optionally their"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"globals, TEMPLATES and AUTHORITIES, by a range of dictionary numbers.",!!
  • Line Location: BEGIN+2
Function Call: READ
  • Prompt: "Enter first dictionary number to be deleted: "
  • Formatting: !
  • Timeout: AUKDLO'=+AUKDLO
  • Variable: AUKDLO G
  • Line Location: LO+0
Function Call: READ
  • Timeout: AUKDHI=""
  • Variable: AUKDHI S
  • Line Location: HI+0
Function Call: READ
  • Timeout: "DAS"'[AUKDDEL
  • Line Location: DEL+0
Function Call: READ
  • Timeout: "DAS"'[AUKDTMP
  • Variable: AUKDTMP G
  • Line Location: TMP+0
Function Call: WRITE
  • Prompt: !!,"AUKDLO and/or AUKDHI does not exist!"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Invalid AUKDDEL --->",AUKDDEL,"<---"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"Invalid AUDKTMP --->",AUKDTMP,"<---"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !!,"No dictionaries were selected."
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHECKDD+2
Function Call: WRITE
  • Prompt: !!,"^UTILITY(""AUDSET"",$J) is not defined!"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"*** Don't mess with files less than 2!! ***",*7
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !!,"One or more invalid GLOBAL^TEMPLATE disposition values encountered!"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,"Invalid value ",AUKDFILE,"=",AUKDX
  • Line Location: CHKVAL+5
Function Call: WRITE
  • Prompt: !!," NUMBER",?14,"NAME",?45,"G^T",?50,"DATA GLOBAL",!
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !!,"The above list of dictionaries will be deleted in UCI ",AUKDUCI,". Data"
  • Line Location: CONFIRM+4
Function Call: WRITE
  • Prompt: !,"globals, TEMPLATES and AUTHORITIES, will be kept, deleted, or asked depending"
  • Line Location: CONFIRM+5
Function Call: WRITE
  • Prompt: !,"on flag. '?' in G position indicates invalid data global."
  • Line Location: CONFIRM+6
Function Call: WRITE
  • Prompt: !!,"[S]ave, [D]elete, [A]sk. Globals to be deleted are also marked"
  • Line Location: CONFIRM+7
Function Call: WRITE
  • Prompt: !," by '*' in position 1."
  • Line Location: CONFIRM+8
Function Call: READ
  • Timeout: AUKDX="^"
  • Line Location: CONFIRM+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFIRM+13
Function Call: WRITE
  • Prompt: !,$S($P(AUKDX,U,1)="D":"*",1:" "),AUKDFILE,?14,$E($P(^DIC(AUKDFILE,0),U,1),1,30),?45,$E(AUKDX,1,3),?50,$S($P(AUKDX,U,3)="":"<NONE>",1:$P(AUKDX,U,3))
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: MODIFY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MODIFY+5
Function Call: WRITE
  • Prompt: !,"Do you want to delete the data global for ",AUKDFILE," ",$P(^DIC(AUKDFILE,0),U,1)," (Y/N) N//"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Do you want to delete the TEMPLATES and AUTHORITIES for ",AUKDFILE," ",$P(^DIC(AUKDFILE,0),U,1)," (Y/N) N//"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !,"Restoring saved ^DD nodes. <WAIT>"
  • Line Location: EOJ+2
Function Call: WRITE
  • Prompt: !!,"DONE",!!
  • Line Location: EOJ+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN1+10, CHECKDD+1
^DIC - [#1] EN2+12, LIST+1, ASK+2, ASK2+1
^DIC(0 EN2+13*
^UTILITY("AUDSET" EN1+10, EN1+11, EN1+12, CHECKDD+2*, EN2+1, EN2+2, EN2+4, CONFIRM+1, CONFIRM+3, CONFIRM+13
, MODIFY+1, MODIFY+3!, MODIFY+4*, ASK+3*, ASK+4*, ASK2+2*, ASK2+3*, EOJ+3!
^UTILITY("AUKD" EOJ+2, EOJ+3!

Label References

Name Line Occurrences
ASK CONFIRM+13, MODIFY+5
ASK2 ASK+1
CHECKDD EN1+10
CHKVAL EN2+4
CONFIRM EN2+8, CONFIRM+11, CONFIRM+14
DEL DEL
EN2 EN1+13
EOJ LO, HI, EN1+1, EN1+5, EN1+8, EN1+11, EN2+1, EN2+2, EN2+5, EN2+9
, EN2+14
LIST CONFIRM+3
MODIFY CONFIRM+11, MODIFY+1
TMP TMP

Naked Globals

Name Field # of Occurrence
^( EN1+12*, EN2+4, CONFIRM+3, CONFIRM+13, MODIFY+4*, MODIFY+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AUDSHI EN1+9*
>> AUDSLO EN1+9*
AUKDASK EN2+10!, CONFIRM+3*, CONFIRM+12, EOJ+4!
AUKDC EN2+12*, EN2+13, EOJ+4!
AUKDDEL DEL*, DEL+1*, TMP, TMP+1, EN1+3*, EN1+4*, EN1+5, EN1+12, EN2+6!, CHKVAL+4*
, EOJ+4!
AUKDERR EN2+6!, CHKVAL+1*, CHKVAL+2*, CHKVAL+4*, CHKVAL+5, EOJ+4!
AUKDFILE EN1+10*, EN1+12*, CHECKDD+1, CHECKDD+2, EN2+4*, EN2+12*, CHKVAL+5, CONFIRM+3*, CONFIRM+13*, LIST+1
, MODIFY+1*, MODIFY+3, MODIFY+4, MODIFY+5, ASK+2, ASK+3, ASK+4, ASK2+1, ASK2+2, ASK2+3
, EOJ+4!
AUKDFLD EOJ+4!
AUKDFLG EN2+4*, EN2+5, EN2+6!, EN2+8*, EN2+9, EN2+10!, CHKVAL+5*, CONFIRM+1*, CONFIRM+10*, EOJ+4!
AUKDG EOJ+4!
AUKDHI HI*, EN1+1, EN1+9, EN1+10, EN2+2!, EOJ+1, EOJ+4!
AUKDL EN1+10*, EN1+12*, EN2+4*, EN2+12*, CONFIRM+3*, CONFIRM+13*, EOJ+4!
AUKDLAST EN2+12*, EN2+13, EOJ+4!
AUKDLO LO*, HI, EN1+1, EN1+9, EN1+10, EN2+2!, EOJ+1, EOJ+4!
AUKDNDIC EOJ+4!
AUKDTMP TMP*, TMP+1*, EN1+6*, EN1+7*, EN1+8, EN1+12, EN2+6!, CHKVAL+4*, EOJ+4!
AUKDUCI CONFIRM+4, EOJ+4!
AUKDX EN2+4*, EN2+6!, EN2+10!, CHKVAL+2, CHKVAL+4, CHKVAL+5, CONFIRM+3*, CONFIRM+9*, CONFIRM+10, CONFIRM+11
, CONFIRM+13*, LIST+1, MODIFY+5*, ASK+1, ASK2, EOJ+4!
AUKDY EN2+10!, MODIFY+2*, MODIFY+3, ASK+2*, ASK+3, ASK2+1*, ASK2+2, EOJ+4!
>> AURHI EOJ+1*
>> AURLO EOJ+1*
DUZ(0 BEGIN*, EN1+2*, EN2+3*
FROM EOJ+2*, EOJ+5!
TO EOJ+2*, EOJ+5!
U BEGIN*, EN1+2*, EN1+12, EN2+3*, EN2+13, CHKVAL+4, LIST+1, MODIFY+4, ASK+1, ASK+2
, ASK+3, ASK+4, ASK2, ASK2+1, ASK2+2, ASK2+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All