Routine: BGP7UTL2

Information

BGP7UTL2 ; IHS/CMI/LAB - UTILITIES ; 06 Jan 2017 9:49 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^BGP7DU $$DATE^BGP7UTL
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	112	BGP7ALG1 BGP7ALG2 BGP7AUEX BGP7C11 BGP7C13 BGP7CON1 BGP7CU1 BGP7D1 BGP7D10 BGP7D21 BGP7D212 BGP7D213 BGP7D214 BGP7D21A BGP7D22 BGP7D23 BGP7D24 BGP7D24A BGP7D25 BGP7D26 BGP7D27 BGP7D31 BGP7D35 BGP7D37 BGP7D38 BGP7D39 BGP7D3A BGP7D3B BGP7D4 BGP7D41 BGP7D5 BGP7D51 BGP7D52 BGP7D55 BGP7D5A BGP7D6 BGP7D7 BGP7D71 BGP7D711 BGP7D713 BGP7D714 BGP7D72 BGP7D721 BGP7D722 BGP7D723 BGP7D729 BGP7D731 BGP7D732 BGP7D74 BGP7D75 BGP7D8 BGP7D81 BGP7D811 BGP7D812 BGP7D82 BGP7D83 BGP7D84 BGP7D841 BGP7D863 BGP7D864 BGP7D87 BGP7D88 BGP7D89 BGP7D9 BGP7D91 BGP7DADB BGP7DAP BGP7DAR BGP7DARO BGP7DCL BGP7DEL BGP7DGPU BGP7DH BGP7DH1 BGP7DL BGP7DNDB BGP7DNG BGP7DNGP BGP7DNGS BGP7DON BGP7DPA BGP7DPA2 BGP7DPA4 BGP7DPE BGP7DPE1 BGP7DPP BGP7DSL BGP7DSTM BGP7DU BGP7ELH BGP7ELHH BGP7GACW BGP7GAGP BGP7GAGS BGP7GDON BGP7GELD BGP7GFO9 BGP7GFOR BGP7GLHW BGP7GNT9 BGP7GNTL BGP7GNTP BGP7GNTS BGP7GNXP BGP7GPED BGP7GUA BGP7LHW BGP7NPL BGP7PDH1 BGP7PDLH BGP7PESL BGP7UTL1

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^BGP7DU	EDD+16
$$DATE^BGP7UTL	RCIS+24
$$SUBLST^BSTSAPI	SNOMED+8
SUBLST^BSTSAPI	SNOMED+2
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+13

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+4, SNOMED+5
^BGPTAXG - [#90558.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+6! , SNOMED+7, SNOMED+10, SNOMED+11!
^XTMP("BGP15TAX"	ICD+7, ICD+8, UNFOLDTX+1!, UNFOLDTX+15*
^XTMP("BGPSNOMEDSUBSET"	SNOMED+3!, SNOMED+10, SNOMED+13
^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+4, SNOMED+5
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+10*
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+13
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+10
ICDC	RCIS~, RCIS+4*, RCIS+8
ICDCAT	RCIS+7~, RCIS+16, RCIS+17
ICDCAT(	RCIS+8*, RCIS+17
N	UNFOLDTX+4~, SNOMED+5*, SNOMED+8, SNOMED+10
OUT	UNFOLDTX+4~, SNOMED+7*, SNOMED+8
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+5, SNOMED+10
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+8*
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+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7UTL2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 112

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items