Routine: BDPDEL

Information

BDPDEL ; IHS/CMI/TMJ - DELETE AN EXISTING DESIGNATED PROVIDER ;

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Designated Provider	3	(HDR,PAUSE)^BDP DIC^BDPFMC ^BDPKILL
VA Fileman	2	^DIE ^DIR
IHS Patient	1	$$DOD^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
PROVDISP	;Display if Patient has existing Designated Providers
PATIENT	; GET PATIENT
INFORM	;Data Entry Explanation
ASKGO	;Ask to continue
EOJ	; END OF JOB
GETTYPE	;Do Get Date if no existing Designated Providers
NEXT	;2ND $O
START	;
ADD	; ADD NEW DESIGNATED PROVIDER RECORD
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
ASK	;Ask to Continue
MAIN	;
TYPE	; GET CATEGORY TYPE FOR DESIGNATED PROVIDER

External References

Name	Field # of Occurrence
$$DOD^AUPNPAT	PATIENT2+6
HDR^BDP	START+4
PAUSE^BDP	ADD+4, ADD+6, ASKGO+24
DIC^BDPFMC	PATIENT2+2
^BDPKILL	EOJ+1
^DIE	ASKGO+20, ASKGO+23
^DIR	PATIENT2+8, ASK+2, TYPE+4, ASKGO+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: PROVDISP+1
Function Call: WRITE	Prompt: ?10,"CURRENT DESIGNATED PROVIDERS - BY PROVIDER CATEGORY TYPE",! Line Location: PROVDISP+2
Function Call: WRITE	Prompt: !,?15,"Assigned to Patient: " Line Location: PROVDISP+3
Function Call: WRITE	Prompt: ?35,$P($G(^DPT(BDPDFN,0)),U) Line Location: PROVDISP+4
Function Call: WRITE	Prompt: !,?25,"********************" Line Location: PROVDISP+5
Function Call: WRITE	Prompt: !,?10,"CATEGORY TYPE",?46,"CURRENT PROVIDER ASSIGNED",! Line Location: PROVDISP+6
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING DESIGNATED PROVIDERS--",! Line Location: PROVDISP+7
Function Call: WRITE	Prompt: !,?5,BDPCOUNT,?10,$E(BDPTYPNM,1,30),?50,$E(BDPLPRVT,1,35) Line Location: NEXT+10
Function Call: WRITE	Prompt: ! Line Location: TYPE+1
Function Call: WRITE	Prompt: !!,?5,"This patient does NOT have a Designated Provider Type",!,?5,"for the Category you selected. See the Listing above.",! Line Location: ADD+4
Function Call: WRITE	Prompt: !!,?5,"This patient does not have a current Provider for this Category Type!",! Line Location: ADD+6
Function Call: WRITE	Prompt: !!!,?8,"**********************************************",! Line Location: ASKGO+4
Function Call: WRITE	Prompt: !!,?8,"Okay, the current DESIGNATED PROVIDER is : ",BDPLPRVT,! Line Location: ASKGO+5
Function Call: WRITE	Prompt: ?8,"To be deleted from Patient Name: "_$P($G(^DPT(BDPDFN,0)),U,1) Line Location: ASKGO+6
Function Call: WRITE	Prompt: ! Line Location: ASKGO+6
Function Call: WRITE	Prompt: ?8,"For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: ASKGO+7
Function Call: WRITE	Prompt: !! Line Location: ASKGO+7
Function Call: WRITE	Prompt: !,?8,"**********************************************",! Line Location: ASKGO+8
Function Call: WRITE	Prompt: !!,"Okay - I have deleted the Designated Provider for Patient Record - as follows: ",! Line Location: ASKGO+14
Function Call: WRITE	Prompt: "Has been deleted from Patient Name: "_$P($G(^DPT(BDPDFN,0)),U,1) Line Location: ASKGO+16
Function Call: WRITE	Prompt: ! Line Location: ASKGO+16
Function Call: WRITE	Prompt: "For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: ASKGO+17
Function Call: WRITE	Prompt: !! Line Location: ASKGO+17
Function Call: WRITE	Prompt: !,?20,"******************************" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,?2,"Utilize this Option to DELETE an Existing Designated Specialty Provider",! Line Location: INFORM+3
Function Call: WRITE	Prompt: ?3,"for a selected individual Patient and Provider Category Type.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: ?20,"******************************",! Line Location: INFORM+5
Routine Call	DIE Line Location: ASKGO+20 ASKGO+23
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 TYPE+4 ASKGO+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^BDPRECN - [#90360.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDPRECN - [#90360.1]	NEXT+7, ADD+3, ASKGO+22, ASKGO+23
^BDPRECN("AA"	PROVDISP+7, PROVDISP+11, NEXT+2, ADD+2
^BDPTCAT - [#90360.3]	NEXT+6, ASKGO+7, ASKGO+17
^DPT - [#2]	PATIENT2+4, PROVDISP+4, NEXT+5, ASKGO+6, ASKGO+16
^VA(200 - [#200]	NEXT+9, ASKGO+1

Label References

Name	Line Occurrences
ADD	GETTYPE+3
ASK	MAIN+8
EOJ	START+5
GETTYPE	MAIN+6
INFORM	START+2
MAIN	START+4
NEXT	PROVDISP+11
PATIENT	MAIN+3
PATIENT2	PATIENT+1
PROVDISP	MAIN+5
TYPE	GETTYPE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDPCOUNT	PROVDISP+10, PROVDISP+11, NEXT+10
>> BDPCPRV	NEXT+7*, NEXT+8, NEXT+9
BDPDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, PROVDISP+4, PROVDISP+7, PROVDISP+11, NEXT+2, NEXT+5, ADD+2, ASKGO+6 , ASKGO+16
>> BDPLINKI	ASKGO+18*
>> BDPLPROV	ADD+3*, ADD+6, ASKGO+1, ASKGO+22
>> BDPLPRVT	NEXT+8, NEXT+9, NEXT+10, ASKGO+1*, ASKGO+2, ASKGO+5, ASKGO+15
>> BDPPTNAM	NEXT+5*
>> BDPQ	START+4, MAIN+1, MAIN+4, MAIN+6, MAIN+9, GETTYPE+2, PATIENT+1, PATIENT2+1, PATIENT2+5, ASK+1 , ASK+3, ASK+4, PROVDISP+7, PROVDISP+8, TYPE+2, TYPE+7, ADD+1, ASKGO+12, ASKGO+13*
>> BDPREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!
>> BDPREC("PROV	TYPE" , TYPE+6*
>> BDPRIEN	NEXT+1, NEXT+2, NEXT+4, NEXT+7, ADD+7*, ASKGO+19, ASKGO+20, ASKGO+22, ASKGO+23
>> BDPRR	ADD+2*, ADD+3, ADD+4, ADD+7
>> BDPTYPE	PROVDISP+9, PROVDISP+11, NEXT+2, NEXT+3, NEXT+6, TYPE+6*, ADD+2, ASKGO+7, ASKGO+17
>> BDPTYPNM	NEXT+6*, NEXT+10
DA	PATIENT2+8!, ASK+2!, TYPE+4!, ASKGO+20!, ASKGO+23!
DA(1	ASKGO+23*
>> DIC	PATIENT2+2*
>> DIC(0	PATIENT2+2*
DIE	ASKGO+20!, ASKGO+23!
DINUM	ASKGO+20!, ASKGO+23!
DIR	PATIENT2+8!, ASK+2!, TYPE+4!, ASKGO+11!
DIR("?"	ASKGO+11*
DIR("A"	PATIENT2+8, ASK+2, ASKGO+11*
DIR("B"	PATIENT2+8, ASK+2, TYPE+4, ASKGO+11
DIR(0	PATIENT2+8, ASK+2, TYPE+4, ASKGO+11
>> DIRUT	ASK+3, TYPE+5, ASKGO+11*, ASKGO+12
DR	ASKGO+20!, ASKGO+23!
DT	ASKGO+20, ASKGO+23
>> DUOUT	ASKGO+11
DUZ	ASKGO+20, ASKGO+23
>> I	PROVDISP+11, NEXT+11
U	PATIENT2+4, PROVDISP+4, NEXT+5, NEXT+6, NEXT+7, NEXT+9, ADD+3, ASKGO+1, ASKGO+6, ASKGO+7 , ASKGO+16, ASKGO+17, ASKGO+22, ASKGO+23
>> X	ASKGO+22*
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, TYPE+6, ASKGO+13, ASKGO+22*, ASKGO+23
>> Y(0	TYPE+6

Customize PDF page

Package: IHS Designated Provider

Routine: BDPDEL

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: