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

Package: IHS Designated Provider

Routine: BDPTDEL


Information

BDPTDEL ; IHS/CMI/TMJ - DELETE FROM A TEMPLATE OF PATIENTS ;

Source Information

Source file <BDPTDEL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Designated Provider 3 (HDR,PAUSE)^BDP  ^BDPKILL  DELETE^BDPPASS  
VA Fileman 2 ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ADDTEMP ;Delete Patients in Template
INFORM ;Data Entry Explanation
ASKGO ;Ask to continue
PROV ; GET DESIGNATED PROVIDER
GETTYPE ;Do Get Date if no existing Designated Providers
ASK ;Ask to Continue
START ;
MSGEND ;End of Add Message
TEMPLATE ; GET TEMPLATE
EOJ ; END OF JOB
TLOOK
MAIN ;
TYPE ; GET CATEGORY TYPE FOR DESIGNATED PROVIDER

External References

Name Field # of Occurrence
HDR^BDP START+4
PAUSE^BDP MSGEND+5
^BDPKILL EOJ+1
DELETE^BDPPASS ADDTEMP+7
^DIC TLOOK+2, PROV+2
^DIR ASK+2, TYPE+3, ASKGO+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TLOOK+5
Function Call: WRITE
  • Prompt: !!?10,"There are ",BDPYI-1," patients in this SEARCH TEMPLATE."
  • Line Location: TLOOK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: TLOOK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TLOOK+13
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 DESIGNATED PROVIDER : ",BDPRPRVP,!
  • Line Location: ASKGO+3
Function Call: WRITE
  • Prompt: ?8,"To be DELETED from Patients in Template Named: "_BDPTRNA
  • 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 DELETED from Patients existing in Template: "_BDPTRNA
  • 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 automatic DELETE of Records from a Patient TEMPLATE",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: ?3,"The User is prompted for the TEMPLATE 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 the Template of Patients and",!,?3,"DELETE the selected Current Provider for this Category Type.",!!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: ?3,"If a patient (listed within the Template) does not currently exist in the",!,?3,"Management System, no Action will be taken",!
  • Line Location: INFORM+6
Routine Call
  • DIC
  • Line Location:
    • TLOOK+2
    • 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)
^BDPTCAT - [#90360.3] ASKGO+5, MSGEND+4
^DIBT( TLOOK+7, ADDTEMP+3
^VA(200 - [#200] PROV+6

Label References

Name Line Occurrences
ASK MAIN+7
ASKGO GETTYPE+3
EOJ START+5
INFORM START+2
MAIN START+4, MAIN+5
PROV MAIN+4
TEMPLATE MAIN+2
TYPE GETTYPE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDPI TLOOK+6*, TLOOK+7*, TLOOK+9!
>> BDPPAT ADDTEMP+3*, ADDTEMP+4
>> BDPPROV PROV+1*, PROV+5*, PROV+6, ADDTEMP+6
>> BDPQ START+4, MAIN+1*, MAIN+3, MAIN+5, MAIN+8, GETTYPE+2, GETTYPE+4*, TLOOK+3*, TLOOK+4*, ASK+1*
, ASK+3*, ASK+4*, TYPE+2*, TYPE+6*, PROV+1*, PROV+2*, PROV+4*, PROV+7*, ASKGO+10*, ASKGO+11*
, MSGEND+6*
>> BDPREC("PROV TYPE" , TYPE+5*
>> BDPRGTP TLOOK+6*
>> BDPRPROV PROV+5*
>> BDPRPRVP PROV+6*, ASKGO+3, MSGEND+2
>> BDPTRN TLOOK+6*, TLOOK+7, ADDTEMP+3
>> BDPTRNA TLOOK+6*, ASKGO+4, MSGEND+3
>> BDPTYPE TYPE+5*, ASKGO+5, ADDTEMP+5, MSGEND+4
BDPYI TLOOK+7*, TLOOK+8, TLOOK+9!, TLOOK+11*, TLOOK+12!
DA TLOOK+2!, ASK+2!, TYPE+3!, PROV+2!
DIC TLOOK!, TLOOK+1*, TLOOK+2!, PROV+2*!
DIC("A" TLOOK+1*, PROV+2*
DIC("S" TLOOK+1*
DIC(0 TLOOK+1*, 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 TLOOK!, TLOOK+3, ASK+3, TYPE+4, PROV+2*, PROV+3, ASKGO+9*, ASKGO+10
DR TLOOK+2!
>> DUOUT PROV+2, ASKGO+9
U TLOOK+6, PROV+5, PROV+6, ASKGO+5, MSGEND+4
>> Y TLOOK+4, TLOOK+6, ASK+4, TYPE+5, PROV+4, PROV+5, 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