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: RMPRSTL

Package: Prosthetics

Routine: RMPRSTL


Information

RMPRSTL ;PHX/RFM,RVD-ISSUE FROM STOCK ;8/29/1994

Source Information

Source file <RMPRSTL.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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