Routine: BPMPTR

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC EN^DDIOL ^DIC ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
IHS Patient Merge	1	BPM PRINT POINTERS

Entry Points

Name	Comments	DBIA/ICR reference
WRITE(VAL,L,TCNT,FILE,PAGE,OUT)	;
LOOP(GR,VAL,FILE,L,TXT,TCNT,CNT,PAGE,OUT)	;
EN	;EP -- MAIN ENTRY POINT
QUE(ZTRTN,ZTSAVE,ZTDESC)	;
L(GR,LVL,L)	;
FILE(FILE)	;
FIND(FILE,VAL)	;EP
LVL(FILE,PFILE,PFLD,LVL,TXT)	;
NP(X)	;----- PUT QUOTES AROUND ALPHA NODE
L2	;
HDR(FILE,VAL,PAGE,OUT)	;
NOW()	;
L1	;
PTR(FILE,VAL,PFILE,PFLD,TCNT,CNT,PAGE,OUT)	;
DESC	;----- ROUTINE DESCRIPTION
VAL(VAL)	;
DQ	;EP -- QUEUED JOB ENTRY POINT

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+4
^%ZIS	QUE+5
HOME^%ZIS	EN+5
^%ZISC	DQ+12
^%ZTLOAD	QUE+10
EN^DDIOL	DESC+14
^DIC	FILE+11
^DIR	VAL+9, HDR+7
^XBKVAR	EN+4, DQ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,TCNT," POINTERS FOUND" Line Location: FIND+21
Function Call: WRITE	Prompt: !!,CNT_".",?5,TXT Line Location: LOOP+15
Function Call: WRITE	Prompt: !?5,"<FILE CORRUPTED!!!>" Line Location: LOOP+17
Function Call: WRITE	Prompt: ! Line Location: WRITE+4
Function Call: WRITE	Prompt: " "_DUZ2 Line Location: WRITE+8
Function Call: WRITE	Prompt: " "_$P(L(X),U,4) Line Location: WRITE+14
Function Call: WRITE	Prompt: " "_VAL Line Location: WRITE+16
Function Call: WRITE	Prompt: !!?5,"<<< MISSING DATA IN '^DD("_UP_","_"""SB"""_","_SFILE_",0)' NODE! >>>" Line Location: LVL+32
Function Call: WRITE	Prompt: !,"Task #",$G(TASK)," queued" Line Location: QUE+11
Function Call: WRITE	Prompt: @IOF Line Location: HDR+13
Function Call: WRITE	Prompt: !,"Pointers to IEN #"_VAL_" in the "_$P(^DIC(FILE,0),U)_" file #"_FILE Line Location: HDR+14
Function Call: WRITE	Prompt: !?49,$$NOW Line Location: HDR+15
Function Call: WRITE	Prompt: " PAGE ",PAGE Line Location: HDR+16
Function Call: WRITE	Prompt: ! Line Location: HDR+17
Function Call: WRITE	Prompt: "-" Line Location: HDR+18
Function Call: WRITE	Prompt: ! Line Location: HDR+19
Routine Call	%ZIS Line Location: EN+5
Routine Call	DIC Line Location: FILE+11
Routine Call	DIR Line Location: VAL+9 HDR+7
Routine Call	%ZIS Line Location: QUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIND+16, FIND+18, LVL+21, LVL+25, LVL+28, LVL+30, LVL+34, LVL+44
^DD("DD"	NOW+6
^DIC - [#1]	PTR+14, L2+12, HDR+14

Label References

Name	Line Occurrences
$$NOW	HDR+15
$$NP	LVL+22, LVL+36
@(	QUE+12
DESC	EN+7
FILE	EN+9
FIND	DQ+10
HDR	FIND+9, LOOP+13, WRITE+6, WRITE+12
L	PTR+15
L1	LOOP+26
L2	L1+2, L2+6, L2+14
LOOP	PTR+16
LVL	PTR+12
PTR	FIND+19
QUE	EN+21
VAL	EN+13
WRITE	L2+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+3~, NOW+7
%H	NOW+3~
%I	NOW+3~
%ZIS	QUE+3~, QUE+4*
CNT	FIND+4~, FIND+12, FIND+19, PTR~, PTR+16, LOOP~, LOOP+12, LOOP+15, LVL+16~, LVL+20* , LVL+27, LVL+35, LVL+36, LVL+40, LVL+43, LVL+44, LVL+45
D	LOOP+10~
D(	L2+5*, L2+6, L2+7
DIC	FILE+3~, FILE+6*
DIC("?"	FILE+10*
DIC("A"	FILE+8*
DIC("B"	FILE+9*
DIC(0	FILE+7*
DIR	VAL+3~, HDR+3~, HDR+8!
DIR("?"	VAL+8*
DIR("A"	VAL+7*
DIR(0	VAL+6, HDR+6
DIRUT	VAL+3~, VAL+10, HDR+3~
DT	NOW+5
DTOUT	FILE+3~, FILE+12, VAL+3~, VAL+10, HDR+3~
DUOUT	FILE+3~, FILE+12, VAL+3~, VAL+10, HDR+3~
DUZ(2	LOOP+27
DUZ2	PTR+10~, LOOP+21, LOOP+22, LOOP+23, LOOP+25, LOOP+27*, WRITE+5, WRITE+8
FILE	EN+2~, EN+9, EN+10, EN+11, DQ+8, DQ+10, DQ+11!, FIND~, FIND+9, FIND+16 , FIND+18, FIND+19, PTR~, PTR+12, PTR+16, LOOP~, LOOP+13, L2+12, L2+13, WRITE~ , WRITE+6, WRITE+12, LVL~, FILE~, FILE+5, FILE+13*, HDR~, HDR+14
FLD	LVL+16~, LVL+30*, LVL+31, LVL+34
GBL	LOOP+10~, L2+4, L2+5, L2+9, L2+10
GBLD	LOOP+10~, LOOP+20, LOOP+22, LOOP+23, LOOP+25*
GR	PTR+10~, PTR+13, PTR+14, PTR+15, PTR+16, LOOP~, LOOP+16, LOOP+19, LOOP+20, LOOP+25 , L~, L+21, L+23, L+26*, L+27
I	DESC+14~, LVL+16~, LVL+38, LVL+39, LVL+40, LVL+41, HDR+3~, HDR+18
IO	QUE+3~
IO("Q"	QUE+7, QUE+8!
IOF	HDR+13
IOM	QUE+9, HDR+18
ION	QUE+9
IOSL	LOOP+13, WRITE+6, WRITE+12, QUE+9
IOST	QUE+9, HDR+5
L	PTR+10~, PTR+15, PTR+16, LOOP~, L1+1, L1+2, L2+2, L2+4, L2+5, L2+6* , L2+7, L2+8, L2+9, L2+13, WRITE~, L~, L+17, L+18, L+19, L+20 , L+24, L+25, L+26, L+27, L+28
L(	L1+2, L2+4, L2+6, L2+7, L2+8, L2+9, WRITE+11, WRITE+14, L+20, L+25 , L+26, L+27
L(0	LOOP+24, L2+9, L2+10, L+21, L+23*
LASTL	L+15~, L+28*
LVL	PTR+10~, PTR+12, PTR+15, LVL~, LVL+17!, L~
LVL(	PTR+13, LVL+35, LVL+36, LVL+39, LVL+40, LVL+41, LVL+44, LVL+45, L+18, L+19 , L+20
LVL(0	LVL+21, LVL+22, L+21
LVL(9999	PTR+13
N	LVL+16~, NP+5~, NP+7, NP+8, NP+9, NP+10
OUT	FIND+4~, FIND+7, FIND+9, FIND+10, FIND+16, FIND+18, FIND+19, PTR~, PTR+16, LOOP~ , LOOP+13, LOOP+14, LOOP+23, L1+2, L2+3, L2+13, WRITE~, WRITE+6, WRITE+7, WRITE+9 , WRITE+11, WRITE+12, WRITE+13, WRITE+15, HDR~, HDR+9, HDR+10
PAGE	FIND+4~, FIND+6, FIND+9, FIND+19, PTR~, PTR+16, LOOP~, LOOP+13, L2+13, WRITE~ , WRITE+6, WRITE+12, HDR~, HDR+5, HDR+12, HDR+16
PFILE	FIND+4~, FIND+15, FIND+16, FIND+18, FIND+19, PTR~, PTR+12, LVL~, LVL+21, LVL+23
PFLD	FIND+4~, FIND+17, FIND+18, FIND+19, PTR~, PTR+12, LVL~, LVL+21
POP	QUE+3~, QUE+6
PVAL	LOOP+10~, L2+10*, L2+11, L2+12, L2+13
SFILE	LVL+16~, LVL+23, LVL+25, LVL+28, LVL+29, LVL+30, LVL+32, LVL+33, LVL+35, LVL+37* , LVL+44
SS	LVL+16~, LVL+34*, LVL+35
>> TASK	QUE+11
TCNT	FIND+4~, FIND+13, FIND+19, FIND+21, PTR~, PTR+16, LOOP~, L2+13, WRITE~, WRITE+17
TITLE	EN+2~
TXT	PTR+10~, PTR+12, PTR+16, LOOP~, LOOP+15, LVL~, LVL+19, LVL+42, LVL+45*
U	PTR+13, LOOP+24, L2+4, L2+6, L2+7, L2+9, L2+10, L2+12, WRITE+14, LVL+21 , LVL+22, LVL+28, LVL+34, LVL+35, LVL+36, LVL+40, LVL+41, LVL+44, LVL+45, L+20 , L+21, L+23, L+26, L+27, HDR+14
UP	LVL+16~, LVL+24, LVL+25*, LVL+26, LVL+30, LVL+32, LVL+33, LVL+34, LVL+35, LVL+37
VAL	EN+2~, EN+13, EN+14, EN+15, DQ+9, DQ+10, DQ+11!, FIND~, FIND+9, FIND+19 , PTR~, PTR+16, LOOP~, LOOP+13, L2+11, WRITE~, WRITE+6, WRITE+12, WRITE+16, VAL~ , VAL+5, VAL+11*, HDR~, HDR+14
X	DESC+14~, WRITE+3~, WRITE+10, WRITE+11, WRITE+14, LVL+16~, LVL+28, LVL+29, LVL+35, LVL+41 , LVL+42, FILE+3~, VAL+3~, HDR+3~, NP~, NP+6, NOW+3~
Y	FILE+3~, FILE+12, FILE+13, VAL+3~, VAL+10, VAL+11, HDR+3~, HDR+9, NP+5~, NP+6* , NP+7, NP+10, NP+11, NOW+5, NOW+7
ZTDESC	EN+2~, EN+18*, EN+21, QUE~
ZTIO	QUE+3~, QUE+9*
ZTRTN	EN+2~, EN+17*, EN+21, QUE~, QUE+12
ZTSAVE	EN+2~, EN+21, QUE~
ZTSAVE("FILE"	EN+19*
ZTSAVE("VAL"	EN+20*
ZTSK	QUE+3~, QUE+11

Marked Items

Customize PDF page

Package: IHS Patient Merge

Routine: BPMPTR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items