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 |  Local Variables |  All
Print Page as PDF
Routine: BDPCHNGD

Package: IHS Designated Provider

Routine: BDPCHNGD


Information

BDPCHNGD ; IHS/CMI/TMJ - CHANGE NON-EXISTING PROVIDER TO NEW PROVIDER ;

Source Information

Source file <BDPCHNGD.m>

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
PROV ; GET DESIGNATED PROVIDER
GETTYPE ;Do Get Date if no existing Designated Providers
UPDATE ;Update Records
START ;
MSGEND ;End of Add Message
EOJ ; END OF JOB
ASK ;Ask to Continue
MAIN ;
TYPE ; GET CATEGORY TYPE FOR DESIGNATED PROVIDER

External References

Name Field # of Occurrence
HDR^BDP START+4
PAUSE^BDP MSGEND+6
$$CREATE^BDPAMA UPDATE+15
$$CHKPROV^BDPDPEE PROV+5
^BDPKILL EOJ+1
^DIC 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, all Patients with NO EXISTING Current Provider : ",!
  • Line Location: ASKGO+3
Function Call: WRITE
  • Prompt: ?8,"Will be assigned to NEW Provider Named: "_BDPRPRVP
  • 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 re-assigned to NEW Designated Provider:"_BDPRPRVP
  • 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: !,?3,"This Option allows the automatic changing Existing Records......",!,?10,"from an Unassigned (blank) CURRENT Designated Provider -",!,?10,"to a NEW assigned Designated Provider.",!!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: ?3,"The User is prompted for the NEW Provider Name.",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: ?3,"Once the desired Provider Category Type is selected by the User,",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: ?3,"the Program will automatically LOOP through all Records and",!,?3,"change to the NEW Provider for this Category Type.",!!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: ?3,"If the patient's existing Provider/Category Type are the same,",!,?3,"no update will occur.",!
  • Line Location: INFORM+6
Routine Call
  • DIC
  • Line Location:
    • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDPMSGA - [#90360.5] TYPE+10
^BDPMSGA("B" TYPE+6
^BDPRECN - [#90360.1] UPDATE+4, UPDATE+8, UPDATE+10
^BDPRECN("B" UPDATE+2
^BDPTCAT - [#90360.3] TYPE+6, TYPE+10, ASKGO+5, MSGEND+4
^VA(200 - [#200] PROV+7

Label References

Name Line Occurrences
ASK MAIN+2
ASKGO GETTYPE+3
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
>> BDPIEN UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+8, UPDATE+10
>> BDPOPROV UPDATE+10*, UPDATE+11
>> BDPPAT UPDATE+8*, UPDATE+9, UPDATE+15
>> BDPPROV TYPE+6, TYPE+10, PROV+1*, PROV+6*, PROV+7, UPDATE+14, UPDATE+15
>> BDPQ START+4, MAIN+1*, MAIN+3, MAIN+5, GETTYPE+2, GETTYPE+4*, ASK+1*, ASK+3*, ASK+4*, TYPE+2*
, TYPE+15*, 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+4, MSGEND+3
>> BDPTYPE TYPE+5*, TYPE+6, TYPE+10, ASKGO+5, UPDATE+2, UPDATE+6, UPDATE+7, UPDATE+15, MSGEND+4
>> BDPTYPEM UPDATE+4*, UPDATE+5, UPDATE+7
>> BDPYI MAIN+1*
DA ASK+2!, TYPE+3!, PROV+2!
DIC PROV+2*!
DIC("A" PROV+2*
DIC(0 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 TYPE+6, TYPE+10, PROV+6, PROV+7, ASKGO+5, UPDATE+4, UPDATE+8, UPDATE+10, MSGEND+4
>> X PROV+5*, UPDATE+15*
>> Y ASK+4, TYPE+5, PROV+4, PROV+5, PROV+6, ASKGO+11
>> Y(0 TYPE+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All