Routine: RMPRPIYO

Information

RMPRPIYO ;HIN/RVD-PROS INVENTORY ORDER/RE-ORDER ;5/7/01

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	(,DD)^%DT EN^DDIOL ^DIC UPDATE^DIE ^DIR
Prosthetics	3	$$GET^RMPRPIX1 $$CRE^RMPRPIX6 DIV4^RMPRSIT
Kernel	1	KILL^XUSCLEAN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Prosthetics	1	RMPR INV ORDER

Entry Points

Name	Comments	DBIA/ICR reference
HCPC	;ask for HCPCS
VEN	;order item from vendor.
ORDER	;order QUANTITY from vendor or supply.
COM	;comments
SET6	;set-up 661.6 data
UP6	;create file 661.6
UPD	;update file 661.41
OKADD(RMPR11,RMPRYN,RMPREXC)	;
ADDNMX
LIKE(RMPRSTN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11)	;
LIKEA1
LIKEA
LIKEB
LIKEX
LKP	;print a message if PSAS HCPCS not in PIP or invalid HCPCS.
EXIT	;MAIN EXIT POINT

External References

Name	Field # of Occurrence
^%DT	RMPRPIYO+3
DD^%DT	RMPRPIYO+3
EN^DDIOL	LKP+5
^DIC	HCPC+8
UPDATE^DIE	UPD+15
^DIR	VEN+1, ORDER+1, COM+1, OKADD+4, LIKEB+2
$$GET^RMPRPIX1	LIKEB+8
$$CRE^RMPRPIX6	UP6+1
DIV4^RMPRSIT	RMPRPIYO+2
KILL^XUSCLEAN	EXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RMPRPIYO+5
Function Call: WRITE	Prompt: !!,"Ordering ITEM from Supply or Vendor....",! Line Location: RMPRPIYO+7
Function Call: WRITE	Prompt: ! Line Location: HCPC+8
Function Call: WRITE	Prompt: !,"*** Item was not ordered...." Line Location: VEN+2
Function Call: WRITE	Prompt: $C(7),!,"Enter Vendor from the Vendor file.." Line Location: VEN+3
Function Call: WRITE	Prompt: !,"*** Item was not ordered...." Line Location: ORDER+2
Function Call: WRITE	Prompt: $C(7),!,"Enter quantity 1 to 99999.." Line Location: ORDER+3
Function Call: WRITE	Prompt: !,"*** Error in file 661.6 update!!!",! Line Location: UP6+2
Function Call: WRITE	Prompt: !,"*** Error in file 661.41 update!!!",! Line Location: UPD+17
Function Call: WRITE	Prompt: !,"*** Item was ordered...." Line Location: UPD+18
Function Call: WRITE	Prompt: !?5,1,?9,$P(^RMPR(661.11,RMPRA(1),0),"^",2) Line Location: LIKE+7
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5) Line Location: LIKEA+9
Function Call: WRITE	Prompt: ! Line Location: LIKEB+2
Routine Call	DIC Line Location: HCPC+8
Routine Call	DIE Line Location: UPD+15
Routine Call	DIR Line Location: VEN+1 ORDER+1 COM+1 OKADD+4 LIKEB+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(661.1 - [#661.1]	HCPC+11, LKP+5
^RMPR(661.11 - [#661.11]	HCPC+9, HCPC+10, LIKE+5, LIKE+6, LIKE+7
^RMPR(661.41 - [#661.41]	UPD+4, UPD+16
^RMPR(661.7 - [#661.7]	LKP+4

Label References

Name	Line Occurrences
ADDNMX	OKADD+5, OKADD+6, OKADD+7
EXIT	HCPC+8
HCPC	VEN+2, ORDER+2, COM+2, UP6+2, UPD+19
LIKEA	LIKE+5, LIKEA+12
LIKEB	LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6, LIKEA+7, LIKEA+11
LIKEX	LIKEB, LIKEB+3, LIKEB+4, LIKEB+5, LIKEB+6
ORDER	ORDER+3
VEN	VEN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	LIKE+1~
DIC	HCPC+2!, HCPC+5*
DIC("A"	HCPC+3*
DIC("B"	RMPRPIYO+2!
DIC("S"	HCPC+6*
DIC("W"	HCPC+7*
DIC(0	HCPC+5*
>> DIE	UPD+6*
DIR	VEN+1!, VEN+4!, ORDER+1!, ORDER+4!, COM+1!, OKADD+1~, LIKE+1~
DIR("A"	VEN+1, ORDER+1, COM+1, OKADD+3, LIKEB+1*
DIR(0	VEN+1, ORDER+1, COM+1, OKADD+2, LIKEB+1*
DIROUT	OKADD+1~, OKADD+6, LIKE+1~, LIKEB+4
DIRUT	OKADD+1~, LIKE+1~
DT	UPD+7
DTOUT	HCPC+2!, HCPC+8, VEN+2, ORDER+2, COM+2, OKADD+1~, OKADD+5, LIKE+1~, LIKEB+3
DUOUT	HCPC+2!, HCPC+8, VEN+2, ORDER+2, COM+2, OKADD+1~, LIKE+1~, LIKEB+6
DUZ	SET6+4
IOF	RMPRPIYO+5
>> RMCOM	COM+3*, UPD+13
>> RMDAT	RMPRPIYO+3*
>> RMDAT(	UPD+7, UPD+8, UPD+9, UPD+10, UPD+11, UPD+12, UPD+13, UPD+14
RMERR	UP6+1*, UP6+2, UPD+5!, UPD+15
RMERROR	UPD+5!, UPD+15*, UPD+17, UPD+18
>> RMF	HCPC+1*, LKP+1
>> RMHCDA	HCPC+11*
>> RMHCPC	HCPC+9*, HCPC+11, HCPC+12
>> RMIDA	HCPC+10*, HCPC+13
>> RMORDER	ORDER+4*, UPD+12
RMPR	EXIT+1~
RMPR("STA"	HCPC+14, UPD+4, UPD+9, UPD+16, LIKE+6, LIKEA+5, LKP+4
RMPR11	UP6+1, OKADD~, LIKE~, LIKEB+7!, LIKEB+8
RMPR11("DESCRIPTION"	OKADD+3
RMPR11("HCPCS"	HCPC+12*, UPD+4, UPD+11, UPD+16
RMPR11("IEN"	LIKEB+8*
RMPR11("ITEM"	HCPC+13*, UPD+4, UPD+8, UPD+16
RMPR11("STATION"	HCPC+14*
>> RMPR6	UP6+1
>> RMPR6("COMMENT"	COM+3*
>> RMPR6("LOCATION"	SET6+3*
>> RMPR6("QUANTITY"	ORDER+4*
>> RMPR6("TRAN T	YPE" , SET6+2*
>> RMPR6("USER"	SET6+4*
>> RMPR6("VALUE"	SET6+5*
>> RMPR6("VENDOR"	SET6+1*
RMPRA	LIKE+1~, LIKEA1!
RMPRA(	LIKEA+10*, LIKEB+8
RMPRA(1	LIKE+6*, LIKE+7
RMPRERR	LIKE+2~, LIKEB+8*
RMPREXC	OKADD~, OKADD+2, OKADD+5, OKADD+6, OKADD+7, OKADD+9, LIKE~, LIKE+3, LIKEB+3, LIKEB+4 , LIKEB+5, LIKEB+6
RMPRGBL	LIKE+1~, LIKE+4, LIKEA, LIKEA+2, LIKEA+3, LIKEA+4, LIKEA+5, LIKEA+6, LIKEA+7, LIKEA+9 , LIKEA+10
RMPRHCPC	LIKE~, LIKE+4, LIKE+5, LIKE+6, LIKEA+6
RMPRLIN	LIKE+1~, LIKEA1, LIKEA+1, LIKEA+8*, LIKEA+9, LIKEA+10, LIKEA+11, LIKEB, LIKEB+1
RMPRMAX	LIKE+1~, LIKE+3*, LIKEA+11
RMPRN	LIKE+2~
RMPRSITE	EXIT+1~
RMPRSTN	LIKE~, LIKE+4, LIKE+5
RMPRTXT	LIKE~, LIKE+4, LIKE+5, LIKE+6, LIKEA+7
RMPRYN	OKADD~, OKADD+8*
>> RMVEN	VEN+4*, SET6+1, UPD+10
RX	LKP+3!, LKP+4*, LKP+5, LKP+6!
U	HCPC+9, HCPC+10
X	RMPRPIYO+3, VEN+3, ORDER+3, OKADD+1~, OKADD+7, LIKE+1~, LIKEB+5, LIKEB+6, LIKEB+8, LKP+1 , LKP+2, LKP+4, LKP+5
Y	RMPRPIYO+2, RMPRPIYO+3, HCPC+8, HCPC+9, HCPC+10, VEN+1!, VEN+4!, ORDER+1!, ORDER+4!, COM+1! , COM+3, OKADD+1~, OKADD+8, LIKE+1~

Customize PDF page

Package: Prosthetics

Routine: RMPRPIYO

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

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: