Routine: BDPLDEL

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS Designated Provider	2	(HDR,PAUSE)^BDP ^BDPKILL

Package

Total

Call Graph

VA Fileman

^DIC ^DIE ^DIR

IHS Designated Provider

(HDR,PAUSE)^BDP ^BDPKILL

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;Count of # Patients for this Old Provider
INFORM	;Data Entry Explanation
ASKGO	;Ask to continue
EOJ	; END OF JOB
GETTYPE	;Do Get Date if no existing Designated Providers
UPDATE	;Update Records
START	;
MSGEND	;End of Add Message
ASK	;Ask to Continue
OLDPROV	; GET OLD EXISTING PROVIDER
MAIN	;
TYPE	; GET CATEGORY TYPE FOR DESIGNATED PROVIDER

Name	Field # of Occurrence
HDR^BDP	START+4
PAUSE^BDP	MSGEND+4
^BDPKILL	EOJ+1
^DIC	OLDPROV+3
^DIE	UPDATE+13, UPDATE+16
^DIR	ASK+2, TYPE+3, ASKGO+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"There are ",BDPYI-1," patients currently assigned to this Provider." Line Location: COUNT+3
Function Call: WRITE	Prompt: ! Line Location: COUNT+6
Function Call: WRITE	Prompt: ! Line Location: COUNT+7
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: TYPE+1
Function Call: WRITE	Prompt: !!!,?8,"**********************************************",! Line Location: ASKGO+2
Function Call: WRITE	Prompt: !!,?8,"Okay, you have selected OLD Provider : ",BDPOPRVP,! Line Location: ASKGO+3
Function Call: WRITE	Prompt: ?8,"For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: ASKGO+4
Function Call: WRITE	Prompt: !! Line Location: ASKGO+4
Function Call: WRITE	Prompt: !,?8,"**********************************************",! Line Location: ASKGO+5
Function Call: WRITE	Prompt: !!!!,"Okay - I have DELETED all Patient Records - as follows: ",! Line Location: MSGEND+1
Function Call: WRITE	Prompt: "For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: MSGEND+3
Function Call: WRITE	Prompt: !! Line Location: MSGEND+3
Function Call: WRITE	Prompt: !,?3,"This Option allows the automatic DELETING of all Records......",!,?10,"for the CURRENT existing Designated Provider -",! Line Location: INFORM+2
Function Call: WRITE	Prompt: ?3,"The User is prompted for the EXISTING Provider Name.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: ?3,"Once the desired Provider Category Type is selected by the User,",! Line Location: INFORM+4
Function Call: WRITE	Prompt: ?3,"the Program will automatically LOOP through all Records and",!,?3,"DELETE this Current Provider for this Category Type.",!! Line Location: INFORM+5
Routine Call	DIE Line Location: UPDATE+13 UPDATE+16
Routine Call	DIC Line Location: OLDPROV+3
Routine Call	DIR Line Location: ASK+2 TYPE+3 ASKGO+8

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^BDPRECN - [#90360.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BDPRECN - [#90360.1]	UPDATE+4, UPDATE+8, UPDATE+10, UPDATE+15, UPDATE+16
^BDPRECN("AC"	COUNT+2, UPDATE+2
^BDPTCAT - [#90360.3]	ASKGO+4, MSGEND+3
^VA(200 - [#200]	OLDPROV+7

Name	Line Occurrences
ASK	MAIN+6
ASKGO	GETTYPE+3
COUNT	MAIN+4
EOJ	START+5
INFORM	START+2
MAIN	START+4, MAIN+8
OLDPROV	MAIN+2
TYPE	GETTYPE+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDPI	COUNT+1, COUNT+2, COUNT+5!
>> BDPIEN	UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+8, UPDATE+10, UPDATE+13, UPDATE+15, UPDATE+16
>> BDPLINKI	UPDATE+12*
>> BDPLPROV	UPDATE+10*, UPDATE+15
>> BDPOPROV	OLDPROV+2, OLDPROV+6, OLDPROV+7, COUNT+2, UPDATE+2
>> BDPOPRVP	OLDPROV+6, OLDPROV+7, ASKGO+3, MSGEND+2
>> BDPPAT	UPDATE+8*, UPDATE+9
>> BDPQ	START+4, MAIN+1, MAIN+3, MAIN+5, MAIN+7, MAIN+8, GETTYPE+2, GETTYPE+4, OLDPROV+2, OLDPROV+5 , OLDPROV+8, COUNT+1, COUNT+4, ASK+1, ASK+3, ASK+4, TYPE+2, TYPE+6, ASKGO+9, ASKGO+10 , MSGEND+5*
>> BDPREC("PROV	TYPE" , TYPE+5*
>> BDPTYPE	TYPE+5*, ASKGO+4, UPDATE+6, UPDATE+7, MSGEND+3
>> BDPTYPEM	UPDATE+4*, UPDATE+5, UPDATE+7
BDPYI	MAIN+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5!
DA	OLDPROV+3!, ASK+2!, TYPE+3!, UPDATE+13!, UPDATE+16!
DA(1	UPDATE+16*
DIC	OLDPROV+3*!
DIC("A"	OLDPROV+3*
DIC(0	OLDPROV+3*
DIE	UPDATE+13!, UPDATE+16!
DINUM	UPDATE+13!, UPDATE+16!
DIR	ASK+2!, TYPE+3!, ASKGO+8!
DIR("?"	ASKGO+8*
DIR("A"	ASK+2, ASKGO+8
DIR("B"	ASK+2, TYPE+3, ASKGO+8*
DIR(0	ASK+2, TYPE+3, ASKGO+8*
>> DIRUT	OLDPROV+4, ASK+3, TYPE+4, ASKGO+8*, ASKGO+9
DR	UPDATE+13!, UPDATE+16!
DT	UPDATE+13, UPDATE+16
>> DUOUT	ASKGO+8
DUZ	UPDATE+13, UPDATE+16
U	OLDPROV+6, OLDPROV+7, ASKGO+4, UPDATE+4, UPDATE+8, UPDATE+10, UPDATE+15, UPDATE+16, MSGEND+3
>> X	UPDATE+15*
>> Y	OLDPROV+5, OLDPROV+6, ASK+4, TYPE+5, ASKGO+10, UPDATE+15*, UPDATE+16
>> Y(0	TYPE+5

Customize PDF page

Package: IHS Designated Provider

Routine: BDPLDEL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: