Routine: BSDX43

Information

BSDX43 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

Source Information

Source file <BSDX43.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK EN^XBNEW EN^XBVK
Kernel	3	^%ZIS ^%ZISC ($$FMTE,$$NOW)^XLFDT
Clinical Scheduling for Windows	1	EP1^BSDX42
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS Patient	1	$$AGE^AUPNPAT
Registration	1	(CLEAR,FULL)^VALM1
Scheduling	1	END^SDROUT1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Clinical Scheduling for Windows	1	BSDX25

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
EXIT1	;
WISD(DFN,SDATE,BSDMODE,APCHPWHT,EMSG)	;PEP; print PCC health summary ; .EMSG = returned error message if error
HEAD1	;
HEADER	;
UPDDEF	;EP - called from option to update default PWH for the site
EOJ	;
EHR(DFN,APCHPWHT)
W	;write out array
SELTYP	;
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
EXIT	;
EN1(APCHPWHT)	;EP
ENCOMP	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;EP
SELPT	;
UPDLOG(P,T,D)	;EP - update pwh log
EN2(APCHPWHT,P)	;EP
ZIS	;EP

External References

Name	Field # of Occurrence
^%ZIS	WISD+18
^%ZISC	W+15
$$AGE^AUPNPAT	SELPT+6
$$DIV^BSDU	WISD+6, WISD+16
EP1^BSDX42	PRINT+5
^DIC	SELTYP+8, SELPT+3, UPDDEF+4
FILE^DICN	UPDLOG+7
^DIE	UPDDEF+6
$$GET1^DIQ	WISD+16
^DIR	W+13, HEADER+2
END^SDROUT1	WISD+18
CLEAR^VALM1	EXIT1+1
FULL^VALM1	EXIT1+2
^XBDBQUE	ZIS+5
^XBFMK	SELTYP+2, EXIT+3, EXIT1+4, EOJ+5, UPDLOG+8, UPDDEF+7
EN^XBNEW	EHR+3
EN^XBVK	EXIT+1, EOJ+3, EOJ+4
$$FMTE^XLFDT	HEAD1+3, HEAD1+4
$$NOW^XLFDT	UPDLOG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Patient Wellness Handout *"),!! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: SELPT+1
Function Call: WRITE	Prompt: !,"Warning: This handout is designed for patients 18 and older. This",!,"patient is under 18. Please select a different patient." Line Location: SELPT+6
Function Call: WRITE	Prompt: ! Line Location: W+13
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"My Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: "******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !!,"This option is used to set the default Patient Wellness Handout" Line Location: UPDDEF+1
Function Call: WRITE	Prompt: !,"for a site." Line Location: UPDDEF+2
Function Call: WRITE	Prompt: !! Line Location: UPDDEF+3
Routine Call	DIE Line Location: UPDDEF+6
Routine Call	DIC Line Location: SELTYP+8 SELPT+3 UPDDEF+4
Routine Call	DIR Line Location: W+13 HEADER+2
Routine Call	%ZIS Line Location: WISD+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCCCTRL - [#9001000]	Classic Fileman Calls
^APCHPWHT - [#9001026]	Classic Fileman Calls
^APCHPWHL - [#9001027]	Classic Fileman Calls
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	SELTYP+4, EHR+1, ENCOMP+2
^APCHPWHT - [#9001026]	SELTYP+5
^APCHPWHT("B"	EHR+2, ENCOMP+3
^AUPNPAT - [#9000001]	SELPT+5
^DIC(4 - [#4]	LOC+1, UPDDEF+4
^DISV(	SELTYP+5
^TMP($J	PRINT+3!, W+5, W+7, W+9, EOJ+2!
^VA(200 - [#200]	HEAD1+4, USR+1

Label References

Name	Line Occurrences
$$CTR	EN+1
EHR	ENCOMP+6
EOJ	W+14
EXIT	SELTYP+9, SELPT+12, ZIS+2, ZIS+6
HEAD1	HEADER+1
HEADER	W+3, W+8
PRINT	WISD+19, EN1+2
SELPT	SELPT+6
SELTYP	SELPT+4
UPDLOG	PRINT+4
ZIS	SELPT+11, EN2+3

Naked Globals

Name	Field # of Occurrence
^("^APCHPWHT("	SELTYP+5
^(0	SELTYP+4, SELTYP+5, SELPT+5, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+8!
>> A	W+7*
APCHOLD	EN1+1~
>> APCHOPT	ZIS+3*
>> APCHPG	W+3, HEADER+1, HEAD1+2, HEAD1+3, HEAD1+4
APCHPWHT	SELTYP+10, EN2~, WISD~, EHR~, EHR+1, EHR+2, ENCOMP+1~, ENCOMP+2, ENCOMP+3*, ENCOMP+4 , ENCOMP+6, EN1~, PRINT+4, PRINT+5
APCHQUIT	W+2!, W+4, W+5, W+8, W+11, HEADER+2*
>> APCHSCVD	PRINT+2*
>> APCHSPAT	ENCOMP+6
>> APCHSQIT	W+11*
>> APCHX	W+5*, W+7, W+9
AUPNDAYS	EOJ+7!
AUPNDOB	EOJ+7!
AUPNDOD	EOJ+7!
AUPNPAT	EOJ+7!
AUPNSEX	EOJ+7!
B	EOJ+8!
BDGDEV	WISD+16*, WISD+17!, WISD+18
BIDLLID	EOJ+6!
BIDLLPRO	EOJ+6!
BIDLLRUN	EOJ+6!
BIRESULT	EOJ+6!
BISITE	EOJ+6!
BSDMODE	WISD~, WISD+15, WISD+17
C	W+7*, W+8, EOJ+8!
D	UPDLOG~, UPDLOG+5
D0	UPDLOG+3~, UPDLOG+6!
>> DA	UPDDEF+6*
DD	UPDLOG+3~, UPDLOG+6!
DEV	WISD+5~, WISD+15*, WISD+16
DFN	SELPT+2, SELPT+5, SELPT+6!, EN2+1~, EN2+2*, WISD~, WISD+3, EHR~, EXIT+2!, EXIT1+3! , PRINT+4, PRINT+5
DGPGM	WISD+5~, WISD+13*
DIADD	SELTYP+1!, UPDLOG+4*, UPDLOG+9!
DIC	SELTYP+3!, SELTYP+8!, SELPT+3!, UPDLOG+3~, UPDLOG+4, UPDDEF+4!
DIC("A"	SELTYP+3, SELPT+3
DIC("B"	SELTYP+7, UPDDEF+4
DIC("DR"	UPDLOG+5*
DIC(0	SELTYP+3, SELPT+3, UPDLOG+4, UPDDEF+4
>> DIE	UPDDEF+6*
DIR	W+13!, HEADER+2!
DIR("A"	W+13*
DIR(0	W+13, HEADER+2
>> DIRUT	ZIS+2
>> DIV	WISD+6*
DLAYGO	SELTYP+1!, UPDLOG+4*, UPDLOG+9!
DO	UPDLOG+3~
>> DR	UPDDEF+6*
DT	SELPT+6, HEAD1+3, HEAD1+4, UPDLOG+5
>> DTOUT	HEADER+2
DUZ	SELTYP+5, PRINT+4, HEAD1+4, USR+1
DUZ(2	SELTYP+4, SELPT+5, EHR+1, ENCOMP+2, LOC+1, UPDLOG+5, UPDDEF+4
E	EOJ+8!
EMSG	WISD~, WISD+17*
F	EOJ+8!
H	EOJ+8!
IO	PRINT+1, W+13, HEADER+2
IO(0	W+13, HEADER+2
IOF	ENCOMP+5, HEAD1+1
IOM	HEAD1+3, CTR+1
>> IOP	WISD+18*
IOSL	W+8
IOST	W+13, HEADER+2
J	EOJ+8!
L	EOJ+8!
N	EOJ+8!
>> ORDER	WISD+6*
P	EN2~, EN2+2, EOJ+8!, UPDLOG~, UPDLOG+1, UPDLOG+4
POP	WISD+5~, WISD+18
SDATE	WISD~
>> SDREP	WISD+6*
>> SDSTART	WISD+6*
>> SDX	WISD+6*
ST	EOJ+8!
ST0	EOJ+8!
T	ENCOMP+1~, EOJ+8!, UPDLOG~, UPDLOG+2, UPDLOG+5
U	SELTYP+4, SELTYP+5, SELPT+5, EHR+1, ENCOMP+2, HEAD1+4, USR+1, LOC+1, UPDDEF+4
VAR	WISD+5~
VAR1	WISD+5~
W	EOJ+8!
X	SELTYP+4, SELTYP+5, SELTYP+6, SELTYP+7, EOJ+8!, CTR~, CTR+1, UPDLOG+3~, UPDLOG+4
>> XBNS	ZIS+4*
>> XBRC	ZIS+4*
>> XBRP	ZIS+4*
>> XBRX	ZIS+4*
Y	SELTYP+5, SELTYP+9, SELTYP+10, SELPT+4, SELPT+5, ZIS+1, ZIS+3, EOJ+8!, HEADER+2, CTR~ , CTR+1, UPDDEF+5, UPDDEF+6

Customize PDF page

Package: Clinical Scheduling for Windows

Routine: BSDX43

Call Graph Total: 17

Caller Graph Total: 1