Routine: RMPRSTL

Package	Total	Call Graph
VA FileMan	5	DD^%DT FILE^DICN IX1^DIK $$GET1^DIQ ^DIR
Prosthetics	4	ADD^RMPR5NU1 CHK^RMPRED5 ^RMPRST2 ($$ASK,1,RES)^RMPRSTK
Kernel	2	$$STRIP^XLFSTR KILL^XUSCLEAN
IFCAP	1	^PRCPUSA

Package	Total	Caller Graph
Prosthetics	1	RMPRSTK

Entry Points

Name	Comments	DBIA/ICR reference
NEX
QTY
DATE	;K DIR,Y S DIR(0)="660,10" S:$P(R3("D"),U,12)'="" DIR("B")=$P(R3("D"),U,12) D ^DIR K DIR G:X["^" LIST I $D(DTOUT) X CK1 Q
LI
LOT
REMA
LIST	;ENTRY POINT FOR STOCK ISSUE ROUTINES TO DISPLAY TRANSACTION DATA
DEA
POST	;
GGC
EXIT	;EXIT FOR STOCK ISSUES
ERR1	;
ERR
INV1
POU(INVPIEN)	; Return true if POU, false otherwise ; DBIA 6374 to read IFCAP GIP files

External References

Name	Field # of Occurrence
DD^%DT	DATE+2
FILE^DICN	GGC+7
IX1^DIK	GGC+16
$$GET1^DIQ	POU+17
^DIR	NEX+9, QTY, LI, LOT, REMA, LIST+4, DEA+1
^PRCPUSA	POST+2
ADD^RMPR5NU1	GGC+3
CHK^RMPRED5	LIST+2
^RMPRST2	LIST+3
$$ASK^RMPRSTK	POST+1
1^RMPRSTK	DEA+2
RES^RMPRSTK	DEA+1, POST+1, GGC+7, GGC+17
$$STRIP^XLFSTR	NEX+6
KILL^XUSCLEAN	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?17,"??" Line Location: DATE+1
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: LI+2
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: LI+3
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: LOT+2
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: LOT+3
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: REMA+2
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: REMA+3
Function Call: WRITE	Prompt: $C(7),?50,"Deleted..." Line Location: DEA+1
Function Call: WRITE	Prompt: !,"** Error posting to 2319...entry deleted..." Line Location: GGC+7
Function Call: WRITE	Prompt: !!,"Error encountered while posting to GIP. Inventory Issue did not post" Line Location: ERR1+1
Function Call: WRITE	Prompt: !,"Patient 10-2319 not updated!! Please check with your Application Coordinator." Line Location: ERR1+2
Function Call: WRITE	Prompt: !,"PLEASE EDIT GIP IN YOUR SITE PARAMETER FILE!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,$S(Y=0:"NON-",1:""),"POU" Line Location: POU+11
Function Call: WRITE	Prompt: !,"Point of Use Automated Supply: ",SSPRONAM Line Location: POU+20
Routine Call	DIR Line Location: NEX+9 QTY LI LOT REMA LIST+4 DEA+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCP(445 - [#445]	GET1^DIQ
^RMPR(660 - [#660]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	NEX+4, NEX+5, NEX+6
^RMPR(660 - [#660]	GGC+8, GGC+15
^RMPR(661.1 - [#661.1]	GGC+3, GGC+15
^RMPR(661.3 - [#661.3]	NEX+8
^RMPR(669.9 - [#669.9]	POST+5, POST+6*
^TMP($J	GGC+13*, EXIT+1!

Label References

Name	Line Occurrences
$$POU	POST+1
DEA	LIST+4
ERR1	POST+1
EXIT	ERR
GGC	POST+4, POST+5
INV1	NEX
LI	LI+2
LIST	NEX+9, QTY, LI+1, LOT+1, REMA+1, REMA+3, DEA+3
LOT	LI+3, LOT+2
POST	LIST+4
QTY	NEX+8, INV1+1
REMA	LOT+3, REMA+2

Naked Globals

Name	Field # of Occurrence
^("AM"	GGC+8*
^("AMS"	GGC+8*
^(0	NEX+6
^(1	GGC+8*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	POST+1~*
>> CK	NEX+10, NEX+12, QTY+2, LIST+4, DEA+3, GGC+3
>> CK1	NEX+11, QTY+1, LI, LOT, REMA
DA	GGC+7!, GGC+16*
DD	GGC+7!
DIC	GGC+7*, GGC+16!
DIC(0	GGC+7*
>> DIK	GGC+16*
DIR	NEX!, NEX+9!, QTY!, QTY+3!, LOT!, REMA!, LIST+3!, LIST+4!, DEA+1!
DIR("?"	LIST+4, DEA
DIR("A"	NEX+1, LIST+4, DEA*
DIR("B"	NEX+6, NEX+7, NEX+8, QTY, LI, LOT, REMA, LIST+4, DEA*
DIR(0	NEX+1, QTY, LI, LOT, REMA, LIST+4, DEA*
>> DIRUT	NEX+12, QTY+2, LIST+4, DEA+3
DLAYGO	GGC+7*!
DO	GGC+7!
DT	DATE+2, POST+5, GGC+7
>> DTOUT	NEX+11, QTY+1, LI, LOT, REMA
>> DUOUT	NEX+9, NEX+10, QTY, LI+1, LOT+1, REMA+1, DEA+3
INVPIEN	POU~, POU+17
POU	POU+15~*, POU+22
>> PRCP("I"	POST+1
>> PRCP("ITEM"	POST+1
>> PRCP("QTY"	POST+2*
>> PRCP("TYP"	POST+2*
>> R1("AM"	GGC+8
>> R1(0	NEX+1, NEX+5, NEX+6, NEX+7, NEX+9, NEX+12, NEX+13, NEX+14, QTY, QTY+3 , DATE+2, LI, LI+3, LI+4, LOT, LOT+3, LOT+4, REMA, REMA+3, REMA+4* , POST+2, GGC, GGC+3, GGC+4, GGC+8, INV1
>> R1(1	GGC+2, GGC+4*, GGC+8
>> R3("D"	NEX+4, NEX+5, NEX+6, NEX+13, DATE+2
>> RDESC	GGC+4
>> REDIT	DEA+2*
>> RM6612	GGC+4
>> RMCPT	LIST+2
>> RMDAHC	GGC+15
>> RMHCDA	NEX+8
>> RMHCPC	GGC+2*, GGC+3
>> RMINVF	LIST+1*
>> RMITDA	NEX+8, LIST+1
>> RMLOC	NEX+8, LIST+1, GGC+3, GGC+4, GGC+15
RMPR	EXIT+2~
>> RMPRG	POST+4, POST+5, POST+6, GGC
>> RMPRGIP	NEX, POST+1, GGC+8
>> RMPRI("AMS"	GGC*, GGC+8, GGC+13
>> RMPRIP	GGC+8
RMPRSITE	POST+5, POST+6, EXIT+2~
>> RMPRUCST	NEX+6, NEX+8, NEX+12, NEX+14, QTY+3, INV1
>> RMQTY	GGC+3*
>> RMSER	GGC*
>> RO	NEX+4*
SSPROPTR	POU+17~*, POU+22
U	NEX+1, NEX+4, NEX+5, NEX+6, NEX+7, NEX+8, NEX+9, NEX+12, NEX+13, NEX+14 , QTY, QTY+3, DATE+2, LI, LI+3, LI+4, LOT, LOT+3, LOT+4, REMA , REMA+3, REMA+4, POST+2, POST+6, GGC, GGC+2, GGC+3, GGC+4, GGC+8, GGC+15 , INV1
X	NEX!, LI+2, LI+3, LI+4, LOT+2, LOT+3, LOT+4, REMA+2, REMA+3, REMA+4 , GGC+7*
Y	NEX!, NEX+12, NEX+13, QTY!, QTY+3, DATE+2*, LIST+4, DEA+1, DEA+2, GGC+7! , GGC+8, GGC+13, GGC+15, GGC+16

Customize PDF page

Package: Prosthetics

Routine: RMPRSTL

Information

Source Information

Call Graph

Call Graph Total: 12

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

Naked Globals

Local Variables

Legend: