Routine: BSTSCFIX

Information

BSTSCFIX ;GDIT/HS/BEE-Utility to fix duplicate terms in files ; 5 Nov 2012 9:53 AM

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS Standard Terminology	6	($$DESC,$$DSCLKP,$$SEARCH)^BSTSAPI ($$DETAIL,$$DSCSRCH)^BSTSCMCL ($$DTCHG,$$FMTE)^BSTSUTIL ($$FAIL,$$FPARMS,ELOG)^BSTSVOFL $$WSERVER^BSTSWSV ($$CKDTS,RESET)^BSTSWSV1
VA Fileman	6	(C,NOW)^%DTC EN^DDIOL DT^DICRW FILE^DIE $$GET1^DIQ ^DIR
Kernel	2	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Standard Terminology	2	BSTS DESC ID UTILITY BSTS10P4

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP - Main entry point
REPLACE(DSCID,BSTSWS)	;Look for replacement description id
STS(RUN,NODE,MSG)	;Enter RUN status entry
DSCLKP(BSTSWS,MFAIL,FWAIT)	;
XEN
CHECK()	;Look for bad entries
ESTS(RUN,FILE,FIELD,IEN,FROM,TO)	;Log changed entry
START	;Called by background job
FIX1	;Kick off process to convert invalid description ids to valid description ids
FIX	;Kick off background fix process
DSC(BSTSWS,RUN)	;Loop through files and replace bad entries

External References

Name	Field # of Occurrence
C^%DTC	START+15
NOW^%DTC	START+14, ESTS+9
^%ZTLOAD	FIX1+9
$$DESC^BSTSAPI	CHECK+41, CHECK+60, CHECK+77, CHECK+95, REPLACE+15
$$DSCLKP^BSTSAPI	REPLACE+22
$$SEARCH^BSTSAPI	CHECK+21, FIX+14
$$DETAIL^BSTSCMCL	DSCLKP+37
$$DSCSRCH^BSTSCMCL	DSCLKP+16
$$DTCHG^BSTSUTIL	DSC+5
$$FMTE^BSTSUTIL	DSC+6
$$FAIL^BSTSVOFL	REPLACE+26, DSCLKP+18, DSCLKP+39
$$FPARMS^BSTSVOFL	REPLACE+5
ELOG^BSTSVOFL	REPLACE+27, DSCLKP+19, DSCLKP+40
$$WSERVER^BSTSWSV	START+28
$$CKDTS^BSTSWSV1	START+44
RESET^BSTSWSV1	CHECK+40, CHECK+59, CHECK+76, CHECK+94, FIX+13, REPLACE+21, DSCLKP+15, DSCLKP+36
EN^DDIOL	EN+9
DT^DICRW	START+8
FILE^DIE	DSC+34, DSC+53, DSC+70, DSC+87
$$GET1^DIQ	CHECK+37, CHECK+57, CHECK+75, CHECK+84, CHECK+93, DSC+24, DSC+27, DSC+44, DSC+63, DSC+80
^DIR	EN+13, CHECK+17, CHECK+112, FIX+25
$$FMADD^XLFDT	FIX1+8
$$NOW^XLFDT	FIX1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"A background fix process is running. Please try again later" Line Location: CHECK+4
Function Call: WRITE	Prompt: !,"Current Status: ",$G(^XTMP("BSTSCFIX",RUN,"STS")) Line Location: CHECK+6
Function Call: WRITE	Prompt: !!,"This option loops through the PROBLEM, PROVIDER NARRATIVE, FAMILY HISTORY" Line Location: CHECK+12
Function Call: WRITE	Prompt: !,"and V POV files and locates concepts with no detail associated with them.",! Line Location: CHECK+13
Function Call: WRITE	Prompt: !!,"BSTS is set to local. It must be running properly in order to run this option" Line Location: CHECK+23
Function Call: WRITE	Prompt: !,"Please run the STS option in the BSTSMENU to troubleshoot the BSTS connection" Line Location: CHECK+24
Function Call: WRITE	Prompt: !!,"Reviewing PROBLEM file entries: " Line Location: CHECK+31
Function Call: WRITE	Prompt: !,"Problem IEN",?20,"Patient",?60,"Description Id" Line Location: CHECK+32
Function Call: WRITE	Prompt: !,IEN,?20,$P($G(^DPT(DFN,0)),U),?60,DSCID Line Location: CHECK+48
Function Call: WRITE	Prompt: !!,"Reviewing PROVIDER NARRATIVE entries: " Line Location: CHECK+51
Function Call: WRITE	Prompt: !,"IEN",?60,"Description Id" Line Location: CHECK+52
Function Call: WRITE	Prompt: !,IEN,?60,DSCID Line Location: CHECK+66
Function Call: WRITE	Prompt: !!,"Reviewing V POV entries: " Line Location: CHECK+69
Function Call: WRITE	Prompt: !,"VPOV IEN",?15,"Patient",?42,"Visit",?60,"Description Id" Line Location: CHECK+70
Function Call: WRITE	Prompt: !,IEN,?15,$E($P($G(^DPT(DFN,0)),U),1,23),?41,$E($$GET1^DIQ(9000010.07,IEN_",",".03","E"),1,17),?60,DSCID Line Location: CHECK+84
Function Call: WRITE	Prompt: !!,"Reviewing FAMILY HISTORY entries: " Line Location: CHECK+87
Function Call: WRITE	Prompt: !,"IEN",?15,"Patient",?60,"Description Id" Line Location: CHECK+88
Function Call: WRITE	Prompt: !,IEN,?15,$P($G(^DPT(DFN,0)),U),?60,DSCID Line Location: CHECK+102
Function Call: WRITE	Prompt: !!,"No issues were encountered. There is no need to run the fix option." Line Location: CHECK+106
Function Call: WRITE	Prompt: !!,"Concepts without detail were encountered",! Line Location: CHECK+109
Function Call: WRITE	Prompt: !!,"A background fix process is running. Please try again later" Line Location: FIX+4
Function Call: WRITE	Prompt: !,"Current Status: ",$G(^XTMP("BSTSCFIX",RUN,"STS")) Line Location: FIX+6
Function Call: WRITE	Prompt: !!,"BSTS is set to local. It must be running properly in order to run this option" Line Location: FIX+16
Function Call: WRITE	Prompt: !,"Please run the STS option in the BSTSMENU to troubleshoot the BSTS connection" Line Location: FIX+17
Function Call: WRITE	Prompt: !!,"This option kicks off a background process which will attempt to fix concepts" Line Location: FIX+20
Function Call: WRITE	Prompt: !,"with no detail associated with them.",! Line Location: FIX+21
Routine Call	DIE Line Location: DSC+34 DSC+53 DSC+70 DSC+87
Routine Call	DIR Line Location: EN+13 CHECK+17 CHECK+112 FIX+25

FileNo	Call Tags
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ
^AUPNFH - [#9000014]	GET1^DIQ
^AUTNPOV - [#9999999.27]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNFH - [#9000014]	CHECK+89, CHECK+101, DSC+75
^AUPNPROB - [#9000011]	CHECK+33, CHECK+39, CHECK+47, DSC+19
^AUPNVPOV - [#9000010.07]	CHECK+71, CHECK+83, DSC+58
^AUTNPOV - [#9999999.27]	CHECK+53, DSC+39
^DPT - [#2]	CHECK+48, CHECK+84, CHECK+102
^TMP("BSTSCMCL"	DSCLKP+10
^TMP("BSTSPDET"	DSCLKP+9
^XTMP("BSTSCFIX"	CHECK+2, CHECK+5, CHECK+6, CHECK+8, FIX+2, FIX+5, FIX+6, FIX+8, START+3, START+18! , START+19, START+20, START+21, START+22, START+23, START+24!, START+25!, START+52, DSC+19, DSC+39 , DSC+58, DSC+75, REPLACE+11, REPLACE+16, REPLACE+23, REPLACE+27, REPLACE+37, DSCLKP+19, DSCLKP+40, STS+6 , ESTS+12*

Label References

Name	Line Occurrences
$$CHECK	EN+19
$$DSC	START+48
$$DSCLKP	REPLACE+34
$$REPLACE	DSC+30, DSC+48, DSC+66, DSC+83
ESTS	DSC+35, DSC+54, DSC+71, DSC+88
FIX	EN+22
STS	START+33, START+44, START+47, START+51, DSC+19, DSC+20, DSC+39, DSC+40, DSC+58, DSC+59 , DSC+75, DSC+76
XEN	EN+16, EN+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+5~, START+23, ESTS+6~, ESTS+12
%H	START+5~, ESTS+6~
%I	START+5~, ESTS+6~
ABORT	REPLACE+2~, REPLACE+20, REPLACE+26, REPLACE+27, DSCLKP+2~, DSCLKP+14, DSCLKP+18, DSCLKP+19, DSCLKP+35, DSCLKP+39 , DSCLKP+40
BST	EN+2~, EN+9, EN+10!
BST(1	EN+5*
BST(2	EN+6*
BST(3	EN+7*
BST(4	EN+8*
BSTSSRV	START+5~, START+28, START+33, START+36
BSTSSRV(	START+36, START+39
BSTSUPD	DSC+21~, DSC+41~, DSC+60~, DSC+77~
BSTSUPD(	DSC+52, DSC+69
BSTSUPD(9000011	DSC+33*
BSTSUPD(9000014	DSC+86*
BSTSWS	START+38~, START+39*, START+44, START+48, DSC~, DSC+30, DSC+48, DSC+66, DSC+83, REPLACE~ , REPLACE+34, DSCLKP~, DSCLKP+16, DSCLKP+37
BSTSWS("BCTCHCT"	DSC+13*
BSTSWS("BCTCHRC"	DSC+12*
BSTSWS("DAT"	DSC+15*
BSTSWS("DTSID"	DSCLKP+29*
BSTSWS("MAXRECS"	DSC+11*
BSTSWS("NAMESPACEID"	DSC+8*
BSTSWS("RET"	DSC+14*
BSTSWS("SEARCH"	REPLACE+33*, DSCLKP+7
BSTSWS("SNAPDT"	DSC+10*
BSTSWS("STYPE"	DSC+7*, DSCLKP+8
BSTSWS("SUBSET"	DSC+9*
BSTSWS("TBYPASS"	DSC+16*
BSTSWS("TYPE"	START+40
BSTSWS("URLROOT"	START+44, START+47
CSTS	START+38~, START+40*
CT	EN+2~
DEBUG	START+5~, START+11*, START+28
DESC	CHECK+34~, CHECK+41, CHECK+44, CHECK+54~, CHECK+60, CHECK+63, CHECK+77, CHECK+80, CHECK+90~, CHECK+95 , CHECK+98, REPLACE+2~, REPLACE+15*, REPLACE+16
DESCID	CHECK+72~
DFN	CHECK+34~, CHECK+47, CHECK+48, CHECK+72~, CHECK+83, CHECK+84, CHECK+90~, CHECK+101*, CHECK+102
DIR	EN+2~, CHECK+10~, FIX+10~
DIR("A"	CHECK+15, CHECK+110, FIX+23*
DIR("B"	CHECK+16, CHECK+111, FIX+24*
DIR(0	EN+12, CHECK+16, CHECK+111, FIX+24
DLIST	DSCLKP+2~, DSCLKP+10*, DSCLKP+11, DSCLKP+22, DSCLKP+32, DSCLKP+44, DSCLKP+49, DSCLKP+50
DSC	DSCLKP+46~, DSCLKP+50*, DSCLKP+56, DSCLKP+60
DSCID	CHECK+34~, CHECK+39, CHECK+41, CHECK+48, CHECK+54~, CHECK+58, CHECK+60, CHECK+66, CHECK+72~, CHECK+75* , CHECK+77, CHECK+84, CHECK+90~, CHECK+93, CHECK+95, CHECK+102, DSC+2~, DSC+21~, DSC+27, DSC+30 , DSC+35, DSC+41~, DSC+45, DSC+48, DSC+60~, DSC+63, DSC+66, DSC+71, DSC+77~, DSC+80* , DSC+83, DSC+88, REPLACE~, REPLACE+11, REPLACE+15, REPLACE+16, REPLACE+22, REPLACE+23, REPLACE+26, REPLACE+27 , REPLACE+33, REPLACE+37
DT	START+8, START+15, START+20, DSC+5
DTSID	DSCLKP+2~, DSCLKP+22*, DSCLKP+29, DSCLKP+39, DSCLKP+40
DUZ	START+23, ESTS+12
ERROR	DSC+21~, DSC+41~, DSC+60~, DSC+77~
ERSLT	DSCLKP+26~, DSCLKP+37
FCNT	REPLACE+2~, REPLACE+20, REPLACE+25, REPLACE+28, DSCLKP+2~, DSCLKP+14, DSCLKP+17, DSCLKP+20, DSCLKP+35, DSCLKP+38 , DSCLKP+41*
FIELD	ESTS~, ESTS+4, ESTS+12
FILE	ESTS~, ESTS+3, ESTS+12
FIX	EN+2~, EN+19, CHECK+10~, CHECK+28, CHECK+46, CHECK+65, CHECK+82, CHECK+100, CHECK+105, CHECK+113* , CHECK+115
FROM	ESTS~, ESTS+12
FWAIT	REPLACE+2~, REPLACE+6*, REPLACE+26, REPLACE+34, DSCLKP~, DSCLKP+18, DSCLKP+39
IEN	CHECK+10~, CHECK+33, CHECK+37, CHECK+39, CHECK+47, CHECK+48, CHECK+53, CHECK+57, CHECK+66, CHECK+71* , CHECK+75, CHECK+83, CHECK+84, CHECK+89, CHECK+93, CHECK+101, CHECK+102, DSC+2~, DSC+19, DSC+20 , DSC+24, DSC+27, DSC+33, DSC+35, DSC+39, DSC+40, DSC+44, DSC+52, DSC+54, DSC+58 , DSC+59, DSC+63, DSC+69, DSC+71, DSC+75*, DSC+76, DSC+80, DSC+86, DSC+88, ESTS~ , ESTS+12
II	START+5~, START+36*, START+41
IO("Q"	FIX1+4!
MAPTO	DSC+21~, DSC+30, DSC+33, DSC+35, DSC+41~, DSC+48, DSC+51, DSC+60~, DSC+66, DSC+69 , DSC+71, DSC+77~, DSC+83, DSC+86, DSC+88
MFAIL	REPLACE+2~, REPLACE+5, REPLACE+6, REPLACE+7, REPLACE+20, REPLACE+25, REPLACE+26, REPLACE+34, DSCLKP~, DSCLKP+14 , DSCLKP+17, DSCLKP+18, DSCLKP+35, DSCLKP+38, DSCLKP+39
MSG	STS~, STS+6
NARR	CHECK+54~, CHECK+57, CHECK+58, DSC+41~, DSC+44, DSC+45, DSC+51*, DSC+52, DSC+54
NMID	DSCLKP+2~
NODE	STS~, STS+3, STS+6
ONARR	DSC+41~, DSC+44*, DSC+54
PRI	START+5~, START+36*, START+39
REMAPTO	DSC+2~, REPLACE+2~, REPLACE+11, REPLACE+34, REPLACE+37, REPLACE+39, DSCLKP+2~, DSCLKP+5, DSCLKP+57, DSCLKP+62
RES	DSCLKP+2~, DSCLKP+16
RUN	CHECK+3~, CHECK+5, CHECK+6, FIX+3~, FIX+5, FIX+6, START+5~, START+22*, START+23, START+33 , START+44, START+47, START+48, START+51, DSC~, DSC+19, DSC+20, DSC+35, DSC+39, DSC+40 , DSC+54, DSC+58, DSC+59, DSC+71, DSC+75, DSC+76, DSC+88, STS~, STS+2, STS+6 , ESTS~, ESTS+2, ESTS+12
SEARCH	DSCLKP+2~, DSCLKP+7*, DSCLKP+18, DSCLKP+19, DSCLKP+56
SLIST	DSCLKP+2~, DSCLKP+9*, DSCLKP+11
SNAPDT	DSC+2~, DSC+5, DSC+6, DSC+10
SRV	START+38~, START+41*, START+44, START+47
STS	CHECK+10~, CHECK+21, CHECK+22, FIX+10~, FIX+14, FIX+15, START+5~, START+28, START+36, START+44* , START+48, START+51, DSC+2~, DSC+19, DSC+36, DSC+39, DSC+55, DSC+58, DSC+72, DSC+75* , DSC+89, REPLACE+2~, REPLACE+20, REPLACE+22, REPLACE+23, REPLACE+24, DSCLKP+2~, DSCLKP+14, DSCLKP+16, DSCLKP+26~ , DSCLKP+35, DSCLKP+37
STYPE	DSCLKP+2~, DSCLKP+8, DSCLKP+26~, DSCLKP+44, DSCLKP+49, DSCLKP+50
TCNT	DSCLKP+26~, DSCLKP+44*, DSCLKP+49, DSCLKP+50
TERM	DSCLKP+46~, DSCLKP+49*, DSCLKP+53, DSCLKP+57, DSCLKP+60
TIME	START+38~
TLIST	DSCLKP+26~
TLIST(	DSCLKP+53, DSCLKP+57, DSCLKP+60*
TO	ESTS~, ESTS+12
TRY	REPLACE+2~, REPLACE+20, REPLACE+26, DSCLKP+2~, DSCLKP+14, DSCLKP+18, DSCLKP+35*, DSCLKP+39
TYPE	START+38~, START+40*, START+48
U	CHECK+39, CHECK+47, CHECK+48, CHECK+83, CHECK+84, CHECK+101, CHECK+102, START+19, START+20, START+21 , START+23, REPLACE+6, REPLACE+7, REPLACE+16, DSCLKP+22, DSCLKP+50, ESTS+12
VAR	CHECK+10~, FIX+10~
X	EN+2~, CHECK+10~, FIX+10~, START+5~, START+19, ESTS+6~
X1	START+5~, START+15*
X2	START+5~, START+15*
Y	EN+2~, EN+16, EN+19*, EN+22, CHECK+10~, CHECK+18, CHECK+113, FIX+10~, FIX+26
ZTDESC	FIX1+1~, FIX1+6*
ZTDTH	FIX1+1~, FIX1+8*
ZTIO	FIX1+1~, FIX1+7*
ZTRTN	FIX1+1~, FIX1+6*
ZTSK	FIX1+1~

Customize PDF page

Package: IHS Standard Terminology

Routine: BSTSCFIX

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: