Routine: BCHUFPP

Package	Total	Call Graph
VA Fileman	3	DD^%DT ^DIR ^DIWP
IHS RPMS CHR System	2	DEMO^BCHUFP $$PPNAME^BCHUTIL

Package	Total	Caller Graph
IHS RPMS CHR System	4	BCHEGP BCHEGR1 BCHUDISP BCHUFP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP - CALLED FROM LAST VISIT DISPLAY
OBJ	;
SUB	;
POV	;
DEMO	;demographics
WP	;EP - Entry point to print wp fields pass node in BCHWP
WPS	;EP
WRT	;EP - Entry point to print wp fields pass node in BCHNODE
FF	;EP
ACT	;
PLANS	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT1+9
DEMO^BCHUFP	DEMO+1
$$PPNAME^BCHUTIL	PRINT1+11
^DIR	FF+1
^DIWP	WRT+3, WP+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: PRINT1+4
Function Call: WRITE	Prompt: !?34,"CHR PCC FORM" Line Location: PRINT1+5
Function Call: WRITE	Prompt: !?18,"* Computer Generated Encounter Record *" Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*") Line Location: PRINT1+7
Function Call: WRITE	Prompt: !?3,"Date of Service: " Line Location: PRINT1+9
Function Call: WRITE	Prompt: Y Line Location: PRINT1+9
Function Call: WRITE	Prompt: !?3,"Temporary Residence: ",$P($G(^BCHR(BCHR,11)),U,8),!?35,"Program Code: ",$P(^BCHTPROG($P(BCHR0,U,2),0),U,5) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !?35,"Provider (CHR): ",$$PPNAME^BCHUTIL(BCHR) Line Location: PRINT1+11
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: PRINT1+12
Function Call: WRITE	Prompt: !?3,"SUBJECTIVE INFORMATION (includes patient's complaint)",?65,"TEMP ",$P(BCHR12,U,7) Line Location: SUB+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: OBJ+2
Function Call: WRITE	Prompt: !?3,"OBJECTIVE DATA",?65,"HEAD ",$P(BCHR12,U,4) Line Location: OBJ+3
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: OBJ+13
Function Call: WRITE	Prompt: !?3,"ASSESSMENT - PCC Purpose of Visit" Line Location: POV+2
Function Call: WRITE	Prompt: !?3,"Hlth Prob",?13,"Svc",?18,"Svc",?30,"Narrative" Line Location: POV+3
Function Call: WRITE	Prompt: !?5,"Code",?13,"Code",?18,"Mins",?65,"Tests" Line Location: POV+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: POV+5
Function Call: WRITE	Prompt: !?23,BCHRPRNM(BCHX1) Line Location: POV+23
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: PLANS+3
Function Call: WRITE	Prompt: !?3,"Plans/Treatments" Line Location: PLANS+4
Function Call: WRITE	Prompt: ?65,"HCT ",$S($P(BCHR13,U,8)]"":$P(BCHR13,U,8),$P(BCHR13,U,7)]"":$E($P(BCHR13,U,7),4,5)_"/"_$E($P(BCHR13,U,7),6,7)_"/"_(1700+($E($P(BCHR13,U,7),1,3))),1:"") Line Location: PLANS+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: PLANS+29
Function Call: WRITE	Prompt: !?3,"Activity Location: ",$S($P(BCHR0,U,6)]"":$P(^BCHTACTL($P(BCHR0,U,6),0),U),1:"") Line Location: ACT+2
Function Call: WRITE	Prompt: ?40,"Hospital/Clinic: ",$E($P(^DIC(4,$P(BCHR0,U,5),0),U),1,22) Line Location: ACT+2
Function Call: WRITE	Prompt: !?3,"Referred to CHR by: ",?45,"Referred by CHR to: " Line Location: ACT+7
Function Call: WRITE	Prompt: !?3,"Travel Time: ",$P(BCHR0,U,11),?45,"Number Served: ",$P(BCHR0,U,12) Line Location: ACT+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_"),! Line Location: ACT+11
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: FF+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNPOV - [#9999999.27]	POV+12
^BCHR - [#90002]	PRINT1+1, PRINT1+10, SUB+2, SUB+3, ACT+5, ACT+6
^BCHRPROB - [#90002.01]	POV+8, POV+11, POV+12
^BCHRPROB("AD"	POV+6
^BCHTACTL - [#90002.56]	ACT+2
^BCHTFPM - [#90002.55]	PLANS+20
^BCHTPROB - [#90002.53]	POV+9
^BCHTPROG - [#90002.51]	PRINT1+10
^BCHTREF - [#90002.52]	ACT+5, ACT+6
^BCHTSERV - [#90002.54]	POV+10
^DIC - [#1]	WP+6
^DIC(4 - [#4]	ACT+2
^UTILITY($J	WRT+1!, WRT+4, WRT+6!, WP+4!, WPS+1, WPS+3!

Label References

Name	Line Occurrences
FF	PRINT1+8, SUB+4, SUB+13, SUB+16, OBJ+10, POV+1, POV+7, POV+23, PLANS+2, PLANS+22 , PLANS+25, ACT+1
WP	SUB+6, OBJ+4, PLANS+9
WRT	POV+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHC	POV+6*, POV+13, POV+16, POV+19
BCHCAP	WP+9, WPS+3!
BCHCOL	WPS+3!
BCHDA	SUB+6, OBJ+4, PLANS+9*, WRT+6!, WP+6, WPS+3!
BCHFILE	SUB+6, OBJ+4, PLANS+9*, WRT+6!, WP+6, WPS+3!
>> BCHIOM	SUB+6, OBJ+4, PLANS+9*, WP+7
BCHNODE	SUB+6, OBJ+4, PLANS+9*, WRT+6!, WP+6, WPS+3!
>> BCHPCNT	WRT+2, WRT+4
>> BCHQUIT	PRINT1+2, PRINT1+8, SUB+4, SUB+12, SUB+13, SUB+16, OBJ+9, OBJ+10, POV+1, POV+6 , POV+7, POV+23, POV+25, PLANS+2, PLANS+21, PLANS+22, PLANS+25, ACT+1, FF+1
>> BCHR	PRINT1+1, PRINT1+10, PRINT1+11, SUB+2, SUB+3, SUB+6, OBJ+4, POV+6, PLANS+9, ACT+5 , ACT+6
>> BCHR0	PRINT1+1*, PRINT1+9, PRINT1+10, POV+16, PLANS+18, PLANS+20, ACT+2, ACT+10
>> BCHR12	SUB+2*, SUB+5, SUB+7, SUB+8, SUB+9, SUB+10, SUB+11, OBJ+3, OBJ+5, OBJ+6 , OBJ+7, OBJ+8, POV+13
>> BCHR13	SUB+3*, POV+16, POV+19, PLANS+7
BCHREFB	ACT+4~
BCHREFB(	ACT+5*, ACT+8, ACT+9
BCHREFT	ACT+4~
BCHREFT(	ACT+6*, ACT+8, ACT+9
>> BCHRNODE	POV+8*, POV+9, POV+10
BCHRPRNM	POV+24!, WRT+1!
BCHRPRNM(	POV+23, WRT+4*
BCHRPRNM(1	POV+13
BCHRPRNM(2	POV+16
BCHRPRNM(4	POV+19
>> BCHTNRQ	POV+12*, WRT+3
>> BCHW	POV+12*
BCHWP	WP+3!
BCHWP(	SUB+12, SUB+14, OBJ+9, OBJ+11, PLANS+21, PLANS+23, WPS+1*
BCHWP(1	SUB+7, OBJ+5
BCHWP(2	SUB+8, OBJ+6, PLANS+15*
BCHWP(3	SUB+9, OBJ+7, PLANS+18*
BCHWP(4	SUB+10, OBJ+8, PLANS+20*
BCHWP(5	SUB+11*
BCHX	POV+6, POV+8, POV+11, POV+12, WP+2~, WP+5, WP+7*, WP+9
BCHX1	SUB+12, SUB+14, OBJ+9, OBJ+11, POV+23, POV+24!, PLANS+21, PLANS+23
C	ACT+4~, ACT+5, ACT+6
DIR	FF+1!
DIR(0	FF+1*
DIWF	WRT+5!, WPS+2!
DIWL	WRT+3, WRT+4, WRT+5!, WP+7, WPS+1, WPS+2!
DIWR	WRT+3, WRT+5!, WP+7, WPS+2!
>> DTOUT	FF+1
G	WP+2~, WP+6*, WP+7, WP+8, WPS+3!
IO	FF+1
IO(0	FF+1
IOF	PRINT1+3, FF+2
IOM	WP+7
IOSL	PRINT1+8, SUB+4, SUB+13, SUB+16, OBJ+10, POV+1, POV+7, POV+23, PLANS+2, PLANS+22 , PLANS+25, ACT+1
IOST	PRINT1+3, FF+1
P	WP+2~, WP+5, WPS+1
U	PRINT1+9, PRINT1+10, SUB+5, SUB+7, SUB+8, SUB+9, SUB+10, SUB+11, OBJ+3, OBJ+5 , OBJ+6, OBJ+7, OBJ+8, POV+9, POV+10, POV+11, POV+12, POV+13, POV+16, POV+19 , PLANS+7, PLANS+18, PLANS+20, ACT+2, ACT+5, ACT+6, ACT+10
>> X	ACT+5, ACT+6, ACT+8, ACT+9, WRT+3, WP+9, WP+10
>> Y	PRINT1+9, FF+1, WP+8, WP+10
Z	WRT+4, WRT+5!, WPS+1, WPS+2!

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHUFPP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: