Routine: BSTSUTIL

Information

BSTSUTIL ;GDIT/HS/BEE-Standard Terminology Utility Program ; 5 Nov 2012 9:53 AM

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	7	^%DT C^%DTC FILE^DIE ^DIK $$FMTE^DILIBF $$GET1^DIQ ^DIR
IHS Standard Terminology	4	$$ICD2SMD^BSTSAPI ($$TKO,CDJOB)^BSTSUTIL ($$FAIL,$$FPARMS,$$JBTIME,ELOG)^BSTSVOFL RESET^BSTSWSV1
Kernel	3	(,STAT)^%ZTLOAD ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$HTFM,$$NOW)^XLFDT $$VERSION^XPDUTL
DRG Grouper	1	$$IMP^ICDEXA

Package	Total	Caller Graph
IHS Standard Terminology	24	BSTS10P1 BSTS10P2 BSTSAPIA BSTSAPIB BSTSAPID BSTSAPIF BSTSAPIL BSTSCDET BSTSCFIX BSTSDTS0 BSTSDTS1 BSTSDTS2 BSTSDTS3 BSTSDTS4 BSTSDTS5 BSTSLSRC BSTSRPC BSTSRPT BSTSSRCH BSTSSTA BSTSUTIL BSTSVRSC BSTSVRSN BSTSVRXN
IHS Prenatal Care Module	1	BJPNGPIP

Entry Points

Name	Comments	DBIA/ICR reference
FMTE(Y)
TKO(STR,VAL)	;EP - Take off ending character
ICDKX	;EP - Kill cross-reference
DEL	;EP - Delete a codeset from cache
NDSX	;EP - Set cross-reference
VUSX	;EP - Set cross-reference
EP2EXDT(MSECS,FORMAT)	;EP - Convert UNIX (EPOCH) Date to External Date (and Time)
JOB	;Background process to preload SNOMED concepts corresponding to ICD9 values
FMDT2XML(DATE)	;EP - Convert Date/Time from FileMan to XML
SBKX	;EP - Kill cross-reference
DATE(DATE)	;EP - Convert standard date/time to a FileMan date/time
SQL2XML(DATE)	;EP - Convert date from SQL to XML formats
ICDSX	;EP - Set cross-reference
WRAP(OUT,TEXT,RM,IND)	;EP - Wrap the text and insert in array
COUNT	;Return totals of codesets and subsets
I2SKX	;EP - Kill cross-reference
VUKX	;EP - Kill cross-reference
ICD10(VDT)	;EP - Determine to return ICD9 or ICD10
CSET()	;EP - Get the codeset
DTS2FMDT(DATE,FORMAT)	;EP - Convert Date/Time from DTS to a FileMan date/time
DTCHG(X1,X2)	;EP - ADD/SUBTRACT FROM DATE
EP2FMDT(MSECS,DTONLY)	;EP - Convert UNIX (EPOCH) Date to FileMan Date (and Time)
I2SSX	;EP - Set cross-reference
CDJOB(NMIEN,TYPE,JTIME)	;EP - Kick off BSTS Background Process
PLOAD(NMIEN)	;Job off process to pre-load SNOMED concepts at site
NDKX	;EP - Kill cross-reference
CKJOB(ZTSK)	;Check the status of a job
STZ(TEXT)	;EP - Strip Leading Spaces
FMDT2EP(FDT)	;EP - FileMan Date (and Time) to UNIX (EPOCH) Date
EXDT2EP(EXDT)	;EP - External Date (and Time) to UNIX (EPOCH) Date
SBSX	;EP - Set cross-reference

External References

Name	Field # of Occurrence
^%DT	EXDT2EP+10, DATE+11, DTS2FMDT+16, SQL2XML+16
C^%DTC	DTCHG+6
^%ZTLOAD	CDJOB+64
STAT^%ZTLOAD	CKJOB+5
$$ICD2SMD^BSTSAPI	JOB+35
$$TKO^BSTSUTIL	JOB+27
CDJOB^BSTSUTIL	PLOAD+14
$$FAIL^BSTSVOFL	JOB+37
$$FPARMS^BSTSVOFL	JOB+13
$$JBTIME^BSTSVOFL	CDJOB+62
ELOG^BSTSVOFL	JOB+38
RESET^BSTSWSV1	JOB+34
FILE^DIE	CDJOB+22, CDJOB+68
^DIK	DEL+19, DEL+27
$$FMTE^DILIBF	FMTE+11
$$GET1^DIQ	CDJOB+13, PLOAD+3, JOB+24
^DIR	DEL+6
$$IMP^ICDEXA	ICD10+11
$$FMADD^XLFDT	CDJOB+63
$$FMTE^XLFDT	SQL2XML+19
$$FMTH^XLFDT	FMDT2EP+9, EXDT2EP+13
$$HTE^XLFDT	EP2EXDT+16
$$HTFM^XLFDT	EP2FMDT+16
$$NOW^XLFDT	CDJOB+63
$$VERSION^XPDUTL	ICD10+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No entries defined for codeset" Line Location: DEL+10
Function Call: WRITE	Prompt: !!,"DELETING TERMS" Line Location: DEL+13
Function Call: WRITE	Prompt: !,"TIEN: ",TIEN,?10,$G(^BSTS(9002318.3,TIEN,0)) Line Location: DEL+17
Function Call: WRITE	Prompt: !!,"DELETING CONCEPTS" Line Location: DEL+21
Function Call: WRITE	Prompt: !,"CIEN: ",CIEN,?10,$G(^BSTS(9002318.4,CIEN,0)) Line Location: DEL+25
Function Call: WRITE	Prompt: !,"Subsets: " Line Location: COUNT+9
Function Call: WRITE	Prompt: !,S,"=",SB(S) Line Location: COUNT+10
Function Call: WRITE	Prompt: !!,"Codesets: " Line Location: COUNT+11
Function Call: WRITE	Prompt: !,C,"=",CD(C) Line Location: COUNT+12
Routine Call	DIE Line Location: CDJOB+22 CDJOB+68
Routine Call	DIR Line Location: DEL+6

FileNo	Call Tags
^AUPNPROB - [#9000011]	GET1^DIQ
^BSTS(9002318.1 - [#9002318.1]	GET1^DIQ
^BSTS(9002318.3 - [#9002318.3]	Classic Fileman Calls
^BSTS(9002318.4 - [#9002318.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	JOB+17
^BSTS(9002318.1 - [#9002318.1]	PLOAD+6, PLOAD+7
^BSTS(9002318.3 - [#9002318.3]	DEL+10, DEL+14, DEL+16, DEL+17
^BSTS(9002318.4 - [#9002318.4]	ICDSX+3, ICDKX+3!, SBSX+3, SBKX+3!, NDSX+3, NDKX+3!, VUSX+3, VUKX+3!, I2SSX+3*, I2SKX+3! , CSET+1, DEL+22, DEL+24, DEL+25, COUNT+4, COUNT+7
^TMP("BSTS1POS"	JOB+8
^TMP("BSTSICD2SMD"	PLOAD+10, PLOAD+11, JOB+3, JOB+48
^TMP("BSTSRPC1"	JOB+9
^XTMP("BSTSLCMP"	JOB+10!, JOB+17, JOB+38, JOB+51, JOB+52!, JOB+53

Label References

Name	Line Occurrences
$$CKJOB	CDJOB+16
$$CSET	ICDSX+2, ICDKX+2, SBSX+2, SBKX+2, NDSX+2, NDKX+2, VUSX+2, VUKX+2, I2SSX+2, I2SKX+2
$$STZ	WRAP+22, WRAP+30, WRAP+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EXDT2EP+8~, EXDT2EP+9, DATE+6~, DATE+11, DTS2FMDT+8~, DTS2FMDT+10, DTS2FMDT+15, SQL2XML+11~, SQL2XML+16*
%H	DTCHG+2~
ABORT	JOB+5~, JOB+33, JOB+37, JOB+38
AUPNPROB	JOB+5~, JOB+17*, JOB+24
BSTSUPD	CDJOB+2~, CDJOB+20~
BSTSUPD(	CDJOB+21, CDJOB+67
C	DEL+2~, DEL+14, DEL+16, DEL+22, DEL+24, COUNT+1~, COUNT+7, COUNT+12
CD	COUNT+1~
CD(	COUNT+7*, COUNT+12
CIEN	DEL+23~, DEL+24*, DEL+25, DEL+26
CSET	ICDSX+1~, ICDSX+2, ICDSX+3, ICDKX+1~, ICDKX+2, ICDKX+3, SBSX+1~, SBSX+2, SBSX+3, SBKX+1~ , SBKX+2, SBKX+3, NDSX+1~, NDSX+2, NDSX+3, NDKX+1~, NDKX+2, NDKX+3, VUSX+1~, VUSX+2* , VUSX+3, VUKX+1~, VUKX+2, VUKX+3, I2SSX+1~, I2SSX+2, I2SSX+3, I2SKX+1~, I2SKX+2*, I2SKX+3
D	SQL2XML+11~, SQL2XML+21*, SQL2XML+23
DA	FMTE+10~, SBSX+3, SBKX+3, NDSX+3, NDKX+3, VUSX+3, VUKX+3, DEL+15~, DEL+18, DEL+23~ , DEL+26
DA(1	ICDSX+3, ICDKX+3, SBSX+3, SBKX+3, NDSX+3, NDKX+3, VUSX+3, VUKX+3, I2SSX+3, I2SKX+3 , CSET+1
DATE	DATE~, DATE+7, DATE+8, DATE+9, DATE+10, DATE+11, DTS2FMDT~, DTS2FMDT+11, DTS2FMDT+14, FMDT2XML~ , FMDT2XML+8, SQL2XML~, SQL2XML+12, SQL2XML+13, SQL2XML+14, SQL2XML+15, SQL2XML+16
DATM	FMTE+10~, FMTE+11, FMTE+12, FMTE+13, FMTE+14*, FMTE+15
DIK	DEL+15~, DEL+18, DEL+23~, DEL+26
DIR	DEL+2~
DIR("A"	DEL+5*
DIR(0	DEL+4*
DOLD	FMDT2EP+8~, FMDT2EP+10, FMDT2EP+12, EXDT2EP+8~, EXDT2EP+14, EXDT2EP+16
DOLH	FMDT2EP+8~, FMDT2EP+9, FMDT2EP+10, FMDT2EP+11, EXDT2EP+8~, EXDT2EP+13, EXDT2EP+14, EXDT2EP+15
DOLT	FMDT2EP+8~, FMDT2EP+11, FMDT2EP+12, EXDT2EP+8~, EXDT2EP+15, EXDT2EP+16
DT	ICD10+9
DTONLY	EP2FMDT~, EP2FMDT+10*, EP2FMDT+16
EPOCH	FMDT2EP+8~, FMDT2EP+12, FMDT2EP+14, EXDT2EP+8~, EXDT2EP+16, EXDT2EP+18
ERR	CDJOB+20~
ERROR	CDJOB+2~
EXDT	EXDT2EP~, EXDT2EP+9
FAIL	JOB+50~, JOB+51*, JOB+53
FCNT	JOB+18~, JOB+33, JOB+36, JOB+39*
FDT	FMDT2EP~, FMDT2EP+9
FIELD	CDJOB+2~, CDJOB+5, CDJOB+6, CDJOB+7, CDJOB+8, CDJOB+9, CDJOB+10, CDJOB+13, CDJOB+21, CDJOB+67
FMDT	SQL2XML+11~
FORMAT	EP2EXDT~, EP2EXDT+10*, EP2EXDT+16, DTS2FMDT~, DTS2FMDT+13
FWAIT	JOB+5~, JOB+14*, JOB+37
I	FMTE+10~, FMTE+13, WRAP+18~, WRAP+21, WRAP+22, COUNT+1~, COUNT+4, COUNT+7
ICD9	JOB+18~, JOB+24, JOB+27, JOB+30, JOB+35, JOB+37, JOB+38, JOB+42
IND	WRAP~, WRAP+6*, WRAP+22, WRAP+28, WRAP+29, WRAP+34
IO("Q"	CDJOB+25!
JTIME	CDJOB~, CDJOB+62
JTMP	JOB+5~, JOB+8*, JOB+10, JOB+30, JOB+42, JOB+45
LINE	WRAP+13~, WRAP+18~, WRAP+19, WRAP+20, WRAP+30, WRAP+33*
LV	TKO+14~, TKO+15*, TKO+16
M	SQL2XML+11~, SQL2XML+20*, SQL2XML+23
MDATE	EP2FMDT+9~, EP2FMDT+13, EP2FMDT+16, EP2EXDT+9~, EP2EXDT+13, EP2EXDT+16
MFAIL	JOB+5~, JOB+13, JOB+14, JOB+15, JOB+33, JOB+36, JOB+37
MSECS	EP2FMDT~, EP2FMDT+11, EP2FMDT+12, EP2FMDT+13, EP2FMDT+14, EP2EXDT~, EP2EXDT+11, EP2EXDT+12, EP2EXDT+13, EP2EXDT+14
MTIME	EP2FMDT+9~, EP2FMDT+14, EP2FMDT+16, EP2EXDT+9~, EP2EXDT+14, EP2EXDT+16
NMID	DEL+2~, DEL+8*, DEL+10, DEL+14, DEL+16, DEL+22, DEL+24
NMIEN	CDJOB~, CDJOB+13, CDJOB+21, CDJOB+67, PLOAD~, PLOAD+3, PLOAD+14
OUT	WRAP~, WRAP+20, WRAP+25, WRAP+30, WRAP+33
OUT(	WRAP+20, WRAP+25, WRAP+30, WRAP+33
OUT(1	WRAP+4*
PIECE	WRAP+13~, WRAP+14*, WRAP+17, WRAP+19, WRAP+21, WRAP+25, WRAP+28, WRAP+30, WRAP+33
RM	WRAP~, WRAP+5, WRAP+14, WRAP+25, WRAP+30
S	COUNT+1~, COUNT+4, COUNT+10
SB	COUNT+1~
SB(	COUNT+4*, COUNT+10
SP	WRAP+2~, WRAP+7*, WRAP+22, WRAP+29, WRAP+34
SPACE	WRAP+13~, WRAP+28*, WRAP+29, WRAP+33
ST	CKJOB+2~, CKJOB+6*, CKJOB+9, CKJOB+12
START	STZ+1~, STZ+2*, STZ+3
STR	TKO~, TKO+11, TKO+16*, TKO+18
STS	JOB+18~, JOB+33, JOB+35
SVAR	JOB+5~, JOB+9*, JOB+21, JOB+35
TEXT	WRAP~, WRAP+4, WRAP+10, WRAP+12, WRAP+14, WRAP+22, WRAP+25, WRAP+29, WRAP+30, WRAP+33 , WRAP+34*, STZ~, STZ+2, STZ+3
TIEN	DEL+15~, DEL+16*, DEL+17, DEL+18
TJOB	CDJOB+2~, CDJOB+13*, CDJOB+16, CDJOB+19
TRY	JOB+18~, JOB+33*, JOB+37
TYPE	CDJOB~, CDJOB+5, CDJOB+6, CDJOB+7, CDJOB+8, CDJOB+9, CDJOB+10, CDJOB+28, CDJOB+33, CDJOB+38 , CDJOB+43, CDJOB+48, CDJOB+53, CDJOB+58
U	CSET+1, JOB+14, JOB+15
UID	JOB+5~, JOB+7*, JOB+8, JOB+9
V	FMTE+10~, FMTE+13*
VAL	TKO~, TKO+12, TKO+15, TKO+16
VDT	ICD10~, ICD10+9*, ICD10+11
X	DTCHG+2~, DTCHG+7, EXDT2EP+8~, EXDT2EP+9, DATE+6~, DATE+11, DTS2FMDT+8~, DTS2FMDT+11, DTS2FMDT+14, FMDT2XML+7~ , FMDT2XML+8, FMDT2XML+10, SQL2XML+11~, SQL2XML+16, ICDSX+3, ICDKX+3, SBSX+3, SBKX+3, NDSX+3, NDKX+3 , VUSX+3, VUKX+3, I2SSX+3, I2SKX+3, DEL+2~
X1	DTCHG~, DTCHG+3
X2	DTCHG~, DTCHG+4
XX	FMTE+10~, FMTE+13*, FMTE+14
Y	EXDT2EP+8~, EXDT2EP+11, EXDT2EP+13, DATE+6~, DATE+12, DATE+14, DTS2FMDT+8~, DTS2FMDT+18, DTS2FMDT+20, SQL2XML+11~ , SQL2XML+17, SQL2XML+19, SQL2XML+20, SQL2XML+21, SQL2XML+22, SQL2XML+23*, SQL2XML+24, FMTE~, FMTE+11, DEL+2~ , DEL+7, DEL+8
ZTDESC	CDJOB+2~, CDJOB+29, CDJOB+34, CDJOB+39, CDJOB+44, CDJOB+49, CDJOB+54, CDJOB+59*
ZTDTH	CDJOB+2~, CDJOB+62, CDJOB+63
ZTIO	CDJOB+2~, CDJOB+61*
ZTRTN	CDJOB+2~, CDJOB+29, CDJOB+34, CDJOB+39, CDJOB+44, CDJOB+49, CDJOB+54, CDJOB+59*
ZTSAVE	CDJOB+2~
ZTSAVE("NMIEN"	CDJOB+30, CDJOB+35, CDJOB+40, CDJOB+45, CDJOB+50, CDJOB+55
ZTSK	CKJOB~, CDJOB+2~, CDJOB+67, JOB+7
ZTSK(2	CKJOB+6

Customize PDF page

Package: IHS Standard Terminology

Routine: BSTSUTIL

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: