Routine: RMPR5N3

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN
VA FileMan	3	(,DD)^%DT ^DIC ^DIR
Prosthetics	1	DIV4^RMPRSIT

Entry Points

Name	Comments	DBIA/ICR reference
EN
EN1
SEL
CONT
PRINT
WRI
TOTAL
HEAD
HEAD1
ALL	;process all items
EXIT
EXIT1
NONE

External References

Name	Field # of Occurrence
^%DT	RMPR5N3+4
DD^%DT	RMPR5N3+4
^%ZIS	CONT
HOME^%ZIS	EN
^%ZISC	EXIT1
^%ZTLOAD	CONT+2
^DIC	SEL
^DIR	WRI+11, HEAD1, EXIT
DIV4^RMPRSIT	RMPR5N3+3
KILL^XUSCLEAN	EXIT1+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Enter 'ALL' for all HCPCS or 'RETURN' to select individual HCPCS: " Variable: RMENTER Timeout: DTIME Line Location: EN1+0
Function Call: WRITE	Prompt: ! Line Location: SEL+0
Function Call: WRITE	Prompt: $C(7)," ??",?40,"..Duplicate HCPCS" Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Processing report......." Line Location: PRINT+0
Function Call: WRITE	Prompt: @IOF Line Location: WRI+11
Function Call: WRITE	Prompt: @IOF Line Location: WRI+12
Function Call: WRITE	Prompt: !,?71,"-------",!,?45,"Total ",RSA," balance = ",?71,$J(RMTOBAL,7),!,RMPR("L") Line Location: TOTAL+0
Function Call: WRITE	Prompt: !,"* PROSTHETICS INVENTORY BALANCE BY HCPCS *",?68,"PAGE: ",RMPAGE,!,"Run Date: ",RMDAT,?30,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,20) Line Location: HEAD+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,RMPR("L") Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,?54,"UNIT",?60,"RE-" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,?55,"OF",?59,"ORDER",?68,"AVG",?75,"CUR" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"HCPCS",?9,"ITEM",?29,"SRC",?33,"LOCATION",?42,"VENDOR",?53,"ISSUE",?59,"LEVEL",?68,"COST",?75,"BAL" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"-----",?9,"----",?29,"---",?33,"--------",?42,"------",?53,"-----",?59,"-----",?68,"----",?75,"---" Line Location: HEAD1+6
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: !!,"NO DATA !!!!!" Line Location: NONE+0
Routine Call	DIC Line Location: SEL
Routine Call	DIR Line Location: WRI+11 HEAD1 EXIT
Routine Call	%ZIS Line Location: CONT
Routine Call	%ZIS Line Location: EN

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	EN1+2
^DIC(4 - [#4]	HEAD
^PRC(440 - [#440]	WRI+6
^PRCD(420.5 - [#420.5]	WRI+5
^RMPR(661.1 - [#661.1]	SEL+1, PRINT+9, ALL+2
^RMPR(661.3 - [#661.3]	PRINT+5, PRINT+6, PRINT+7
^TMP($J	EN!, PRINT+1, PRINT+3, PRINT+4, PRINT+12, WRI+1, WRI+2, ALL+1!, ALL+2*

Label References

Name	Line Occurrences
ALL	PRINT+2
CONT	EN1+2
EN1	EN1+1
EXIT	CONT+2, PRINT+3, PRINT+14
EXIT1	EN1, SEL, CONT
HEAD	PRINT+14, WRI+11, WRI+12, HEAD1, HEAD1+1
HEAD1	WRI, WRI+11, WRI+12
NONE	PRINT+3
PRINT	CONT
TOTAL	PRINT+14, WRI+1
WRI	PRINT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	CONT*
>> DIC	EN*
>> DIC("A"	SEL*
>> DIC("S"	EN*
>> DIC(0	EN*
>> DIR(0	WRI+11, HEAD1, EXIT*
DTIME	EN1
>> DTOUT	EN1, SEL, WRI+11, HEAD1
>> DUOUT	EN1
>> I	ALL+2*
IO	CONT
IO("Q"	CONT, CONT+1!
IOF	PRINT+13, WRI+11, WRI+12, HEAD1, HEAD1+1
ION	CONT+1
IOP	CONT!
IOSL	WRI+11, WRI+12, HEAD1, HEAD1+1
IOST	PRINT, PRINT+13, WRI+11, HEAD1, HEAD1+1, EXIT
>> J	PRINT+5, PRINT+6, PRINT+7, WRI+1, WRI+2, WRI+4
>> K	WRI+1*, WRI+2, WRI+4
>> POP	CONT
>> R3	PRINT+5*, PRINT+6, PRINT+7
>> R4	PRINT+6*, PRINT+7
>> R63	PRINT+5*, PRINT+6
>> RB	PRINT+4*, PRINT+12
>> RM3	PRINT+7*, PRINT+8, PRINT+10, PRINT+11
>> RMAST	WRI+2, WRI+8, WRI+9
>> RMAV	PRINT+10, PRINT+12, WRI+3, WRI+9
>> RMBA	PRINT+11, PRINT+12, WRI+3, WRI+4, WRI+8, WRI+9
>> RMCO	PRINT+11, PRINT+12, WRI+3
>> RMDAIT	PRINT+8*, PRINT+9
>> RMDAT	RMPR5N3+4*, HEAD
>> RMDI	PRINT+10, PRINT+12, WRI+3
>> RMENTER	EN1, EN1+1, EN1+2
>> RMHCPC	PRINT+8*
>> RMI	SEL+1, SEL+2, SEL+3, ALL+2
>> RMIT	PRINT+8*
>> RMITEM	PRINT+9, PRINT+12, WRI+4, WRI+7*, WRI+9
>> RML	SEL, SEL+2
>> RMLIEN	PRINT+4*, PRINT+5, PRINT+9
>> RMLO	PRINT+5*, PRINT+12
>> RMLOC	WRI+4*, WRI+9
>> RMPAGE	PRINT+1, HEAD, HEAD+1
RMPR	EXIT1+1~
RMPR("L"	TOTAL, HEAD1+2
RMPR("STA"	PRINT+1
>> RMPREND	EN, PRINT+1, WRI+1, WRI+11, HEAD1, EXIT
RMPRFLG	EN!, WRI+1!, WRI+10, WRI+12!, HEAD1+7
RMPRI	EN!, CONT, PRINT+1
RMPRI(	SEL+2, SEL+3*
RMPRI(0	EN1+2*, PRINT+2, ALL+1!
RMPRSITE	EXIT1+1~
>> RMRLE	PRINT+10, PRINT+12, WRI+3, WRI+8, WRI+9
>> RMSO	PRINT+10, PRINT+12, WRI+3, WRI+9
>> RMSUF	PRINT+14, WRI, WRI+1, WRI+4, TOTAL+1*
>> RMTMP	WRI+2*, WRI+3
>> RMTOBAL	PRINT+1, WRI+4, TOTAL, TOTAL+1*
>> RMUNI	PRINT+10, PRINT+12, WRI+3, WRI+5*, WRI+9
>> RMVE	PRINT+11, PRINT+12, WRI+2, WRI+6*, WRI+9
>> RP	WRI, WRI+1, WRI+2, WRI+9
>> RS	PRINT+1*, PRINT+6, HEAD
>> RSA	WRI+1*, TOTAL
U	SEL+1, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+11, WRI+2, WRI+3, WRI+5 , WRI+6, HEAD, ALL+2
>> X	RMPR5N3+4, EN1+2, SEL
>> Y	RMPR5N3+3, RMPR5N3+4, EN1+2, SEL+1, SEL+3, WRI+11, HEAD1
>> ZTDESC	CONT+1*
>> ZTIO	CONT+1*
>> ZTRTN	CONT+1*
>> ZTSAVE("RMDAT"	CONT+1*
>> ZTSAVE("RMPR("	CONT+1*
>> ZTSAVE("RMPR(""STA"")"	CONT+1*
>> ZTSAVE("RMPRI("	CONT+1*
>> ZTSK	CONT+2

Customize PDF page

Package: Prosthetics

Routine: RMPR5N3

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: