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	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

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

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: