Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRPIY4

RMPRPIY4.m

Go to the documentation of this file.
  1. RMPRPIY4 ;HINCIO/ODJ - PIP Data Entry - Various Prompts ;3/8/01
  1. ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
  1. Q
  1. ;
  1. ;***** ITED - Edit an Inventory Item description
  1. ITED(RMPR11,RMPREXC) ;
  1. N DIR,X,Y,DA,DUOUT,DTOUT,DIRUT,DIROUT,RMPRERR
  1. S DIR(0)="FOA^0:60"
  1. S DIR("A")="Inventory Item Description: "
  1. S:$D(RMPR11("DESCRIPTION")) DIR("B")=RMPR11("DESCRIPTION")
  1. ITED1 D ^DIR
  1. I $D(DTOUT) S RMPREXC="T" G ITEDX
  1. I $D(DIROUT) S RMPREXC="P" G ITEDX
  1. I X["^"!($D(DUOUT)) S RMPREXC="^" G ITEDX
  1. S RMPREXC=""
  1. S RMPR11("DESCRIPTION")=X
  1. ITEDX W ! Q