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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDPMOD

Package: IHS Designated Provider

Routine: BDPMOD


Information

BDPMOD ; IHS/CMI/TMJ - EDIT AN EXISTING DESIGNATED PROVIDER ;

Source Information

Source file <BDPMOD.m>

Call Graph

Call Graph Total: 9

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