Routine: BDGPCCL

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Patient Care Component	5	^APCDALV (,$$DEL)^APCDALVR START^APCDCVDT EN1^APCDEKL EN^APCDVDLT
IHS Changes To ADT	3	(MSG,PAUSE)^BDGF ($$ADMSRVN,$$ADMTXN,$$LASTSRVN,$$LASTTXN)^BDGF1 $$CHECK^BDGVAR
VA Fileman	3	^DIE ^DIK $$GET1^DIQ
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGVHF

Package

Total

Caller Graph

IHS Changes To ADT

BDGVHF

Entry Points

Name	Comments	DBIA/ICR reference
1	; Admissions
CHKCAT	; called by ADDVH to check visit service category ; if last service and service category don't match, fix category
EDITVST(VST,DFN)
VH(V)	; return V Hosp entry for visit V
3	; Discharges ; if patient died, make sure Reg export notified
2	; Ward Transfers
5	; check-out lodger
4	; check-in lodger
6	; Service transfers
HASVPTR()	; -- returns 1 if admission already has good visit pointer
KILLVAR	; cleanup variables
CHGVDT	; edit visit date
ADDVH	;EP; -- create v hosp ; Also called by V Hosp fix (^BDGVHF)
HASVISIT()	; returns 1 if visit found in PCC and link added ; assumes called with DGPMA=admit node
DELPTR	; deletes visit pointer in admission ien
NBCHK	; -- checks newborn admit date against date of birth
ADDVST	; create visit
CHKVH	; check v hosp entry to see if admission mod changed v hosp data ; if admission service changed...
DELVST	; delete visit
EDITVH	; edit v hospitalization ; -- create visit if none already for admission
ERR(MSG,ERROR)	; display error message
EVENT	; process event

External References

Name	Field # of Occurrence
^APCDALV	ADDVST+26
^APCDALVR	EDITVST+5, EDITVH+17, ADDVH+36
$$DEL^APCDALVR	3+9
START^APCDCVDT	CHGVDT+6
EN1^APCDEKL	KILLVAR+1
EN^APCDVDLT	DELVST+8
MSG^BDGF	ERR+2
PAUSE^BDGF	3+13
$$ADMSRVN^BDGF1	CHKVH+2, CHKVH+3, ADDVH+28
$$ADMTXN^BDGF1	NBCHK+3
$$LASTSRVN^BDGF1	ADDVST+19, CHKCAT+4, HASVISIT+17
$$LASTTXN^BDGF1	6+8, CHKVH+4, CHKVH+5, ADDVH+27
$$CHECK^BDGVAR	EVENT+1
^DIE	ADDVST+39, HASVISIT+19, HASVISIT+23, DELPTR+1
^DIK	CHKCAT+10
$$GET1^DIQ	3+8, 3+23, 3+26, 6+2, 6+7, 6+9, ADDVST+7, ADDVST+8, ADDVST+10, CHGVDT+2 , CHGVDT+3, DELVST+5, CHKVH+10, CHKVH+11, CHKVH+12, CHKCAT+3, CHKCAT+5, CHKCAT+15, CHKCAT+19, EDITVH+2 , EDITVH+5, EDITVH+15, ADDVH+3, ADDVH+5, ADDVH+6, ADDVH+11, ADDVH+17, ADDVH+19, ADDVH+21, ADDVH+25 , ADDVH+29, ADDVH+30, ADDVH+31, ADDVH+34, HASVPTR+2, HASVPTR+6, HASVPTR+9, VH+1
$$NOW^XLFDT	3+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ERROR DELETING V HOSP ENTRY - ERROR CODE ",E Line Location: 3+11
Function Call: WRITE	Prompt: !,"Please relay this message to your supervisor" Line Location: 3+12
Function Call: WRITE	Prompt: !!,"Visit created for date of admission" Line Location: ADDVST+31
Function Call: WRITE	Prompt: !,*7,"CANNOT UPDATE VISIT LINK; ENTRY LOCKED" Line Location: ADDVST+34
Function Call: WRITE	Prompt: !!,*7,"NEWBORN ADMIT DATE DOES NOT MATCH DATE OF BIRTH" Line Location: NBCHK+7
Function Call: WRITE	Prompt: !,"PLEASE FIX INCORRECT DATE!" Line Location: NBCHK+8
Routine Call	DIE Line Location: ADDVST+39 HASVISIT+19 HASVISIT+23 DELPTR+1

FileNo	Call Tags
^DGPM - [#405]	Classic Fileman Calls, GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls, GET1^DIQ
^AUPNVINP - [#9000010.02]	Classic Fileman Calls, GET1^DIQ
^APCCCTRL - [#9001000]	GET1^DIQ
^APCDSITE - [#9001001.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	3+2*
^AUPNVINP("AD"	3+23, DELVST+5, CHKVH+10, CHKCAT+10, CHKCAT+15, CHKCAT+19, EDITVH+8, EDITVH+14, ADDVH+16, VH+1
^AUPNVSIT - [#9000010]	HASVPTR+3, HASVISIT+9, HASVISIT+13
^AUPNVSIT("AA"	HASVISIT+8
^DGPM - [#405]	ADDVST+33, ADDVST+39, EDITVH+4, ADDVH+8, HASVISIT+3, NBCHK+4
^DIC(19 - [#19]	ADDVST+14
^DIC(40.7 - [#40.7]	ADDVST+22, ADDVST+24
^DIC(45.7 - [#45.7]	NBCHK+2
^DPT - [#2]	3+2, NBCHK+5
^SRF("AV"	DELVST+2

Label References

Name	Line Occurrences
$$HASVISIT	ADDVST+2
$$HASVPTR	ADDVST+1
$$VH	3+8, 6+9
@(	EVENT+3
ADDVH	3+4, CHKCAT+15, CHKCAT+19, EDITVH+8
ADDVST	1+3, CHGVDT+2, EDITVH+4, ADDVH+9
CHGVDT	1+5
CHKCAT	1+7, 3+36, 6+1
CHKVH	1+8
DELPTR	HASVPTR+3, HASVPTR+6, HASVPTR+9
DELVST	1+4
EDITVH	3+34, 6+10, CHKVH+14
EDITVST	CHKCAT+9, CHKCAT+14, CHKCAT+18
ERR	ADDVST+29, EDITVST+7, CHGVDT+9, DELVST+6, EDITVH+19, ADDVH+38, ADDVH+39
KILLVAR	ADDVST+30, ADDVST+35, ADDVST+41, EDITVST+8, CHGVDT+10, DELVST+8, EDITVH+3, EDITVH+20, ADDVH+41
NBCHK	1+2, 6+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	EVENT+2!, 3+34, CHKVH+14, KILLVAR+1!
APCDALVR("APCDADD"	ADDVST+4*
APCDALVR("APCDAFLG"	ADDVST+28, ADDVST+29, EDITVST+7, EDITVH+19, ADDVH+38
APCDALVR("APCDANE"	ADDVST+17*
APCDALVR("APCDATMP"	EDITVST+3, EDITVH+13, ADDVH+22*
APCDALVR("APCDCAT"	ADDVST+21, CHKCAT+9, CHKCAT+14, CHKCAT+18
APCDALVR("APCDCLN"	ADDVST+22, ADDVST+24
APCDALVR("APCDDATE"	ADDVST+9*
APCDALVR("APCDDSCH"	3+17, EDITVH+15
APCDALVR("APCDHL"	ADDVST+10*
APCDALVR("APCDLOC"	ADDVST+6*
APCDALVR("APCDLOOK"	EDITVH+14, ADDVH+25
APCDALVR("APCDOPT"	ADDVST+14*
APCDALVR("APCDPAT"	ADDVST+5, EDITVST+2, EDITVH+12, ADDVH+20
APCDALVR("APCDTADS"	CHKVH+3, ADDVH+28
APCDALVR("APCDTASU"	CHKVH+12, ADDVH+32
APCDALVR("APCDTAT"	CHKVH+8, ADDVH+29
APCDALVR("APCDTATU"	CHKVH+11, ADDVH+30
APCDALVR("APCDTDCS"	6+10, CHKVH+4, CHKVH+5, ADDVH+27
APCDALVR("APCDTDT"	3+20, ADDVH+21
APCDALVR("APCDTDTU"	3+26, ADDVH+34
APCDALVR("APCDTTT"	3+30, 3+31, ADDVH+23*
APCDALVR("APCDTYPE"	ADDVST+7, ADDVST+8
APCDALVR("APCDVSIT"	ADDVST+38, EDITVST+1, EDITVH+11, ADDVH+14*
APCDALVR("AUPNTALK"	ADDVST+16*
APCDCVDT	CHGVDT+1!, KILLVAR+1!
APCDCVDT("ERR	OR FLAG" , CHGVDT+8, CHGVDT+9
APCDCVDT("VIS	IT DATE/TIME" , CHGVDT+4, IT DFN" , CHGVDT+3
APCDVDLT	DELVST+1*, DELVST+2, DELVST+5, KILLVAR+1!
APCDVLDT	KILLVAR+1!
ASRV	ADDVST+19~*, ADDVST+21, ADDVST+22, ADDVST+24
BDGOPT	ADDVST+12~, ADDVST+13*, ADDVST+14
CAT	CHKCAT+2~, CHKCAT+5, CHKCAT+8, CHKCAT+13, CHKCAT+17, HASVISIT+2~, HASVISIT+13, HASVISIT+14
DA	3+7~, 3+8, 3+9, ADDVST+38, CHKCAT+10~, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!, HASVISIT+23!, DELPTR+1~
DFN	3+2, 6+8, ADDVST+5, ADDVST+19, EDITVST~, EDITVST+2, CHKVH+2, CHKVH+3, CHKVH+4, CHKVH+5 , CHKCAT+4, CHKCAT+9, CHKCAT+14, CHKCAT+18, EDITVH+12, ADDVH+20, ADDVH+27, ADDVH+28, HASVISIT+8, HASVISIT+17 , NBCHK+3
DGPMA	1+1, 1+2, 1+4, 1+5, 1+8, 3+6, 3+17, 3+20, 3+29, 3+30 , 3+31, 6+3, ADDVST+9, CHGVDT+4, CHKVH+2, CHKVH+8, EDITVH+4~, ADDVH+8, ADDVH+10*, ADDVH+23 , NBCHK+5, NBCHK+6
>> DGPMCA	3+8, 3+23, 6+2, 6+7, 6+8, ADDVST+10, ADDVST+19, ADDVST+33, ADDVST+38, ADDVST+39 , CHGVDT+2, CHGVDT+3, CHKVH+2, CHKVH+3, CHKVH+4, CHKVH+5, CHKVH+10, CHKVH+11, CHKVH+12, CHKCAT+3 , CHKCAT+4, CHKCAT+15, CHKCAT+19, EDITVH+2, EDITVH+4, EDITVH+5, EDITVH+15, ADDVH+3, ADDVH+8, ADDVH+11 , ADDVH+19, ADDVH+27, ADDVH+28, ADDVH+29, ADDVH+30, ADDVH+31, HASVPTR+2, HASVISIT+3, HASVISIT+17, HASVISIT+23 , VH+1, DELPTR+1, NBCHK+3
>> DGPMDA	3+26, NBCHK+3
>> DGPMP	1+1, 1+3, 1+5, 3+4, 3+17, 3+20, 3+29, DELVST+1, CHKVH+8
>> DGPMT	EVENT+3, NBCHK+3
>> DGQUIET	1+2, 3+10, 6+3, ADDVST+15, ADDVST+31, ADDVST+34, ERR+1
DGSAV	ADDVH+8*, ADDVH+10!
DIE	ADDVST+38, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!, HASVISIT+23!, DELPTR+1~
DIK	3+7~, 3+8, 3+9, CHKCAT+10~
DOB	NBCHK+1~, NBCHK+5*, NBCHK+6
DR	ADDVST+38, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!, HASVISIT+19, HASVISIT+23!, DELPTR+1~
DSC	ADDVH+19~*, ADDVH+21, ADDVH+25, ADDVH+34
DSRV	6+6~, 6+8, 6+9, 6+10, CHKCAT+2~, CHKCAT+4, CHKCAT+8, CHKCAT+13, CHKCAT+17
DUZ(2	3+2, ADDVST+6, ADDVST+7, ADDVST+8
E	3+7~, 3+9*, 3+10, 3+11
ERROR	ERR~, ERR+2
MSG	ERR~, ERR+2
NODE	HASVISIT+3~*, HASVISIT+4
U	1+8, 3+20, 3+29, 3+30, 3+31, 6+8, DELVST+1, CHKVH+2, CHKVH+4, CHKVH+5 , CHKVH+8, ADDVH+23, ADDVH+27, HASVISIT+9, HASVISIT+13, NBCHK+4, NBCHK+5
V	ADDVH+2~, ADDVH+3, ADDVH+5, ADDVH+6, ADDVH+7, ADDVH+11, ADDVH+12, ADDVH+14, ADDVH+16, ADDVH+17 , HASVISIT+8~*, HASVISIT+9, VH~
VH	3+23~, 3+26, CHKVH+10~, CHKVH+11, CHKVH+12
VST	6+6~, 6+7, 6+9, EDITVST~, EDITVST+1, CHKCAT+2~, CHKCAT+3, CHKCAT+5, CHKCAT+9, CHKCAT+10 , CHKCAT+14, CHKCAT+15, CHKCAT+18, CHKCAT+19, EDITVH+2~, EDITVH+3, EDITVH+5, EDITVH+8, EDITVH+11, EDITVH+14 , HASVISIT+2~, HASVISIT+8, HASVISIT+9, HASVISIT+10, HASVISIT+13, HASVISIT+18, HASVISIT+23
X	3+23~, 3+26, CHKVH+10~, CHKVH+11, CHKVH+12, ADDVH+31, ADDVH+32, HASVPTR+1~, HASVPTR+2, HASVPTR+3 , HASVPTR+6, HASVPTR+9, HASVISIT+2~, HASVISIT+4, HASVISIT+8, HASVISIT+17, HASVISIT+19, NBCHK+1~, NBCHK+2, NBCHK+4
Y	HASVPTR+9, NBCHK+1~, NBCHK+3, NBCHK+4

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPCCL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: