Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDPAMA

Package: IHS Designated Provider

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All