Routine: BDPAMA

Information

BDPAMA ;IHS/CMI/LAB - ASSIGN MESSAGE AGENT ; 05 Jun 2018 11:09 AM

Source Information

Source file <BDPAMA.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS Designated Provider	3	(EOP,HDR,PAUSE)^BDP FILE^BDPFMC ^BDPKILL
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 ^XBFMK

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Designated Provider	4	BDPCHNGD BDPCOMA BDPDPEE BDPTRANS

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;Count of # Patients for this Old Provider
MA	; GET MESSAGE
ADDNEW	;Add a new Record
ASKGO	;Ask to continue
EOJ	; END OF JOB
UPDATE	;Update Records
START	;
MSGEND	;End of Add Message
CREATE(BDPDFN,BDPTYPE,BDPRPRVP)	;EP - Entry Point to Create
INFORM	;Data Entry Explanation
ASK	;Ask to Continue
OLDPROV	; GET OLD EXISTING PROVIDER
MAIN	;
TYPE	; GET CATEGORY TYPE FOR DESIGNATED PROVIDER
MOD	;Modify an Existing Provider Type for this Patient

Name	Field # of Occurrence
EOP^BDP	ADDNEW+4
HDR^BDP	START+4
PAUSE^BDP	MSGEND+4
FILE^BDPFMC	ADDNEW+2
^BDPKILL	EOJ+1
^DIC	MAIN+8, OLDPROV+4, MA+2, ADDNEW+8, MOD+7
^DIE	MOD+5, MOD+11
^DIR	ASK+2, TYPE+3, ASKGO+9
$$VAL^XBDIQ1	ASKGO+5
^XBFMK	ADDNEW+8, MOD+9, MOD+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"can't find message agent category" Line Location: MAIN+9
Function Call: WRITE	Prompt: !!,"Select the Provider for whose patients you want to assign a message agent." Line Location: OLDPROV+3
Function Call: WRITE	Prompt: !!?10,"There are ",BDPYI," patients currently assigned to this Provider." Line Location: COUNT+3
Function Call: WRITE	Prompt: ! Line Location: COUNT+6
Function Call: WRITE	Prompt: ! Line Location: COUNT+7
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 Provider : ",BDPOPRVP,! Line Location: ASKGO+3
Function Call: WRITE	Prompt: ?8,"Patients who have that provider assigned to them will be",! Line Location: ASKGO+4
Function Call: WRITE	Prompt: ?8,"assigned Message Agent: ",$$VAL^XBDIQ1(200,BDPPROV,.01) 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: !,"Error creating DESIGNATED PROVIDER.",!,"Notify programmer.",! Line Location: ADDNEW+4
Function Call: WRITE	Prompt: !!!!,"Okay - I have changed all Patient Records - as follows: ",! Line Location: MSGEND+1
Function Call: WRITE	Prompt: "Have been assigned Message Agent:"_BDPRPRVP Line Location: MSGEND+3
Function Call: WRITE	Prompt: ! Line Location: MSGEND+3
Function Call: WRITE	Prompt: !,?3,"This option is used to assign a Message Agent to any patient who" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"has a particular provider assigned to them. For example, if you want" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"to assign message agent Mary Smith, RN to all of Dr. Miller's patients" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"you can do so with this option." Line Location: INFORM+5
Function Call: WRITE	Prompt: !!!,"PLEASE NOTE: If the patient already has a message agent assigned" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"this option will replace that message agent with the new one you are" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"assigning.",! Line Location: INFORM+8
Routine Call	DIE Line Location: MOD+5 MOD+11
Routine Call	DIC Line Location: MAIN+8 OLDPROV+4 MA+2 ADDNEW+8 MOD+7
Routine Call	DIR Line Location: ASK+2 TYPE+3 ASKGO+9

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^BDPRECN - [#90360.1]	Classic Fileman Calls
^BDPTCAT - [#90360.3]	Classic Fileman Calls
^BDPMSGA - [#90360.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDPMSGA - [#90360.5]	TYPE+10
^BDPMSGA("B"	TYPE+6
^BDPRECN - [#90360.1]	UPDATE+8, CREATE+9, MOD+4, MOD+5
^BDPRECN("AA"	CREATE+7
^BDPRECN("AC"	COUNT+2, UPDATE+2
^BDPTCAT - [#90360.3]	TYPE+6, TYPE+10
^DD(90360.1	ADDNEW+8, MOD+7
^VA(200 - [#200]	OLDPROV+8, MA+6, CREATE+6

Name	Line Occurrences
$$CREATE	UPDATE+11
ADDNEW	CREATE+8
ASKGO	MAIN+14
COUNT	MAIN+4
EOJ	START+5
INFORM	START+2
MA	MAIN+11
MAIN	START+4, MAIN+12
MOD	CREATE+11
OLDPROV	MAIN+2
TYPE	TYPE+6, TYPE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDPDFN	CREATE~, CREATE+7, ADDNEW+1
BDPI	COUNT+1, COUNT+2, COUNT+5!
>> BDPIEN	UPDATE+2*, UPDATE+3, UPDATE+8
BDPLINKI	CREATE+2~, CREATE+5, ADDNEW+10!, MOD+1, MOD+13!
BDPLPROV	CREATE+2~, CREATE+9*, CREATE+10
>> BDPOPROV	OLDPROV+2, OLDPROV+7, OLDPROV+8, COUNT+2, UPDATE+2
>> BDPOPRVP	OLDPROV+7, OLDPROV+8, ASKGO+3, MSGEND+2
>> BDPPAT	UPDATE+8*, UPDATE+9, UPDATE+11
>> BDPPROV	TYPE+6, TYPE+10, MA+1, MA+5, MA+6, ASKGO+5, UPDATE+10, UPDATE+11
>> BDPQ	START+4, MAIN+1, MAIN+3, MAIN+5, MAIN+12, MAIN+15, OLDPROV+2, OLDPROV+4, OLDPROV+5, OLDPROV+9 , COUNT+1, COUNT+4, ASK+1, ASK+3, ASK+4, TYPE+2, TYPE+15, MA+1, MA+2, MA+4 , MA+7, ASKGO+10, ASKGO+11, CREATE+4, CREATE+8, ADDNEW+9, MOD+8, MOD+12, MSGEND+5
>> BDPREC("PROV	TYPE" , TYPE+5*
BDPRIEN	CREATE+2~, CREATE+11, ADDNEW+6, ADDNEW+8, MOD+4, MOD+5, MOD+7, MOD+11
>> BDPRPROV	MA+5, CREATE+6
BDPRPRVP	MA+6*, CREATE~, CREATE+6, CREATE+10, ADDNEW+8, MOD+7, MOD+11, MSGEND+3
BDPRR	CREATE+2~, CREATE+7*, CREATE+8, CREATE+9, CREATE+11
BDPTYPE	MAIN+10, TYPE+5, TYPE+6, TYPE+10, UPDATE+11, CREATE~, CREATE+7, ADDNEW+1
BDPYI	MAIN+1, COUNT+1, COUNT+2*, COUNT+3, COUNT+4, COUNT+5!
DA	OLDPROV+4!, ASK+2!, TYPE+3!, MA+2!, ADDNEW+8!, MOD+5!, MOD+9!, MOD+11
DA(1	ADDNEW+8, MOD+5, MOD+7*
DIADD	ADDNEW+3!, ADDNEW+8!, MOD+7*!, MOD+9!
DIC	MAIN+8!, OLDPROV+4!, MA+2!, ADDNEW+1!, ADDNEW+3!, ADDNEW+8!, MOD+7!, MOD+9!
DIC("A"	OLDPROV+4, MA+2
DIC("DR"	ADDNEW+1, ADDNEW+8, MOD+7*
DIC("P"	ADDNEW+8, MOD+7
DIC("S"	MA+2*
DIC(0	MAIN+8, OLDPROV+4, MA+2, ADDNEW+1, ADDNEW+8, MOD+7
DIE	MOD+5!, MOD+11
DINUM	MOD+5!
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	OLDPROV+4, OLDPROV+6, ASK+3, TYPE+4, MA+2, MA+3, ASKGO+9*, ASKGO+10
DLAYGO	ADDNEW+1*, ADDNEW+3!, ADDNEW+8!, MOD+9!
DR	ADDNEW+8!, MOD+5!, MOD+7!, MOD+9!, MOD+11
DT	ADDNEW+8, MOD+5, MOD+7, MOD+11
>> DUOUT	OLDPROV+4, MA+2, ASKGO+9
DUZ	MOD+5, MOD+11
U	OLDPROV+7, OLDPROV+8, TYPE+6, TYPE+10, MA+5, MA+6, UPDATE+8, CREATE+6, CREATE+9, ADDNEW+8 , MOD+5, MOD+7
X	MAIN+8, UPDATE+11, ADDNEW+1, ADDNEW+8!, MOD+4, MOD+5!, MOD+7, MOD+9!
Y	MAIN+9, MAIN+10, OLDPROV+5, OLDPROV+7, ASK+4, TYPE+5, MA+4, MA+5, ASKGO+11, ADDNEW+4 , ADDNEW+6, ADDNEW+8!, MOD+5!, MOD+8, MOD+9!
Y(0	TYPE+5
Z	MOD+4*, MOD+5!

Customize PDF page

Package: IHS Designated Provider

Routine: BDPAMA

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: