Routine: BHSPWHG

Entry Points

Name	Comments	DBIA/ICR reference
EHR	;EP - CMI/GRL support for EHR
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEAD1	;
EOJ	;
HEADER	;
USR()	;EP - Return name of current user from ^VA(200.
EN1(APCHPWHT)	;EP
W	;write out array
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;EP
SEL	;EP -Selected type of handout
UPDLOG(P,T,D)	;EP - update pwh log

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: W+15
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",! Line Location: HEAD1+4

FileNo	Call Tags
^APCHPWHL - [#9001027]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHPWHT(	SEL+8
^APCCCTRL - [#9001000]	EHR+3
^APCHPWHT - [#9001026]	SEL+7
^APCHPWHT("B"	EHR+4
^DIC(4 - [#4]	LOC+1
^TMP($J	PRINT+2!, W+5, W+8, W+10, EOJ+2!
^VA(200 - [#200]	HEAD1+4, USR+1

Name	Line Occurrences
PRINT	EHR+5, SEL+9, EN1+2
UPDLOG	PRINT+3

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Name	Field # of Occurrence
%	EOJ+8!
A	W+8*, EOJ+8!
APCHOLD	EN1+1~
APCHPWHT	EN1~
AUPNDAYS	EOJ+7!
AUPNDOB	EOJ+7!
AUPNDOD	EOJ+7!
AUPNPAT	EOJ+7!
AUPNSEX	EOJ+7!
B	EOJ+8!
BHPG	EOJ+6!, HEAD1+4
>> BHPWHT	EHR+3, EHR+4, SEL+5*, SEL+6, SEL+7, SEL+8, PRINT+3, PRINT+4
BHSCVD	SEL+1~, PRINT+1*
BHSFOR	SEL+1~, SEL+4*, SEL+5
BHSPAT	EHR+1~, EHR+2, SEL+1~, SEL+2
BHSPHT	EHR+1~
BHSQUIT	W+2!, W+4
BHX	W+5*, W+8, W+10, EOJ+6!
BIDLLID	EOJ+6!
BIDLLPRO	EOJ+6!
BIDLLRUN	EOJ+6!
BIRESULT	EOJ+6!
BISITE	EOJ+6!
C	W+8*, EOJ+8!
D	UPDLOG~, UPDLOG+5
D0	UPDLOG+3~, UPDLOG+6!
DD	UPDLOG+3~, UPDLOG+6!
>> DFN	EHR+2, SEL+2, PRINT+3, PRINT+4
DIADD	UPDLOG+4*, UPDLOG+9!
DIC	UPDLOG+3~, UPDLOG+4*
DIC("DR"	UPDLOG+5*
DIC(0	UPDLOG+4*
DLAYGO	UPDLOG+4*, UPDLOG+9!
DO	UPDLOG+3~
DT	HEAD1+4, UPDLOG+5
DUZ	PRINT+3, HEAD1+4, USR+1
DUZ(2	EHR+3, LOC+1, UPDLOG+5
E	EOJ+8!
F	EOJ+8!
>> GMTSEG(	SEL+4, SEL+5
>> GMTSEGN	SEL+4, SEL+5
>> GMTSQIT	SEL+3, SEL+4, W+5, W+7, W+12
H	EOJ+8!
IOM	CTR+1
J	EOJ+8!
L	EOJ+8!
N	EOJ+8!
P	EOJ+8!, UPDLOG~, UPDLOG+1, UPDLOG+4
ST	EOJ+8!
ST0	EOJ+8!
T	EOJ+8!, UPDLOG~, UPDLOG+2, UPDLOG+5
U	EHR+3, HEAD1+4, USR+1, LOC+1
W	EOJ+8!
X	EOJ+8!, CTR~, CTR+1, UPDLOG+3~, UPDLOG+4*
Y	EOJ+8!, CTR~, CTR+1