Routine: BDPLMUPD

Package	Total	Call Graph
IHS VA Utilities	5	($$VAL,$$VALI)^XBDIQ1 ^XBFMK VIEWR^XBLM EN^XBNEW EN^XBVK
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS Designated Provider	1	($$ADD1,$$EDIT)^BDPAPI
IHS Patient	1	(,$$DOD,$$HRN,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;EP -- help code
EN	; -- main entry point for BDP UPDATE
PAT	;
HDR	; -- header code
HS	;EP called from protocol to generate hs
CTR(X,Y)	;EP - Center X in a field Y wide.
GATHER	;
EXPND	; -- expand code
BACK	;
START	;
INIT	; -- init variables and list array
HS1	;EP - called from xbnew
EXIT	;EP
CHANGE	;EP - change existing DP
GETITEM	;get record
EOJ	;
END	;
DELETE	;EP - delete exisiting DP
ADD	;EP - add a new dp
PAUSE	;EP
PPEP(BDPPAT,BDPTYPE)	;PEP - entry point to view/update one patient's providers

External References

Name	Field # of Occurrence
^AUPNPAT	HS1+10
$$DOD^AUPNPAT	PAT+6, HDR+4
$$HRN^AUPNPAT	HDR+2
KILL^AUPNPAT	EOJ+8
$$ADD1^BDPAPI	ADD+19
$$EDIT^BDPAPI	ADD+22, CHANGE+15
^DIC	PAT+3, HS1+5, ADD+4, ADD+15, CHANGE+11
^DIE	DELETE+16, DELETE+20
$$GET1^DIQ	ADD+13, ADD+14, CHANGE+9, CHANGE+10
^DIR	PAT+6, PAUSE+2, DELETE+9, GETITEM+4
EN^VALM	EN+1
TERM^VALM0	BACK+1
CLEAR^VALM1	EOJ+6
FULL^VALM1	EOJ+6, HS+1, ADD+1, CHANGE+1, DELETE+1
$$VAL^XBDIQ1	GATHER+7, GATHER+8, CHANGE+8, DELETE+8
$$VALI^XBDIQ1	DELETE+12
^XBFMK	PAT+1
VIEWR^XBLM	HS1+9
EN^XBNEW	HS+2
EN^XBVK	EN+2, EOJ+1
$$FMTE^XLFDT	PAT+6, HDR+4, GATHER+11
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("View/Update Designated Provider List",80) Line Location: START+2
Function Call: WRITE	Prompt: !! Line Location: PAT+3
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: PAT+4
Function Call: WRITE	Prompt: !!,"*****Note: Patient is Decesased. DOD: ",$$FMTE^XLFDT($$DOD^AUPNPAT(BDPPAT)) Line Location: PAT+6
Function Call: WRITE	Prompt: !! Line Location: PAT+6
Function Call: WRITE	Prompt: !! Line Location: ADD+3
Function Call: WRITE	Prompt: !,"No updating done...." Line Location: ADD+5
Function Call: WRITE	Prompt: ! Line Location: ADD+11
Function Call: WRITE	Prompt: !,"No updating done...." Line Location: ADD+16
Function Call: WRITE	Prompt: !!,"error updating designated provider" Line Location: ADD+20
Function Call: WRITE	Prompt: !!,"error updating designated provider" Line Location: ADD+23
Function Call: WRITE	Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully added as",!,"the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",! Line Location: ADD+24
Function Call: WRITE	Prompt: !,"No item selected to change." Line Location: CHANGE+6
Function Call: WRITE	Prompt: ! Line Location: CHANGE+8
Function Call: WRITE	Prompt: !,"No Provider Selected." Line Location: CHANGE+12
Function Call: WRITE	Prompt: !!,"That is the currently documented provider." Line Location: CHANGE+14
Function Call: WRITE	Prompt: !!,"error updating designated provider" Line Location: CHANGE+16
Function Call: WRITE	Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully added as",!,"the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",! Line Location: CHANGE+17
Function Call: WRITE	Prompt: !,"No item selected to DELETE." Line Location: DELETE+6
Function Call: WRITE	Prompt: !!,"Are you sure you want to DELETE ",$$VAL^XBDIQ1(90360.1,BDPRIEN,.03),!?3,"as the designated ",$$VAL^XBDIQ1(90360.1,BDPRIEN,.01),"?" Line Location: DELETE+8
Function Call: WRITE	Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully DELETED as",!," the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",! Line Location: DELETE+21
Function Call: WRITE	Prompt: !,"No Items to change" Line Location: GETITEM+1
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: DELETE+16 DELETE+20
Routine Call	DIC Line Location: PAT+3 HS1+5 ADD+4 ADD+15 CHANGE+11
Routine Call	DIR Line Location: PAT+6 PAUSE+2 DELETE+9 GETITEM+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls
^BDPRECN - [#90360.1]	Classic Fileman Calls
^BDPTCAT - [#90360.3]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	HS1+2
^APCHSCTL - [#9001015]	HS1+2, HS1+3
^BDPRECN - [#90360.1]	GATHER+5, GATHER+11, ADD+7, CHANGE+7, CHANGE+14, DELETE+7, DELETE+19, DELETE+20, GETITEM+8
^BDPRECN("AA"	GATHER+3, GATHER+4, ADD+7
^BDPTCAT - [#90360.3]	ADD+8, ADD+24, CHANGE+17, DELETE+21
^DISV(	HS1+3
^DPT - [#2]	HDR+2, HS1+8
^VA(200 - [#200]	ADD+24, CHANGE+17, DELETE+21

Label References

Name	Line Occurrences
$$CTR	START+2
BACK	HS+3, HS1+6, HS1+11, ADD+5, ADD+7, ADD+16, ADD+20, ADD+23, ADD+26, CHANGE+5 , CHANGE+6, CHANGE+12, CHANGE+14, CHANGE+16, CHANGE+19, DELETE+5, DELETE+6, DELETE+10, DELETE+11, DELETE+23
EN	PAT+7, PPEP+4
END	PAT+4
EOJ	END+1
GATHER	INIT+2, BACK+3
GETITEM	CHANGE+4, DELETE+4
HDR	BACK+5
PAUSE	HS1+6, ADD+5, ADD+7, ADD+16, ADD+20, ADD+23, ADD+25, CHANGE+5, CHANGE+6, CHANGE+12 , CHANGE+14, CHANGE+16, CHANGE+18, DELETE+5, DELETE+6, DELETE+10, DELETE+11, DELETE+22

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	HS1+3
^(0	HS1+2, HS1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+4!
>> APCHSPAT	HS1+7*
>> APCHSTYP	HS1+7*
BDPCASE	EOJ+5!
BDPCDATE	EOJ+5!
BDPCIEN	ADD+2~, ADD+6, ADD+7, ADD+8, ADD+13, ADD+14, ADD+19, ADD+22, ADD+24, CHANGE+3~ , CHANGE+7, CHANGE+9, CHANGE+10, CHANGE+15, CHANGE+17, DELETE+3~, DELETE+7*, DELETE+21
BDPD	GATHER+3*, GATHER+4, EOJ+5!
>> BDPHDR	HS1+8*, HS1+9
BDPIT	GETITEM+2~, GETITEM+6*, GETITEM+7
BDPLINE	INIT+3, GATHER+2, GATHER+6, GATHER+12, EOJ+5!, BACK+4
BDPLINKI	DELETE+13~, DELETE+14*
BDPLIST	GATHER+1!
BDPLIST(	GATHER+12*
BDPLIST("IDX"	GATHER+12*, GETITEM+7
BDPP	END+2!
BDPPAT	PAT+2, PAT+5, PAT+6, PPEP~, PPEP+2, HDR+2, HDR+4, GATHER+3, GATHER+4, HS1+7 , HS1+8, HS1+10, ADD+7, ADD+19
BDPPROV	ADD+2~, ADD+17, ADD+22, ADD+24, CHANGE+3~, CHANGE+13, CHANGE+14, CHANGE+15, CHANGE+17, DELETE+3~ , DELETE+12*, DELETE+19, DELETE+21
BDPQUIT	END+2!
BDPRCNT	GATHER+2, GATHER+6, GATHER+12, EOJ+5!, GETITEM+1, GETITEM+4
BDPRIEN	ADD+2~, ADD+21, ADD+22, CHANGE+3~, CHANGE+5, CHANGE+6, CHANGE+7, CHANGE+8, CHANGE+14, CHANGE+15 , DELETE+3~, DELETE+5, DELETE+6, DELETE+7, DELETE+8, DELETE+12, DELETE+16, DELETE+19, DELETE+20, GETITEM+3 , GETITEM+7, GETITEM+8
BDPTYPE	PPEP~
BDPW	END+2!
BDPX	GATHER+4*, GATHER+5, GATHER+7, GATHER+8, GATHER+11, GATHER+12, EOJ+5!
>> C	HDR+3, HDR+4, HDR+5, HDR+6*, HDR+7
D0	HS1+5!
D1	HS1+5!
DA	PAT+3!, EOJ+4!, HS1+5!, CHANGE+11!, DELETE+9!, DELETE+13~, DELETE+16!, DELETE+20!, GETITEM+4!
DA(1	DELETE+20*
DD	HS1+5!
DDS	EOJ+4!
DDSFILE	EOJ+3!
DFN	EOJ+2!, HS1+10*
DIADD	PAT+3!, CHANGE+11!
DIC	PAT+3!, EOJ+4!, HS1+5!, ADD+2~, ADD+4!, ADD+12, ADD+15!, CHANGE+3~, CHANGE+8*, CHANGE+11! , DELETE+3~
DIC("A"	PAT+3, ADD+4, ADD+12, CHANGE+8
DIC("B"	HS1+5*, ADD+14!, CHANGE+10!
DIC("S"	ADD+13, ADD+14, CHANGE+9, CHANGE+10
DIC(0	PAT+3, HS1+5, ADD+4, ADD+12, CHANGE+8*
DIE	DELETE+13~, DELETE+16!, DELETE+20!
DINUM	DELETE+20!
DIPGM	EOJ+3!
DIR	PAT+6!, PAUSE+1~, PAUSE+2!, DELETE+9!, GETITEM+4!
DIR("A"	PAT+6, PAUSE+2, DELETE+9, GETITEM+4
DIR("B"	DELETE+9*
DIR(0	PAT+6, PAUSE+2, DELETE+9, GETITEM+4
>> DIRUT	DELETE+10, GETITEM+5
DLAYGO	PAT+3!, CHANGE+11!
DQ	HS1+5!
DR	PAT+3!, EOJ+4!, HS1+5!, CHANGE+11!, DELETE+13~, DELETE+16!, DELETE+20!
DT	DELETE+16, DELETE+20
DUZ	HS1+3, DELETE+16, DELETE+20
DUZ(2	HDR+2, HS1+2
IOF	START+1
IOM	CTR+1
U	HDR+2, GATHER+5, GATHER+11, HS1+2, HS1+3, HS1+8, ADD+7, ADD+8, ADD+24, CHANGE+7 , CHANGE+14, CHANGE+17, DELETE+7, DELETE+19, DELETE+20, DELETE+21
VALM	EOJ+7!
VALMAR	EOJ+7!
VALMBCK	EOJ+7!, BACK+2*
VALMBG	EOJ+7!
VALMCAP	EOJ+7!
VALMCC	EOJ+7!
VALMCNT	INIT+3, EOJ+7!, BACK+4
VALMCOFF	EOJ+7!
VALMCON	EOJ+7!
VALMEVL	EOJ+7!
VALMHDR	EOJ+7!
VALMHDR(	HDR+4, HDR+5, HDR+7*
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMIOXY	EOJ+7!
VALMKEY	EOJ+7!
VALMLFT	EOJ+7!
VALMLST	EOJ+7!
VALMMENU	EOJ+7!
VALMON	EOJ+7!
>> VALMSG	INIT+1*
VALMSGR	EOJ+7!
VALMUP	EOJ+7!
VALMVAR	EOJ+7!
VALMWD	EOJ+7!
X	CTR~, CTR+1, EOJ+4!, HS1+1, HS1+2, HS1+3, HS1+4, HS1+5, ADD+2~, ADD+7* , ADD+19, ADD+20, ADD+21, ADD+22, ADD+23, CHANGE+3~, CHANGE+15, CHANGE+16, DELETE+3~, DELETE+18~ , DELETE+19, GETITEM+7, HELP+1
Y	PAT+4, PAT+5, CTR~, CTR+1, GATHER+6, GATHER+7, GATHER+8, GATHER+11, GATHER+12, EOJ+3! , EOJ+4!, HS1+3, HS1+6, HS1+7, HS1+10, ADD+2~, ADD+5, ADD+6, ADD+16, ADD+17 , CHANGE+3~, CHANGE+12, CHANGE+13, DELETE+3~, DELETE+11, DELETE+18~, DELETE+19, DELETE+20, GETITEM+6, GETITEM+7

Customize PDF page

Package: IHS Designated Provider

Routine: BDPLMUPD

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: