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

Name	Field # of Occurrence
$T(DATA+I	DISPLAY+2
$T(DATA+I+1	DISPLAY+3

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDCP

Call Graph Total: 11