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: BDPADD

Package: IHS Designated Provider

Routine: BDPADD


Information

BDPADD ; IHS/CMI/TMJ - ADD A NEW DESIGNATED PROVIDER ;

Source Information

Source file <BDPADD.m>

Call Graph

Call Graph Total: 8

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
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