Routine: BDGAPI2

Information

BDGAPI2 ; IHS/ANMC/LJF - PATIENT MOVEMENT API'S ; [ 09/26/2002 12:56 PM ]

Source Information

Source file <BDGAPI2.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGAPI BDGAPI1

Entry Points

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

External References

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

Interaction Calls

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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: