Routine: BDGDSA

Package	Total	Call Graph
IHS Changes To ADT	6	(APCDEIN,DSCV)^ADGCALLS DS1^ADGCRB0 EN^ADGPI KILL^ADGUTIL MOVE^BDGDSEVT PAUSE^BDGF
VA Fileman	5	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Patient Care Component	1	^APCDVDLT

Package	Total	Caller Graph
IHS Changes To ADT	3	ADGFXDS BDGBULL1 BDGF1
Registration	1	DG IHS DS ENTER/EDIT

Entry Points

Name	Comments	DBIA/ICR reference
FINDVST(DATE)	; reset date/time to that for a day surgery visit if one exists
DSIC	;***> create incomplete chart entry
NAME	;*** Get Pt name
DELETE(DF,DSDT)	;-- delete the day surgery and visit PATCH 1010 RQMT 13
DSPROC(BDGDT,DFN)
DSDISP(DT,DFN)
DSDTLOCK	;Get DS date and check for locks
LASTDS(BDGDT,DFN)
DSWKSHT	;Day Surg worksheet
PCCVSIT	;***> create visit in PCC for day surgery
DECEASED	;

External References

Name	Field # of Occurrence
APCDEIN^ADGCALLS	PCCVSIT+26
DSCV^ADGCALLS	PCCVSIT+35
DS1^ADGCRB0	DSWKSHT+5
EN^ADGPI	BDGDSA+29
KILL^ADGUTIL	BDGDSA+45
^APCDVDLT	DELETE+9
MOVE^BDGDSEVT	BDGDSA+42
PAUSE^BDGF	BDGDSA+21
^DIC	NAME+6, DSDTLOCK+12
FILE^DICN	DSIC+20
^DIE	BDGDSA+36
$$GET1^DIQ	BDGDSA+17, PCCVSIT+30, PCCVSIT+33, PCCVSIT+34
^DIR	DECEASED+4, DSWKSHT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: NAME+2
Function Call: WRITE	Prompt: !! Line Location: DSDTLOCK+12
Function Call: WRITE	Prompt: !!,*7,"VISIT ERROR, Please notify your supervisor!" Line Location: PCCVSIT+46
Function Call: WRITE	Prompt: !,*7,"CANNOT ADD TO INCOMPLETE CHART FILE;" Line Location: DSIC+18
Function Call: WRITE	Prompt: "BEING UPDATED BY SOMEONE ELSE" Line Location: DSIC+19
Routine Call	DIE Line Location: BDGDSA+36
Routine Call	DIC Line Location: NAME+6 DSDTLOCK+12
Routine Call	DIR Line Location: DECEASED+4 DSWKSHT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCCCTRL - [#9001000]	GET1^DIQ
^APCDSITE - [#9001001.2]	GET1^DIQ
^ADGDS - [#9009012]	Classic Fileman Calls
^BDGIC - [#9009016.1]	Classic Fileman Calls
^BDGPAR - [#9009020.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	BDGDSA+36, BDGDSA+38, BDGDSA+44, DSDTLOCK+2, DSDTLOCK+4, DSDTLOCK+5, DSDTLOCK+6, DSDTLOCK+8, DSDTLOCK+12, DSDTLOCK+17 , DSDTLOCK+20, DSDTLOCK+23, PCCVSIT+12, PCCVSIT+37, DSIC+6, DSIC+9, LASTDS+5, LASTDS+6, LASTDS+8, LASTDS+9 , DSPROC+3, DSPROC+4, DSPROC+6, DSPROC+8, DSPROC+9
^APCCCTRL - [#9001000]	PCCVSIT+5
^AUPNVSIT - [#9000010]	DELETE+4, DELETE+5, DELETE+7, PCCVSIT+22, PCCVSIT+43, PCCVSIT+44, FINDVST+7
^AUPNVSIT("AA"	DELETE+3, PCCVSIT+19, PCCVSIT+21, PCCVSIT+42, FINDVST+5, FINDVST+6
^BDGIC - [#9009016.1]	DSIC+6
^BDGIC("B"	DSIC+4
^BDGIC(0	DSIC+16, DSIC+20
^DG(40.8 - [#40.8]	BDGDSA+17, PCCVSIT+5
^DIC(9.4 - [#9.4]	PCCVSIT+1
^DPT - [#2]	DECEASED+1

Label References

Name	Line Occurrences
DECEASED	BDGDSA+31
DELETE	BDGDSA+39
DSDTLOCK	BDGDSA+33
DSIC	BDGDSA+44
DSWKSHT	BDGDSA+40
FINDVST	PCCVSIT+17
NAME	BDGDSA+26
PCCVSIT	BDGDSA+41

Naked Globals

Name	Field # of Occurrence
^(	DECEASED+1
^(0	DSDTLOCK+2*
^(2	BDGDSA+44, DSDTLOCK+6, DSDTLOCK+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PCCVSIT+20~, PCCVSIT+21, PCCVSIT+22
ADGDFN	BDGDSA+24, BDGDSA+45!, DSWKSHT+5
ADGDFN1	BDGDSA+45!, DSWKSHT+5*
APCDALVR	PCCVSIT+40!, DSIC+21!
APCDALVR("APCDADD"	PCCVSIT+26*
APCDALVR("APCDCAT"	PCCVSIT+33*
APCDALVR("APCDCLN"	PCCVSIT+35*
APCDALVR("APCDDATE"	PCCVSIT+12, PCCVSIT+15, PCCVSIT+37, PCCVSIT+39
APCDALVR("APCDHL"	PCCVSIT+30*
APCDALVR("APCDLOC"	PCCVSIT+28*, PCCVSIT+33
APCDALVR("APCDPAT"	PCCVSIT+28*
APCDALVR("APCDTYPE"	PCCVSIT+33, PCCVSIT+34
>> APCDDUZ2	PCCVSIT+28
>> APCDVDLT	DELETE+8*
AUPNSEX	PCCVSIT+35!
BDGDSVST	BDGDSA+24, BDGDSA+45!, DELETE+1~, DELETE+2, DELETE+3, DELETE+4, DELETE+5, PCCVSIT+22, PCCVSIT+41, PCCVSIT+42 , PCCVSIT+43, PCCVSIT+44, PCCVSIT+45*, PCCVSIT+46, DSIC+8
BDGDT	LASTDS~, LASTDS+6, LASTDS+7, LASTDS+8, LASTDS+11, DSPROC~, DSPROC+4, DSPROC+5, DSPROC+6
>> BDGICREC	DSIC+3, DSIC+4, DSIC+6, DSIC+7
>> DA	BDGDSA+28, BDGDSA+35, DSDTLOCK+4*
>> DA(1	DSDTLOCK+4*
DAT	NAME+1!
DATE	FINDVST~, FINDVST+4, FINDVST+5, FINDVST+7*
DATE1	FINDVST+2~, FINDVST+4, FINDVST+5, FINDVST+6, FINDVST+7
DD	DSIC+20!
DF	DELETE~, DELETE+3
DFN	BDGDSA+23, BDGDSA+25, BDGDSA+27, BDGDSA+28, BDGDSA+30, BDGDSA+31, BDGDSA+32, BDGDSA+34, BDGDSA+35, BDGDSA+36 , BDGDSA+38, BDGDSA+39, BDGDSA+40, BDGDSA+41, BDGDSA+42, BDGDSA+43, BDGDSA+44, NAME+1!, NAME+9, NAME+11 , DECEASED+1, DECEASED+5, DSDTLOCK+2, DSDTLOCK+3, DSDTLOCK+4, DSDTLOCK+5, DSDTLOCK+6, DSDTLOCK+8, DSDTLOCK+10, DSDTLOCK+11 , DSDTLOCK+12, DSDTLOCK+14, DSDTLOCK+17, DSDTLOCK+19, DSDTLOCK+20, DSDTLOCK+23, DSDTLOCK+26, DSWKSHT+5, PCCVSIT+7, PCCVSIT+12 , PCCVSIT+19, PCCVSIT+21, PCCVSIT+22, PCCVSIT+24, PCCVSIT+28, PCCVSIT+37, PCCVSIT+42, PCCVSIT+47, PCCVSIT+49*, DSIC+4 , DSIC+6, DSIC+9, DSIC+13, LASTDS~, LASTDS+5, LASTDS+6, LASTDS+8, LASTDS+9, DSPROC~, DSPROC+3 , DSPROC+4, DSPROC+6, DSPROC+8, DSPROC+9, DSDISP~, FINDVST+5, FINDVST+6
DGA	BDGDSA+24, BDGDSA+45!, DSDTLOCK+4, DSDTLOCK+5, DSDTLOCK+6
DGDFN1	BDGDSA+24, BDGDSA+38, BDGDSA+44, BDGDSA+45!, DSDTLOCK+16, DSDTLOCK+17, DSDTLOCK+20, DSWKSHT+5*, PCCVSIT+12, PCCVSIT+37 , DSIC+6, DSIC+9
>> DGDSDT	BDGDSA+39, DSDTLOCK+17*
>> DGQUIET	DSIC+17
DGX	BDGDSA+24, BDGDSA+45!, PCCVSIT+15, PCCVSIT+39*, DSIC+10
>> DGX1	PCCVSIT+15, PCCVSIT+17, PCCVSIT+19, PCCVSIT+21, PCCVSIT+39, PCCVSIT+42
DIC	NAME+1!, NAME+2, DSDTLOCK+2!, DSDTLOCK+3, DSDTLOCK+12!, DSIC+11!, DSIC+13*
DIC("A"	NAME+3*, NAME+6!, DSDTLOCK+12!
DIC("B"	DSDTLOCK+6*
DIC("DR"	DSIC+15*
DIC("S"	NAME+5*
DIC(0	NAME+2, DSDTLOCK+3, DSIC+13*
>> DIDEL	BDGDSA+35*
>> DIE	BDGDSA+35*
>> DIE("NO^"	BDGDSA+36*!
DIR	DECEASED+2!, DSWKSHT+1!
DIR("?"	DSWKSHT+2*
DIR("A"	DECEASED+3, DSWKSHT+1
DIR("B"	DECEASED+4, DSWKSHT+3
DIR(0	DECEASED+2, DSWKSHT+1
>> DLAYGO	NAME+2, DSDTLOCK+3, DSIC+13*
DO	DSIC+20!
>> DR	BDGDSA+35*
>> DSDATE	LASTDS+4, LASTDS+9, LASTDS+11, LASTDS+12, DSPROC+8
>> DSDISP	DSDISP+2*, DSDISP+5
DSDT	DELETE~, DELETE+3
>> DSPROC	DSPROC+2, DSPROC+9, DSPROC+10
DT	DSDISP~
>> DUOUT	BDGDSA+30, NAME+11
DUZ(2	BDGDSA+17, DELETE+5, PCCVSIT+5, PCCVSIT+34, PCCVSIT+44
FOUND	DELETE+1~, DELETE+2, DELETE+3, DELETE+5, DELETE+6, DELETE+7, DELETE+8, PCCVSIT+41, PCCVSIT+42, PCCVSIT+44 , PCCVSIT+45, FINDVST+2~, FINDVST+3, FINDVST+5, FINDVST+6, FINDVST+7
IEN	LASTDS+8, LASTDS+9, DSPROC+6, DSPROC+7, DSPROC+8, DSPROC+9, FINDVST+2~, FINDVST+6*, FINDVST+7
>> PKG	PCCVSIT+1*, PCCVSIT+5
>> SERV	DSIC+9*, DSIC+15
>> SRDATE	DSIC+10*, DSIC+15
>> TRUE	BDGDSA+32, DSDTLOCK+1, DSDTLOCK+10, DSDTLOCK+14, DSDTLOCK+20, DSDTLOCK+28
U	BDGDSA+44, DECEASED+1, DSDTLOCK+4, DSDTLOCK+6, DSDTLOCK+20, DELETE+4, DELETE+5, DELETE+7, PCCVSIT+5, PCCVSIT+22 , PCCVSIT+43, PCCVSIT+44, DSIC+6, DSIC+9, DSPROC+9, FINDVST+7
>> VST	DSIC+8*, DSIC+15
>> X	DSIC+3, DSIC+4, DSIC+6, DSIC+13*
>> Y	NAME+9, DECEASED+5, DSDTLOCK+13, DSDTLOCK+16, DSWKSHT+4

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGDSA

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: