RMPRPIY4.m

RMPRPIY4 ;HINCIO/ODJ - PIP Data Entry - Various Prompts ;3/8/01

 ;;3.0;PROSTHETICS;**61**;Feb 09, 1996

 Q

 ;

 ;***** ITED - Edit an Inventory Item description

ITED(RMPR11,RMPREXC) ;

 N DIR,X,Y,DA,DUOUT,DTOUT,DIRUT,DIROUT,RMPRERR

 S DIR(0)="FOA^0:60"

 S DIR("A")="Inventory Item Description: "

 S:$D(RMPR11("DESCRIPTION")) DIR("B")=RMPR11("DESCRIPTION")

ITED1 D ^DIR

 I $D(DTOUT) S RMPREXC="T" G ITEDX

 I $D(DIROUT) S RMPREXC="P" G ITEDX

 I X["^"!($D(DUOUT)) S RMPREXC="^" G ITEDX

 S RMPREXC=""

 S RMPR11("DESCRIPTION")=X

ITEDX W ! Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPRPIY4   550     printed  Dec 13, 2024@02:36:52                                                                                                                                                                                                     Page 2

RMPRPIY4  ;HINCIO/ODJ - PIP Data Entry - Various Prompts ;3/8/01

 +1       ;;3.0;PROSTHETICS;**61**;Feb 09, 1996

 +2        QUIT 

 +3       ;

 +4       ;***** ITED - Edit an Inventory Item description

ITED(RMPR11,RMPREXC) ;

 +1        NEW DIR,X,Y,DA,DUOUT,DTOUT,DIRUT,DIROUT,RMPRERR

 +2        SET DIR(0)="FOA^0:60"

 +3        SET DIR("A")="Inventory Item Description: "

 +4        if $DATA(RMPR11("DESCRIPTION"))

               SET DIR("B")=RMPR11("DESCRIPTION")

ITED1      DO ^DIR

 +1        IF $DATA(DTOUT)

               SET RMPREXC="T"

               GOTO ITEDX

 +2        IF $DATA(DIROUT)

               SET RMPREXC="P"

               GOTO ITEDX

 +3        IF X["^"!($DATA(DUOUT))

               SET RMPREXC="^"

               GOTO ITEDX

 +4        SET RMPREXC=""

 +5        SET RMPR11("DESCRIPTION")=X

ITEDX      WRITE !

           QUIT