| 1 | RMPRPIYN ;HINCIO/ODJ - EL - Edit Location ;3/8/01
|
|---|
| 2 | ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;***** EL - Edit Inventory LOCATION
|
|---|
| 6 | ; no inputs required
|
|---|
| 7 | ; other than standard VISTA vars. (DUZ, etc)
|
|---|
| 8 | ;
|
|---|
| 9 | EL N RMPRERR,RMPRSTN,RMPREXC,RMPR5
|
|---|
| 10 | ;
|
|---|
| 11 | ;***** STN - call prompt for Site/Station
|
|---|
| 12 | STN S RMPRERR=$$STN^RMPRPIY1(.RMPRSTN,.RMPREXC)
|
|---|
| 13 | I RMPRERR G ELX
|
|---|
| 14 | I RMPREXC'="" G ELX
|
|---|
| 15 | ;
|
|---|
| 16 | ;***** LOCN - call prompt for Location
|
|---|
| 17 | LOCN W @IOF,!!,"Editing an Inventory Location.....",!
|
|---|
| 18 | LOCN1 D LOCNM^RMPRPIY7(RMPRSTN("IEN"),.RMPR5,.RMPREXC)
|
|---|
| 19 | I RMPREXC="T"!(RMPREXC="^") G ELX
|
|---|
| 20 | I RMPREXC="P" G STN
|
|---|
| 21 | S RMPR5("STATION")=RMPRSTN("IEN")
|
|---|
| 22 | S RMPR5("STATION IEN")=RMPRSTN("IEN")
|
|---|
| 23 | ;
|
|---|
| 24 | ;***** LOCN2 - call prompt to change Location name
|
|---|
| 25 | LOCN2 W ! D EDLOC(.RMPR5,.RMPREXC)
|
|---|
| 26 | I RMPREXC="T" G ELX
|
|---|
| 27 | I RMPREXC'="" G LOCN
|
|---|
| 28 | G ELX
|
|---|
| 29 | ;
|
|---|
| 30 | ;***** exit points
|
|---|
| 31 | ELX D KILL^XUSCLEAN
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | ;***** EDLOC - prompt for change of Location name
|
|---|
| 35 | EDLOC(RMPR5,RMPREXC) ;
|
|---|
| 36 | N DIR,X,Y,DA,DUOUT,DTOUT,DIROUT,RMPRYN,RMPRNEWN,RMPR5N,RMPRERR
|
|---|
| 37 | S RMPREXC=""
|
|---|
| 38 | S DIR(0)="FOA^3:30"
|
|---|
| 39 | S DIR("A")="LOCATION: "
|
|---|
| 40 | S DIR("B")=RMPR5("NAME")
|
|---|
| 41 | S DIR("?")="Answer must be 3-30 characters in length."
|
|---|
| 42 | S DIR("??")="^D ELQQM^RMPRPIY6"
|
|---|
| 43 | EDLOC1 D ^DIR
|
|---|
| 44 | I $D(DTOUT) S RMPREXC="T" G EDLOCX
|
|---|
| 45 | I $D(DIROUT) S RMPREXC="P" G EDLOCX
|
|---|
| 46 | I X=""!(X["^") S RMPREXC="^" G EDLOCX
|
|---|
| 47 | I X=RMPR5("NAME") G EDLOCX
|
|---|
| 48 | L +^RMPR(661.5,RMPR5("IEN")):0 E D G EDLOCX
|
|---|
| 49 | . W !,"Location being edited by another user, cannot continue."
|
|---|
| 50 | . H 2
|
|---|
| 51 | . S RMPREXC="P"
|
|---|
| 52 | . Q
|
|---|
| 53 | I $D(^RMPR(661.5,"XSL",RMPR5("STATION"),X)) D G EDLOCU
|
|---|
| 54 | . W !,"Location name already in use, cannot continue.",!
|
|---|
| 55 | . H 2
|
|---|
| 56 | . S RMPREXC="P"
|
|---|
| 57 | . Q
|
|---|
| 58 | S RMPRNEWN=X
|
|---|
| 59 | D ELOK(.RMPRYN,.RMPREXC)
|
|---|
| 60 | I RMPREXC="T" G EDLOCU
|
|---|
| 61 | I RMPREXC'=""!(RMPRYN="N") S RMPREXC="" L -^RMPR(661.5,RMPR5("IEN")) G EDLOC1
|
|---|
| 62 | S RMPR5N("IEN")=RMPR5("IEN")
|
|---|
| 63 | S RMPR5N("NAME")=RMPRNEWN
|
|---|
| 64 | S RMPRERR=$$UPD^RMPRPIX5(.RMPR5N)
|
|---|
| 65 | W !
|
|---|
| 66 | W "Location has been edited from '"_RMPR5("NAME")_"'"
|
|---|
| 67 | W " to '"_RMPRNEWN_"' !!!"
|
|---|
| 68 | H 2
|
|---|
| 69 | EDLOCU L -^RMPR(661.5,RMPR5("IEN"))
|
|---|
| 70 | EDLOCX Q
|
|---|
| 71 | ELQQM W !,"This is a location of an item or stock being tracked for inventory."
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | ; Y/N Prompt to confirm change of Location Name
|
|---|
| 75 | ELOK(RMPRYN,RMPREXC) ;
|
|---|
| 76 | N DIR,X,Y,DA,DUOUT,DTOUT,DIROUT
|
|---|
| 77 | S RMPRYN="N"
|
|---|
| 78 | S RMPREXC=""
|
|---|
| 79 | S DIR(0)="Y"
|
|---|
| 80 | S DIR("B")="N"
|
|---|
| 81 | S DIR("A")="Are you sure you want to change the name of this location"
|
|---|
| 82 | D ^DIR
|
|---|
| 83 | I $D(DTOUT) S RMPREXC="T" G ELOKX
|
|---|
| 84 | I $D(DIROUT) S RMPREXC="P" G ELOKX
|
|---|
| 85 | I X=""!(X["^") S RMPREXC="^" G ELOKX
|
|---|
| 86 | S RMPRYN="N" S:Y RMPRYN="Y"
|
|---|
| 87 | ELOKX Q
|
|---|
