Routine: BPMRP1

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC EN^DDIOL ^DIR
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
IHS Patient Merge	1	BPM PRINT MERGED LIST

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP -- MAIN ENTRY POINT
NOW()
PRT	;----- PRINT THE ACTUAL REPORT
SLDATE(X)	;EP
QUE(ZTRTN,ZTDESC)	;
HDR(BPMPAGE,BPMOUT)	;
DESC	;----- ROUTINE DESCRIPTION
LOOP	;----- MAIN LOOP THROUGH MERGE IMAGES FILE
DQ	;EP -- QUEUED JOB STARTS HERE

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+4
^%ZIS	QUE+4
^%ZISC	DQ+7
^%ZTLOAD	QUE+9
EN^DDIOL	DESC+10
^DIR	HDR+7
^XBKVAR	DQ+2, NOW+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"NO DATA TO PRINT" Line Location: PRT+15
Function Call: WRITE	Prompt: !?0,"FROM:" Line Location: PRT+18
Function Call: WRITE	Prompt: ?7,$P(BPMX,U,2) Line Location: PRT+19
Function Call: WRITE	Prompt: ?14,$P(BPMX,U,3) Line Location: PRT+20
Function Call: WRITE	Prompt: ?46,$P(BPMX,U,4) Line Location: PRT+21
Function Call: WRITE	Prompt: ?56,$P(BPMX,U,5) Line Location: PRT+22
Function Call: WRITE	Prompt: ?67,$P(BPMX,U,8) Line Location: PRT+23
Function Call: WRITE	Prompt: !?0," TO:" Line Location: PRT+24
Function Call: WRITE	Prompt: ?7,$P(BPMX,U,6) Line Location: PRT+25
Function Call: WRITE	Prompt: ?14,$P(BPMX,U,7) Line Location: PRT+26
Function Call: WRITE	Prompt: ?46,$P(BPMX,U,9) Line Location: PRT+27
Function Call: WRITE	Prompt: ?56,$P(BPMX,U,10) Line Location: PRT+28
Function Call: WRITE	Prompt: ! Line Location: PRT+29
Function Call: WRITE	Prompt: @IOF Line Location: HDR+13
Function Call: WRITE	Prompt: !,"MERGED PATIENTS" Line Location: HDR+14
Function Call: WRITE	Prompt: ?49,$$NOW Line Location: HDR+15
Function Call: WRITE	Prompt: " PAGE ",BPMPAGE Line Location: HDR+16
Function Call: WRITE	Prompt: !?7,"DFN",?14,"PATIENT NAME",?46,"DOB",?56,"SSN",?67,"DATE MERGED" Line Location: HDR+17
Function Call: WRITE	Prompt: ! Line Location: HDR+18
Function Call: WRITE	Prompt: "-" Line Location: HDR+19
Function Call: WRITE	Prompt: !,"Task #",$G(ZTSK)," queued" Line Location: QUE+10
Routine Call	DIR Line Location: HDR+7
Routine Call	%ZIS Line Location: QUE+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NOW+6
^DPT - [#2]	LOOP+9, LOOP+11
^TMP("BPMRP1"	DQ+4!, LOOP+27, LOOP+33, PRT+11, PRT+14, PRT+17
^XDRM - [#15.4]	LOOP+6, LOOP+7, LOOP+15, LOOP+17, LOOP+20, LOOP+23, LOOP+29

Label References

Name	Line Occurrences
$$NOW	HDR+15
$$SLDATE	LOOP+13, LOOP+25, LOOP+31
@(	QUE+11
HDR	PRT+7, PRT+12
LOOP	DQ+5
PRT	DQ+6
QUE	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+2~, NOW+7
%H	NOW+2~
%I	NOW+2~
%ZIS	QUE+2~, QUE+3*
BPMD0	LOOP+2~, LOOP+5, LOOP+6, LOOP+7, LOOP+15, LOOP+17, LOOP+20, LOOP+23, LOOP+27, LOOP+29
BPMD1	LOOP+2~, LOOP+14, LOOP+15, LOOP+17, LOOP+20, LOOP+23, LOOP+29
BPMD2	LOOP+2~, LOOP+16, LOOP+17, LOOP+20, LOOP+23, LOOP+29
BPMDATA	LOOP+2~, LOOP+7, LOOP+8, LOOP+10, LOOP+12, LOOP+23, LOOP+24, LOOP+26, LOOP+29*, LOOP+30 , LOOP+32
BPMDATE	LOOP+2~, LOOP+12, LOOP+13, LOOP+27
BPMDOB	LOOP+2~, LOOP+24, LOOP+25, LOOP+27, LOOP+30, LOOP+31, LOOP+33
BPMFR	LOOP+2~, LOOP+8*, LOOP+9, LOOP+20, LOOP+27, LOOP+33
BPMFRN	LOOP+2~, LOOP+9*, LOOP+27, LOOP+33
BPMOUT	LOOP+2~, LOOP+4, LOOP+15, LOOP+17, LOOP+20, LOOP+21, PRT+2~, PRT+4, PRT+7, PRT+8 , PRT+11, PRT+12, PRT+13, PRT+16, HDR~, HDR+9*, HDR+10
BPMPAGE	PRT+2~, PRT+5, PRT+7, PRT+12, HDR~, HDR+5, HDR+12, HDR+16
BPMPAT	PRT+2~, PRT+10, PRT+11, PRT+17
BPMSSN	LOOP+2~, LOOP+26, LOOP+27, LOOP+32, LOOP+33
BPMTO	LOOP+2~, LOOP+10*, LOOP+11, LOOP+27
BPMTON	LOOP+2~, LOOP+11*, LOOP+27
BPMX	PRT+2~, PRT+17*, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23, PRT+25, PRT+26, PRT+27 , PRT+28
DIR	HDR+3~, HDR+8!
DIR(0	HDR+6*
DIRUT	HDR+3~
DT	NOW+5
DTOUT	HDR+3~
DUOUT	HDR+3~
I	DESC+10~, HDR+3~, HDR+19
IO	QUE+2~
IO("Q"	QUE+6, QUE+7!
IOF	HDR+13
IOM	HDR+19, QUE+8
ION	QUE+8
IOSL	PRT+12, QUE+8
IOST	HDR+5, QUE+8
POP	QUE+2~, QUE+5
U	LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+24, LOOP+26, LOOP+27, LOOP+30, LOOP+32 , LOOP+33, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23, PRT+25, PRT+26, PRT+27, PRT+28
X	DESC+10~*, HDR+3~, NOW+2~, SLDATE~, SLDATE+7, SLDATE+8, SLDATE+9
Y	HDR+3~, HDR+9, NOW+5, NOW+7, SLDATE+5~, SLDATE+6, SLDATE+9*, SLDATE+10
ZTDESC	EN+2~, EN+5*, EN+6, QUE~
ZTIO	QUE+2~, QUE+8*
ZTRTN	EN+2~, EN+4*, EN+6, QUE~, QUE+11
ZTSAVE	EN+2~
ZTSK	QUE+2~, QUE+10

Customize PDF page

Package: IHS Patient Merge

Routine: BPMRP1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items