Routine: BDPMOD

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

Entry Points

Name	Comments	DBIA/ICR reference
IMA	;EP - called from option to inactivate a message agent so they can no longer be selected
PROVDISP	;Display if Patient has existing Designated Providers
PATIENT	; GET PATIENT
INFORM	;Data Entry Explanation
ASKGO	;Ask to continue
PROV	; GET NEW DESIGNATED PROVIDER
GETTYPE	;Do Get Date if no existing Designated Providers
COUNT	;Count of # Patients for this Old Provider
NEXT	;2ND $O
REACT	;
START	;
ADD	; ADD NEW DESIGNATED PROVIDER RECORD
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
EOJ	; END OF JOB
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+5, ADD+12, ASKGO+36, IMA+4, IMA+9, IMA+10, IMA+14, REACT+4, REACT+5, REACT+7
DIC^BDPFMC	PATIENT2+2
^BDPKILL	EOJ+1
^DIC	PROV+4, IMA+3
^DIE	ASKGO+25, IMA+11, REACT+6
IX^DIK	ASKGO+34
$$GET1^DIQ	PROV+3, IMA+7, IMA+12, REACT+1, REACT+2, REACT+7, COUNT+7
^DIR	PATIENT2+8, ASK+2, TYPE+4, ASKGO+9, IMA+8, REACT+3

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(BDPCPRVP,1,35) Line Location: NEXT+10
Function Call: WRITE	Prompt: ! Line Location: TYPE+1
Function Call: WRITE	Prompt: !!,?10,"This patient does NOT have a Designated Provider",!,"for the Category you selected. See the Listing above." Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"-Use the ADD menu option to Add a CURRENT Provider for this Category Type-",!! Line Location: ADD+5
Function Call: WRITE	Prompt: !!,"This is the existing Current Provider for this Category",!! Line Location: ADD+12
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 assigned to Patient Name: "_$P($G(^DPT(BDPDFN,0)),U,1) 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 this Patient Record - as follows: ",! Line Location: ASKGO+12
Function Call: WRITE	Prompt: ! Line Location: ASKGO+14
Function Call: WRITE	Prompt: !! Line Location: ASKGO+15
Function Call: WRITE	Prompt: !,?20,"******************************" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,?2,"Utilize this Option to MODIFY Existing Designated Specialty Provider Records.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: ?3,"If the Patient has already been assigned the same Provider for the",!,?3,"Category and Provider selected - the record will not be Updated.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: ?20,"******************************",! Line Location: INFORM+5
Function Call: WRITE	Prompt: !! Line Location: IMA+2
Function Call: WRITE	Prompt: !!,"No message agent selected." Line Location: IMA+4
Function Call: WRITE	Prompt: !,"No action taken." Line Location: IMA+9
Function Call: WRITE	Prompt: !,"No action taken." Line Location: IMA+10
Function Call: WRITE	Prompt: !,$$GET1^DIQ(90360.5,BDPMA,.01)," has been inactivated." Line Location: IMA+12
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(90360.5,BDPMA,.01)," is currently inactive.",! Line Location: REACT+1
Function Call: WRITE	Prompt: !,"No action taken." Line Location: REACT+4
Function Call: WRITE	Prompt: !,"No action taken." Line Location: REACT+5
Function Call: WRITE	Prompt: !,$$GET1^DIQ(90360.5,BDPMA,.01)," has been reactivated." Line Location: REACT+7
Function Call: WRITE	Prompt: ! Line Location: COUNT+11
Function Call: WRITE	Prompt: ! Line Location: COUNT+12
Routine Call	DIE Line Location: ASKGO+25 IMA+11 REACT+6
Routine Call	DIC Line Location: PROV+4 IMA+3
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 TYPE+4 ASKGO+9 IMA+8 REACT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^BDPTCAT - [#90360.3]	GET1^DIQ
^BDPMSGA - [#90360.5]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDPMSGA - [#90360.5]	IMA+6
^BDPRECN - [#90360.1]	NEXT+7, ADD+3, ASKGO+17, ASKGO+19, ASKGO+22, ASKGO+23, ASKGO+25, ASKGO+28*, COUNT+4
^BDPRECN("AA"	PROVDISP+7, PROVDISP+11, NEXT+2, ADD+2
^BDPRECN("AC"	COUNT+3
^BDPTCAT - [#90360.3]	NEXT+6, ASKGO+5, ASKGO+15
^BDPTCAT("B"	COUNT+2
^DPT - [#2]	PATIENT2+4, PROVDISP+4, NEXT+5, ASKGO+4, ASKGO+14
^VA(200 - [#200]	NEXT+9, PROV+8

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	ASKGO+17*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDPC	COUNT+1, COUNT+5, COUNT+6, COUNT+7, COUNT+10!
>> BDPCOUNT	PROVDISP+10, PROVDISP+11, NEXT+10
>> BDPCPRV	NEXT+7*, NEXT+8, NEXT+9
>> BDPCPRVP	NEXT+8, NEXT+9, NEXT+10
BDPDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, PROVDISP+4, PROVDISP+7, PROVDISP+11, NEXT+2, NEXT+5, ADD+2, ASKGO+4 , ASKGO+14
BDPI	COUNT+1, COUNT+3, COUNT+4, COUNT+10!
>> BDPLIEN	ASKGO+18, ASKGO+19, ASKGO+20, ASKGO+25
>> BDPLINKI	ASKGO+16, ASKGO+26
>> BDPLNUM	ASKGO+18, ASKGO+19, ASKGO+21*, ASKGO+23
>> BDPLPROV	ADD+3*, ADD+12
BDPMA	IMA+5*, IMA+6, IMA+7, IMA+9!, IMA+10!, IMA+11, IMA+12, IMA+15!, REACT+1, REACT+2 , REACT+4!, REACT+5!, REACT+6, REACT+7!, COUNT+3, COUNT+7
>> BDPNIEN	ASKGO+20*, ASKGO+22, ASKGO+25, ASKGO+28, ASKGO+34
>> BDPPROV	PROV+1, PROV+7, PROV+8, ADD+12, ASKGO+28
>> 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, PROV+1, PROV+6, PROV+9, ADD+1 , ADD+10, ASKGO+10, ASKGO+11, ASKGO+37, COUNT+1, COUNT+10!
>> 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+17, ASKGO+19, ASKGO+22, ASKGO+23, ASKGO+25 , ASKGO+28, ASKGO+34
>> BDPRPROV	PROV+7*, ADD+11
>> BDPRPRVP	PROV+8*, ASKGO+3, ASKGO+13
>> BDPRR	ADD+2*, ADD+3, ADD+4, ADD+5, ADD+7
>> BDPTYPE	PROVDISP+9, PROVDISP+11, NEXT+2, NEXT+3, NEXT+6, TYPE+6, PROV+3, ADD+2, ASKGO+5, ASKGO+15 , COUNT+2, COUNT+4
>> BDPTYPNM	NEXT+6*, NEXT+10
BDPYI	COUNT+10!
DA	PATIENT2+8!, ASK+2!, TYPE+4!, PROV+4!, ASKGO+25!, ASKGO+34!, IMA+3!, IMA+8!, IMA+11!, REACT+3! , REACT+6!
DA(1	ASKGO+25, ASKGO+34
DIC	PATIENT2+2, PROV+2, PROV+4!, ASKGO+34!, IMA+3*!
DIC("A"	PROV+2, IMA+3
DIC("B"	PROV+3!
DIC("S"	PROV+3*
DIC(0	PATIENT2+2, PROV+2, IMA+3*
DIE	ASKGO+25!, IMA+11!, REACT+6*!
DIK	ASKGO+33~, ASKGO+34*
DINUM	ASKGO+25!
DIR	PATIENT2+8!, ASK+2!, TYPE+4!, ASKGO+9!, IMA+8!, REACT+3!
DIR("?"	ASKGO+9*
DIR("A"	PATIENT2+8, ASK+2, ASKGO+9, IMA+7, REACT+2*
DIR("B"	PATIENT2+8, ASK+2, TYPE+4, ASKGO+9, IMA+7, REACT+2
DIR(0	PATIENT2+8, ASK+2, TYPE+4, ASKGO+9, IMA+7, REACT+2
>> DIRUT	ASK+3, TYPE+5, PROV+4, PROV+5, ASKGO+9, ASKGO+10, IMA+9, REACT+4
DR	ASKGO+25!, IMA+11, REACT+6*
DT	ASKGO+25, ASKGO+28
>> DUOUT	PROV+4, ASKGO+9
DUZ	ASKGO+25, ASKGO+28
>> I	PROVDISP+11, NEXT+11
R	IMA+11!, REACT+6!
U	PATIENT2+4, PROVDISP+4, NEXT+5, NEXT+6, NEXT+7, NEXT+9, PROV+7, PROV+8, ADD+3, ASKGO+4 , ASKGO+5, ASKGO+14, ASKGO+15, ASKGO+17, ASKGO+22, ASKGO+23, ASKGO+25, ASKGO+28, IMA+6, COUNT+4
>> X	ASKGO+18, ASKGO+19
Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, TYPE+6, PROV+6, PROV+7, ASKGO+11, IMA+4, IMA+5 , IMA+9!, IMA+10!, IMA+11!, REACT+4!, REACT+5!, REACT+6!, REACT+7!
Y(0	TYPE+6

Customize PDF page

Package: IHS Designated Provider

Routine: BDPMOD

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: