Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRRET9

Package: Prosthetics

Routine: RMPRRET9


Information

RMPRRET9 ;PHX/RFM-RETURN ITEMS FROM FILE 667.1 ;8/29/1994

Source Information

Source file <RMPRRET9.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
RETU
SER
POS ;D WAIT^DICD H 1
CK()
EDT ;EDIT RETURNED/CONDEMNED ITEMS
EX
DSP
INV ;UPDATE INVENTORY
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter `^` to exit"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !,"Enter the Returned Status or `^` to exit"
  • Line Location: RETU+0
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"Someone else is Editing this entry"
  • Line Location: EDT+3
Function Call: WRITE
  • Prompt: ?15,$S($P(ZA,U,3):$P(^PRC(441,$P(^RMPR(661,$P(ZA,U,3),0),U,1),0),U,2),1:$S($D(^RMPR(667.1,+$P(ZA,U,21),0)):$P(^(0),U,1),1:" "))," ",$P(ZA,U,6)," ",$E($P(^DPT($P(ZA,U,2),0),U,1),1,30)
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: !,$C(7),7,"Error encountered while posting this item to GIP. Please",!,"post this item manually.",!
  • Line Location: INV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(660.1 - [#660.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call