- 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 ---[H[J[2J[HRMPRPIY4 550 printed Jan 18, 2025@03:38:01 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