Routine: BGP8UTL2

Information

BGP8UTL2 ; IHS/CMI/LAB - UTILITIES 06 Jan 2017 9:49 AM ; 08 Jan 2018 7:50 AM

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	3	EN^DDIOL $$GET1^DIQ ^DIR
DRG Grouper	2	($$CODEN,$$ICDD,$$ICDDX,$$ICDOP,$$VSTD,$$VSTP)^ICDCODE ($$CODEN,$$ICDD,$$ICDDX,$$ICDOP,$$VSTD,$$VSTP)^ICDEX
IHS GPRA Information System	2	$$LASTITEM^BGP8DU $$DATE^BGP8UTL
Kernel	2	$$LIST^%ZISH $$FMADD^XLFDT
Taxonomy	2	BLDTAX^ATXAPI $$ICD^ATXCHK
IHS Patient	1	$$DOB^AUPNPAT
IHS Standard Terminology	1	($$SUBLST,SUBLST)^BSTSAPI
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS GPRA Information System	140	BGP8ALG1 BGP8ALG2 BGP8AUEX BGP8C11 BGP8C13 BGP8CON1 BGP8CU1 BGP8CU2 BGP8CU4 BGP8D1 BGP8D10 BGP8D21 BGP8D212 BGP8D213 BGP8D214 BGP8D21A BGP8D22 BGP8D24 BGP8D24A BGP8D25 BGP8D27 BGP8D31 BGP8D35 BGP8D36 BGP8D37 BGP8D38 BGP8D39 BGP8D3A BGP8D3B BGP8D3C BGP8D4 BGP8D41 BGP8D5 BGP8D51 BGP8D52 BGP8D53 BGP8D55 BGP8D5A BGP8D6 BGP8D7 BGP8D71 BGP8D711 BGP8D713 BGP8D714 BGP8D715 BGP8D72 BGP8D721 BGP8D722 BGP8D723 BGP8D729 BGP8D731 BGP8D732 BGP8D74 BGP8D75 BGP8D8 BGP8D81 BGP8D811 BGP8D812 BGP8D82 BGP8D83 BGP8D84 BGP8D841 BGP8D863 BGP8D864 BGP8D87 BGP8D88 BGP8D89 BGP8D9 BGP8D91 BGP8DADB BGP8DAP BGP8DAR BGP8DARO BGP8DCL BGP8DEL BGP8DGPU BGP8DH BGP8DH1 BGP8DHE2 BGP8DL BGP8DNDB BGP8DNG BGP8DNGP BGP8DNGS BGP8DON BGP8DPA BGP8DPA2 BGP8DPA4 BGP8DPE BGP8DPE1 BGP8DPP BGP8DSL BGP8DSTM BGP8DU BGP8ELH BGP8ELHH BGP8GACW BGP8GAGP BGP8GAGS BGP8GDON BGP8GELD BGP8GFO9 BGP8GFOR BGP8GLHW BGP8GNT9 BGP8GNTL BGP8GNTP BGP8GNTS BGP8GNXP BGP8GPED BGP8GUA BGP8LHW BGP8NPL BGP8PC1 BGP8PC11 BGP8PC12 BGP8PC13 BGP8PC14 BGP8PC15 BGP8PC16 BGP8PC17 BGP8PC4 BGP8PC6 BGP8PC61 BGP8PC62 BGP8PC63 BGP8PC64 BGP8PC65 BGP8PC66 BGP8PC67 BGP8PC68 BGP8PC69 BGP8PC7 BGP8PC9 BGP8PCD BGP8PCH BGP8PDH1 BGP8PDLH BGP8PESL BGP8UTL1
iCare	4	BQIGPRA4 BQIGPRA6 BQINIGHT BQITASK
Diabetes Registry	3	BDMDF1D BDMDG1D BDMUTL

Entry Points

Name	Comments	DBIA/ICR reference
GETDIR()	;EP - get default directory
CHKDST()	;EP - check the demo patient search template to see if it is complete
DIRCHK	;EP - CALLED FROM INPUT TX ON SITE PARAMETER
CODEN(X,F)	;EP - GET CODE
GETDEDIR()	;EP - get default directory
VSTP(C,D)	;EP
RCIS(P,BDATE,EDATE,ICDC,CPTC)	;EP
ICDDX(C,D,I)	;EP - GET CODE
ICDD(C,A,D)	;EP
GETMEDS(P,BGPMBD,BGPMED,TAXM,TAXN,TAXC,BGPDNAME,BGPZ,TAXRXN)	;EP
DSTCONT()	;EP - called to ask user if they want to continue
SNOMED	;unfold all snomed subsets
DEMOCHK()	;EP - called to check demo patient
ICDOP(C,D,I)	;EP - GET CODE
UNFOLDTX	;EP
ICD(VAL,TAXIEN,TYP)	;EP - CHECK TAX
VSTD(C,D)	;EP
EDD(P,BDATE,EDATE)	;EP - find EDD

External References

Name	Field # of Occurrence
$$LIST^%ZISH	DIRCHK+3
BLDTAX^ATXAPI	UNFOLDTX+14
$$ICD^ATXCHK	ICD+6, ICD+7
$$DOB^AUPNPAT	RCIS+2
$$LASTITEM^BGP8DU	EDD+16
$$DATE^BGP8UTL	RCIS+24
$$SUBLST^BSTSAPI	SNOMED+7
SUBLST^BSTSAPI	SNOMED+1
EN^DDIOL	DIRCHK+4
$$GET1^DIQ	EDD+6
^DIR	DSTCONT+5
$$CODEN^ICDCODE	CODEN+2
$$ICDD^ICDCODE	ICDD+2
$$ICDDX^ICDCODE	ICDDX+2
$$ICDOP^ICDCODE	ICDOP+3
$$VSTD^ICDCODE	VSTD+2
$$VSTP^ICDCODE	VSTP+2
$$CODEN^ICDEX	CODEN+1
$$ICDD^ICDEX	ICDD+1
$$ICDDX^ICDEX	ICDDX+1
$$ICDOP^ICDEX	ICDOP+2
$$VSTD^ICDEX	VSTD+1
$$VSTP^ICDEX	VSTP+1
$$VAL^XBDIQ1	GETMEDS+39, RCIS+23
$$FMADD^XLFDT	EDD+4, EDD+23, UNFOLDTX+15, SNOMED+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BGPBOMB Line Location: GETMEDS+25
Function Call: WRITE	Prompt: BGPBOMB Line Location: GETMEDS+26
Function Call: WRITE	Prompt: !!,"Your ",$P(BGPDPST,U,2),".",!,"If you have 'DEMO' patients whose names begin with something" Line Location: DSTCONT+2
Function Call: WRITE	Prompt: !,"other than 'DEMO,PATIENT' they will not be excluded from this report" Line Location: DSTCONT+3
Function Call: WRITE	Prompt: !,"unless you update this template.",! Line Location: DSTCONT+4
Routine Call	DIR Line Location: DSTCONT+5

FileNo	Call Tags
^BJPNPL - [#90680.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ICD+5, GETMEDS+34, GETMEDS+36, GETMEDS+37, GETMEDS+40
^ATXAX("B"	GETMEDS+25, GETMEDS+26, GETMEDS+27, GETMEDS+28, UNFOLDTX+10
^ATXLAB("B"	UNFOLDTX+12
^AUPNREP - [#9000017]	EDD+12
^AUPNVMED - [#9000010.14]	GETMEDS+12, GETMEDS+13, GETMEDS+17, GETMEDS+30, GETMEDS+32
^AUPNVMED("AA"	GETMEDS+10, GETMEDS+11
^AUTTSITE(1	GETDIR+5, GETDIR+9, GETDEDIR+3, GETDEDIR+7
^BGPSITE - [#90241.02]	GETDIR+3
^BGPSNOSR - [#90560.07]	SNOMED+3, SNOMED+4
^BGPTAXR - [#90560.08]	UNFOLDTX+5, UNFOLDTX+6, UNFOLDTX+7
^BJPNPL("D"	EDD+5
^BMCREF - [#90001]	RCIS+11, RCIS+12, RCIS+15, RCIS+18, RCIS+24
^BMCREF("D"	RCIS+10
^BMCTDXC("B"	RCIS+8
^BMCTSVC("B"	RCIS+9
^DIBT(	CHKDST+7
^DIBT("B"	CHKDST+5
^ICDS(0	CODEN+1, ICDDX+1, ICDOP+2, VSTD+1, VSTP+1, ICDD+1, UNFOLDTX+3
^PSDRUG - [#50]	GETMEDS+15, GETMEDS+17, GETMEDS+33, GETMEDS+35, GETMEDS+38
^TMP($J	GETMEDS+5!, GETMEDS+17, GETMEDS+20, GETMEDS+21, GETMEDS+23, GETMEDS+24!, GETMEDS+29, GETMEDS+42, GETMEDS+44!, SNOMED+5! , SNOMED+6, SNOMED+9, SNOMED+10!
^XTMP("BGP15TAX"	ICD+7, ICD+8, UNFOLDTX+1!, UNFOLDTX+15*
^XTMP("BGPSNOMEDSUBSET"	SNOMED+2!, SNOMED+9, SNOMED+12
^XTV(8989.3 - [#8989.3]	GETDIR+7, GETDEDIR+5

Label References

Name	Line Occurrences
$$CHKDST	DEMOCHK+2
$$DSTCONT	DEMOCHK+4
SNOMED	UNFOLDTX+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	ICDD~, ICDD+1, ICDD+2, EDD+1~, EDD+21, EDD+22, EDD+23, RCIS+7~, RCIS+23*
B	RCIS+7~
BDATE	EDD~, EDD+7, EDD+16, EDD+24, RCIS~, RCIS+2*, RCIS+13
>> BGPBOMB	GETMEDS+25, GETMEDS+26
BGPC1	GETMEDS+7~, GETMEDS+8, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+22, GETMEDS+23, GETMEDS+29, GETMEDS+42, GETMEDS+45!
BGPD	GETMEDS+7~, GETMEDS+13*, GETMEDS+14, GETMEDS+15, GETMEDS+17, GETMEDS+45!
BGPDA	UNFOLDTX+4~, UNFOLDTX+5, UNFOLDTX+6, UNFOLDTX+7, SNOMED+3, SNOMED+4
BGPDNAME	GETMEDS~, GETMEDS+6*, GETMEDS+38, GETMEDS+45!
BGPDPST	DSTCONT+2, DEMOCHK+1~, DEMOCHK+2, DEMOCHK+3, DEMOCHK+4, DEMOCHK+5
BGPFL	UNFOLDTX+4~, UNFOLDTX+7*, UNFOLDTX+8
BGPHOLDX	DIRCHK+1~, DIRCHK+2*, DIRCHK+5
BGPINBD	GETMEDS+7~, GETMEDS+9*, GETMEDS+10, GETMEDS+45!
BGPINED	GETMEDS+7~, GETMEDS+9, GETMEDS+10, GETMEDS+11, GETMEDS+17, GETMEDS+45!
BGPL	DIRCHK+1~, DIRCHK+3, DIRCHK+6!
BGPMBD	GETMEDS~, GETMEDS+9, GETMEDS+45!
BGPMED	GETMEDS~, GETMEDS+9, GETMEDS+45!
BGPMIEN	GETMEDS+7~, GETMEDS+11*, GETMEDS+12, GETMEDS+13, GETMEDS+17
BGPTAX	UNFOLDTX+4~, UNFOLDTX+6*, UNFOLDTX+10, UNFOLDTX+12, UNFOLDTX+13, UNFOLDTX+14
BGPTAXI	UNFOLDTX+4~, UNFOLDTX+10, UNFOLDTX+12, UNFOLDTX+14
BGPTGT	UNFOLDTX+4~, UNFOLDTX+13*, UNFOLDTX+14
BGPTYP	UNFOLDTX+4~, UNFOLDTX+9*, UNFOLDTX+11, UNFOLDTX+14
BGPVAL	UNFOLDTX+4~
BGPX	DIRCHK+1~, DIRCHK+3*, DIRCHK+4!, DIRCHK+6!
BGPY	DIRCHK+4!
BGPZ	GETMEDS~, GETMEDS+5!, GETMEDS+8!
BGPZ(	GETMEDS+42*
C	ICDDX~, ICDDX+1, ICDDX+2, ICDOP~, ICDOP+2, ICDOP+3, VSTD~, VSTD+1, VSTD+2, VSTP~ , VSTP+1, VSTP+2, ICDD~, ICDD+1, ICDD+2, GETMEDS+33, GETMEDS+34, GETMEDS+35, GETMEDS+36, GETMEDS+39* , GETMEDS+40, SNOMED+9*
CPTC	RCIS~, RCIS+5*, RCIS+9
CPTCAT	RCIS+7~, RCIS+19, RCIS+20
CPTCAT(	RCIS+9*, RCIS+20
D	ICDDX~, ICDDX+1, ICDDX+2, ICDOP~, ICDOP+2, ICDOP+3, VSTD~, VSTD+1, VSTD+2, VSTP~ , VSTP+1, VSTP+2, ICDD~, ICDD+1, ICDD+2, EDD+1~, EDD+20, EDD+21, GETDIR+1~, GETDIR+2 , GETDIR+3, GETDIR+4, GETDIR+5, GETDIR+6, GETDIR+7, GETDIR+8, GETDIR+9, GETDIR+10, GETDEDIR+1~, GETDEDIR+2* , GETDEDIR+3, GETDEDIR+4, GETDEDIR+5, GETDEDIR+6, GETDEDIR+7, GETDEDIR+8, GETMEDS+7~, GETMEDS+32, GETMEDS+33, GETMEDS+35 , GETMEDS+37, GETMEDS+38, RCIS+7~, RCIS+12*, RCIS+13, RCIS+14
DA	DSTCONT+5!
DIR	DSTCONT+1~, DSTCONT+5!
DIR("A"	DSTCONT+5*
DIR("B"	DSTCONT+5*
DIR(0	DSTCONT+5*
DIRUT	DSTCONT+1~, DSTCONT+6
DT	RCIS+3, UNFOLDTX+15, SNOMED+12
DUZ(2	GETDIR+3
EDATE	EDD~, EDD+4, EDD+16, RCIS~, RCIS+3*, RCIS+14
EDD	EDD+1~, EDD+2, EDD+9, EDD+10, EDD+13, EDD+14, EDD+17, EDD+23, EDD+24*, EDD+25
F	CODEN~, CODEN+1, CODEN+2
G	GETMEDS+7~, GETMEDS+31, GETMEDS+34, GETMEDS+36, GETMEDS+37, GETMEDS+38, GETMEDS+40, GETMEDS+41, GETMEDS+42, RCIS+7~ , RCIS+10, RCIS+21*, RCIS+22, RCIS+23, RCIS+24
I	ICDDX~, ICDDX+2, ICDOP~, ICDOP+1, ICDOP+2, SNOMED+9
ICDC	RCIS~, RCIS+4*, RCIS+8
ICDCAT	RCIS+7~, RCIS+16, RCIS+17
ICDCAT(	RCIS+8*, RCIS+17
N	UNFOLDTX+4~, SNOMED+4*, SNOMED+7, SNOMED+9
OUT	UNFOLDTX+4~, SNOMED+6*, SNOMED+7
P	EDD~, EDD+5, EDD+12, EDD+16, GETMEDS~, GETMEDS+10, GETMEDS+11, RCIS~, RCIS+1, RCIS+2 , RCIS+10
>> R	EDD+18*, EDD+19, EDD+20
T	GETMEDS+7~, GETMEDS+25*, GETMEDS+37
T1	GETMEDS+7~, GETMEDS+26*, GETMEDS+36
T2	GETMEDS+7~, GETMEDS+27*, GETMEDS+34
T3	GETMEDS+7~, GETMEDS+28*, GETMEDS+40
TAXC	GETMEDS~, GETMEDS+3*, GETMEDS+27, GETMEDS+41
TAXIEN	ICD~, ICD+5, ICD+6, ICD+7
TAXM	GETMEDS~, GETMEDS+1*, GETMEDS+25, GETMEDS+41
TAXN	GETMEDS~, GETMEDS+2*, GETMEDS+26, GETMEDS+41
TAXNM	ICD+4~, ICD+5*, ICD+6, ICD+7, ICD+8
TAXRXN	GETMEDS~, GETMEDS+4*, GETMEDS+28, GETMEDS+41
TYP	ICD~, ICD+6, ICD+7
U	ICD+5, EDD+12, EDD+18, GETDIR+3, GETDIR+9, GETDEDIR+7, GETMEDS+13, GETMEDS+17, GETMEDS+29, GETMEDS+32 , GETMEDS+33, GETMEDS+35, GETMEDS+38, RCIS+12, RCIS+15, RCIS+18, RCIS+24, DSTCONT+2, UNFOLDTX+6, UNFOLDTX+7 , SNOMED+4, SNOMED+9
VAL	ICD~, ICD+3, ICD+6, ICD+7, ICD+8
W	EDD+1~, EDD+19*, EDD+21
X	CODEN~, CODEN+1, CODEN+2, EDD+1~, EDD+5, EDD+6, DIRCHK+2, DIRCHK+3, DIRCHK+4!, DIRCHK+5 , GETMEDS+7~, GETMEDS+19, GETMEDS+20, GETMEDS+21, GETMEDS+23, GETMEDS+29, GETMEDS+42, RCIS+7~, RCIS+8, RCIS+9* , RCIS+10, RCIS+11, RCIS+12, RCIS+15, RCIS+18, RCIS+21, RCIS+23, RCIS+24, CHKDST+4~, CHKDST+5* , CHKDST+6, CHKDST+7, DSTCONT+1~, SNOMED+7*
Y	EDD+1~, EDD+6, EDD+7, EDD+8, EDD+9, EDD+12, EDD+13, EDD+16, EDD+17, EDD+18 , GETMEDS+7~, GETMEDS+21, GETMEDS+23, GETMEDS+29, GETMEDS+30, GETMEDS+32, GETMEDS+39, RCIS+7~, RCIS+8, RCIS+9* , RCIS+15, RCIS+16, RCIS+17, RCIS+18, RCIS+19, RCIS+20, RCIS+23*, DSTCONT+1~, DSTCONT+7
Z	EDD+1~, EDD+4, EDD+8, EDD+18, EDD+23

Marked Items

Name	Field # of Occurrence
$T(SUBLST^BSTSAPI	SNOMED+1

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8UTL2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 147

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items