Routine: BDGF2

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS Patient	1	($$MCD,$$MCR,$$PI,$$RR)^AUPNPAT
IHS Patient Registration	1	GETELIG^AGAPIS
Registration	1	DEM^VADPT
Uncategorized	1	$$CWAD^GMRPNOR1
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

IHS Changes To Scheduling

$$DIV^BSDU

IHS Patient

($$MCD,$$MCR,$$PI,$$RR)^AUPNPAT

IHS Patient Registration

GETELIG^AGAPIS

Registration

DEM^VADPT

Uncategorized

$$CWAD^GMRPNOR1

VA Fileman

$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	48	BDGADD1 BDGADD2 BDGADS1 BDGADS2 BDGBULL1 BDGCEN31 BDGCPT BDGEAN BDGEAN2 BDGEPI BDGICC BDGICE2 BDGICF1 BDGICR1 BDGICR4 BDGICR41 BDGICS1 BDGICS2 BDGICS3 BDGICS4 BDGILD1 BDGILD2 BDGILD3 BDGILD4 BDGILD5 BDGILD62 BDGILD7 BDGIPL1 BDGIPL2 BDGIPL3 BDGIPL4 BDGIPL5 BDGIPL7 BDGIPL8 BDGIPL9 BDGLOC1 BDGLOS1 BDGP1003 BDGPCCE2 BDGPCCEL BDGPI BDGPI1 BDGPI3 BDGPV BDGSD1 BDGSPT1 BDGSPT2 BDGVAH
IHS Changes To Scheduling	31	BSDAIU BSDAL0 BSDAL2 BSDAM BSDAM10 BSDAMEP BSDAMEPW BSDAMR2 BSDAMR3 BSDAMR4 BSDAPL BSDCF BSDCLAV BSDCRL BSDDPA BSDFRL BSDHS BSDLCA BSDLT BSDNS2 BSDPVD BSDPVW BSDRFC BSDROUT BSDROUT0 BSDROUT1 BSDROUT2 BSDU BSDWKR2 BSDWLL BSDWLV
Scheduling	19	SCAPMC11 SCAPMC2 SCAPMC26 SCAPMC28 SCMCBK1 SCRPEC SCRPO2 SCRPO5 SCRPTA2 SCRPV1B SDAM SDAM2 SDAMEVT SDAMWI SDCCP SDCLAV0 SDL1 SDNOS0 SDNP
Registration	6	DGPFUT2 DGPMV DGPWBD DGSEC DGSEC1 VADPT6
Clinical Scheduling for Windows	3	BSDX36 BSDX40 BSDX42
IHS Changes To Lab	3	BLRAG02 BLRMIEHR BLRMIRPT
IHS Mods To Radiology Nuclear Medicine	3	BRARPT1 BRARPT3 BRARPT5
IHS Changes To Pharmacy	2	APSPES1 APSPES3
Radiology Nuclear Medicine	2	RARTST2 RASTEXT
Barcode Medication Administration	1	PSBMLLKU

Package

Total

Caller Graph

IHS Changes To ADT

BDGADD1  BDGADD2  BDGADS1  BDGADS2  BDGBULL1  BDGCEN31  BDGCPT  BDGEAN
BDGEAN2  BDGEPI  BDGICC  BDGICE2  BDGICF1  BDGICR1  BDGICR4  BDGICR41
BDGICS1  BDGICS2  BDGICS3  BDGICS4  BDGILD1  BDGILD2  BDGILD3  BDGILD4
BDGILD5  BDGILD62  BDGILD7  BDGIPL1  BDGIPL2  BDGIPL3  BDGIPL4  BDGIPL5
BDGIPL7  BDGIPL8  BDGIPL9  BDGLOC1  BDGLOS1  BDGP1003  BDGPCCE2  BDGPCCEL
BDGPI  BDGPI1  BDGPI3  BDGPV  BDGSD1  BDGSPT1  BDGSPT2  BDGVAH

IHS Changes To Scheduling

BSDAIU  BSDAL0  BSDAL2  BSDAM  BSDAM10  BSDAMEP  BSDAMEPW  BSDAMR2
BSDAMR3  BSDAMR4  BSDAPL  BSDCF  BSDCLAV  BSDCRL  BSDDPA  BSDFRL
BSDHS  BSDLCA  BSDLT  BSDNS2  BSDPVD  BSDPVW  BSDRFC  BSDROUT
BSDROUT0  BSDROUT1  BSDROUT2  BSDU  BSDWKR2  BSDWLL  BSDWLV

Scheduling

SCAPMC11  SCAPMC2  SCAPMC26  SCAPMC28  SCMCBK1  SCRPEC  SCRPO2  SCRPO5
SCRPTA2  SCRPV1B  SDAM  SDAM2  SDAMEVT  SDAMWI  SDCCP  SDCLAV0
SDL1  SDNOS0  SDNP

Registration

DGPFUT2 DGPMV DGPWBD DGSEC DGSEC1 VADPT6

Clinical Scheduling for Windows

BSDX36 BSDX40 BSDX42

IHS Changes To Lab

BLRAG02 BLRMIEHR BLRMIRPT

IHS Mods To Radiology Nuclear Medicine

BRARPT1 BRARPT3 BRARPT5

IHS Changes To Pharmacy

APSPES1 APSPES3

Radiology Nuclear Medicine

RARTST2 RASTEXT

Barcode Medication Administration

PSBMLLKU

Entry Points

Name	Comments	DBIA/ICR reference
DOD(PAT)	;EP; returns patient's date of death
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INS(PAT,ADM,BDGRR)	;EP; -- private insurance for patient ; Returns BDGRR array
COMMCOD(PAT)	;EP; returns formatted current community code
LASTREG(PAT)	;EP; returns date of last Registration update
DEAD(PAT)	;EP; returns 1 if patient has died
HRCNF(PAT,SITE)	;PEP; return facility code and chart # with leading zeros
HRCND(X)	;EP; add dashes to chart # passed as X
ADDRS(PAT)	;EP; returns single line patient address
HRCNT(X)	;EP; return terminal digit format of chart # passed as X
SP(N)	; -- SUBRTN to pad N number of spaces
ECADD(PAT)	;EP; returns single line address for patient's emergency contact
NOKADD(PAT)	;EP; returns single line address for patient's next of kin
HRCN(PAT,SITE)	;EP; return chart number for patient at this site
IEN(X)	;EP; return IEN for chart # passed in X
RR(PAT,ADM,EXP)	;EP; railroad retirment coverage for patient at admission ; If EXP=1 returns expiration date
STATUS(PAT)	;PEP; returns patient's current status
NEWINS(P,A,T)	;-- make new insurance call here and then parse based on file number
NAMEPRT(DFN,CONVERT)	;EP; return printable name
TRBCOD(PAT)	;EP; returns tribe and code
MCR(PAT,ADM,EXP)	;EP; medicare coverage for patient (PAT) at admission (ADM) ; returns medicare # & suffix and optionally expiration date ; If EXP=1 returns expiration date
CWAD(PAT)	;EP; -- returns cwad initials for patient PAT;IHS/ITSC/LJF PATCH 1003
INSUR(PAT,DATE)	;EP; returns insurance info on DATE sent
MCD(PAT,ADM,EXP)	;EP; medicaid coverage for patient PAT at admission ADM ; returns medicaid # if patient coverage on admit date ; EXP (optional), if set to 1, return expiration date

External References

Name	Field # of Occurrence
GETELIG^AGAPIS	NEWINS+5
$$MCD^AUPNPAT	INSUR+4, MCD+6
$$MCR^AUPNPAT	INSUR+3
$$PI^AUPNPAT	INSUR+6
$$RR^AUPNPAT	INSUR+5
$$DIV^BSDU	HRCNT+2
$$GET1^DIQ	HRCNT+2, HRCNF+2, NEWINS+3, MCR+7, MCR+11, MCD+5, MCD+12, MCD+13, RR+5, RR+9 , INS+4, INS+10, STATUS+2, STATUS+7, STATUS+9, DOD+1, LASTREG+1, COMMCOD+4, TRBCOD+4, TRBCOD+5 , ADDRS+5, ADDRS+6, ADDRS+7, NOKADD+5, NOKADD+6, NOKADD+7, ECADD+5, ECADD+6, ECADD+7
$$CWAD^GMRPNOR1	CWAD+3
DEM^VADPT	NAMEPRT+3
$$FMTE^XLFDT	MCR+13, MCD+15, RR+10
$$REPEAT^XLFSTR	PAD+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNMCR - [#9000003]	GET1^DIQ
^AUPNMCD - [#9000004]	GET1^DIQ
^AUPNRRE - [#9000005]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ
^AUTTTRI - [#9999999.03]	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CWAD+2
^ADGDS - [#9009012]	STATUS+14
^ADGDSI - [#9009012.5]	STATUS+12
^ADGIC - [#9009013]	STATUS+11
^AUPNMCD - [#9000004]	MCD+8, MCD+9, MCD+10, MCD+15
^AUPNMCD("B"	MCD+7
^AUPNMCR - [#9000003]	MCR+8, MCR+9, MCR+10, MCR+13
^AUPNMCR("B"	MCR+6
^AUPNPAT - [#9000001]	HRCN+3
^AUPNPAT("D"	IEN+2
^AUPNPRVT - [#9000006]	NEWINS+34, INS+5, INS+6, INS+7, INS+8, INS+10
^AUPNPRVT("B"	INS+3
^AUPNRRE - [#9000005]	RR+6, RR+7, RR+8, RR+10
^AUPNRRE("B"	RR+4
^DD("FUNC" - [#.5]	NAMEPRT+5
^DPT - [#2]	STATUS+6, DEAD+1, ADDRS+4, NOKADD+4, ECADD+4
^SRF("AIHS3"	STATUS+16

Name	Line Occurrences
$$DEAD	STATUS+2
$$HRCN	HRCNF+3
$$PAD	HRCNF+2, SP+1

Name	Field # of Occurrence
^(0	MCR+10, MCD+10, RR+8, INS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	NEWINS~, NEWINS+3
ADM	MCR~, MCR+5, MCR+7, MCD~, MCD+5, RR~, RR+5, INS~, INS+4
>> BDGCOV	NEWINS+14, NEWINS+24, NEWINS+32, NEWINS+40, MCR+15, MCD+18, RR+12, INS+13
BDGNINS	NEWINS+1!, NEWINS+5
BDGNINS(	NEWINS+8, NEWINS+9, NEWINS+10, NEWINS+11, NEWINS+13!, NEWINS+15, NEWINS+17, NEWINS+18, NEWINS+20!, NEWINS+22 , NEWINS+23, NEWINS+26, NEWINS+27, NEWINS+29!, NEWINS+30!, NEWINS+33, NEWINS+34, NEWINS+36!, NEWINS+38!, NEWINS+39 , NEWINS+42, NEWINS+43
BDGRR	NEWINS+1!, INS~, INS+3!, INS+12
BDGRR(	NEWINS+34, INS+11
BIEN	NEWINS+21~, NEWINS+22*, NEWINS+23
BIENS	NEWINS+16~, NEWINS+17, NEWINS+18, NEWINS+25~, NEWINS+26, NEWINS+27, NEWINS+31~, NEWINS+33, NEWINS+34, NEWINS+41~ , NEWINS+42, NEWINS+43
C	HRCNF+1~, HRCNF+3*, HRCNF+4
CONVERT	NAMEPRT~, NAMEPRT+5
D	PAD~, PAD+2
DA	NEWINS+7~, NEWINS+8*, NEWINS+9, NEWINS+10, NEWINS+11, NEWINS+13, NEWINS+15, NEWINS+17, NEWINS+18, NEWINS+20 , NEWINS+22, NEWINS+23, NEWINS+26, NEWINS+27, NEWINS+29, NEWINS+30, NEWINS+33, NEWINS+34, NEWINS+36, NEWINS+38 , NEWINS+39, NEWINS+42, NEWINS+43
DATE	INSUR~, INSUR+3, INSUR+4, INSUR+5, INSUR+6, NEWINS+2~, NEWINS+3, NEWINS+4, NEWINS+5, MCR+4~ , MCR+7, MCR+9, MCR+10, MCD+4~, MCD+5, MCD+6, MCD+9, MCD+10, RR+3~, RR+5* , RR+7, RR+8, INS+2~, INS+4, INS+6, INS+7, STATUS+15~, STATUS+17
DFN	NAMEPRT~, STATUS+11, STATUS+12, STATUS+14, STATUS+16, CWAD+1~, ADDRS+5, ADDRS+6, ADDRS+7, NOKADD+5 , NOKADD+6, NOKADD+7, ECADD+5, ECADD+6, ECADD+7
DT	NEWINS+4, STATUS+14, STATUS+15
DUZ(2	IEN+2
EXP	MCR~, MCR+13, MCD~, MCD+15, RR~, RR+10
F	HRCNF+1~, HRCNF+2*, HRCNF+4
FL	NEWINS+7~, NEWINS+11*, NEWINS+12, NEWINS+13, NEWINS+19, NEWINS+20, NEWINS+29, NEWINS+30, NEWINS+38
GMRPCWAD	CWAD+1~
IEN	MCR+4~, MCR+6, MCR+8, MCR+9, MCR+10, MCR+11, MCR+13, MCD+4~, MCD+7, MCD+8 , MCD+9, MCD+10, MCD+12, MCD+13, MCD+15, RR+3~, RR+4, RR+6, RR+7, RR+8 , RR+9, RR+10, INS+2~, INS+3, INS+5, INS+6, INS+7, INS+8, INS+10
IEN2	MCD+4~, MCD+8*, MCD+9, MCD+10, MCD+15
IN	NEWINS+7~, NEWINS+10*, NEWINS+11, NEWINS+15, NEWINS+17, NEWINS+18, NEWINS+22, NEWINS+23, NEWINS+26, NEWINS+27 , NEWINS+29, NEWINS+33, NEWINS+34, NEWINS+39, NEWINS+42, NEWINS+43
INS	INSUR+1~, INSUR+2, INSUR+3, INSUR+4, INSUR+5, INSUR+6, INSUR+7, INSUR+8*, INSUR+9
L	PAD~, PAD+2
N	NEWINS+1!, NEWINS+2~, NEWINS+15, NEWINS+18, NEWINS+23, NEWINS+27, NEWINS+39, NEWINS+43, NEWINS+44, MCR+4~ , MCR+8, MCR+11, MCR+13, MCR+14, MCR+16, RR+3~, RR+6, RR+9, RR+10, RR+11 , RR+13, INS+2~, INS+8*, INS+11, SP~, SP+1
NAME	MCD+4~, MCD+12, MCD+17, MCD+19, INS+2~, INS+10*, INS+11
NUM	MCD+4~, MCD+7, MCD+8, MCD+13, MCD+15, MCD+16, MCD+19
P	NEWINS~, NEWINS+5, NEWINS+15, NEWINS+34, NEWINS+39
PAT	HRCN~, HRCN+2, HRCN+3, HRCNF~, HRCNF+3, INSUR~, INSUR+3, INSUR+4, INSUR+5, INSUR+6 , MCR~, MCR+5, MCR+6, MCD~, MCD+6, MCD+7, RR~, RR+4, INS~, INS+3 , STATUS~, STATUS+2, STATUS+6, STATUS+7, STATUS+9, CWAD~, CWAD+3, DEAD~, DEAD+1, DOD~ , DOD+1, LASTREG~, LASTREG+1, COMMCOD~, COMMCOD+2, COMMCOD+4, TRBCOD~, TRBCOD+2, TRBCOD+4, TRBCOD+5 , ADDRS~, ADDRS+2, ADDRS+4, NOKADD~, NOKADD+2, NOKADD+4, ECADD~, ECADD+2, ECADD+4
PR	NEWINS+7~, NEWINS+9*, NEWINS+10, NEWINS+11, NEWINS+13, NEWINS+15, NEWINS+17, NEWINS+18, NEWINS+20, NEWINS+22 , NEWINS+23, NEWINS+26, NEWINS+27, NEWINS+29, NEWINS+30, NEWINS+33, NEWINS+34, NEWINS+36, NEWINS+38, NEWINS+39 , NEWINS+42, NEWINS+43
SITE	HRCN~, HRCN+3, HRCNF~, HRCNF+2, HRCNF+3
STYLE	HRCNT+2~*, HRCNT+4
T	NEWINS~, NEWINS+6, NEWINS+12, NEWINS+19, NEWINS+28, NEWINS+37
U	HRCN+3, NEWINS+34, MCR+9, MCR+10, MCR+13, MCD+9, MCD+10, MCD+15, RR+7, RR+8 , RR+10, INS+6, INS+7, INS+8
VADM	NAMEPRT+2~
VADM(1	NAMEPRT+4
X	HRCND~, HRCND+2, HRCND+3, HRCND+4, HRCNT~, HRCNT+3, HRCNT+4, HRCNT+5, HRCNT+6, IEN~ , IEN+2, NAMEPRT+2~, NAMEPRT+4, NAMEPRT+6, INSUR+1~, INSUR+3, INSUR+4, INSUR+5, INSUR+6, MCR+4~ , MCR+8, MCR+9, MCR+10, MCR+13, RR+3~, RR+6, RR+7, RR+8, RR+10, INS+2~ , INS+5, INS+6, INS+7, INS+8, INS+10, INS+11, STATUS+1~, STATUS+6, STATUS+7, STATUS+8* , STATUS+14, STATUS+15~, STATUS+16, STATUS+17, CWAD+1~, CWAD+2, CWAD+3, CWAD+4, CWAD+5, COMMCOD+3~ , COMMCOD+4, COMMCOD+7, TRBCOD+3~, TRBCOD+4, TRBCOD+6, ADDRS+3~, ADDRS+5, ADDRS+6, ADDRS+7, ADDRS+8 , NOKADD+3~, NOKADD+5, NOKADD+6, NOKADD+7, NOKADD+8, ECADD+3~, ECADD+5, ECADD+6, ECADD+7*, ECADD+8
Y	IEN+1~, IEN+2, IEN+3, STATUS+6, STATUS+9, TRBCOD+3~, TRBCOD+5, TRBCOD+6

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGF2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 118

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: