Routine: XBKD

Package	Total	Call Graph
IHS VA Utilities	6	EN1^XBDSET ^XBGXFR ^XBKD2 ^XBKD3 ^XBKVAR EN1^XBRESID

Package	Total	Caller Graph
Contract Health Management Information System	11	ACHS3110 ACHS3111 ACHS3112 ACHS3113 ACHS3114 ACHS3115 ACHS3116 ACHS3118 ACHS31P7 ACHS31P8 ACHS31P9
IHS Patient Registration	2	AGPREI AGSSPREI
Patient Care Component	2	APCDPREI APCHPREI
Quality Assurance	2	AQALPREI AQAOPREI
Alcohol Chemical Dependency	1	ACDPREI
Case Management System	1	ACMPREI
ClassMan	1	KLASPREI
Diabetes Registry	1	BDMPREI
IHS Changes To ADT	1	BDGPRE
IHS Changes To Lab	1	BLRFCLEN
IHS Changes To Pharmacy	1	APSPPREI
IHS Dental System	1	ADEPREI
IHS Patient	1	AUPNPREI
IHS RPMS CHR System	1	BCHPREI
IHS Release Of Information	1	BRNPREI
IHS Support HL7 Interfaces	1	BHLPOST
IHS VA Support Files	1	AVAPREI
IHS VA Utilities	1	XBCDICD
PCC Medical Query	1	AMQQPIR
Patient Care Component Data Transmission	1	APCPPREI
Patient Care Component Reports	1	APCLPREI
Referred Care Information System	1	BMCPREI
Registration	1	DPTPREI
Taxonomy	1	ATXPREI
Third Party Billing	1	ABMDPREI
Utility Tables	1	AUTPREI

Entry Points

Name	Comments	DBIA/ICR reference
TMP	;
BEGIN	;
CHECKDD	; CHECK ^DD FOR DANGLING ENTRIES
LO	;
ASK2	;
CHKVAL	; CHECK G^T VALUES
LIST	; LIST FILE INFO
CONFIRM	; SHOW AND ASK
EN1	;PEP - Variables XBKDLO, XBKDHI, XBKDDEL, XBKDTMP must be set when entering here.
EN2	;PEP - Array ^UTILITY("XBDSET",$J) must exist when entering here.
HI	;
DEL	;
EOJ	;
ASK	;
MODIFY	;

External References

Name	Field # of Occurrence
EN1^XBDSET	EN1+10
^XBGXFR	EOJ+2
^XBKD2	EN2+8
^XBKD3	EN2+13
^XBKVAR	BEGIN+1, EN1+2, EN2+3
EN1^XBRESID	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This program deletes FileMan dictionaries, and optionally their" Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,"globals, TEMPLATES and AUTHORITIES, by a range of dictionary numbers.",!! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"Enter last dictionary number to be deleted: ",XBKDLO,"//" Line Location: HI+1
Function Call: WRITE	Prompt: !!,"TEMPLATES and AUTHORITIES? [D]elete, [A]sk, [S]ave ",XBKDDEL,"//" Line Location: TMP+1
Function Call: WRITE	Prompt: !!,"XBKDLO and/or XBKDHI does not exist!" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"Invalid XBKDDEL --->",XBKDDEL,"<---" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Invalid XBKDTMP --->",XBKDTMP,"<---" Line Location: EN1+8
Function Call: WRITE	Prompt: !!,"No dictionaries were selected." Line Location: EN1+13
Function Call: WRITE	Prompt: "." Line Location: CHECKDD+2
Function Call: WRITE	Prompt: !!,"^UTILITY(""XBDSET"",$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+6
Function Call: WRITE	Prompt: !!,"Resetting ^DIC(0) <WAIT>" Line Location: EN2+14
Function Call: WRITE	Prompt: !,"Invalid value ",XBKDFILE,"=",XBKDX 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 ",XBKDUCI,". Data" Line Location: CONFIRM+5
Function Call: WRITE	Prompt: !,"globals, TEMPLATES and AUTHORITIES, will be kept, deleted, or asked depending" Line Location: CONFIRM+6
Function Call: WRITE	Prompt: !,"on flag. '?' in G position indicates invalid data global." Line Location: CONFIRM+7
Function Call: WRITE	Prompt: !!,"[S]ave, [D]elete, [A]sk. Globals to be deleted are also marked" Line Location: CONFIRM+8
Function Call: WRITE	Prompt: !," by '*' in position 1." Line Location: CONFIRM+9
Function Call: READ	Timeout: $G(DTIME,999) Line Location: CONFIRM+11
Function Call: WRITE	Prompt: ! Line Location: CONFIRM+15
Function Call: WRITE	Prompt: !,$S($P(XBKDX,U,1)="D":"*",1:" "),XBKDFILE,?14,$E($P(^DIC(XBKDFILE,0),U,1),1,30),?45,$E(XBKDX,1,3),?50,$S($P(XBKDX,U,3)="":"<NONE>",1:$P(XBKDX,U,3)) Line Location: LIST+1
Function Call: WRITE	Prompt: *7 Line Location: MODIFY+3
Function Call: WRITE	Prompt: ! Line Location: MODIFY+7
Function Call: WRITE	Prompt: !,"Do you want to delete the data global for ",XBKDFILE," ",$P(^DIC(XBKDFILE,0),U,1)," (Y/N) N//" Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Do you want to delete the TEMPLATES and AUTHORITIES for ",XBKDFILE," ",$P(^DIC(XBKDFILE,0),U,1)," (Y/N) N//" Line Location: ASK2+2
Function Call: WRITE	Prompt: !,"Restoring saved ^DD nodes. <WAIT>" Line Location: EOJ+2
Function Call: WRITE	Prompt: !!,"DONE",!! Line Location: EOJ+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN1+12, CHECKDD+1
^DIC - [#1]	EN2+16, LIST+1, ASK+2, ASK2+2
^DIC(0	EN2+17*
^UTILITY("XBDSET"	EN1+12, EN1+13, EN1+15, CHECKDD+3, EN2+1, EN2+2, EN2+5, CONFIRM+1, CONFIRM+4, CONFIRM+17 , MODIFY+3, MODIFY+5!, MODIFY+6, ASK+4, ASK+5, ASK2+4, ASK2+5, EOJ+3!
^UTILITY("XBKD"	EOJ+2, EOJ+3!

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	EN1+15, EN2+5, CONFIRM+4, CONFIRM+17, MODIFY+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+4!
>> ADIFROM("IHS"	CONFIRM+10
DA	EOJ+4!
DIK	EOJ+4!
DTIME	LO+1, HI+2, DEL+1, TMP+2, CONFIRM+11, MODIFY+1, MODIFY+4, ASK+3, ASK2+3
FROM	EOJ+2*, EOJ+6!
TO	EOJ+2*, EOJ+6!
U	EN1+15, CHKVAL+4, LIST+1, MODIFY+6, ASK+1, ASK+2, ASK+4, ASK+5, ASK2+1, ASK2+2 , ASK2+4, ASK2+5
>> XBDSHI	EN1+9*
>> XBDSLO	EN1+9*
XBKDASK	EN2+12!, CONFIRM+3, CONFIRM+4, CONFIRM+14, EOJ+5!
XBKDC	EN2+15, EN2+16, EN2+17, EOJ+5!
XBKDDEL	DEL+1, DEL+2, DEL+3, TMP+1, TMP+4, EN1+3, EN1+4, EN1+5, EN1+15, EN2+7! , CHKVAL+4*, EOJ+5!
XBKDERR	EN2+7!, CHKVAL+1, CHKVAL+2, CHKVAL+4*, CHKVAL+5, EOJ+5!
XBKDFILE	EN1+11, EN1+12, EN1+14, EN1+15, CHECKDD+1, CHECKDD+3, EN2+4, EN2+5, EN2+15, EN2+16 , CHKVAL+5, CONFIRM+3, CONFIRM+4, CONFIRM+16, CONFIRM+17, LIST+1, MODIFY+1*, MODIFY+2, MODIFY+3, MODIFY+5 , MODIFY+6, ASK+2, ASK+4, ASK+5, ASK2+2, ASK2+4, ASK2+5, EOJ+5!
XBKDFLD	EOJ+5!
XBKDFLG	EN2+4, EN2+6, EN2+7!, EN2+9, EN2+11, EN2+12!, CHKVAL+5, CONFIRM+1, CONFIRM+12*, EOJ+5!
XBKDG	EOJ+5!
XBKDHI	HI+2, HI+3, HI+4, EN1+1, EN1+9, EN1+12, EN2+2!, EOJ+1, EOJ+5!
XBKDL	EN1+12, EN1+15, EN2+5, EN2+16, CONFIRM+4, CONFIRM+17, EOJ+5!
XBKDLAST	EN2+15, EN2+16, EN2+17, EOJ+5!
XBKDLO	LO+1*, LO+2, HI+1, HI+3, HI+4, EN1+1, EN1+9, EN1+11, EN2+2!, EOJ+1 , EOJ+5!
XBKDNDIC	EOJ+5!
XBKDTMP	TMP+2, TMP+3, TMP+4, EN1+6, EN1+7, EN1+8, EN1+15, EN2+7!, CHKVAL+4*, EOJ+5!
XBKDUCI	CONFIRM+5, EOJ+5!
XBKDX	EN2+5, EN2+7!, EN2+12!, CHKVAL+2, CHKVAL+4, CHKVAL+5, CONFIRM+4, CONFIRM+10, CONFIRM+11, CONFIRM+12 , CONFIRM+13, CONFIRM+17, LIST+1, MODIFY+6, ASK+1, ASK2+1, EOJ+5!
XBKDY	EN2+12!, MODIFY+4, MODIFY+5, ASK+3, ASK+4, ASK2+3*, ASK2+4, EOJ+5!
>> XBRHI	EOJ+1*
>> XBRLO	EOJ+1*
Y	EOJ+4!

Customize PDF page

Package: IHS VA Utilities

Routine: XBKD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 39

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: