Routine: BDGAPI2

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE $$GET1^DIQ
IHS Changes To ADT	2	($$ADD,ADMT,BED)^BDGAPI ($$ADMTXN,$$PRIORMVT,$$PRIORTXN,$$VISIT)^BDGF1
Registration	2	UC^DGPMV (DR,VAR)^DGPMV3

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGAPI BDGAPI1

Name	Comments	DBIA/ICR reference
CHECK(ARRAY)	; check common required fields
FINDADM	; find admission based on acct # or admit date or current status
ADMD	; check admitting and referring provider fields
DSCT	; -- check discharge types
ADX	; check admitting dx
1	; edit admission
ATMD	; check attending and primary provider fields
3	; add discharge
2	; edit transfer
EDIT(BDGR)	;EP; silent API to edit patient movement entries to file 405
6	; add treating specialty transfer
ADMT	; -- check admit types/source
SRV	; -- check service (screen for active admitting services)
WARD	; -- check ward and room-bed

Name	Field # of Occurrence
^%DT	CHECK+4
$$ADD^BDGAPI	EDIT+10, EDIT+26, EDIT+58
ADMT^BDGAPI	ADMT+3
BED^BDGAPI	EDIT+60
$$ADMTXN^BDGF1	EDIT+40
$$PRIORMVT^BDGF1	EDIT+45
$$PRIORTXN^BDGF1	EDIT+53
$$VISIT^BDGF1	FINDADM+12
UC^DGPMV	1+12, 2+13, 3+18, 6+15
DR^DGPMV3	1+13, 2+14, 3+19, 6+16
VAR^DGPMV3	1+13, 2+14, 3+19, 6+16
^DIC	WARD+4, WARD+9, SRV+6, DSCT+4, DSCT+10, ADMD+7, ATMD+7, ATMD+13
^DIE	EDIT+16
$$GET1^DIQ	EDIT+15, EDIT+24, EDIT+31, EDIT+37, EDIT+38, EDIT+39, EDIT+40, EDIT+48, EDIT+55, EDIT+56 , CHECK+6, FINDADM+7, FINDADM+25

Name	Line Occurrences
Function Call: WRITE	Prompt: ERR=ERR_1_U_"Referring Provider too short: "_X,BDGR("REFP")="" Line Location: ADMD+11
Function Call: WRITE	Prompt: ERR=ERR_1_U_"Referring Provider too long: "_X,BDGR("REFP")="" Line Location: ADMD+12
Routine Call	DIE Line Location: EDIT+16
Routine Call	DIC Line Location: WARD+4 WARD+9 SRV+6 DSCT+4 DSCT+10 ADMD+7 ATMD+7 ATMD+13

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls, GET1^DIQ
^AUTTASRC - [#9999999.53]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	FINDADM+9
^AUPNVSIT("AXT"	FINDADM+6
^DGPM - [#405]	EDIT+28, EDIT+36, 1+11, 2+12, 3+12, 6+11, 6+14
^DGPM("AMV1"	FINDADM+19
^DGPM("AVISIT"	FINDADM+15
^DPT - [#2]	EDIT+60, FINDADM+22
^DPT("RM"	WARD+11

Name	Line Occurrences
$$CHECK	EDIT+5
1	EDIT+57
@(	EDIT+32, EDIT+41, EDIT+49, 1+5, 2+8, 3+8, 6+7
FINDADM	EDIT+7

Name	Field # of Occurrence
%DT	CHECK+1~, CHECK+4*
ARRAY	CHECK~
BDGAPI	EDIT+1~, EDIT+3*
BDGCA	EDIT+1~, EDIT+10, EDIT+12, EDIT+24, EDIT+36, EDIT+37, EDIT+38, EDIT+39, EDIT+40, EDIT+45 , EDIT+46, EDIT+53, EDIT+60, 1+10, 2+4, 3+4, 6+4, FINDADM+5, FINDADM+15, FINDADM+19* , FINDADM+22*, FINDADM+25
BDGMVT	EDIT+1~, EDIT+46*, EDIT+48
BDGN	EDIT+1~, EDIT+24~, EDIT+26, EDIT+28, EDIT+31, EDIT+45, EDIT+46, EDIT+47, EDIT+48, EDIT+53* , EDIT+54, EDIT+55, EDIT+56, 1+1~, 2+4, 3+4, 6+4
BDGR	EDIT~, EDIT+5, EDIT+10, EDIT+26, EDIT+58
BDGR("ACCT"	EDIT+16, FINDADM+6
BDGR("ADMD"	EDIT+40, ADMD+3, ADMD+4, ADMD+7
BDGR("ADMIT D	ATE" , EDIT+36, EDIT+57, 1+9, 1+10, 6+11, FINDADM+12, FINDADM+19
BDGR("ADX"	ADX+2
BDGR("ATMD"	EDIT+55, ATMD+3, ATMD+4, ATMD+7, ATMD+10
BDGR("DATE"	EDIT+45, EDIT+47, EDIT+53, EDIT+54, EDIT+57, 1+9, 2+12, 6+11, 6+14, CHECK+3 , CHECK+5*
BDGR("DISCHAR	GE DATE" , EDIT+23, EDIT+28, 3+12
BDGR("DSCT"	EDIT+31, DSCT+3, DSCT+5, DSCT+7
BDGR("MINOR T	YPE" , SRV+3
BDGR("PAT"	EDIT+40, EDIT+45, EDIT+53, EDIT+60, 1+2, 2+2, 3+2, 6+2, CHECK+2, FINDADM+9 , FINDADM+12, FINDADM+19, FINDADM+22
BDGR("PRMD"	ATMD+10*, ATMD+13
BDGR("REFP"	ADMD+11, ADMD+12
BDGR("ROOM"	EDIT+35, EDIT+60, WARD+8, WARD+10, WARD+11
BDGR("SRV"	EDIT+56, SRV+3*, SRV+5, SRV+7
BDGR("TFAC"	EDIT+39, DSCT+8, DSCT+11
BDGR("TRAN"	EDIT+10, EDIT+26, EDIT+58*
BDGR("UBAS"	EDIT+37, ADMT+2
BDGR("UBAT"	EDIT+38
BDGR("UBDS"	DSCT+14, DSCT+15*
BDGR("USER"	CHECK+6
BDGR("WARD"	EDIT+48, WARD+3, WARD+5
BDGRM	EDIT+35~*
BDGTRAN	EDIT+1~, EDIT+20, EDIT+28, EDIT+31, EDIT+32, EDIT+36, EDIT+37, EDIT+38, EDIT+39, EDIT+40 , EDIT+41, EDIT+44, EDIT+48, EDIT+49, EDIT+52, EDIT+55, EDIT+56*, EDIT+57, EDIT+58
BDGV	EDIT+1~, EDIT+10, EDIT+12, EDIT+15, EDIT+16, FINDADM+5, FINDADM+6, FINDADM+9, FINDADM+12, FINDADM+15 , FINDADM+18, FINDADM+25
>> BGR("PRMD"	ATMD+10
>> BGR("REFP"	ADMD+10
>> DA	EDIT+16, 1+10
DFN	EDIT+60, 1+1~, 1+2, 2+1~, 2+2, 3+1~, 3+2, 6+1~, 6+2*, WARD+11
DGPMAN	2+1~, 2+12, 3+1~, 3+12, 3+16, 6+1~, 6+14*
DGPMCA	EDIT+60, 1+1~, 1+10, 2+1~, 2+4, 2+12, 3+1~, 3+4, 3+12, 6+1~ , 6+4*, 6+11
>> DGPMDA	1+10, 1+11, 2+4, 3+4, 6+4, 6+11, 6+14
DGPMN	1+1~, 1+2, 2+1~, 2+3, 3+1~, 3+3, 6+1~, 6+3
>> DGPMOUT	1+10*
DGPMP	1+1~, 1+11, 2+1~, 2+2, 3+1~, 3+2, 6+1~, 6+2
DGPMSA	1+1~, 1+10*, 2+1~, 3+1~, 6+1~
DGPMT	1+1~, 1+2, 2+1~, 2+2, 3+1~, 3+2, 6+1~, 6+2
DGPMUC	1+1~, 2+1~, 3+1~, 6+1~
DGPMY	1+1~, 1+10, 2+1~, 2+12, 3+1~, 3+12, 3+16, 6+1~, 6+14
DGQUIET	EDIT+1~, EDIT+2*
DIC	WARD+1~, WARD+3, WARD+9!, SRV+1~, SRV+5, ADMT+1~, DSCT+1~, DSCT+3, DSCT+9!, ADMD+1~ , ADMD+5, ATMD+1~, ATMD+5, ATMD+11
DIC("S"	WARD+4, SRV+6, DSCT+4, DSCT+10, ADMD+6, ATMD+6, ATMD+12*
DIC(0	WARD+3, WARD+9, SRV+5, DSCT+3, DSCT+9, ADMD+5, ATMD+5, ATMD+11
>> DIE	EDIT+16*
>> DR	EDIT+16*
ERR	EDIT+1~, EDIT+5, EDIT+23, EDIT+26, EDIT+41, EDIT+49, EDIT+57, EDIT+62, 1+2, 1+5 , 1+6, 2+2, 2+8, 2+9, 3+2, 3+8, 3+9, 3+16, 6+2, 6+7 , 6+8, WARD+5, WARD+10, WARD+11, SRV+7, DSCT+5, DSCT+7, DSCT+8, DSCT+11, DSCT+15* , ADX+3, ADX+4, ADMD+4, ADMD+7, ADMD+11, ADMD+12, ATMD+4, ATMD+7, ATMD+13*
I	1+1~, 1+5, 2+1~, 2+8, 3+1~, 3+8, 6+1~, 6+7
U	EDIT+12, EDIT+47, EDIT+54, 3+16, 6+11, WARD+5, WARD+10, WARD+11, SRV+7, DSCT+5 , DSCT+8, DSCT+11, DSCT+15, ADX+3, ADX+4, ADMD+4, ADMD+7, ADMD+11, ADMD+12, ATMD+4 , ATMD+7, ATMD+13, CHECK+2, CHECK+3, CHECK+6, FINDADM+9
VST	EDIT+1~, FINDADM+4~, FINDADM+5, FINDADM+6, FINDADM+7, FINDADM+9
X	EDIT+1~, 1+1~, WARD+1~, WARD+3, WARD+8, SRV+1~, SRV+5, ADMT+1~, DSCT+1~, DSCT+3 , DSCT+8, DSCT+14, DSCT+15, ADX+1~, ADX+2, ADX+3, ADX+4, ADMD+1~, ADMD+4, ADMD+10* , ADMD+11, ADMD+12, ATMD+1~, ATMD+4, ATMD+10, CHECK+1~, CHECK+3, FINDADM+4~, FINDADM+7
Y	WARD+1~, WARD+5, WARD+10, SRV+1~, SRV+7, ADMT+1~, DSCT+1~, DSCT+5, DSCT+11, ADMD+1~ , ADMD+7, ATMD+1~, ATMD+7, ATMD+13, CHECK+1~, CHECK+3, CHECK+4, CHECK+5

Name

Field # of Occurrence

%DT

CHECK+1~, CHECK+4*

ARRAY

CHECK~

BDGAPI

EDIT+1~, EDIT+3*

BDGCA

EDIT+1~, EDIT+10, EDIT+12, EDIT+24, EDIT+36, EDIT+37, EDIT+38, EDIT+39, EDIT+40, EDIT+45
, EDIT+46, EDIT+53, EDIT+60, 1+10, 2+4, 3+4, 6+4, FINDADM+5*, FINDADM+15*, FINDADM+19*
, FINDADM+22*, FINDADM+25

BDGMVT

EDIT+1~, EDIT+46*, EDIT+48

BDGN

EDIT+1~, EDIT+24~*, EDIT+26, EDIT+28, EDIT+31, EDIT+45*, EDIT+46, EDIT+47, EDIT+48, EDIT+53*
, EDIT+54, EDIT+55, EDIT+56, 1+1~, 2+4, 3+4, 6+4

BDGR

EDIT~, EDIT+5, EDIT+10, EDIT+26, EDIT+58

BDGR("ACCT"

EDIT+16, FINDADM+6

BDGR("ADMD"

EDIT+40, ADMD+3, ADMD+4, ADMD+7

BDGR("ADMIT D

ATE" , EDIT+36, EDIT+57, 1+9, 1+10, 6+11, FINDADM+12, FINDADM+19

BDGR("ADX"

ADX+2

BDGR("ATMD"

EDIT+55, ATMD+3, ATMD+4, ATMD+7, ATMD+10

BDGR("DATE"

EDIT+45, EDIT+47, EDIT+53, EDIT+54, EDIT+57, 1+9*, 2+12, 6+11*, 6+14, CHECK+3
, CHECK+5*

BDGR("DISCHAR

GE DATE" , EDIT+23, EDIT+28, 3+12

BDGR("DSCT"

EDIT+31, DSCT+3, DSCT+5, DSCT+7

BDGR("MINOR T

YPE" , SRV+3

BDGR("PAT"

EDIT+40, EDIT+45, EDIT+53, EDIT+60, 1+2, 2+2, 3+2, 6+2, CHECK+2, FINDADM+9
, FINDADM+12, FINDADM+19, FINDADM+22

BDGR("PRMD"

ATMD+10*, ATMD+13

BDGR("REFP"

ADMD+11, ADMD+12

BDGR("ROOM"

EDIT+35, EDIT+60, WARD+8, WARD+10*, WARD+11*

BDGR("SRV"

EDIT+56, SRV+3*, SRV+5, SRV+7

BDGR("TFAC"

EDIT+39, DSCT+8, DSCT+11

BDGR("TRAN"

EDIT+10*, EDIT+26*, EDIT+58*

BDGR("UBAS"

EDIT+37, ADMT+2

BDGR("UBAT"

EDIT+38

BDGR("UBDS"

DSCT+14, DSCT+15*

BDGR("USER"

CHECK+6

BDGR("WARD"

EDIT+48, WARD+3, WARD+5

BDGRM

EDIT+35~*

BDGTRAN

EDIT+1~, EDIT+20*, EDIT+28*, EDIT+31*, EDIT+32, EDIT+36*, EDIT+37*, EDIT+38*, EDIT+39*, EDIT+40*
, EDIT+41, EDIT+44*, EDIT+48*, EDIT+49, EDIT+52*, EDIT+55*, EDIT+56*, EDIT+57, EDIT+58

BDGV

EDIT+1~, EDIT+10, EDIT+12, EDIT+15, EDIT+16, FINDADM+5*, FINDADM+6, FINDADM+9*, FINDADM+12*, FINDADM+15
, FINDADM+18, FINDADM+25*

>> BGR("PRMD"

ATMD+10

>> BGR("REFP"

ADMD+10

>> DA

EDIT+16*, 1+10*

DFN

EDIT+60*, 1+1~, 1+2*, 2+1~, 2+2*, 3+1~, 3+2*, 6+1~, 6+2*, WARD+11

DGPMAN

2+1~, 2+12*, 3+1~, 3+12*, 3+16, 6+1~, 6+14*

DGPMCA

EDIT+60*, 1+1~, 1+10*, 2+1~, 2+4*, 2+12, 3+1~, 3+4*, 3+12, 6+1~
, 6+4*, 6+11

>> DGPMDA

1+10*, 1+11, 2+4*, 3+4*, 6+4*, 6+11, 6+14

DGPMN

1+1~, 1+2*, 2+1~, 2+3*, 3+1~, 3+3*, 6+1~, 6+3*

>> DGPMOUT

1+10*

DGPMP

1+1~, 1+11*, 2+1~, 2+2*, 3+1~, 3+2*, 6+1~, 6+2*

DGPMSA

1+1~, 1+10*, 2+1~, 3+1~, 6+1~

DGPMT

1+1~, 1+2*, 2+1~, 2+2*, 3+1~, 3+2*, 6+1~, 6+2*

DGPMUC

1+1~, 2+1~, 3+1~, 6+1~

DGPMY

1+1~, 1+10*, 2+1~, 2+12*, 3+1~, 3+12*, 3+16, 6+1~, 6+14*

DGQUIET

EDIT+1~, EDIT+2*

DIC

WARD+1~, WARD+3*, WARD+9!*, SRV+1~, SRV+5*, ADMT+1~, DSCT+1~, DSCT+3*, DSCT+9!*, ADMD+1~
, ADMD+5*, ATMD+1~, ATMD+5*, ATMD+11*

DIC("S"

WARD+4*, SRV+6*, DSCT+4*, DSCT+10*, ADMD+6*, ATMD+6*, ATMD+12*

DIC(0

WARD+3*, WARD+9*, SRV+5*, DSCT+3*, DSCT+9*, ADMD+5*, ATMD+5*, ATMD+11*

>> DIE

EDIT+16*

>> DR

EDIT+16*

ERR

EDIT+1~, EDIT+5*, EDIT+23, EDIT+26*, EDIT+41, EDIT+49, EDIT+57, EDIT+62, 1+2*, 1+5
, 1+6, 2+2*, 2+8, 2+9, 3+2*, 3+8, 3+9, 3+16*, 6+2*, 6+7
, 6+8, WARD+5*, WARD+10*, WARD+11*, SRV+7*, DSCT+5*, DSCT+7, DSCT+8*, DSCT+11*, DSCT+15*
, ADX+3*, ADX+4*, ADMD+4*, ADMD+7*, ADMD+11, ADMD+12, ATMD+4*, ATMD+7*, ATMD+13*

I

1+1~, 1+5*, 2+1~, 2+8*, 3+1~, 3+8*, 6+1~, 6+7*

U

EDIT+12, EDIT+47, EDIT+54, 3+16, 6+11, WARD+5, WARD+10, WARD+11, SRV+7, DSCT+5
, DSCT+8, DSCT+11, DSCT+15, ADX+3, ADX+4, ADMD+4, ADMD+7, ADMD+11, ADMD+12, ATMD+4
, ATMD+7, ATMD+13, CHECK+2, CHECK+3, CHECK+6, FINDADM+9

VST

EDIT+1~, FINDADM+4~, FINDADM+5*, FINDADM+6*, FINDADM+7, FINDADM+9

X

EDIT+1~, 1+1~, WARD+1~, WARD+3*, WARD+8*, SRV+1~, SRV+5*, ADMT+1~, DSCT+1~, DSCT+3*
, DSCT+8*, DSCT+14*, DSCT+15, ADX+1~, ADX+2*, ADX+3, ADX+4, ADMD+1~, ADMD+4*, ADMD+10*
, ADMD+11, ADMD+12, ATMD+1~, ATMD+4*, ATMD+10*, CHECK+1~, CHECK+3*, FINDADM+4~, FINDADM+7*

Y

WARD+1~, WARD+5, WARD+10, SRV+1~, SRV+7, ADMT+1~, DSCT+1~, DSCT+5, DSCT+11, ADMD+1~
, ADMD+7, ATMD+1~, ATMD+7, ATMD+13, CHECK+1~, CHECK+3, CHECK+4, CHECK+5

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGAPI2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed