Routine: BTIULO2

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	^%DT $$GET1^DIQ
Adverse Reaction Tracking	1	EN1^GMRADPT
Dietetics	1	CUR^FHORD7
IHS Mods To Text Integration Utilities	1	$$PMV^BTIUU1
IHS Patient	1	($$MCD,$$MCR,$$PI,$$PIN,$$RR)^AUPNPAT
IHS Patient Registration	1	($$GETMCR,$$GETRRE)^AGUTL
Immunization Tracking	1	(IMMFORC,IMMHX)^BIRPC
Text Integration Utility	1	$$WRAP^TIULS

Package	Total	Caller Graph
IHS Electronic Health Record	1	BEHOPTCX
IHS Mods To Text Integration Utilities	1	BTIULO7

Entry Points

Name	Comments	DBIA/ICR reference
LASTPAP(DFN)	;EP; -- returns last pap date and result
POLICY(DFN,VISIT)	; EP; returns prvt insurance policy number at visit time
LASTMAM(DFN)	;EP; -- returns last mammogram date and result
LASTEXAM(DFN,CODE)	;EP; returns last V Exam date and result ; CODE=unique code from exam file or exam name
VSTINS(DFN,VISIT)	;EP; returns insurance coverage at visit time
MCR(DFN)	;EP; returns medicare number for patient
MCD(DFN)	;EP; returns medicaid number for patient
THIRD(DFN)	;EP returns third party insurance
PAD(DATA,LENGTH)	; pad length of data
CURDIET(DFN,VST)	;EP; returns patient's current diet for visit
RRE(DFN)	;EP; returns railroad number for patient
SP(NUM)	; pad spaces
MCR2(DFN)	;EP; returns medicare number for patient
IMMDUE(DFN,TARGET)	;EP; -- returns immunizations due (via Immunization app)
LASTSK(DFN,TIUSK)	;EP -- returns last skin test date and result ; TIUSK=skin test name ; TIUDE will be set to iens in BI Table Data Elements file ; TIUDATA "\|" pieces within each "^" will be ; IEN PIECE
PHONE(DFN)	;EP; -- returns patient's current phone numbers
FOODADR(DFN)	;EP; returns food allergies and ADRs
PTADDRS(DFN)	;EP; returns patient's current address
ELIG(DFN)	;EP; -- returns patient's Eligebility Status
LASTHF(DFN,NAME)	;EP; returns last V Health Factor ; NAME = exact name of health factor in file
LASTIMM(DFN,TIUIMM,TIUNM)	;EP -- returns last immunization date ; TIUIMM=HL7 codes separated by ^ then generic name at end after ; ; example TIUIMM="2^10^89;Polio Vax" ; TIUNM=1 to return imm name; =0 to just return date ; TIUDE will be set to iens in BI Table Data Elements file ; TIUDATA "\|" pieces within each "^" will be ; IEN PIECE
LSTHFALL(TARGET,DFN)	;EP; returns last occurence for ALL V Health Factors for patient

Name	Field # of Occurrence
^%DT	LASTSK+20
$$GETMCR^AGUTL	MCR+2, MCR2+3
$$GETRRE^AGUTL	VSTINS+8, RRE+3
$$MCD^AUPNPAT	VSTINS+5
$$MCR^AUPNPAT	VSTINS+4
$$PI^AUPNPAT	VSTINS+7
$$PIN^AUPNPAT	POLICY+3
$$RR^AUPNPAT	VSTINS+8
IMMFORC^BIRPC	IMMDUE+4, IMMDUE+6
IMMHX^BIRPC	LASTIMM+19, LASTSK+15
$$PMV^BTIUU1	CURDIET+2
$$GET1^DIQ	LASTPAP+10, LASTPAP+11, LASTMAM+11, LASTMAM+13, LASTMAM+14, MCR2+14, RRE+11, THIRD+9, LASTEXAM+8, LASTHF+8 , LSTHFALL+5, LSTHFALL+6, PTADDRS+5, PHONE+3, PHONE+4, ELIG+3
CUR^FHORD7	CURDIET+4
EN1^GMRADPT	FOODADR+3
$$WRAP^TIULS	FOODADR+16
$$FMTE^XLFDT	LASTIMM+28, LASTPAP+9, LASTMAM+12, LASTEXAM+6, LASTHF+6, LSTHFALL+3
$$REPEAT^XLFSTR	PAD+1

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNVXAM - [#9000010.13]	GET1^DIQ
^AUPNVHF - [#9000010.23]	GET1^DIQ
^BWPCD - [#9002086.1]	GET1^DIQ
^BWPN - [#9002086.2]	GET1^DIQ
^BWDIAG - [#9002086.31]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	THIRD+14
^AUPNMCD - [#9000004]	MCD+3
^AUPNMCD("B"	MCD+2
^AUPNMCR - [#9000003]	MCR+5, MCR2+7, MCR2+8
^AUPNMCR("B"	MCR+4
^AUPNPRVT - [#9000006]	THIRD+3, THIRD+4, THIRD+5, THIRD+10
^AUPNRRE - [#9000005]	RRE+4, RRE+5
^AUPNVHF("AA"	LASTHF+5, LASTHF+7, LSTHFALL+2, LSTHFALL+4
^AUPNVSIT - [#9000010]	VSTINS+3
^AUPNVXAM("AA"	LASTEXAM+5, LASTEXAM+7
^AUTTEXAM - [#9999999.15]	LASTEXAM+4
^AUTTHF("B"	LASTHF+4
^BWPCD - [#9002086.1]	LASTPAP+4, LASTMAM+4
^BWPCD("C"	LASTPAP+3, LASTMAM+3
^DPT - [#2]	LASTPAP+2, LASTMAM+2
^TMP("BTIULO"	FOODADR+2!, FOODADR+17, PTADDRS+3!, PTADDRS+7, PTADDRS+8

Name	Line Occurrences
$$MCD	VSTINS+5
$$MCR2	VSTINS+4
$$PAD	SP+1
$$SP	IMMDUE+18
$$THIRD	VSTINS+7, POLICY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	CURDIET+1~, CURDIET+2*, CURDIET+3
ADR	FOODADR+1~, FOODADR+10, FOODADR+13, FOODADR+15*, FOODADR+16
ALLRG	FOODADR+1~, FOODADR+10, FOODADR+12, FOODADR+14*, FOODADR+16
BW	LASTPAP+1~, LASTMAM+1~
BW("MAM"	LASTMAM+7*, LASTMAM+8, LASTMAM+9, LASTMAM+10
BW("PAP"	LASTPAP+6*, LASTPAP+7, LASTPAP+8, LASTPAP+9
CNT	IMMDUE+1~, IMMDUE+17, IMMDUE+18, PTADDRS+1~, PTADDRS+4, PTADDRS+6*, PTADDRS+7
CODE	LASTEXAM~, LASTEXAM+3, LASTEXAM+4
COUNT	FOODADR+1~, FOODADR+17*
COV	MCR2+1~, MCR2+11, MCR2+12, MCR2+13, MCR2+15, RRE+1~, RRE+8, RRE+9, RRE+10, RRE+12
DATA	MCR2+8, MCR2+9, MCR2+11, MCR2+14, MCR2+15, RRE+5, RRE+6, RRE+8, RRE+11, RRE+12 , THIRD+1~, THIRD+5*, THIRD+6, THIRD+8, THIRD+9, THIRD+14, PAD~, PAD+1
DATE	LASTPAP+1~, LASTPAP+5, LASTPAP+6, LASTMAM+1~, LASTMAM+6, LASTMAM+7, LASTEXAM+2~, LASTEXAM+5, LASTEXAM+6, LASTEXAM+7 , LASTHF+2~, LASTHF+5, LASTHF+6, LASTHF+7, LSTHFALL+1~, LSTHFALL+2*, LSTHFALL+3, LSTHFALL+4
DFN	CURDIET~, CURDIET+2, FOODADR~, LASTIMM~, LASTIMM+13, LASTIMM+19, IMMDUE~, IMMDUE+3, IMMDUE+6, LASTSK~ , LASTSK+11, LASTSK+15, LASTPAP~, LASTPAP+2, LASTPAP+3, LASTMAM~, LASTMAM+2, LASTMAM+3, VSTINS~, VSTINS+2 , VSTINS+4, VSTINS+5, VSTINS+7, VSTINS+8, POLICY~, POLICY+3, POLICY+4, MCR~, MCR+2, MCR+4 , MCR2~, MCR2+3, MCR2+7, MCR2+8, RRE~, RRE+3, RRE+4, RRE+5, MCD~, MCD+2 , THIRD~, THIRD+3, THIRD+4, THIRD+5, THIRD+10, LASTEXAM~, LASTEXAM+5, LASTEXAM+7, LASTHF~, LASTHF+5 , LASTHF+7, LSTHFALL~, LSTHFALL+2, LSTHFALL+4, PTADDRS~, PTADDRS+2, PTADDRS+5, PHONE~, PHONE+2, PHONE+3 , PHONE+4, ELIG~, ELIG+2, ELIG+3
DNAME	MCR2+1~, MCR2+12, MCR2+15, MCR2+16, MCR2+17, RRE+1~, RRE+9, RRE+12, RRE+13, RRE+14
DT	MCR2+10, RRE+7, THIRD+7
ELIG	ELIG+1~, ELIG+3*, ELIG+4
ERROR	IMMDUE+1~, IMMDUE+10*
EXAM	LASTEXAM+2~, LASTEXAM+4*, LASTEXAM+5, LASTEXAM+7
EXP	MCR2+9, MCR2+10, RRE+6, RRE+7, THIRD+1~, THIRD+6*, THIRD+7
FACTOR	LASTHF+2~, LASTHF+4*, LASTHF+5, LASTHF+7, LSTHFALL+1~, LSTHFALL+2, LSTHFALL+4
FIELD	PTADDRS+1~, PTADDRS+4*, PTADDRS+5, PTADDRS+6
GMRA	FOODADR+1~, FOODADR+3*
GMRAL	FOODADR+1~, FOODADR+4, FOODADR+5
GMRAL(	FOODADR+7, FOODADR+11, FOODADR+12, FOODADR+13
GMRAL(0	FOODADR+7
HOME	PHONE+1~, PHONE+3, PHONE+5, PHONE+6
I	LASTIMM+12~, LASTIMM+15, LASTIMM+17, LASTIMM+21, LASTSK+10~, LASTSK+13, LASTSK+17*
IEN	POLICY+1~, POLICY+3, MCR+1~, MCR+2, MCR+3, MCR+4, MCR+5, MCR2+1~, RRE+1~, MCD+1~ , MCD+2, MCD+3, THIRD+1~, THIRD+4*, THIRD+5, THIRD+10
IEN2	MCR2+1~, MCR2+7, MCR2+8, RRE+1~, RRE+4, RRE+5
INS	MCR2+1~, MCR2+14, MCR2+15, RRE+1~, RRE+11, RRE+12
INSUR	POLICY+1~, POLICY+3*, POLICY+4
LENGTH	PAD~, PAD+1
LINE	LASTPAP+1~, LASTPAP+9, LASTPAP+10, LASTPAP+11, LASTPAP+12, LASTMAM+1~, LASTMAM+11, LASTMAM+12, LASTMAM+13, LASTMAM+14* , LASTMAM+15, VSTINS+1~, VSTINS+3, VSTINS+4, VSTINS+5, VSTINS+7, VSTINS+8, VSTINS+9, PTADDRS+1~, PTADDRS+5 , PTADDRS+7
MCARE	MCR2+1~, MCR2+2, MCR2+16, MCR2+17*, MCR2+18
N	LASTPAP+1~, LASTPAP+3, LASTPAP+4, LASTPAP+6, LASTPAP+8, LASTPAP+9, LASTPAP+10, LASTPAP+11, LASTMAM+1~, LASTMAM+3 , LASTMAM+4, LASTMAM+7, LASTMAM+9, LASTMAM+10, LASTMAM+11, LASTMAM+12, LASTMAM+13, LASTMAM+14, LASTEXAM+2~, LASTEXAM+7* , LASTEXAM+8, LASTHF+2~, LASTHF+7, LASTHF+8, LSTHFALL+1~, LSTHFALL+4, LSTHFALL+5, LSTHFALL+6
NAME	THIRD+1~, THIRD+9*, THIRD+15, THIRD+16, LASTHF~, LASTHF+3, LASTHF+4
NUM	SP~, SP+1
NUMBER	MCR2+1~, MCR2+3, MCR2+12, RRE+1~, RRE+3, RRE+9, THIRD+1~, THIRD+10, THIRD+13, THIRD+14 , THIRD+15, THIRD+16
OFFICE	PHONE+1~, PHONE+4*, PHONE+5, PHONE+6
PVT	VSTINS+1~, VSTINS+7, POLICY+1~, POLICY+2, POLICY+4, POLICY+5, THIRD+1~, THIRD+2, THIRD+15, THIRD+16 , THIRD+17
RESULT	LASTEXAM+2~, LASTEXAM+6, LASTEXAM+7, LASTEXAM+8, LASTHF+2~, LASTHF+3, LASTHF+5, LASTHF+6, LASTHF+7, LASTHF+10 , LSTHFALL+1~, LSTHFALL+2, LSTHFALL+3, LSTHFALL+4, LSTHFALL+6
RRE	RRE+1~, RRE+2, RRE+13, RRE+14*, RRE+15
SUB	LASTEXAM+2~, LASTEXAM+3*, LASTEXAM+4
TARGET	IMMDUE~, IMMDUE+13, IMMDUE+17, IMMDUE+18, IMMDUE+20, LSTHFALL~, LSTHFALL+7
TIU31	IMMDUE+1~, IMMDUE+8*, IMMDUE+10, IMMDUE+13
TIUANS	LASTIMM+12~, LASTIMM+21!, LASTIMM+24, LASTIMM+25, LASTIMM+27, LASTIMM+28, LASTSK+10~, LASTSK+17!, LASTSK+21, LASTSK+22 , LASTSK+24, LASTSK+25
TIUCAP	IMMDUE+1~, IMMDUE+2*, IMMDUE+3, IMMDUE+4, IMMDUE+10
TIUCODE	LASTIMM+12~
TIUCODE(	LASTIMM+15*, LASTIMM+23
TIUDATA	LASTIMM+12~, LASTIMM+19, LASTIMM+21, LASTSK+15, LASTSK+17
TIUDE	LASTIMM+12~, LASTIMM+19, LASTSK+10~, LASTSK+15
TIUDE(	LASTIMM+17, LASTSK+13
TIUIMM	LASTIMM~, LASTIMM+13, LASTIMM+15, LASTIMM+27, IMMDUE+1~, IMMDUE+6, IMMDUE+10, IMMDUE+13*, IMMDUE+15, LASTSK+11
TIUNM	LASTIMM~, LASTIMM+27, LASTIMM+28
TIUSK	LASTSK~, LASTSK+19, LASTSK+24, LASTSK+25
TIUX	IMMDUE+1~, IMMDUE+15~, LASTSK+17, LASTSK+18, LASTSK+19, LASTSK+20*, LASTSK+21, LASTSK+22
TIUY	FOODADR+1~, FOODADR+16, FOODADR+17, IMMDUE+1~, IMMDUE+15~, IMMDUE+16
TYPE	MCR2+1~, RRE+1~, THIRD+1~, THIRD+3*, THIRD+4
U	FOODADR+7, FOODADR+12, FOODADR+13, LASTIMM+15, LASTIMM+21, IMMDUE+15, LASTSK+17, LASTPAP+2, LASTPAP+5, LASTPAP+6 , LASTPAP+10, LASTPAP+11, LASTMAM+2, LASTMAM+5, LASTMAM+6, LASTMAM+7, LASTMAM+11, LASTMAM+13, LASTMAM+14, MCR+5 , MCR2+9, MCR2+11, MCR2+14, MCR2+15, RRE+6, RRE+8, RRE+11, RRE+12, MCD+3, THIRD+6 , THIRD+9, THIRD+10, THIRD+14
VDT	VSTINS+1~, VSTINS+3*, VSTINS+4, VSTINS+5, VSTINS+7, VSTINS+8
VISIT	VSTINS~, VSTINS+2, VSTINS+3, POLICY~, POLICY+3
VST	CURDIET~, CURDIET+2
X	FOODADR+1~, FOODADR+5, FOODADR+7, FOODADR+8, FOODADR+11, FOODADR+12, FOODADR+13, FOODADR+16, LASTIMM+12~, LASTIMM+15* , LASTIMM+21, LASTIMM+22, LASTIMM+23, LASTIMM+24, LASTIMM+25, IMMDUE+1~, IMMDUE+16, IMMDUE+17, IMMDUE+18, LASTSK+10~ , LASTSK+20, LASTMAM+1~, LASTMAM+5, LASTHF+8, LASTHF+10, LSTHFALL+5, LSTHFALL+6
Y	CURDIET+1~, CURDIET+2, CURDIET+5, FOODADR+1~, FOODADR+7, LASTSK+20, LASTPAP+1~, LASTPAP+4, LASTPAP+5, LASTPAP+6 , LASTMAM+1~, LASTMAM+4, LASTMAM+5, LASTMAM+6, LASTMAM+7
Z	FOODADR+1~, FOODADR+6*, FOODADR+7, FOODADR+8

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIULO2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items