Routine: BDPADD

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
IHS Designated Provider	3	(EOP,HDR,PAUSE)^BDP (DIC,FILE)^BDPFMC ^BDPKILL
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
PROV	; GET DESIGNATED PROVIDER
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
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
EOP^BDP	ASKGO+13
HDR^BDP	START+3
PAUSE^BDP	ADD+5, ASKGO+33
DIC^BDPFMC	PATIENT2+2
FILE^BDPFMC	ASKGO+12
^BDPKILL	EOJ+1
^DIC	PROV+5
^DIE	ASKGO+32
$$GET1^DIQ	PROV+3, PROV+4
^DIR	PATIENT2+8, ASK+2, TYPE+4, ASKGO+7

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 already has a Designated Provider Type",!," the Category you selected. See the Designated Provider Listing above." Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"-Use the MOD menu item to change to a new CURRENT Provider for this Category Type-",!! Line Location: ADD+5
Function Call: WRITE	Prompt: !!,"Okay, you have selected DESIGNATED PROVIDER : ",BDPRPRVP,! Line Location: ASKGO+2
Function Call: WRITE	Prompt: "To be assigned to Patient Name: "_$P($G(^DPT(BDPDFN,0)),U,1) Line Location: ASKGO+3
Function Call: WRITE	Prompt: ! Line Location: ASKGO+3
Function Call: WRITE	Prompt: "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: !!,"Okay I will add this provider to this patient record! ",! Line Location: ASKGO+10
Function Call: WRITE	Prompt: !,"Error creating DESIGNATED PROVIDER.",!,"Notify programmer.",! Line Location: ASKGO+13
Function Call: WRITE	Prompt: "Has been assigned to Patient Name: "_$P($G(^DPT(BDPDFN,0)),U,1) Line Location: ASKGO+15
Function Call: WRITE	Prompt: ! Line Location: ASKGO+15
Function Call: WRITE	Prompt: "For Designated Provider Category/Type: "_$P($G(^BDPTCAT(BDPTYPE,0)),U,1) Line Location: ASKGO+16
Function Call: WRITE	Prompt: !! Line Location: ASKGO+16
Function Call: WRITE	Prompt: !,?20,"******************************" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,?3,"Utilize this Option to Add a NEW Designated Specialty Provider Record.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: ?3,"If the Patient has already been assigned an Existing Provider for the",!,?3,"Category selected - you must use the MODIFY Data Entry Menu Option",!,?3,"to CHANGE the Existing Provider for this Patient's Category Type.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: ?20,"******************************",! Line Location: INFORM+5
Routine Call	DIE Line Location: ASKGO+32
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 TYPE+4 ASKGO+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

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
>> 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+3 , ASKGO+11, ASKGO+15
>> BDPLIEN	ASKGO+22, ASKGO+23, ASKGO+26*, ASKGO+28, ASKGO+32
>> BDPLINKI	ASKGO+30*
>> BDPLNUM	ASKGO+24, ASKGO+25, ASKGO+27*, ASKGO+29
>> BDPLPROV	ADD+3*
>> BDPPROV	PROV+1, PROV+8, PROV+9, ASKGO+31
>> BDPPTNAM	NEXT+5*
>> BDPQ	START+3, 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+7, PROV+10, ADD+1 , ADD+8, ASKGO+8, ASKGO+9, ASKGO+34*
>> BDPREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!
>> BDPREC("PROV	TYPE" , TYPE+6*
>> BDPRIEN	NEXT+1, NEXT+2, NEXT+4, NEXT+7, ASKGO+17*, ASKGO+19, ASKGO+20, ASKGO+21, ASKGO+22, ASKGO+24 , ASKGO+28, ASKGO+29, ASKGO+32
>> BDPRPROV	PROV+8*
>> BDPRPRVP	PROV+9*, ASKGO+2, ASKGO+14
>> BDPRR	ADD+2*, ADD+3, ADD+4, ADD+5
>> BDPTYPE	PROVDISP+9, PROVDISP+11, NEXT+2, NEXT+3, NEXT+6, TYPE+6*, PROV+3, PROV+4, ADD+2, ASKGO+4 , ASKGO+11, ASKGO+16
>> BDPTYPNM	NEXT+6*, NEXT+10
DA	PATIENT2+8!, ASK+2!, TYPE+4!, PROV+5!, ASKGO+32*!
DA(1	ASKGO+32*
DIC	PATIENT2+2, PROV+2, PROV+5!, ASKGO+11*
DIC("A"	PROV+2*
DIC("B"	PROV+3!
DIC("DR"	ASKGO+11*
DIC("S"	PROV+3, PROV+4
DIC(0	PATIENT2+2, PROV+2, ASKGO+11*
DIE	ASKGO+32*!
DINUM	ASKGO+32!
DIR	PATIENT2+8!, ASK+2!, TYPE+4!, ASKGO+7!
DIR("?"	ASKGO+7*
DIR("A"	PATIENT2+8, ASK+2, ASKGO+7*
DIR("B"	PATIENT2+8, ASK+2, TYPE+4, ASKGO+7
DIR(0	PATIENT2+8, ASK+2, TYPE+4, ASKGO+7
>> DIRUT	ASK+3, TYPE+5, PROV+5, PROV+6, ASKGO+7, ASKGO+8
>> DLAYGO	ASKGO+11*
DR	ASKGO+31*, ASKGO+32!
DT	ASKGO+31
>> DUOUT	PROV+5, ASKGO+7
>> I	PROVDISP+11, NEXT+11
U	PATIENT2+4, PROVDISP+4, NEXT+5, NEXT+6, NEXT+7, NEXT+9, PROV+8, PROV+9, ADD+3, ASKGO+3 , ASKGO+4, ASKGO+15, ASKGO+16, ASKGO+21, ASKGO+22, ASKGO+24, ASKGO+28, ASKGO+29
>> X	ASKGO+11*
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, TYPE+6, PROV+7, PROV+8, ASKGO+9, ASKGO+13, ASKGO+17
>> Y(0	TYPE+6

Customize PDF page

Package: IHS Designated Provider

Routine: BDPADD

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: