Routine: RMPRPIQ4

Package	Total	Call Graph
Prosthetics	3	^RMPRN62 REPORT^RMPRPIQ5 DIV4^RMPRSIT
VA FileMan	3	^%DT ^DIC ^DIR
Kernel	2	^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Prosthetics	4	RMPR INV ON HND GROUP/LINE RMPR INV ON HND HCPCS RMPR INV ON HND ITEM RMPR INV ON HND SUM

Name	Field # of Occurrence
^%DT	STDT+5, ENDT1+3
^%ZIS	REPDEV1+1
^%ZTLOAD	EDDEV+10
^DIC	HCPC1+1
^DIR	LEV+5, NPGRP+9, NPLIN1A+3, HCPCTY+5
^RMPRN62	NPLINC+3, NPLINH+5, SETLIN+3
REPORT^RMPRPIQ5	EDDEV+2
DIV4^RMPRSIT	STN+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ending date should not precede start date",! Line Location: ENDT1+6
Function Call: WRITE	Prompt: ! Line Location: NPGRP+2
Function Call: WRITE	Prompt: !,$J(RMPRCNT,2)_". "_$P($P(RMPRGLST,";",RMPRCNT),":",2) Line Location: NPGRP+4
Function Call: WRITE	Prompt: !,"NPPD Lines for Group: ",RMPRGRP," - ",RMPRGRPA(RMPRGRP),! Line Location: NPLINH+2
Function Call: WRITE	Prompt: !,$J(TO,2),". ",$P(S,";",1)_" "_$P(S,";",2) Line Location: NPLINH+7
Function Call: WRITE	Prompt: !,"You need at least 132 columns for this report.",!,"Please use a device capable of this requirement.",! Line Location: REPDEV1+2
Routine Call	DIC Line Location: HCPC1+1
Routine Call	DIR Line Location: LEV+5 NPGRP+9 NPLIN1A+3 HCPCTY+5
Routine Call	%ZIS Line Location: REPDEV1+1

FileNo	Call Tags
^RMPR(661.1 - [#661.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(669.9 - [#669.9]	STN+5

Name	Line Occurrences
$$ENDT	START+21
$$HCPC	EDHCPC+6
$$HCPCTY	EDHCPC
$$LEV	START+23
$$NPGRP	EDGRP, EDHCPC+4, NPLIN1C
$$NPLIN	EDLIN, EDHCPC+5
$$REPDEV	EDDEV
$$STDT	START+19
$$STN	START+17
EDDEV	START+25, EDGRP+2, EDLINX, EDHCPC+2, EDHCPC+3, EDHCPC+4, EDHCPC+5, EDHCPC+7
EDHCPC	START+27
EDLIN	START+26
EDX	START+18, START+20, START+22, START+24, EDGRP+1, EDLIN+1, EDHCPC+1, EDDEV+1, EDDEV+2
ENDT1	ENDT1+6
ENDT1X	ENDT1+4
GRPARY	START+15
GRPLST	START+14, GRPARY+3
HCPC1	HCPC1+9
HCPCTYX	HCPCTY+6, HCPCTY+7, HCPCTY+8
HCPCX	HCPC1+2, HCPC1+3, HCPC1+4
LEVX	LEV+6, LEV+7
NPGRPX	NPGRP+10, NPGRP+11, NPGRP+12
NPLIN1X	NPLIN1C+1, NPLIN1C+2, NPLIN1C+4, NPLIN1A+4, NPLIN1A+5, NPLIN1A+6
NPLINC	NPLIN1A+15
NPLINH	NPLIN1A
REPDEV1	REPDEV1+2
REPDEVX	REPDEV1+1
SETLIN	START+16
START	EN1+1, EN2+1, EN3+1, EN4+1

Name	Field # of Occurrence
%DT	STDT+1~, STDT+4, ENDT+1~, ENDT1+2
%DT("A"	STDT+2, ENDT1
%DT(0	STDT+3, ENDT1+1
%ZIS	REPDEV+1~, REPDEV1+1*
ARRAY	GRPARY~, GRPARY+2!
ARRAY(	GRPARY+4*
DA	STN+1~, NPGRP+1~, NPLIN+1~, HCPCTY+1~, HCPC+1~
DIC	STN+1~, HCPC+1~, HCPC+2*
DIC("A"	HCPC1*
DIC(0	HCPC+2*
DIR	LEV+1~, NPGRP+1~, NPLIN+1~, HCPCTY+1~
DIR("A"	LEV+4, NPGRP+7, NPLIN1A+2, HCPCTY+4
DIR("B"	HCPCTY+2*
DIR(0	LEV+3, NPGRP+6, NPGRP+8, NPLIN+2, NPLIN1A+1, HCPCTY+3
DT	START+4, STDT+3, ENDT1+1
>> DTOUT	LEV+6, NPGRP+10, NPLIN1A+4, HCPCTY+6, HCPC1+2
>> DUOUT	HCPC1+3
FR	NPLINH+1~, NPLINH+3, NPLINH+9
HLPPG	SETLIN+1~, SETLIN+2, SETLIN+5, SETLIN+6, SETLIN+7, SETLIN+8
I	NPLINH+1~, SETLIN+1~, SETLIN+3, SETLIN+6, SETLIN+8, GRPARY+1~, GRPARY+4
INP	NPLINC~, NPLINC+2
IO("Q"	EDDEV+2, EDDEV+3!
IOM	REPDEV1+2
ION	EDDEV+4
IOP	REPDEV+1~, REPDEV1+1!
LINCD	NPLINH+1~, NPLINH+5, NPLINH+8, SETLIN+1~, SETLIN+4, SETLIN+5
LINCD0	SETLIN+1~, SETLIN+2, SETLIN+3, SETLIN+6, SETLIN+7, SETLIN+8*
LINX	SETLIN~
LINX(	SETLIN+6, SETLIN+8
LIST	GRPLST~, GRPLST+1, GRPLST+2, GRPLST+3, GRPLST+4, GRPLST+5, GRPLST+6, GRPLST+7, GRPLST+8, GRPLST+9* , GRPLST+10, GRPLST+11, GRPLST+12, GRPLST+13, GRPLST+14, GRPLST+15, GRPARY+1~, GRPARY+3, GRPARY+4
OFFS	NPLINC+1~, NPLINC+2*
POP	REPDEV+1~, REPDEV1+1
RMPR	START+1~, START+17, STN~
RMPRCNT	NPGRP+1~, NPGRP+3*, NPGRP+4, NPGRP+8, NPGRP+17
RMPRDET	START+5~, START+23, START+25, START+26, START+27, EN1~, EN2~, EN3~, EN4~, LEV~ , LEV+2, LEV+8*
RMPRDEV	REPDEV~
RMPREDT	START~, START+4, START+21, ENDT~, ENDT1+5, ENDT1+6
RMPREXC	START~, START+9!, START+17, START+18, START+19, START+20, START+21, START+22, START+23, START+24 , EDGRP, EDGRP+1, EDLIN, EDLIN+1, EDHCPC, EDHCPC+1, EDHCPC+4, EDHCPC+5, EDHCPC+6, EDDEV* , EDDEV+1, NPLIN+1~, NPLIN1C*, NPLIN1C+1
RMPRGLST	START~, START+14, NPGRP+3, NPGRP+4, NPGRP+23
RMPRGRP	NPGRP+1~, NPGRP+23, NPGRP+24, NPGRP+25, NPLIN+1~, NPLIN1C+5, NPLIN1A, NPLIN1A+10, NPLIN1A+11, NPLIN1A+15 , NPLIN1A+16, NPLIN1A+17, NPLINC~, NPLINC+2, NPLINH~, NPLINH+2, NPLINH+3, NPLINH+5, NPLINH+8
RMPRGRPA	START+1~, START+15
RMPRGRPA(	NPLINH+2
RMPRHCN	START+1~, START+8*, EDHCPC+6
RMPRHPG	NPLIN+1~, NPLIN1A, NPLIN1A+1, NPLIN1A+9
RMPRHTY	START~, START+6, EDHCPC, EDHCPC+2, EDHCPC+3, EDHCPC+4, EDHCPC+5, HCPCTY~, HCPCTY+8, HCPCTY+9*
RMPRI	START+1~, NPGRP+1~, NPGRP+15, NPGRP+16, NPGRP+17, NPGRP+20, NPGRP+22, NPGRP+23, NPLIN+1~, NPLIN1C+3 , NPLIN1C+4, NPLIN1A+7, NPLIN1A+8, NPLIN1A+9, NPLIN1A+12*, NPLIN1A+14, NPLIN1A+15
RMPRJ	START+1~, NPGRP+1~, NPGRP+22, NPGRP+23, NPLIN+1~, NPLIN1C+3, NPLIN1A+14*, NPLIN1A+15
RMPRLCN	START+1~, START+7*
RMPRLIN	NPLIN+1~, NPLIN1A+15, NPLIN1A+16, NPLIN1A+17, NPLINC~, NPLINC+4, HCPC+1~, HCPC1+5, HCPC1+6*, HCPC1+7
RMPRLINX	START~, START+16
RMPRLINX(	NPLINC+2, NPLINH+3
RMPRSCN	HCPC~, HCPC1, HCPC1+8*
RMPRSDT	START~, START+3, START+19, START+21, STDT~, STDT+7, ENDT~, ENDT1+6
RMPRSEL	START~, START+10!, START+25!, EDGRP, EDLIN, EDHCPC+3!, EDHCPC+4, EDHCPC+5, EDHCPC+6, NPGRP~ , NPGRP+6, NPGRP+18!, NPLIN~, NPLIN+2, NPLIN1C, NPLIN1C+5!, HCPC~
RMPRSEL(	NPGRP+24!, NPGRP+25, NPLIN1C+3, NPLIN1A+10!, NPLIN1A+11, NPLIN1A+16!, NPLIN1A+17, NPLINH+8, HCPC1+7
RMPRSEL(""	NPLIN1C+2, NPLIN1C+5
RMPRSEL("*"	START+25, EDHCPC+3, NPGRP+19*
>> RMPRSITE	STN+5
RMPRVISN	START+1~, START+17, STN~, STN+2, STN+5
S	NPLINC+1~, NPLINC+3, NPLINC+4, NPLINH+1~, NPLINH+5, NPLINH+7, SETLIN+1~, SETLIN+3*, SETLIN+4
TO	NPLINH~, NPLINH+4, NPLINH+6, NPLINH+7
U	NPGRP+8, NPLIN1A+1, HCPC1+5, HCPC1+7
X	STN+1~, STN+4, STN+5, STN+6, LEV+1~, LEV+6, LEV+7, LEVX, STDT+1~, STDT+6* , STDT+8, ENDT+1~, ENDT1+4, ENDT1X, NPGRP+1~, NPGRP+10, NPGRP+11, NPGRP+12, NPGRPX, NPLIN+1~ , NPLIN1C+1, NPLIN1C+2, NPLIN1C+4, NPLIN1A+4, NPLIN1A+5, NPLIN1A+6, NPLIN1A+20, NPLIN1X, HCPCTY+1~, HCPCTY+6 , HCPCTY+7, HCPCTY+8, HCPCTYX, HCPC+1~, HCPC1+2, HCPC1+3, HCPC1+4, HCPCX, REPDEV+1~, REPDEV1 , REPDEV1+1*, REPDEVX
Y	STN+1~, LEV+1~, LEV+6, LEV+7, LEV+8, STDT+1~, STDT+6, STDT+7, ENDT+1~, ENDT1+4 , ENDT1+5, NPGRP+1~, NPGRP+10, NPGRP+11, NPGRP+12, NPLIN+1~, NPLIN1A+4, NPLIN1A+5, NPLIN1A+6, HCPCTY+1~ , HCPCTY+6, HCPCTY+7, HCPCTY+9, HCPC+1~, HCPC1+7, REPDEV+1~
Y(	NPGRP+16, NPGRP+17, NPGRP+22, NPGRP+23, NPLIN1A+8, NPLIN1A+9, NPLIN1A+14, NPLIN1A+15
Y(0	HCPC1+5
>> ZTDESC	EDDEV+4*
>> ZTIO	EDDEV+4*
>> ZTRTN	EDDEV+4*
>> ZTSAVE("RMPR(""STA"")"	EDDEV+9*
>> ZTSAVE("RMPRDET"	EDDEV+7*
>> ZTSAVE("RMPREDT"	EDDEV+6*
>> ZTSAVE("RMPRSDT"	EDDEV+5*
>> ZTSAVE("RMPRSEL("	EDDEV+8*
>> ZTSK	EDDEV+11

Name

Field # of Occurrence

%DT

STDT+1~, STDT+4*, ENDT+1~, ENDT1+2*

%DT("A"

STDT+2*, ENDT1*

%DT(0

STDT+3*, ENDT1+1*

%ZIS

REPDEV+1~, REPDEV1+1*

ARRAY

GRPARY~, GRPARY+2!

ARRAY(

GRPARY+4*

DA

STN+1~, NPGRP+1~, NPLIN+1~, HCPCTY+1~, HCPC+1~

DIC

STN+1~, HCPC+1~, HCPC+2*

DIC("A"

HCPC1*

DIC(0

HCPC+2*

DIR

LEV+1~, NPGRP+1~, NPLIN+1~, HCPCTY+1~

DIR("A"

LEV+4*, NPGRP+7*, NPLIN1A+2*, HCPCTY+4*

DIR("B"

HCPCTY+2*

DIR(0

LEV+3*, NPGRP+6*, NPGRP+8*, NPLIN+2*, NPLIN1A+1*, HCPCTY+3*

DT

START+4, STDT+3, ENDT1+1

>> DTOUT

LEV+6, NPGRP+10, NPLIN1A+4, HCPCTY+6, HCPC1+2

>> DUOUT

HCPC1+3

FR

NPLINH+1~, NPLINH+3*, NPLINH+9*

HLPPG

SETLIN+1~, SETLIN+2*, SETLIN+5*, SETLIN+6, SETLIN+7, SETLIN+8

I

NPLINH+1~, SETLIN+1~, SETLIN+3*, SETLIN+6, SETLIN+8, GRPARY+1~, GRPARY+4*

INP

NPLINC~, NPLINC+2

IO("Q"

EDDEV+2, EDDEV+3!

IOM

REPDEV1+2

ION

EDDEV+4

IOP

REPDEV+1~, REPDEV1+1!

LINCD

NPLINH+1~, NPLINH+5*, NPLINH+8, SETLIN+1~, SETLIN+4*, SETLIN+5

LINCD0

SETLIN+1~, SETLIN+2*, SETLIN+3, SETLIN+6*, SETLIN+7, SETLIN+8*

LINX

SETLIN~

LINX(

SETLIN+6*, SETLIN+8*

LIST

GRPLST~, GRPLST+1*, GRPLST+2*, GRPLST+3*, GRPLST+4*, GRPLST+5*, GRPLST+6*, GRPLST+7*, GRPLST+8*, GRPLST+9*
, GRPLST+10*, GRPLST+11*, GRPLST+12*, GRPLST+13*, GRPLST+14*, GRPLST+15*, GRPARY+1~, GRPARY+3, GRPARY+4

OFFS

NPLINC+1~, NPLINC+2*

POP

REPDEV+1~, REPDEV1+1

RMPR

START+1~, START+17, STN~

RMPRCNT

NPGRP+1~, NPGRP+3*, NPGRP+4, NPGRP+8, NPGRP+17

RMPRDET

START+5~*, START+23, START+25, START+26, START+27, EN1~*, EN2~*, EN3~*, EN4~*, LEV~
, LEV+2*, LEV+8*

RMPRDEV

REPDEV~

RMPREDT

START~, START+4*, START+21, ENDT~, ENDT1+5*, ENDT1+6

RMPREXC

START~, START+9!, START+17*, START+18, START+19*, START+20, START+21*, START+22, START+23*, START+24
, EDGRP*, EDGRP+1, EDLIN*, EDLIN+1, EDHCPC*, EDHCPC+1, EDHCPC+4*, EDHCPC+5*, EDHCPC+6*, EDDEV*
, EDDEV+1, NPLIN+1~, NPLIN1C*, NPLIN1C+1

RMPRGLST

START~, START+14, NPGRP+3, NPGRP+4, NPGRP+23

RMPRGRP

NPGRP+1~, NPGRP+23*, NPGRP+24, NPGRP+25, NPLIN+1~, NPLIN1C+5*, NPLIN1A, NPLIN1A+10, NPLIN1A+11, NPLIN1A+15
, NPLIN1A+16, NPLIN1A+17, NPLINC~, NPLINC+2, NPLINH~, NPLINH+2, NPLINH+3, NPLINH+5, NPLINH+8

RMPRGRPA

START+1~, START+15

RMPRGRPA(

NPLINH+2

RMPRHCN

START+1~, START+8*, EDHCPC+6

RMPRHPG

NPLIN+1~, NPLIN1A, NPLIN1A+1, NPLIN1A+9

RMPRHTY

START~, START+6*, EDHCPC, EDHCPC+2, EDHCPC+3, EDHCPC+4, EDHCPC+5, HCPCTY~, HCPCTY+8*, HCPCTY+9*

RMPRI

START+1~, NPGRP+1~, NPGRP+15*, NPGRP+16*, NPGRP+17, NPGRP+20*, NPGRP+22, NPGRP+23, NPLIN+1~, NPLIN1C+3*
, NPLIN1C+4, NPLIN1A+7*, NPLIN1A+8*, NPLIN1A+9, NPLIN1A+12*, NPLIN1A+14, NPLIN1A+15

RMPRJ

START+1~, NPGRP+1~, NPGRP+22*, NPGRP+23, NPLIN+1~, NPLIN1C+3*, NPLIN1A+14*, NPLIN1A+15

RMPRLCN

START+1~, START+7*

RMPRLIN

NPLIN+1~, NPLIN1A+15, NPLIN1A+16, NPLIN1A+17, NPLINC~, NPLINC+4*, HCPC+1~, HCPC1+5*, HCPC1+6*, HCPC1+7

RMPRLINX

START~, START+16

RMPRLINX(

NPLINC+2, NPLINH+3

RMPRSCN

HCPC~, HCPC1, HCPC1+8*

RMPRSDT

START~, START+3*, START+19, START+21, STDT~, STDT+7*, ENDT~, ENDT1+6

RMPRSEL

START~, START+10!, START+25!, EDGRP, EDLIN, EDHCPC+3!, EDHCPC+4, EDHCPC+5, EDHCPC+6, NPGRP~
, NPGRP+6, NPGRP+18!, NPLIN~, NPLIN+2, NPLIN1C, NPLIN1C+5!, HCPC~

RMPRSEL(

NPGRP+24!, NPGRP+25*, NPLIN1C+3, NPLIN1A+10!, NPLIN1A+11*, NPLIN1A+16!, NPLIN1A+17*, NPLINH+8, HCPC1+7*

RMPRSEL(""

NPLIN1C+2, NPLIN1C+5

RMPRSEL("*"

START+25*, EDHCPC+3*, NPGRP+19*

>> RMPRSITE

STN+5

RMPRVISN

START+1~, START+17, STN~, STN+2*, STN+5*

S

NPLINC+1~, NPLINC+3*, NPLINC+4, NPLINH+1~, NPLINH+5*, NPLINH+7, SETLIN+1~, SETLIN+3*, SETLIN+4

TO

NPLINH~, NPLINH+4*, NPLINH+6*, NPLINH+7

U

NPGRP+8, NPLIN1A+1, HCPC1+5, HCPC1+7

X

STN+1~, STN+4*, STN+5*, STN+6, LEV+1~, LEV+6*, LEV+7*, LEVX, STDT+1~, STDT+6*
, STDT+8, ENDT+1~, ENDT1+4*, ENDT1X, NPGRP+1~, NPGRP+10*, NPGRP+11*, NPGRP+12*, NPGRPX, NPLIN+1~
, NPLIN1C+1*, NPLIN1C+2*, NPLIN1C+4*, NPLIN1A+4*, NPLIN1A+5*, NPLIN1A+6*, NPLIN1A+20*, NPLIN1X, HCPCTY+1~, HCPCTY+6*
, HCPCTY+7*, HCPCTY+8, HCPCTYX, HCPC+1~, HCPC1+2*, HCPC1+3*, HCPC1+4, HCPCX, REPDEV+1~, REPDEV1*
, REPDEV1+1*, REPDEVX

Y

STN+1~, LEV+1~, LEV+6, LEV+7, LEV+8, STDT+1~, STDT+6, STDT+7, ENDT+1~, ENDT1+4
, ENDT1+5, NPGRP+1~, NPGRP+10, NPGRP+11, NPGRP+12, NPLIN+1~, NPLIN1A+4, NPLIN1A+5, NPLIN1A+6, HCPCTY+1~
, HCPCTY+6, HCPCTY+7, HCPCTY+9, HCPC+1~, HCPC1+7, REPDEV+1~

Y(

NPGRP+16, NPGRP+17, NPGRP+22, NPGRP+23, NPLIN1A+8, NPLIN1A+9, NPLIN1A+14, NPLIN1A+15

Y(0

HCPC1+5

>> ZTDESC

EDDEV+4*

>> ZTIO

EDDEV+4*

>> ZTRTN

EDDEV+4*

>> ZTSAVE("RMPR(""STA"")"

EDDEV+9*

>> ZTSAVE("RMPRDET"

EDDEV+7*

>> ZTSAVE("RMPREDT"

EDDEV+6*

>> ZTSAVE("RMPRSDT"

EDDEV+5*

>> ZTSAVE("RMPRSEL("

EDDEV+8*

>> ZTSK

EDDEV+11

Customize PDF page

Package: Prosthetics

Routine: RMPRPIQ4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
START
EDGRP
EDLIN
EDLINX
EDHCPC
EDDEV
EDX
STN(RMPR,RMPRVISN)	;
EN1
EN2
EN3
EN4
LEV(RMPRDET)	;
LEVX
STDT(RMPRSDT)	; RMPRSDT is start date in FM internal form
ENDT(RMPREDT,RMPRSDT)	; RMPREDT is end date in FM internal form
ENDT1
ENDT1X
NPGRP(RMPRSEL)	;
NPGRPX
NPLIN(RMPRSEL)	;
NPLIN1C
NPLIN1A
NPLIN1X
NPLINC(RMPRGRP,INP,RMPRLIN)	;
NPLINH(RMPRGRP,TO)	;
HCPCTY(RMPRHTY)	;
HCPCTYX
HCPC(RMPRSEL,RMPRSCN)	;
HCPC1
HCPCX
REPDEV(RMPRDEV)	;
REPDEV1
REPDEVX
SETLIN(LINX)	;
GRPLST(LIST)	;
GRPARY(ARRAY)	;

Name	Field # of Occurrence
$T(DES+FR^RMPRN62	NPLINH+5
$T(DES+I^RMPRN62	SETLIN+3
$T(DES+OFFS^RMPRN62	NPLINC+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed