Routine: BDPCOMA

Information

BDPCOMA ; IHS/CMI/TMJ - ADD RECORDS FOR A PARTICULAR COMMUNITY ;

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Designated Provider	4	(HDR,PAUSE)^BDP $$CREATE^BDPAMA $$CHKPROV^BDPDPEE ^BDPKILL
VA Fileman	2	^DIC ^DIR

Entry Points

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

External References

Name	Field # of Occurrence
HDR^BDP	START+4
PAUSE^BDP	MSGEND+6
$$CREATE^BDPAMA	ADDCOM+15
$$CHKPROV^BDPDPEE	PROV+5
^BDPKILL	EOJ+1
^DIC	COM+1, PROV+2
^DIR	ASK+2, TYPE+3, ASKGO+9

Interaction Calls

Name	Line Occurrences
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 assigned to Patients living in Community Named: "_BDPCOMP 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 assigned to Patients Living in Community: "_BDPCOMP 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: "Note: If this Designated Provider already existed for the patient",!,?7," - No change was made to the patient record-.",! Line Location: MSGEND+5
Function Call: WRITE	Prompt: !,?3,"This Option allows automatic UPDATE of Existing Records for Patients",!,?15,"Living in a Selected C0MMUNITY",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !?3,"The patient must have been assigned a provider for the category ",!,"you select in the past in order to be updated by this option." Line Location: INFORM+3
Function Call: WRITE	Prompt: !?3,"If the patient has never been assigned a provider in the category you select",!?3,"they will not be updated even though they live in the community you select." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,?3,"The User is prompted for the COMMUNITY Name and the desired Provider Name.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: ?3,"Once the desired Provider Category Type is selected by the User,",! Line Location: INFORM+6
Function Call: WRITE	Prompt: ?3,"the Program will automatically LOOP through all existing Patient Records and",!,?3,"Update the selected Current Provider for this Category Type.",!! Line Location: INFORM+7
Function Call: WRITE	Prompt: ?3,"If the patient's Current Provider/Category Type/Community",!,?3,"are the same, no updating will occur.",! Line Location: INFORM+8
Routine Call	DIC Line Location: COM+1 PROV+2
Routine Call	DIR Line Location: ASK+2 TYPE+3 ASKGO+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	ADDCOM+10
^AUTTCOM - [#9999999.05]	COM+5
^BDPMSGA - [#90360.5]	TYPE+10
^BDPMSGA("B"	TYPE+6
^BDPRECN - [#90360.1]	ADDCOM+4, ADDCOM+6
^BDPRECN("B"	ADDCOM+3
^BDPTCAT - [#90360.3]	TYPE+6, TYPE+10, ASKGO+5, MSGEND+4
^VA(200 - [#200]	PROV+7

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDPCMCK	ADDCOM+10*, ADDCOM+11
>> BDPCOMN	COM+3*, COM+4, COM+5, ADDCOM+11
>> BDPCOMP	COM+5*, COM+6, ASKGO+4, MSGEND+3
>> BDPIEN	ADDCOM+3*, ADDCOM+4, ADDCOM+6
>> BDPPAT	ADDCOM+4*, ADDCOM+5, ADDCOM+10, ADDCOM+12, ADDCOM+15
>> BDPPROV	TYPE+6, TYPE+10, PROV+1, PROV+6, PROV+7, ADDCOM+14, ADDCOM+15
>> BDPQ	START+4, MAIN+1, MAIN+3, MAIN+5, MAIN+8, GETTYPE+2, GETTYPE+4, COM+2, ASK+1, ASK+3* , ASK+4, TYPE+2, TYPE+16, PROV+1, PROV+2, PROV+4, PROV+5, PROV+8, ASKGO+10, ASKGO+11 , MSGEND+7*
>> BDPREC("PROV	TYPE" , TYPE+5*
>> BDPRPROV	PROV+6*
>> BDPRPRVP	PROV+7*, ASKGO+3, MSGEND+2
>> BDPTYPE	TYPE+5*, TYPE+6, TYPE+10, ASKGO+5, ADDCOM+3, ADDCOM+8, ADDCOM+9, ADDCOM+13, ADDCOM+15, MSGEND+4
>> BDPTYPEM	ADDCOM+6*, ADDCOM+7, ADDCOM+9
DA	ASK+2!, TYPE+3!, PROV+2!
DIC	COM+1!, PROV+2!
DIC("A"	COM+1, PROV+2
DIC(0	COM+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	ASK+3, TYPE+4, PROV+2, PROV+3, ASKGO+9, ASKGO+10
>> DUOUT	PROV+2, ASKGO+9
U	COM+5, TYPE+6, TYPE+10, PROV+6, PROV+7, ASKGO+5, ADDCOM+4, ADDCOM+6, ADDCOM+10, MSGEND+4
>> X	PROV+5, ADDCOM+15
>> Y	COM+2, COM+3, ASK+4, TYPE+5, PROV+4, PROV+5, PROV+6, ASKGO+11
>> Y(0	TYPE+5

Customize PDF page

Package: IHS Designated Provider

Routine: BDPCOMA

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: