Routine: BGP6UTL2

Information

BGP6UTL2 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 30 Jun 2016 9:01 AM 12 Aug 2015 6:31 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^BGP6DU $$DATE^BGP6UTL
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	114	BGP6ALG1 BGP6ALG2 BGP6AUEX BGP6C11 BGP6C13 BGP6CON1 BGP6CU BGP6CU1 BGP6D1 BGP6D10 BGP6D21 BGP6D212 BGP6D214 BGP6D21A BGP6D22 BGP6D23 BGP6D24 BGP6D25 BGP6D26 BGP6D27 BGP6D31 BGP6D35 BGP6D37 BGP6D38 BGP6D39 BGP6D3A BGP6D3B BGP6D4 BGP6D41 BGP6D5 BGP6D51 BGP6D52 BGP6D54 BGP6D55 BGP6D5A BGP6D6 BGP6D7 BGP6D71 BGP6D711 BGP6D713 BGP6D714 BGP6D72 BGP6D721 BGP6D722 BGP6D723 BGP6D729 BGP6D731 BGP6D732 BGP6D74 BGP6D75 BGP6D8 BGP6D81 BGP6D811 BGP6D812 BGP6D82 BGP6D83 BGP6D84 BGP6D841 BGP6D862 BGP6D863 BGP6D864 BGP6D87 BGP6D88 BGP6D89 BGP6D9 BGP6D91 BGP6DADB BGP6DAP BGP6DAR BGP6DARO BGP6DCL BGP6DEL BGP6DGPU BGP6DH BGP6DH1 BGP6DL BGP6DNDB BGP6DNG BGP6DNGP BGP6DNGS BGP6DON BGP6DPA BGP6DPA2 BGP6DPA4 BGP6DPE BGP6DPE1 BGP6DPP BGP6DSL BGP6DSTM BGP6DU BGP6EL3 BGP6ELH BGP6ELHH BGP6GACW BGP6GAGP BGP6GAGS BGP6GDON BGP6GELD BGP6GFO9 BGP6GFOR BGP6GLHW BGP6GNT9 BGP6GNTL BGP6GNTP BGP6GNTS BGP6GNXP BGP6GPED BGP6GUA BGP6LHW BGP6NPL BGP6PDH1 BGP6PDLH BGP6PESL BGP6UTL1
iCare	1	BQIRGHEP

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
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
GETMEDS(P,BGPMBD,BGPMED,TAXM,TAXN,TAXC,BGPDNAME,BGPZ)	;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^BGP6DU	EDD+16
$$DATE^BGP6UTL	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	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+24
Function Call: WRITE	Prompt: BGPBOMB Line Location: GETMEDS+25
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+32, GETMEDS+34, GETMEDS+35
^ATXAX("B"	GETMEDS+24, GETMEDS+25, GETMEDS+26, UNFOLDTX+10
^ATXLAB("B"	UNFOLDTX+12
^AUPNREP - [#9000017]	EDD+12
^AUPNVMED - [#9000010.14]	GETMEDS+11, GETMEDS+12, GETMEDS+16, GETMEDS+28, GETMEDS+30
^AUPNVMED("AA"	GETMEDS+9, GETMEDS+10
^AUTTSITE(1	GETDIR+5, GETDIR+9, GETDEDIR+3, GETDEDIR+7
^BGPSITE - [#90241.02]	GETDIR+3
^BGPSNOSG - [#90558.07]	SNOMED+3, SNOMED+4
^BGPTAXM - [#90556.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+14, GETMEDS+16, GETMEDS+31, GETMEDS+33, GETMEDS+36
^TMP($J	GETMEDS+4!, GETMEDS+16, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23!, GETMEDS+27, GETMEDS+38, GETMEDS+40!, 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+24, GETMEDS+25
BGPC1	GETMEDS+6~, GETMEDS+7, GETMEDS+15, GETMEDS+16, GETMEDS+18, GETMEDS+21, GETMEDS+22, GETMEDS+27, GETMEDS+38, GETMEDS+41!
BGPD	GETMEDS+6~, GETMEDS+12*, GETMEDS+13, GETMEDS+14, GETMEDS+16, GETMEDS+41!
BGPDA	UNFOLDTX+4~, UNFOLDTX+5, UNFOLDTX+6, UNFOLDTX+7, SNOMED+3, SNOMED+4
BGPDNAME	GETMEDS~, GETMEDS+5*, GETMEDS+36, GETMEDS+41!
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+6~, GETMEDS+8*, GETMEDS+9, GETMEDS+41!
BGPINED	GETMEDS+6~, GETMEDS+8, GETMEDS+9, GETMEDS+10, GETMEDS+16, GETMEDS+41!
BGPL	DIRCHK+1~, DIRCHK+3, DIRCHK+6!
BGPMBD	GETMEDS~, GETMEDS+8, GETMEDS+41!
BGPMED	GETMEDS~, GETMEDS+8, GETMEDS+41!
BGPMIEN	GETMEDS+6~, GETMEDS+10*, GETMEDS+11, GETMEDS+12, GETMEDS+16
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+4!, GETMEDS+7!
BGPZ(	GETMEDS+38*
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+31, GETMEDS+32, GETMEDS+33, GETMEDS+34, 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+6~, GETMEDS+30, GETMEDS+31, GETMEDS+33 , GETMEDS+35, GETMEDS+36, 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+6~, GETMEDS+29, GETMEDS+32, GETMEDS+34, GETMEDS+35, GETMEDS+36, GETMEDS+37, GETMEDS+38, 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	SNOMED+4*, SNOMED+7, SNOMED+9
>> OUT	SNOMED+6*, SNOMED+7
P	EDD~, EDD+5, EDD+12, EDD+16, GETMEDS~, GETMEDS+9, GETMEDS+10, RCIS~, RCIS+1, RCIS+2 , RCIS+10
>> R	EDD+18*, EDD+19, EDD+20
T	GETMEDS+6~, GETMEDS+24*, GETMEDS+35
T1	GETMEDS+6~, GETMEDS+25*, GETMEDS+34
>> T2	GETMEDS+26*, GETMEDS+32
TAXC	GETMEDS~, GETMEDS+3*, GETMEDS+26, GETMEDS+37
TAXIEN	ICD~, ICD+5, ICD+6, ICD+7
TAXM	GETMEDS~, GETMEDS+1*, GETMEDS+24, GETMEDS+37
TAXN	GETMEDS~, GETMEDS+2*, GETMEDS+25, GETMEDS+37
TAXNM	ICD+4~, ICD+5*, ICD+6, ICD+7, ICD+8
TYP	ICD~, ICD+6, ICD+7
U	ICD+5, EDD+12, EDD+18, GETDIR+3, GETDIR+9, GETDEDIR+7, GETMEDS+12, GETMEDS+16, GETMEDS+27, GETMEDS+30 , GETMEDS+31, GETMEDS+33, GETMEDS+36, 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+6~, GETMEDS+18, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+27, GETMEDS+38, 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+6~, GETMEDS+20, GETMEDS+22, GETMEDS+27, GETMEDS+28, GETMEDS+30, 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: BGP6UTL2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 115

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items