Routine: BDGF1

Package	Total	Call Graph
IHS Changes To ADT	3	$$LASTDS^BDGDSA ($$NUMDATE,$$READ)^BDGF $$DIV^BDGPAR
Kernel	1	($$FMDIFF,$$NOW)^XLFDT
Patient Care Component Reports	1	$$PRIMPROV^APCLV
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	35	BDGAD1 BDGAD2 BDGAD3 BDGAD4 BDGAPI BDGAPI2 BDGBULL1 BDGCEN30 BDGCRB BDGCRB1 BDGICEVT BDGICS1 BDGICS3 BDGILD1 BDGILD2 BDGILD3 BDGILD4 BDGILD5 BDGILD61 BDGILD7 BDGIPL1 BDGIPL2 BDGIPL3 BDGIPL4 BDGIPL5 BDGIPL6 BDGIPL7 BDGIPL8 BDGIPL9 BDGLOC1 BDGOPL BDGPCCL BDGPI BDGPV BDGVAH
IHS Mods To Text Integration Utilities	3	BTIUDSC BTIUICL BTIUPCC
IHS Changes To Scheduling	2	BSDAL0 BSDAL2
Registration	2	DGPMV10 ^DGPM
IHS Mods To Radiology Nuclear Medicine	1	BRAPCC

Entry Points

Name	Comments	DBIA/ICR reference
ADMPRVS(ADM,PAT,TYPE,MODE)	;PEP; -- returns provider's service based on type ; TYPE="ADM" for admitting, "PRM" for primary, "ATT" for attending ; MODE="" for external format or ="I" for internal format
ADMTXN(ADM,PAT)	;PEP; -- returns treating specialty node ien for admission
CURPRV(PAT,LENGTH)	;PEP; returns current attending provider for patient ; LENGTH=amount of room to fit name, optional
ADMSRVN(ADM,PAT)	;PEP; -- returns admitting service ien
LOSHRS(CA,DATE,PAT)	;PEP; returns length of stay in hours
LASTPRVS(ADM,PAT,MODE)	;PEP; returns last attending provider's service ; MODE="" for external format or ="I" for internal format
DSADM(ADM,PAT)	;PEP; returns 1 if patient admitted after day surgery w/in limit
VISIT(PAT,DATE)	;PEP; return H or O visit ien for patient and admit date
ADMSRV(ADM,PAT)	;PEP; -- returns admitting service name
LASTPRVC(ADM,PAT)	;PEP; returns IHS ADC code for last attending provider by type
LASTPRV(ADM,PAT,MODE)	;PEP; returns last attending provider based on type ; MODE="" for external format or ="I" for internal format
LASTTXN(ADM,PAT)	;PEP; returns last treating specialty ien for admission ; also returns last service as second U piece
ADMTYP(ADM)	;PEP; returns IHS admit type and code
WRDABRV2(N)	;PEP; returns abbreviation of ward for movement N
LASTSRVC(ADM,PAT)	;PEP; returns last service abbreviation and its code
SRVCHK(SRV,IEN)	;EP; called by 405 DD on field .09 ; Make sure no mixing of observation & inpatient services in one encounter ; SRV=treating specialty pointer being assessed; IEN=DA - entry in file 405
OPTOUT(PAT)	;EP; returns 1 if patient asked to opt-out of directory for current admission
INPT1(PAT,DATE)	;PEP; returns admit date (external format) if inpt on DATE sent
LASTSRVN(ADM,PAT)	;PEP; returns last service name
DESC	;EP; called by executable help on Admission Source field in file 405
ADMPRV(ADM,PAT,TYPE,MODE)	;PEP; -- returns provider for admission based on type ; TYPE="ADM" for admitting, "PRM" for primary, "ATT" for attending ; MODE="" for external format or ="I" for internal format
PRIORMVT(DATE,CA,PAT)	;PEP; returns last physical movement before DATE
WRDABRV(PAT)	;PEP; returns abbreviation of current ward
LASTADM(PAT)	; Returns ien for patient's most recent admission
CURLOS(PAT,MODE)	;PEP; returns length of stay for current inpatient ; MODE=1 means return observation in hours
ADMSRVC(ADM,PAT)	;PEP; returns admitting service abbrev & code
PRIORTXN(DATE,CA,PAT)	;PEP; returns treating specialty ien prior to date sent ; assumes date includes time
READM(ADM,PAT,LIMIT)	;PEP; returns 1 if patient readmitted within parameter limit ; LIMIT is optional, if not sent will use site parameter ; returns LAST discharge date if within limits
CURDX(PAT)	;PEP; returns admitting dx for current inpatient

Name	Field # of Occurrence
$$PRIMPROV^APCLV	LASTPRV+8
$$LASTDS^BDGDSA	DSADM+3
$$NUMDATE^BDGF	INPT1+7
$$READ^BDGF	DESC+8
$$DIV^BDGPAR	READM+14, DSADM+6
$$GET1^DIQ	VISIT+5, ADMPRV+8, ADMPRVS+3, ADMSRV+4, ADMSRVN+4, ADMSRVC+5, ADMSRVC+6, ADMTYP+4, ADMTYP+5, ADMTYP+6 , WRDABRV+3, WRDABRV2+2, WRDABRV2+3, CURPRV+2, CURDX+3, CURLOS+4, CURLOS+6, LASTTXN+4, LASTSRVN+4, LASTSRVC+5 , LASTPRV+7, LASTPRV+11, LASTPRVC+2, LASTPRVS+2, READM+4, READM+14, DSADM+2, DSADM+6, OPTOUT+2, OPTOUT+3 , SRVCHK+4, SRVCHK+5, SRVCHK+13, SRVCHK+14
$$FMDIFF^XLFDT	LOSHRS+1, READM+8, DSADM+5
$$NOW^XLFDT	CURLOS+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,BDGC,?4,$P(^AUTTASRC(BDGN,0),U) Line Location: DESC+5
Function Call: WRITE	Prompt: !,?6,^AUTTASRC(BDGN,1,BDGD,0) Line Location: DESC+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DG(405.1 - [#405.1]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ
^BDGPAR - [#9009020.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("AA"	VISIT+4
^AUTTASRC - [#9999999.53]	DESC+5, DESC+6, DESC+7
^AUTTASRC("C"	DESC+3, DESC+4
^DGPM - [#405]	ADMTXN+3, LASTTXN+6, PRIORTXN+6, PRIORTXN+12, LOSHRS+1
^DGPM("APCA"	PRIORMVT+3, PRIORMVT+4
^DGPM("APTT3"	INPT1+4, READM+6
^DGPM("APTT6"	ADMTXN+4, PRIORTXN+6, PRIORTXN+10, PRIORTXN+11, PRIORTXN+15
^DGPM("ATID1"	INPT1+2, LASTADM+2, LASTADM+3
^DGPM("ATS"	LASTTXN+8, LASTTXN+10, LASTTXN+12
^DIC(42 - [#42]	WRDABRV+2
^DPT - [#2]	WRDABRV+1, WRDABRV+2, CURDX+2, CURLOS+3

Name	Line Occurrences
$$ADMPRV	ADMPRVS+3
$$ADMSRV	SRVCHK+11
$$ADMSRVN	ADMSRVC+4
$$ADMTXN	ADMPRV+6, ADMSRV+3, ADMSRVN+3, PRIORTXN+14, SRVCHK+6, SRVCHK+7, SRVCHK+10
$$LASTPRV	LASTPRVC+2, LASTPRVS+2
$$LASTSRVN	SRVCHK+10
$$LASTTXN	LASTSRVN+3, LASTSRVC+4, LASTPRV+4, SRVCHK+6, SRVCHK+7
$$LOSHRS	CURLOS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	INPT1+1~, INPT1+2, INPT1+4, INPT1+6, INPT1+7, ADMTXN~, ADMTXN+3, ADMPRV~, ADMPRV+5, ADMPRV+6 , ADMPRVS~, ADMPRVS+3, ADMSRV~, ADMSRV+2, ADMSRV+3, ADMSRVN~, ADMSRVN+2, ADMSRVN+3, ADMSRVC~, ADMSRVC+3 , ADMSRVC+4, ADMTYP~, ADMTYP+3, ADMTYP+4, ADMTYP+6, LASTTXN~, LASTTXN+3, LASTTXN+4, LASTTXN+8, LASTTXN+10 , LASTTXN+12, LASTSRVN~, LASTSRVN+1, LASTSRVN+3, LASTSRVC~, LASTSRVC+2, LASTSRVC+4, LASTPRV~, LASTPRV+4, LASTPRV+7 , LASTPRVC~, LASTPRVC+2, LASTPRVS~, LASTPRVS+2, READM~, READM+4, DSADM~, DSADM+2, SRVCHK+3~, SRVCHK+4* , SRVCHK+6, SRVCHK+7, SRVCHK+10, SRVCHK+11
ADMDT	READM+3~, READM+4, READM+5, READM+6, READM+8, DSADM+1~, DSADM+2, DSADM+3, DSADM+5
BDGC	DESC+1~, DESC+2, DESC+3, DESC+4, DESC+5
BDGD	DESC+1~, DESC+6*, DESC+7
BDGL	DESC+1~, DESC+2, DESC+5, DESC+7, DESC+8
BDGN	DESC+1~, DESC+4*, DESC+5, DESC+6, DESC+7
BDGSTOP	DESC+1~, DESC+2, DESC+3, DESC+4, DESC+6, DESC+8
CA	CURDX+1~, CURDX+2, CURDX+3, CURLOS+2~, CURLOS+3, CURLOS+5, CURLOS+6, PRIORTXN~, PRIORTXN+6, PRIORTXN+14 , PRIORMVT~, PRIORMVT+2, PRIORMVT+3, PRIORMVT+4, LOSHRS~, LOSHRS+1
DATE	VISIT~, VISIT+2, INPT1~, INPT1+2, INPT1+5, ADMTXN+2~, ADMTXN+3, ADMTXN+4, LASTTXN+2~, LASTTXN+6 , LASTTXN+8*, LASTTXN+10, LASTTXN+12, PRIORTXN~, PRIORTXN+3, PRIORTXN+6, PRIORTXN+9, PRIORMVT~, PRIORMVT+2, PRIORMVT+3 , LOSHRS~, LOSHRS+1
DIFF	READM+3~, READM+8, READM+11, READM+14, DSADM+1~, DSADM+5, DSADM+6
DSC	LASTTXN+2~, LASTTXN+4*, LASTTXN+6
DSCH	INPT1+1~, INPT1+4*, INPT1+5
DUZ(2	READM+14, DSADM+6
FIELD	ADMPRV+4~, ADMPRV+7*, ADMPRV+8
FOUND	VISIT+1~, VISIT+3, VISIT+4, VISIT+5, VISIT+6, PRIORTXN+2~, PRIORTXN+9, PRIORTXN+10, PRIORTXN+12, PRIORTXN+14 , PRIORTXN+15
IEN	ADMPRV+4~, ADMPRV+6, ADMPRV+8, ADMSRV+1~, ADMSRV+3, ADMSRV+4, ADMSRVN+1~, ADMSRVN+3, ADMSRVN+4, ADMSRVC+2~ , ADMSRVC+4, ADMSRVC+5, ADMSRVC+6, LASTTXN+2~, LASTTXN+12*, LASTTXN+13, SRVCHK~, SRVCHK+4, SRVCHK+5, SRVCHK+6 , SRVCHK+7, SRVCHK+10
LAST	LASTPRV+3~, LASTPRV+4, LASTPRV+11, PRIORTXN+2~, PRIORTXN+9, PRIORTXN+10, PRIORTXN+11, PRIORTXN+12, PRIORMVT+1~, PRIORMVT+3 , PRIORMVT+4, READM+3~, READM+6, READM+7, READM+8, READM+16, DSADM+1~, DSADM+3, DSADM+4, DSADM+5 , DSADM+7
LENGTH	CURPRV~, CURPRV+3*, CURPRV+4
LIMIT	READM~, READM+11, READM+14
MODE	ADMPRV~, ADMPRV+8, ADMPRVS~, ADMPRVS+3, CURLOS~, CURLOS+5, LASTPRV~, LASTPRV+8, LASTPRV+11, LASTPRVS~ , LASTPRVS+2
N	WRDABRV2~, WRDABRV2+2, PRIORTXN+11*, PRIORTXN+12
PAT	VISIT~, VISIT+4, INPT1~, INPT1+2, INPT1+4, ADMTXN~, ADMTXN+4, ADMPRV~, ADMPRV+5, ADMPRV+6 , ADMPRVS~, ADMPRVS+3, ADMSRV~, ADMSRV+2, ADMSRV+3, ADMSRVN~, ADMSRVN+2, ADMSRVN+3, ADMSRVC~, ADMSRVC+3 , ADMSRVC+4, WRDABRV~, WRDABRV+1, WRDABRV+2, CURPRV~, CURPRV+2, CURDX~, CURDX+2, CURLOS~, CURLOS+3 , CURLOS+4, CURLOS+5, LASTTXN~, LASTTXN+3, LASTTXN+8, LASTTXN+10, LASTTXN+12, LASTSRVN~, LASTSRVN+1, LASTSRVN+3 , LASTSRVC~, LASTSRVC+2, LASTSRVC+4, LASTPRV~, LASTPRV+4, LASTPRVC~, LASTPRVC+2, LASTPRVS~, LASTPRVS+2, PRIORTXN~ , PRIORTXN+3, PRIORTXN+6, PRIORTXN+10, PRIORTXN+11, PRIORTXN+14, PRIORTXN+15, PRIORMVT~, PRIORMVT+2, PRIORMVT+3, PRIORMVT+4 , LOSHRS~, READM~, READM+6, DSADM~, DSADM+3, LASTADM~, LASTADM+2, LASTADM+3, OPTOUT~, OPTOUT+2 , SRVCHK+3~, SRVCHK+5*, SRVCHK+6, SRVCHK+7, SRVCHK+10, SRVCHK+11
PCC	LASTPRV+7~, LASTPRV+8*
RVDT	VISIT+1~, VISIT+2*, VISIT+4
SERVICE	SRVCHK+3~, SRVCHK+10, SRVCHK+11, SRVCHK+13, SRVCHK+14
SRV	CURLOS+2~, CURLOS+4, CURLOS+5, LASTTXN+2~, LASTTXN+10, LASTTXN+12, LASTTXN+13, SRVCHK~, SRVCHK+13, SRVCHK+14
TYPE	ADMPRV~, ADMPRV+7, ADMPRVS~, ADMPRVS+3
U	LASTTXN+13, LASTSRVN+3, LASTSRVC+4, PRIORTXN+12, READM+16, DSADM+7, SRVCHK+6, SRVCHK+7, DESC+5
V	VISIT+1~, VISIT+4*, VISIT+5
VST	LASTPRV+7~*, LASTPRV+8
X	VISIT+1~, VISIT+5, ADMSRVC+2~, ADMSRVC+5, ADMSRVC+6, ADMTYP+2~, ADMTYP+4, ADMTYP+5, ADMTYP+6, WRDABRV+2~* , WRDABRV+3, WRDABRV2+1~, WRDABRV2+2, WRDABRV2+3, LASTSRVN+2~, LASTSRVN+3, LASTSRVN+4, LASTSRVC+3~, LASTSRVC+4, LASTSRVC+5 , OPTOUT+1~, OPTOUT+2, OPTOUT+3
Y	CURPRV+2~, CURPRV+4, LASTADM+1~, LASTADM+2, LASTADM+3

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGF1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 43

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: