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 |  Marked Items |  All
Print Page as PDF
Routine: BSDCP

Package: IHS Changes To Scheduling

Routine: BSDCP


Information

BSDCP ; IHS/ANMC/LJF - CLINIC PROFILE ;

Source Information

Source file <BSDCP.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
IHS Changes To ADT 1 ($$BROWSE,ZIS)^BDGF  
IHS Changes To Scheduling 1 ($$ACTV,$$INACTVDT,CLINIC,EXPNDPC)^BSDU  
IHS VA Utilities 1 ENPM^XBDIQ1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
SET(LINE,NUM) ; set display line into array
EN ; -- main entry point for BSDRM CLINIC PROFILE
HDR ; -- header code
PRINT ; print to paper
USERS(IEN) ; list users with access to clinic
CLINICS(PRINC) ; list clinics under this principal clinic
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
PRINC(CLN) ; -- display data for principal clinics
DISPLAY(I) ; for value of I, find captions & data & put into display array
HDG ; -- heading
START ;EP; entry point when printing to paper
INIT ; -- init variables and list array
MULT(CAPTION,FILE,FIELD,IEN) ; find multiple data and put into display array
HELP ; -- help code
CHKPC(PC) ;-- check to see if there are principal clinics and if so expand them
SP(N) ; -- SUBRTN to pad N number of spaces
ASK ; -- ask user questions
EXIT ; -- exit code
DATA ;;
EXPND ; -- expand code
PROV(IEN) ; display clinic's providers

External References

Name Field # of Occurrence
^%ZISC PRINT+6
$$BROWSE^BDGF ASK+5
ZIS^BDGF ASK+6
$$ACTV^BSDU INIT+12, CLINICS+6
$$INACTVDT^BSDU INIT+14, CLINICS+6
CLINIC^BSDU ASK+2
EXPNDPC^BSDU CHKPC+5
$$GET1^DIQ INIT+9, INIT+23, INIT+32, INIT+45, PRINC+10, CLINICS+5, USERS+8, USERS+9
EN^VALM EN+2
TERM^VALM0 EN+1
CLEAR^VALM1 EN+1, EN+3
ENPM^XBDIQ1 MULT+2, PROV+2, USERS+2
$$FMTE^XLFDT HDG+2
$$REPEAT^XLFSTR HDG+3, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^TMP("BSDCP",$J,X,0)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !?20,"CLINIC PROFILE",?55,"Printed ",$$FMTE^XLFDT(DT)
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^BSDSC - [#9009017.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC("AIHSPC" CHKPC+5, INIT+19, CLINICS+4
^SC("B" INIT+8
^TMP("BSDCP" INIT+1!, SET+2*, PRINT+3, PRINT+5

Label References

Name Line Occurrences
$$PAD INIT+13, DISPLAY+5, CLINICS+6, USERS+7, USERS+8, SP+1
$$SP INIT+13, DISPLAY+5, DISPLAY+6, MULT+8, PRINC+1, PROV+9
CHKPC ASK+4
CLINICS PRINC+16
DISPLAY INIT+21, INIT+27, INIT+30, INIT+35, PRINC+2, PRINC+5
EN ASK+5
EXIT PRINT+6
HDG PRINT+2, PRINT+4
INIT START+1
MULT INIT+24, INIT+39, INIT+42, PRINC+7
PRINC INIT+19
PRINT START+1
PROV INIT+37
SET INIT+15, INIT+23, INIT+24, INIT+26, INIT+29, INIT+34, INIT+37, INIT+39, INIT+42, INIT+44
, INIT+46, INIT+49, DISPLAY+7, MULT+4, MULT+7, PRINC+1, PRINC+4, PRINC+7, PRINC+9, PRINC+11
, PRINC+14, PRINC+15, PRINC+18, CLINICS+9, PROV+4, PROV+8, USERS+13
USERS INIT+47, PRINC+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY INIT+3~*, INIT+7, INIT+8
BSDPG PRINT+1~, HDG+1*
BSDQ ASK+1~, ASK+2
BSDX MULT+1~, MULT+4, PROV+1~, PROV+4, USERS+1~
BSDX( MULT+6, MULT+7, PROV+6, PROV+7, USERS+5, USERS+6
BSDX(0 USERS+2
BSDY CLINICS+1~, USERS+1~
BSDY( CLINICS+6*, CLINICS+9, USERS+7*, USERS+8*, USERS+10*, USERS+13
CAP1 DISPLAY+1~, DISPLAY+2*, DISPLAY+5
CAP2 DISPLAY+1~, DISPLAY+3*, DISPLAY+6
CAPTION MULT~, MULT+3, MULT+8
CHK CHKPC+1~, CHKPC+2*, CHKPC+4
CLN INIT+6~, INIT+8*, INIT+9, INIT+12, INIT+14, INIT+19, INIT+23, INIT+24, INIT+32, INIT+37
, INIT+39, INIT+42, INIT+45, INIT+47, PRINC~, PRINC+7, PRINC+10, PRINC+12, PRINC+16, CLINICS+1~
, CLINICS+4*, CLINICS+5, CLINICS+6
COL1 INIT+6~, INIT+17*, DISPLAY+5
COL2 INIT+6~, INIT+17*, DISPLAY+6
D PAD~, PAD+2
DATA1 DISPLAY+1~, DISPLAY+2*, DISPLAY+5
DATA2 DISPLAY+1~, DISPLAY+3*, DISPLAY+6
DT INIT+12, CLINICS+6, USERS+9, HDG+2
FIELD MULT~, MULT+2, MULT+7
FILE MULT~, MULT+2
I INIT+6~, INIT+21*, INIT+27*, INIT+30*, INIT+35*, DISPLAY~, PRINC+2*, PRINC+5*
IEN MULT~, MULT+2, PROV~, PROV+2, USERS~, USERS+2
IO PRINT+2
IOF HDG+1
IOSL PRINT+4
L PAD~, PAD+2
LINE INIT+6~, INIT+13*, INIT+14*, INIT+15, DISPLAY+1~, DISPLAY+5*, DISPLAY+6*, DISPLAY+7, MULT+1~, MULT+3*
, MULT+4, MULT+7*, MULT+8*, PROV+1~, PROV+3*, PROV+4, PROV+7*, PROV+8, PROV+9*, SET~
, SET+2
N SP~, SP+1
NAME INIT+6~, INIT+7*, INIT+8, INIT+13, CLINICS+1~, CLINICS+5*, CLINICS+6, USERS+1~, USERS+6*, USERS+7
, USERS+8, USERS+10
NUM SET~, SET+1*, SET+2
PC CHKPC~
PC( CHKPC+2, CHKPC+4
PCI CHKPC+3~, CHKPC+4*, CHKPC+5
POP ASK+1~
PRINC CLINICS~, CLINICS+4
USER USERS+1~, USERS+6*, USERS+8, USERS+9
VALMCNT EN+1~, INIT+1*, INIT+15, INIT+23, INIT+24, INIT+26, INIT+29, INIT+34, INIT+37, INIT+39
, INIT+42, INIT+44, INIT+46, INIT+49, DISPLAY+7, MULT+4, MULT+7, PRINC+1, PRINC+4, PRINC+7
, PRINC+9, PRINC+11, PRINC+14, PRINC+15, PRINC+18, CLINICS+9, PROV+4, PROV+8, USERS+13
VALMHDR PRINT+1~
VAUTC ASK+1~, ASK+4, CHKPC+5, INIT+3
VAUTC( INIT+8
VAUTD ASK+1~
X INIT+32*, INIT+33*, INIT+34, INIT+35, INIT+45*, INIT+46, INIT+47, DISPLAY+5, DISPLAY+6, MULT+1~
, MULT+6*, MULT+7, PRINC+10*, PRINC+11, PRINC+12, CLINICS+1~, CLINICS+9*, PROV+1~, PROV+6*, PROV+7
, USERS+1~, USERS+5*, USERS+6, USERS+13*, PRINT+1~, PRINT+3*, PRINT+5, HELP+1*
Y ASK+5*, PROV+1~, USERS+1~, USERS+9*, USERS+10

Marked Items

Name Field # of Occurrence
$T(DATA+I DISPLAY+2
$T(DATA+I+1 DISPLAY+3
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 |  Marked Items |  All