Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRRET1

Package: Prosthetics

Routine: RMPRRET1


Information

RMPRRET1 ;PHX/RFM-RETURN ITEM FROM 2319 ;8/29/1994

Source Information

Source file <RMPRRET1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 7 DD^%DT  ^DIC  WAIT^DICD  (FILE,YN)^DICN  ^DIE  (,IX1)^DIK  ^DIR  
Kernel 2 HOME^%ZIS  KILL^XUSCLEAN  
Prosthetics 2 (,EN)^RMPRRET2  DIV4^RMPRSIT  
IFCAP 1 ^PRCPUSA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Prosthetics 2 RMPR RETURN  RMPRRET2  

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
CK
TMP
TMP1
WRI
SEL
CON
POS ;POST TRANSACTION TO 660.1 AND GIP
INV
QUE
INVITEM
EXIT

External References

Name Field # of Occurrence
DD^%DT WRI+1
HOME^%ZIS RMPRRET1+2
^DIC EN, QUE+2, INVITEM
WAIT^DICD EN1+1, POS+10
FILE^DICN POS+1
YN^DICN INV, QUE
^DIE POS+4
^DIK POS+5
IX1^DIK POS+7
^DIR EN+1, SEL+1
^PRCPUSA POS+8
^RMPRRET2 EN1, TMP, CON
EN^RMPRRET2 EN+1
DIV4^RMPRSIT RMPRRET1+2
KILL^XUSCLEAN EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No items available on patient 10-2319 for return."
  • Line Location: TMP+0
Function Call: WRITE
  • Prompt: !!?15,"*ITEMS RECORDED ON PATIENT'S 2319*",!!,?15,"ITEM",?30,"DATE ISSUED",?43,"SERIAL NUMBER"
  • Line Location: TMP1+0
Function Call: WRITE
  • Prompt: !,I_".",?7,$P(^RMPR(660,RO,0),U,15),$E($P(^TMP($J,RO),U),1,20)
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: ?30,Y
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: ?30,Y
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: $C(7),!!,"You have not selected an item posted to the Patient's 10-2319.",!
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: POS+3
Function Call: WRITE
  • Prompt: $C(7),!?10,"Deleted..."
  • Line Location: POS+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: POS+12
Function Call: WRITE
  • Prompt: $C(7),!,"You are not an Inventory Point user and the item you have selected is in",!,"Inventory. Do you wish to continue"
  • Line Location: INV+0
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: INV+0
Function Call: WRITE
  • Prompt: !,"Would you like to add this item back into inventory"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"Enter `YES` to add item back into inventory, `NO` to not.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $C(7),!,"The Item you selected is not in this Inventory Point."
  • Line Location: INVITEM+0
Routine Call
  • DIC
  • Line Location:
    • EN
    • QUE+2
    • INVITEM
Routine Call
  • DIE
  • Line Location:
    • POS+4
Routine Call
  • DIR
  • Line Location:
    • EN+1
    • SEL+1
Routine Call
  • %ZIS
  • Line Location:
    • RMPRRET1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls
^RMPR(660.1 - [#660.1] Classic Fileman Calls
^RMPR(661 - [#661] Classic Fileman Calls
^RMPR(665 - [#665] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] CK
^PRCP(445 - [#445] TMP1+2, INV, INV+1, INV+2, INVITEM
^RMPR(660 - [#660] EN1, EN1+3, CK, WRI+1, SEL+2, POS+2, POS+6*, INV+1, INV+2
^RMPR(660.1 - [#660.1] POS+2*, POS+3, POS+5, POS+6, POS+8
^RMPR(661 - [#661] CK, SEL+2
^RMPR(669.9 - [#669.9] TMP1+2
^TMP($J EN!, CK*, TMP, TMP1+1, WRI+1, SEL

Label References

Name Line Occurrences
CK EN1+3
CON TMP1+2
EN POS+12
EXIT RMPRRET1+2, EN, EN+1, TMP1+2, POS+3, POS+5, INV, QUE, QUE+2, INVITEM
INV TMP1+2, INV
INVITEM INVITEM
POS TMP1+3, INV, QUE, INVITEM+2
QUE QUE+1
TMP EN1+4
WRI TMP1+1, WRI

Naked Globals

Name Field # of Occurrence
^(0 CK, SEL+2, POS+5
^(1 POS+2, INV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INV*, QUE*, QUE+1
>> DA POS+4*, POS+5*, POS+7*
DD POS+1!
DFN EN!*, EN1, EN1+3
DIC EN!*, POS+1*, POS+4, INV+1!, QUE+2*, INVITEM!*
DIC("A" EN*, QUE+2*, INVITEM*
DIC("B" INV+1*, INVITEM*
DIC("S" QUE+2*
DIC(0 EN*, POS+1*, QUE+2*, INVITEM*
DIE EN!, POS+4*
DIK EN!, POS+5*, POS+7*
DIR EN+1!, SEL+1!
DIR("A" EN+1*, SEL+1*
DIR("B" EN+1*
DIR(0 EN+1*, SEL+1*
>> DIRUT EN+1
DLAYGO POS+1*!
DO POS+1!
DR EN!, POS+4*
DT POS+1, POS+2
>> DTOUT TMP1+1, TMP1+2, SEL+1
DUZ INV, INV+2
>> I EN1+3*, TMP1+1*, WRI+1, SEL, SEL+1
IEN EN!, POS+1*, POS+2, POS+3, POS+4, POS+5, POS+6, POS+7, POS+8
IOF POS+12
OK POS+8!, QUE+2*
PRCP EN!
PRCP("I" QUE+2*, INVITEM
PRCP("ITEM" SEL+2*, POS+8, INVITEM+1*
PRCP("QTY" POS+8*
PRCP("TYP" POS+8*
>> PRCPPRIV QUE+2*
RMPR EXIT~
RMPR("STA" POS+2
RMPRHELP WRI!
RMPRIEN EN!, TMP1+1, TMP1+2, SEL+2*, POS+2, POS+6, INV+1, INV+2
>> RMPRINV POS+2, QUE+2*
RMPRITEM EN!, TMP1+2, SEL+2*, INV+1, INVITEM
RMPRITM EN!, SEL+2*, POS+2, INVITEM+1*
>> RMPRKILL TMP1+1, TMP1+2
RMPRSER EN!, SEL+2*
RMPRSITE TMP1+2, EXIT~
RO EN!, TMP1+1*, WRI+1, SEL
>> RP EN1+3*, CK
RZ EN!
RZ( TMP1+1*, SEL+2
S660 EN!, POS+2*
U CK, TMP1+2, WRI+1, SEL+2, POS+2, POS+5, POS+6, POS+8, INV+1, INV+2
, INVITEM, INVITEM+1
>> X RMPRRET1+2, TMP1+1, SEL, SEL+1, SEL+2, POS+1*
>> Y EN, EN+1, WRI+1*, POS+1, QUE+2, INVITEM, INVITEM+1
>> ZRMP SEL+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All