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

Package: IHS Changes To Scheduling

Routine: BSDPRV


Information

BSDPRV ; IHS/ANMC/LJF - 1ST AVAIL APPT BY PROVIDER/TEAM ; [ 04/01/2004 4:29 PM ]

Source Information

Source file <BSDPRV.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 4 EN^VALM  TERM^VALM0  CLEAR^VALM1  CLEAN^VALM10  
Kernel 3 $$FMTE^XLFDT  ($$REPEAT,$$STRIP,$$UP)^XLFSTR  DISP^XQORM1  
VA Fileman 2 ^DIC  $$GET1^DIQ  
IHS Changes To ADT 1 ($$READ,MSG)^BDGF  
IHS VA Utilities 1 GUIR^XBLM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDM  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP; called by SDM with SDPC set
HDR ;EP; -- header code
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
FINDCL(BSDX) ;EP; -- sets array of clinics for provider or team
; returns BSDCL array with clinic name and then ien
; BSDX=array of providers
GATHER ;EP; loop thru clinics selected
; assumes BSDCL array of clinics and BSDAY, BSDEND are set
EXPND ;EP; -- expand code
INIT ;EP; -- init variables and list array
EXIT ;EP; -- exit code
HELP1 ;EP; -- help called by DIR call for Provider/PCPR/PCTM
ASK ; -- ask provider/PCP/PCT
; BSDPRV set here or under PCP or PCT
; BSDCL array of clinics used by GATHER subroutine
; BSDQUIT used by calling routine to exit
GETALL(BSDP) ; -- get primary care provider or team
; BSDP="PCPR for primary care provider or "PCTM" for primary care team
; BSDP="WHPR" for women's health provider or "WHTM" for wh team
; returns BSDPCP array of all providers selected
; returns BSDPRV=pcp provider or team name
DAY ; for clinic & date range, find first 3 days with appts
HD ;Write month heading lines ;IHS/ITSC/LJF 4/1/2004 added subroutine
HELP ;EP; -- help code

External References

Name Field # of Occurrence
$$READ^BDGF ASK+6, EN+2, EN+5
MSG^BDGF HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6, HELP1+7, HELP1+8, HELP1+9
^DIC ASK+10
$$GET1^DIQ GETALL+12, GETALL+13, FINDCL+6
EN^VALM EN+11
TERM^VALM0 EN+10
CLEAR^VALM1 EN+10, EN+12
CLEAN^VALM10 EXIT+1
GUIR^XBLM INIT+2
$$FMTE^XLFDT HDR+4, DAY+18
$$REPEAT^XLFSTR PAD+2
$$STRIP^XLFSTR DAY+11, DAY+12, DAY+13
$$UP^XLFSTR ASK+8
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!?20,"NO PROVIDER/TEAM FOUND"
  • Line Location: GATHER+3
Function Call: WRITE
  • Prompt: !,?18,"DATE",?SI+SI-1,"|"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: $J("|",SI+SI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,$P(^SC(BSDN,0),U,1)
  • Line Location: DAY+16
Function Call: WRITE
  • Prompt: !,$P(^SC(BSDN,0),U,1)
  • Line Location: DAY+17
Routine Call
  • VALM
  • Line Location:
    • EN+11
Routine Call
  • DIC
  • Line Location:
    • ASK+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
^BWP - [#9002086] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BSDPCT - [#9009017.5] GETALL+24, GETALL+25
^BSDPCT("AB" GETALL+19
^SC - [#44] HD+2, HD+4, HD+6, DAY+3, DAY+5, DAY+6, DAY+17, DAY+19
^SC("AIHSDPR" FINDCL+5
^TMP("BSDPRV" INIT+1!, INIT+6*, INIT+8*, EXIT+1!
^TMP("BSDPRV1" INIT+1!, INIT+3!, INIT+4, INIT+6, INIT+9!

Label References

Name Line Occurrences
$$PAD SP+1
$$SP HDR+2, HDR+3
ASK ASK+10
DAY GATHER+5
EN ASK+9, ASK+11
FINDCL ASK+11, GETALL+15, GETALL+28
GETALL ASK+9
HD DAY+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BSDAY EN+1~, EN+2*, EN+3, HDR+4, DAY+2
BSDCL ASK+5~, GATHER+3, FINDCL+3!
BSDCL( GATHER+4, GATHER+5, FINDCL+6*
BSDEND EN+1~, EN+5*, EN+6*, HDR+4, DAY+3
BSDN GATHER+2~, GATHER+5*, HD+2, HD+6, DAY+3, DAY+5, DAY+6, DAY+17, DAY+19
BSDNM GATHER+2~, GATHER+4*, GATHER+5
BSDP GETALL~, GETALL+8, GETALL+12, GETALL+13, GETALL+15
BSDPCP ASK+5~, ASK+11, GETALL+15, GETALL+28
BSDPCP( ASK+11*, GETALL+14*, GETALL+19, GETALL+25*
BSDPRV ASK+5~, ASK+11*, HDR+3, GETALL+8*
BSDQUIT ASK+5!, ASK+7*, GETALL+20*
BSDX FINDCL~
BSDX( FINDCL+4
D PAD~, PAD+2
DATE DAY+1~, DAY+2*, DAY+3*, DAY+5, DAY+6, DAY+18, DAY+19
DAYCNT DAY+1~, DAY+2*, DAY+3, DAY+5, DAY+17, DAY+20*
>> DFN GETALL+12, GETALL+13
>> DIC ASK+10*
>> DIC(0 ASK+10*
I DAY+1~, DAY+11*, DAY+12*, DAY+13*, GETALL+6~
IEN DAY+1~, DAY+4*, DAY+5*, DAY+6, DAY+19
J HD+6!
J( HD+6*
L PAD~, PAD+2
N SP~, SP+1
PRV FINDCL+3~, FINDCL+4*, FINDCL+5
>> SC HD+4*
>> SI HD+1, HD+2*, HD+5, HD+6, HD+7
>> SL HD+4*
SLOT DAY+1~, DAY+2*, DAY+9*, DAY+10*, DAY+11*, DAY+12*, DAY+13*, DAY+14*, DAY+15
>> STARTDAY HD+3, HD+4*, HD+5
TEAM GETALL+6~, GETALL+20
TEAM( GETALL+19*, GETALL+23
U ASK+7, ASK+11, HD+2, HD+4, DAY+17
>> VALMCC EN+9*
VALMCNT EN+8~, INIT+5*, INIT+8*
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+3*, HDR+5*
>> VALMNOFF EXIT+2*
X ASK+5~, ASK+10*, HDR+1~, HDR+4*, HDR+5, INIT+3*, INIT+4*, INIT+5, INIT+6, HELP+1*
, HD+4*, GETALL+6~, GETALL+12*, GETALL+13*, GETALL+14, GETALL+19*, GETALL+23*, GETALL+24, GETALL+25, FINDCL+3~
, FINDCL+5*, FINDCL+6
Y ASK+5~, ASK+6*, ASK+7, ASK+8*, ASK+9, ASK+10, ASK+11, HDR+1~, HDR+4*, HDR+5
, HD+4, HD+5*, HD+6*, HD+7*, DAY+18*, DAY+19, GETALL+24*, GETALL+25
Z DAY+1~, DAY+2*, DAY+6*, DAY+7, DAY+8, DAY+9, DAY+10, DAY+14
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