Routine: BCHUFP

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	2	^XBDBQUE $$EXTSET^XBFUNC
IHS RPMS CHR System	1	(FF,PRINT1)^BCHUFPP
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCH DE PRINT FORMS BCHUFPP

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PAT	;one or all patients
ZIS	;
V1	;
PROV	;limit by provider
START	;
GETDATES	;
XIT	;
ED	;get ending date
PRINT	; EP - print individual forms
DEMO	;EP
COMP	;EP - do nothing
D	; Run by visit date

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, DEMO+21, DEMO+22
C^%DTC	ED+4, D+1
HOME^%ZIS	START+1
FF^BCHUFPP	DEMO+2, DEMO+5, DEMO+7, DEMO+28
PRINT1^BCHUFPP	V1+1
^DIC	PAT+6, PROV+5
^DIR	BD+2, ED+1, PAT+3, PROV+2
^XBDBQUE	ZIS+2
$$EXTSET^XBFUNC	DEMO+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** ENCOUNTER FORM PRINT ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce hard copy computed generated encounter forms.",! Line Location: START+4
Function Call: WRITE	Prompt: !,"Please enter the date range for which forms should be printed.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!?3,"HR#: ",BCHHRN Line Location: DEMO+12
Function Call: WRITE	Prompt: !!?3,"CHR NON REG ID: ",$P(^BCHR(BCHR,11),U,13) Line Location: DEMO+13
Function Call: WRITE	Prompt: ?35,"SEX: ",$S(DFN]"":$$EXTSET^XBFUNC(2,.02,$P(^DPT(DFN,0),U,2)),1:$P(BCHR11,U,3)) Line Location: DEMO+14
Function Call: WRITE	Prompt: !?3,"NAME: ",$S(DFN]"":$P(^DPT(DFN,0),U),1:$P(BCHR11,U)) Line Location: DEMO+15
Function Call: WRITE	Prompt: ?35,"Tribe: " Line Location: DEMO+16
Function Call: WRITE	Prompt: $P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,8),0),U) Line Location: DEMO+16
Function Call: WRITE	Prompt: $P(^AUTTTRI($P(BCHR11,U,5),0),U) Line Location: DEMO+17
Function Call: WRITE	Prompt: !?3,"SSN: ",$S(DFN]"":"XXX-XX-"_$E($P(^DPT(DFN,0),U,9),6,9),1:$P(BCHR11,U,4)) Line Location: DEMO+18
Function Call: WRITE	Prompt: ?35,"RESIDENCE: " Line Location: DEMO+19
Function Call: WRITE	Prompt: $P($G(^AUPNPAT(DFN,11)),U,18) Line Location: DEMO+19
Function Call: WRITE	Prompt: $P(BCHR11,U,7) Line Location: DEMO+20
Function Call: WRITE	Prompt: !?3,"DOB: " Line Location: DEMO+21
Function Call: WRITE	Prompt: Y Line Location: DEMO+21
Function Call: WRITE	Prompt: Y Line Location: DEMO+22
Function Call: WRITE	Prompt: ?35,"FACILITY: " Line Location: DEMO+23
Function Call: WRITE	Prompt: $P(^DIC(4,$P(BCHR11,U,9),0),U) Line Location: DEMO+23
Function Call: WRITE	Prompt: !!?35,"CHR SIGNATURE: _____________________________",! Line Location: DEMO+26
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*") Line Location: DEMO+27
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PAT+6 PROV+5
Routine Call	DIR Line Location: BD+2 ED+1 PAT+3 PROV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DEMO+10, DEMO+16, DEMO+19
^AUTTTRI - [#9999999.03]	DEMO+16, DEMO+17
^BCHR - [#90002]	V1+1, V1+5, DEMO+1, DEMO+8, DEMO+13
^BCHR("B"	D+2, V1+1
^DIC(4 - [#4]	DEMO+23
^DPT - [#2]	DEMO+14, DEMO+15, DEMO+18, DEMO+21

Label References

Name	Line Occurrences
BD	ED+2
GETDATES	PAT+4, PROV+3
PAT	PAT+6
PROV	PAT+1, PAT+5, PROV+5
V1	D+2
XIT	BD+3
ZIS	PROV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BCH80D	XIT+2!
BCHBD	BD+4*, ED+1, ED+4, XIT+2!, D+1
BCHBDD	ED+4*, XIT+3!
BCHBDO	XIT+3!
BCHBT	XIT+3!
BCHBTH	XIT+2!
BCHC	XIT+2!
BCHED	ED+3*, ED+4, XIT+2!, D+2
BCHEDD	ED+4*, XIT+3!
BCHEDO	XIT+3!
BCHFOUND	XIT+3!
BCHHIT	XIT+3!
BCHHRCN	XIT+2!
BCHHRN	XIT+3!, DEMO+10, DEMO+11, DEMO+12
BCHID	XIT+3!
BCHIOM	XIT+1!
BCHJOB	XIT+2!
BCHLENG	XIT+2!
BCHLINE	XIT+3!
BCHODAT	XIT+3!, D+2*, V1+1
BCHP	XIT+3!
>> BCHPAT	PAT+2, PAT+6
BCHPCNT	XIT+2!
BCHPG	XIT+2!
BCHPREC	XIT+1!
BCHPRNM	XIT+3!
BCHPRNT	XIT+3!
BCHPROB	XIT+3!
BCHPROV	PROV+1, PROV+5, XIT+2!, V1+4, V1+5
BCHPRV	XIT+3!
BCHQUIT	XIT+3!, PRINT+1*, D+2, V1+1, DEMO+2, DEMO+7
BCHR	XIT+3!, V1+1*, V1+5, DEMO+1, DEMO+8, DEMO+13
BCHR0	XIT+3!, DEMO+9
BCHR11	XIT+1!, DEMO+8*, DEMO+10, DEMO+14, DEMO+15, DEMO+17, DEMO+18, DEMO+20, DEMO+22, DEMO+23
BCHR12	XIT+1!
BCHR13	XIT+1!
BCHRC	XIT+1!
BCHRCNT	XIT+1!, XIT+3!, V1+1*
BCHRLOC	XIT+3!
BCHRNODE	XIT+1!
BCHRRPNM	XIT+1!
BCHRX	XIT+1!
BCHSD	ED+4, XIT+3!, D+1, D+2
BCHTICL	XIT+3!
BCHTNRQ	XIT+3!
BCHTOT	XIT+3!
BCHTQ	XIT+3!
BCHTTXT	XIT+3!
BCHW	XIT+1!
BCHWP	XIT+1!
BCHX	XIT+2!
BCHX1	XIT+1!
D	XIT+2!
DFN	XIT+2!, DEMO+9*, DEMO+10, DEMO+12, DEMO+13, DEMO+14, DEMO+15, DEMO+16, DEMO+18, DEMO+19 , DEMO+21, DEMO+22
DIC	PAT+6, PROV+5, XIT+2!
DIC("A"	PAT+6, PROV+5
DIC(0	PAT+6, PROV+5
DIR	BD+2!, ED+1!, PAT+3!, PROV+2!, XIT+2!
DIR("A"	BD+2, ED+1, PAT+3, PROV+2
DIR("B"	ED+1, PAT+3, PROV+2*
DIR(0	BD+2, ED+1, PAT+3, PROV+2
DIRUT	BD+2, BD+3, ED+1, ED+2, PAT+3, PAT+4, PROV+2, PROV+3, XIT+2!
DIW	XIT+2!
DIWI	XIT+2!
DIWT	XIT+2!
DIWTC	XIT+2!
DIWX	XIT+2!
DN	XIT+2!
DTOUT	XIT+2!
DUOUT	BD+2, ED+1, PAT+3, PROV+2, XIT+2!
DUZ(2	DEMO+10
>> F	V1+1, V1+3, V1+4, V1+5*
IO("Q"	XIT+2!
IOF	START+1, START+2
IOSL	DEMO+2, DEMO+7
U	V1+5, DEMO+1, DEMO+9, DEMO+10, DEMO+13, DEMO+14, DEMO+15, DEMO+16, DEMO+17, DEMO+18 , DEMO+19, DEMO+20, DEMO+21, DEMO+22, DEMO+23
>> X	ED+4, D+1
>> X1	ED+4, D+1
>> X2	ED+4, D+1
XBNS	ZIS+1*, XIT+2!
XBRC	ZIS+1*, XIT+2!
XBRP	ZIS+1*, XIT+2!
>> XBRX	ZIS+1*
XBTX	XIT+2!
Y	BD+4, ED+1, ED+3, ED+4, PAT+5, PAT+6, PROV+4, PROV+5, XIT+2!, DEMO+21* , DEMO+22*
ZTSK	XIT+2!

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHUFP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: