Routine: BTIULO

Information

BTIULO ; IHS/ITSC/LJF - CODE FOR IHS OBJECTS ;16-Sep-2013 15:45;DU

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Adverse Reaction Tracking	2	EN1^GMRADPT EN1^GMRAOR2
IHS Electronic Health Record	2	$$UNI^BEHOARCV $$VSTR2VIS^BEHOENCX
IHS VA Utilities	2	ENP^XBDIQ1 GUIR^XBLM
Kernel	2	($$FMTE,$$NOW)^XLFDT ($$LOW,$$REPEAT)^XLFSTR
VA Fileman	2	C^%DTC $$GET1^DIQ
Registration	1	TERM^VALM0
Taxonomy	1	$$ICD^ATXCHK
Text Integration Utility	1	$$WRAP^TIULS
VueCentric Framework	1	($$GETVAR,GETVAR)^CIAVMEVT

Entry Points

Name	Comments	DBIA/ICR reference
VMED(VISIT)	;EP; returns all medications given for a visit
VLAB(VISIT,ABN)	;EP; returns all lab results given for a visit ; ABN=1 means return abnormal results only (optional)
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
VMSET	; -- set string into wrapped line
DETAIL(DFN,TARGET)	;
TAXOP(DFN,TAXNM)	;EP; returns op/proc date and prov narrative ; TAXNM=taxonomy name
SP(N)	; -- SUBRTN to pad N number of spaces
VMEDEX(VISIT)	;EP; returns all medications given for a visit plus sig
EDEVAL	; -- subrtn to find pat ed evaluations
SIG(VMED,SSIG)	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG ; VMED=ien in v med file; SSIG=short sig
EDABBRV(X)	; -- returns education topic abbreviation
KILLHS	; kill health summary variables (copied from KILLS^APCHS0)
LASTDIFF(DFN,TYPE,VISIT)	;EP; returns last documnt of diff type for patient
NEXTAPPT(DFN)	;EP; returns patient's next appt
ADRX
HS(APCHSPAT,CODE,APCHSDLM)	;EP; -- calls HS component ; CODE=entry point to call
TAXDX(DFN,TAXNM)	;EP; returns dx date and prov narrative ; TAXNM=taxonomy name
RECON(ADR)	;Get reconciliation data
AGE(DFN)	;EP; returns printable age
FUTAPPT(DFN)	;EP; returns patient's future appts
CLS	;Add classes
RELIGION(DFN)	;EP; Patient NAME
UPDATE(DUZ,DFN,VISIT,TIUSUB)	;EP -- called to populate multiple objects ; -- TIUSUB=subrtn for finding data
SYM	;Add symptoms
PTED(VISIT)	;EP; returns all pat ed topics for visit
ALLERGY(DFN)	;EP; returns allergies and ADRs
SU(DFN)	;EP; Patient Service Unit of Residence
ING	;Add Ingredients

External References

Name	Field # of Occurrence
C^%DTC	HS+8
$$ICD^ATXCHK	TAXDX+6, TAXOP+6
$$UNI^BEHOARCV	DETAIL+12
$$VSTR2VIS^BEHOENCX	LASTDIFF+9
$$GETVAR^CIAVMEVT	LASTDIFF+7
GETVAR^CIAVMEVT	LASTDIFF+5
$$GET1^DIQ	RELIGION+1, SU+2, SU+5, LASTDIFF+15, AGE+1, PTED+3, NEXTAPPT+13, FUTAPPT+12, VMED+4, EDABBRV+1 , RECON+6, RECON+7, RECON+9
EN1^GMRADPT	ALLERGY+3, DETAIL+5
EN1^GMRAOR2	DETAIL+11
$$WRAP^TIULS	VMED+5, VMSET+2, ALLERGY+14
TERM^VALM0	HS+12
ENP^XBDIQ1	TAXDX+7, TAXOP+7, VLAB+6, VMEDEX+5, EDEVAL+6
GUIR^XBLM	HS+11
$$FMTE^XLFDT	LASTDIFF+17, NEXTAPPT+12, FUTAPPT+10
$$NOW^XLFDT	NEXTAPPT+3, FUTAPPT+3
$$LOW^XLFSTR	AGE+1
$$REPEAT^XLFSTR	PAD+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVMED - [#9000010.14]	GET1^DIQ
^AUPNVPED - [#9000010.16]	GET1^DIQ
^BEHOCIR - [#90461.63]	GET1^DIQ
90461.632	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ
^AUTTEDT - [#9999999.09]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	LASTDIFF+9
^ATXAX("B"	TAXDX+3, TAXOP+3
^AUPNPAT - [#9000001]	SU+3
^AUPNVLAB("AD"	VLAB+4
^AUPNVMED("AD"	VMED+3, VMEDEX+4
^AUPNVPED("AD"	PTED+2, EDEVAL+2, EDEVAL+5
^AUPNVPOV - [#9000010.07]	TAXDX+6
^AUPNVPOV("AA"	TAXDX+4, TAXDX+5
^AUPNVPRC - [#9000010.08]	TAXOP+6
^AUPNVPRC("AA"	TAXOP+4, TAXOP+5
^BEHOCIR("G"	RECON+3, RECON+4
^DPT - [#2]	NEXTAPPT+4, NEXTAPPT+5, FUTAPPT+4, FUTAPPT+5
^PS(51 - [#51]	SIG+4
^SC - [#44]	NEXTAPPT+7, NEXTAPPT+8, NEXTAPPT+9, FUTAPPT+7, FUTAPPT+8, FUTAPPT+9, FUTAPPT+11
^TIU(8925 - [#8925]	LASTDIFF+16
^TMP("BTIU"	HS+4!, HS+14, HS+15, HS+17
^TMP("BTIULO"	NEXTAPPT+2!, NEXTAPPT+14, FUTAPPT+2!, FUTAPPT+13, FUTAPPT+14, FUTAPPT+16, VLAB+3!, VLAB+12, VLAB+13, VMED+2! , VMED+6, VMED+7, VMEDEX+2!, VMEDEX+8, VMSET+5, ALLERGY+2!, ALLERGY+15, UPDATE+3!, EDEVAL+2, EDEVAL+9* , HS+4!, HS+17*

Label References

Name	Line Occurrences
$$EDABBRV	EDEVAL+7
$$PAD	VLAB+9, VLAB+10, SP+1
$$SIG	VMEDEX+7
$$SP	FUTAPPT+9, EDEVAL+7
@(	UPDATE+5
ADRX	DETAIL+6
CLS	DETAIL+23
ING	DETAIL+22
KILLHS	HS+12
RECON	DETAIL+24
SYM	DETAIL+21
VMSET	VMEDEX+6, VMEDEX+7

Naked Globals

Name	Field # of Occurrence
^(	HS+15
^(9	SIG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILLHS+1!
ABN	VLAB~, VLAB+8, VLAB+13
ADR	ALLERGY+1~, ALLERGY+8, ALLERGY+11, ALLERGY+13, ALLERGY+14, DETAIL+2~, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+24 , RECON~, RECON+3, RECON+4
AIEN	RECON+1~, RECON+5*, RECON+6, RECON+7
ALLRG	ALLERGY+1~, ALLERGY+8, ALLERGY+10, ALLERGY+12*, ALLERGY+14, DETAIL+2~
APCHSBRK	HS+2~, HS+7*, KILLHS+1!
APCHSCKP	HS+2~, HS+6*, KILLHS+1!
APCHSCVD	HS+3~, HS+9*, KILLHS+1!
APCHSDLM	HS~, HS+8*, KILLHS+2!
APCHSDLS	KILLHS+2!
APCHSEGC	KILLHS+2!
APCHSEGH	HS+2~, HS+7*, KILLHS+2!
APCHSEGL	HS+3~, HS+7*, KILLHS+2!
APCHSEGN	KILLHS+2!
APCHSEGP	KILLHS+2!
APCHSEGT	KILLHS+2!
APCHSHD2	KILLHS+1!
APCHSHDR	KILLHS+1!
APCHSICF	KILLHS+1!
APCHSN	KILLHS+2!
APCHSNDM	KILLHS+2!
APCHSNPG	HS+2~, HS+6*, KILLHS+1!
APCHSP	KILLHS+1!
APCHSPAT	HS~, HS+5
APCHSPG	KILLHS+1!
APCHSQ	KILLHS+2!
APCHSQIT	KILLHS+1!
APCHSTYP	HS+2~
APCHSVAR	KILLHS+1!
BTIU	VMEDEX+5~
BTIU(	VMEDEX+6, VMEDEX+7
BY	RECON+1~, RECON+7*, RECON+8
CAUSE	DETAIL+1~, DETAIL+13, DETAIL+14, DETAIL+16
CLN	NEXTAPPT+1~, FUTAPPT+1~
CNT	FUTAPPT+1~, FUTAPPT+3, FUTAPPT+13, FUTAPPT+14, FUTAPPT+15, HS+2~, HS+16, HS+17, DETAIL+1~, DETAIL+2~ , DETAIL+4, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+20 , DETAIL+25, DETAIL+26, SYM+1, SYM+2, SYM+4, SYM+5, CLS+1, CLS+2, CLS+4, CLS+5 , ING+1, ING+2, ING+4, ING+5, RECON+10, RECON+11, RECON+12*, RECON+13
CODE	HS~, HS+11
COUNT	VLAB+2~, VLAB+12, VMED+1~, VMED+6, VMSET+1~, VMSET+3, VMSET+5, ALLERGY+15
D	PAD~, PAD+2
DATA	NEXTAPPT+1~, NEXTAPPT+5, NEXTAPPT+6, NEXTAPPT+7, NEXTAPPT+8, NEXTAPPT+9, NEXTAPPT+10, FUTAPPT+1~, FUTAPPT+5, FUTAPPT+6 , FUTAPPT+7, FUTAPPT+8, FUTAPPT+9, FUTAPPT+11, FUTAPPT+12
DATE	LASTDIFF+14~, LASTDIFF+15, LASTDIFF+16, LASTDIFF+17, NEXTAPPT+1~, NEXTAPPT+3, NEXTAPPT+4, NEXTAPPT+5, NEXTAPPT+7, NEXTAPPT+8 , NEXTAPPT+9, NEXTAPPT+10, FUTAPPT+1~, FUTAPPT+3, FUTAPPT+4, FUTAPPT+5, FUTAPPT+7, FUTAPPT+8, FUTAPPT+9, FUTAPPT+10 , FUTAPPT+11
DFN	RELIGION~, RELIGION+1, SU~, SU+2, SU+3, LASTDIFF~, LASTDIFF+9, LASTDIFF+16, AGE~, AGE+1 , TAXDX~, TAXDX+4, TAXDX+5, TAXOP~, TAXOP+4, TAXOP+5, NEXTAPPT~, NEXTAPPT+4, NEXTAPPT+5, NEXTAPPT+8 , FUTAPPT~, FUTAPPT+4, FUTAPPT+5, FUTAPPT+8, ALLERGY~, UPDATE~, DETAIL~
DT	HS+8
DUZ	UPDATE~
FROM	RECON+1~, RECON+9*, RECON+13
GMRA	ALLERGY+1~, ALLERGY+3, DETAIL+2~, DETAIL+5
GMRAL	ALLERGY+1~, ALLERGY+4, DETAIL+2~, DETAIL+6, DETAIL+8
GMRAL(	ALLERGY+6, ALLERGY+9, ALLERGY+10, ALLERGY+11, DETAIL+10
GMRAL(0	ALLERGY+6
IEN	TAXDX+2~, TAXDX+5, TAXDX+6, TAXDX+7, TAXOP+2~, TAXOP+5, TAXOP+6, TAXOP+7, RECON+1~, RECON+4* , RECON+5
INIEN	DETAIL+1~
L	PAD~, PAD+2
LBL	DETAIL+1~
LINE	TAXDX+2~, TAXDX+3, TAXDX+4, TAXDX+5, TAXDX+8, TAXDX+9, TAXDX+10, TAXOP+2~, TAXOP+3, TAXOP+4 , TAXOP+5, TAXOP+8, TAXOP+9, TAXOP+10, NEXTAPPT+1~, NEXTAPPT+12, NEXTAPPT+13, NEXTAPPT+14, EDEVAL+1~, EDEVAL+7* , EDEVAL+8*, EDEVAL+9
LN	FUTAPPT+1~, FUTAPPT+10, FUTAPPT+11, FUTAPPT+12*, FUTAPPT+13
LP	DETAIL+1~, SYM+3, SYM+5, CLS+3, CLS+5, ING+3*, ING+5
LP2	DETAIL+1~
N	SP~, SP+1
OI	NEXTAPPT+1~, NEXTAPPT+9, NEXTAPPT+10, NEXTAPPT+14, FUTAPPT+1~, FUTAPPT+9, FUTAPPT+14
PIECE	SIG+2~, SIG+3*, SIG+4
RDT	TAXDX+2~, TAXDX+4, TAXDX+5, TAXOP+2~, TAXOP+4, TAXOP+5
REASON	DETAIL+1~
REC	RECON+1~, RECON+2, RECON+3, RECON+4, RECON+5, RECON+9
RXN	DETAIL+1~, DETAIL+13, DETAIL+14, DETAIL+18, DETAIL+20
RXN("I"	DETAIL+22, ING+3, ING+5
RXN("S"	DETAIL+21, SYM+3, SYM+5
RXN("V"	DETAIL+23, CLS+3, CLS+5
SIG	SIG+2~, SIG+3, SIG+5, SIG+6
SSIG	SIG~, SIG+3, SIG+4
TARGET	DETAIL~, DETAIL+3, DETAIL+8, DETAIL+9, DETAIL+16, DETAIL+18, DETAIL+20, DETAIL+26, ADRX, SYM+2 , SYM+5, CLS+2, CLS+5, ING+2, ING+5, RECON+11, RECON+13
TAX	TAXDX+2~, TAXDX+3, TAXDX+6, TAXOP+2~, TAXOP+3, TAXOP+6
TAXNM	TAXDX~, TAXDX+3, TAXOP~, TAXOP+3
TIUA	VLAB+2~, VLAB+5!
TIUA(	VLAB+7, VLAB+8, VLAB+9, VLAB+10, VLAB+11
TIUA(1109	VLAB+7, VLAB+11
TIUCNT	VMEDEX+1~, VMEDEX+3, VMSET+4, VMSET+5, UPDATE+2~, EDEVAL+4, EDEVAL+9, EDEVAL+10
TIUR	TAXDX+2~, TAXDX+7!, TAXOP+2~, TAXOP+7!
TIUR(	TAXDX+8, TAXDX+9, TAXOP+8, TAXOP+9
TIUSUB	UPDATE~, UPDATE+5
TIUX	PTED+1~, PTED+2, PTED+3, VLAB+2~, VLAB+4, VLAB+6, VMED+1~, VMED+3, VMED+4, VMEDEX+1~ , VMEDEX+3, VMEDEX+4, VMEDEX+5, VMEDEX+7, EDEVAL+1~, EDEVAL+4, EDEVAL+5*, EDEVAL+6
TIUY	PTED+1~, PTED+2, PTED+3, PTED+4, VLAB+2~, VLAB+4, VLAB+9, VLAB+10, VLAB+11, VLAB+12 , VMED+1~, VMED+3, VMED+4, VMED+5, VMED+6, VMEDEX+1~, VMEDEX+3, VMEDEX+6, VMEDEX+7, VMSET+2* , VMSET+3, VMSET+5, ALLERGY+1~, ALLERGY+14, ALLERGY+15, EDEVAL+1~, EDEVAL+4, DETAIL+2~
TIUZ	EDEVAL+1~
TIUZ(	EDEVAL+7, EDEVAL+8
TYPE	LASTDIFF~, LASTDIFF+16
U	SU+3, NEXTAPPT+6, NEXTAPPT+9, NEXTAPPT+10, NEXTAPPT+13, FUTAPPT+6, FUTAPPT+9, FUTAPPT+11, SIG+4, ALLERGY+6 , ALLERGY+10, ALLERGY+11, DETAIL+13, DETAIL+14, DETAIL+16, DETAIL+18, DETAIL+20, CLS+5, ING+5
UNI	DETAIL+2~, DETAIL+12*, DETAIL+13
VISIT	LASTDIFF~, LASTDIFF+4, LASTDIFF+5, LASTDIFF+8, LASTDIFF+9, LASTDIFF+11, LASTDIFF+15, PTED~, PTED+2, VLAB~ , VLAB+4, VMED~, VMED+3, VMEDEX~, VMEDEX+4, UPDATE~, UPDATE+4, EDEVAL+2, EDEVAL+5
VMED	SIG~
VST	LASTDIFF+6~, LASTDIFF+7, LASTDIFF+8, LASTDIFF+9, LASTDIFF+11
WHEN	RECON+1~, RECON+6, RECON+8, RECON+11
X	SU+1~, SU+2, SU+3, SU+4, SU+5, LASTDIFF+6~, LASTDIFF+9, NEXTAPPT+1~, NEXTAPPT+7, NEXTAPPT+8 , NEXTAPPT+9, FUTAPPT+1~, FUTAPPT+7, FUTAPPT+8, FUTAPPT+9, FUTAPPT+11, SIG+2~, SIG+3, SIG+4, SIG+5 , ALLERGY+1~, ALLERGY+4, ALLERGY+6, ALLERGY+7, ALLERGY+9, ALLERGY+10, ALLERGY+11, ALLERGY+14, EDABBRV~, EDABBRV+1 , HS+2~, HS+8, HS+14, HS+15, HS+17, KILLHS+1!, DETAIL+2~
X1	HS+8*!, DETAIL+1~
X2	HS+8*!
Y	SIG+2~, SIG+4, ALLERGY+1~, ALLERGY+6, KILLHS+1!, DETAIL+1~, DETAIL+2~
YES	NEXTAPPT+1~, NEXTAPPT+3, NEXTAPPT+4, NEXTAPPT+10, NEXTAPPT+11, NEXTAPPT+12, NEXTAPPT+13
Z	ALLERGY+1~, ALLERGY+5*, ALLERGY+6, ALLERGY+7, DETAIL+2~

Marked Items

Name	Field # of Occurrence
$T(GETVAR^CIAVMEVT	LASTDIFF+5

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIULO

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items