Routine: BDPTDEL

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

Entry Points

Name	Comments	DBIA/ICR reference
ADDTEMP	;Delete Patients in Template
INFORM	;Data Entry Explanation
ASKGO	;Ask to continue
PROV	; GET DESIGNATED PROVIDER
GETTYPE	;Do Get Date if no existing Designated Providers
ASK	;Ask to Continue
START	;
MSGEND	;End of Add Message
TEMPLATE	; GET TEMPLATE
EOJ	; END OF JOB
TLOOK
MAIN	;
TYPE	; GET CATEGORY TYPE FOR DESIGNATED PROVIDER

External References

Name	Field # of Occurrence
HDR^BDP	START+4
PAUSE^BDP	MSGEND+5
^BDPKILL	EOJ+1
DELETE^BDPPASS	ADDTEMP+7
^DIC	TLOOK+2, PROV+2
^DIR	ASK+2, TYPE+3, ASKGO+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TLOOK+5
Function Call: WRITE	Prompt: !!?10,"There are ",BDPYI-1," patients in this SEARCH TEMPLATE." Line Location: TLOOK+8
Function Call: WRITE	Prompt: ! Line Location: TLOOK+10
Function Call: WRITE	Prompt: ! Line Location: TLOOK+13
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 DESIGNATED PROVIDER : ",BDPRPRVP,! Line Location: ASKGO+3
Function Call: WRITE	Prompt: ?8,"To be DELETED from Patients in Template Named: "_BDPTRNA Line Location: ASKGO+4
Function Call: WRITE	Prompt: ! Line Location: ASKGO+4
Function Call: WRITE	Prompt: ?8,"For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: ASKGO+5
Function Call: WRITE	Prompt: !! Line Location: ASKGO+5
Function Call: WRITE	Prompt: !,?8,"**********************************************",! Line Location: ASKGO+6
Function Call: WRITE	Prompt: !!!!,"Okay - I have changed all Patient Records - as follows: ",! Line Location: MSGEND+1
Function Call: WRITE	Prompt: "Has been DELETED from Patients existing in Template: "_BDPTRNA Line Location: MSGEND+3
Function Call: WRITE	Prompt: ! Line Location: MSGEND+3
Function Call: WRITE	Prompt: "For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: MSGEND+4
Function Call: WRITE	Prompt: !! Line Location: MSGEND+4
Function Call: WRITE	Prompt: !,?3,"This Option allows automatic DELETE of Records from a Patient TEMPLATE",! Line Location: INFORM+2
Function Call: WRITE	Prompt: ?3,"The User is prompted for the TEMPLATE 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 the Template of Patients and",!,?3,"DELETE the selected Current Provider for this Category Type.",!! Line Location: INFORM+5
Function Call: WRITE	Prompt: ?3,"If a patient (listed within the Template) does not currently exist in the",!,?3,"Management System, no Action will be taken",! Line Location: INFORM+6
Routine Call	DIC Line Location: TLOOK+2 PROV+2
Routine Call	DIR Line Location: ASK+2 TYPE+3 ASKGO+9

Name	Line Occurrences (* Changed, ! Killed)
^BDPTCAT - [#90360.3]	ASKGO+5, MSGEND+4
^DIBT(	TLOOK+7, ADDTEMP+3
^VA(200 - [#200]	PROV+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDPI	TLOOK+6, TLOOK+7, TLOOK+9!
>> BDPPAT	ADDTEMP+3*, ADDTEMP+4
>> BDPPROV	PROV+1, PROV+5, PROV+6, ADDTEMP+6
>> BDPQ	START+4, MAIN+1, MAIN+3, MAIN+5, MAIN+8, GETTYPE+2, GETTYPE+4, TLOOK+3, TLOOK+4, ASK+1* , ASK+3, ASK+4, TYPE+2, TYPE+6, PROV+1, PROV+2, PROV+4, PROV+7, ASKGO+10, ASKGO+11 , MSGEND+6*
>> BDPREC("PROV	TYPE" , TYPE+5*
>> BDPRGTP	TLOOK+6*
>> BDPRPROV	PROV+5*
>> BDPRPRVP	PROV+6*, ASKGO+3, MSGEND+2
>> BDPTRN	TLOOK+6*, TLOOK+7, ADDTEMP+3
>> BDPTRNA	TLOOK+6*, ASKGO+4, MSGEND+3
>> BDPTYPE	TYPE+5*, ASKGO+5, ADDTEMP+5, MSGEND+4
BDPYI	TLOOK+7, TLOOK+8, TLOOK+9!, TLOOK+11, TLOOK+12!
DA	TLOOK+2!, ASK+2!, TYPE+3!, PROV+2!
DIC	TLOOK!, TLOOK+1, TLOOK+2!, PROV+2!
DIC("A"	TLOOK+1, PROV+2
DIC("S"	TLOOK+1*
DIC(0	TLOOK+1, PROV+2
DIR	ASK+2!, TYPE+3!, ASKGO+9!
DIR("?"	ASKGO+9*
DIR("A"	ASK+2, ASKGO+9
DIR("B"	ASK+2, TYPE+3, ASKGO+9*
DIR(0	ASK+2, TYPE+3, ASKGO+9*
DIRUT	TLOOK!, TLOOK+3, ASK+3, TYPE+4, PROV+2, PROV+3, ASKGO+9, ASKGO+10
DR	TLOOK+2!
>> DUOUT	PROV+2, ASKGO+9
U	TLOOK+6, PROV+5, PROV+6, ASKGO+5, MSGEND+4
>> Y	TLOOK+4, TLOOK+6, ASK+4, TYPE+5, PROV+4, PROV+5, ASKGO+11
>> Y(0	TYPE+5

Customize PDF page

Package: IHS Designated Provider

Routine: BDPTDEL

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:

Name	Line Occurrences
ASK	MAIN+7
ASKGO	GETTYPE+3
EOJ	START+5
INFORM	START+2
MAIN	START+4, MAIN+5
PROV	MAIN+4
TEMPLATE	MAIN+2
TYPE	GETTYPE+1