| 1 | PRCNRSMT ;SSI/ALA-Resubmit Equipment Requests ;[ 03/18/96 12:47 PM ]
|
|---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
|---|
| 3 | EN ; Review equipment requests and resubmit to equipment committee
|
|---|
| 4 | S DIC="^PRCN(413,",DIC(0)="AEQZ"
|
|---|
| 5 | I $G(PRCNCMF)="" S DIC("S")="S ST=$P(^(0),U,7) I ST=4!(ST=17)!(ST=18)&($P(^(0),U,2)=DUZ)"
|
|---|
| 6 | I $G(PRCNCMF)'="" S DIC("S")="S ST=$P(^(0),U,7) I (ST=4)!(ST=17)!(ST=18)&($P(^(0),U,6)=DUZ)"
|
|---|
| 7 | D ^DIC K DIC("S") G EXIT:Y<0
|
|---|
| 8 | S (IN,DA)=+Y,PRCNUSR=8 D SETUP^PRCNPRNT
|
|---|
| 9 | S PST=$P($G(^PRCN(413,DA,8)),U,9)
|
|---|
| 10 | S NST=$S(ST=4:3,ST=17:10,ST=18:39,1:ST) S:PST=45 NST=39
|
|---|
| 11 | G EXIT:$D(DUOUT)
|
|---|
| 12 | QS W !,"Is this request ready to go" S %=1 D YN^DICN
|
|---|
| 13 | I %=0 D G QS
|
|---|
| 14 | . W !!,"Enter 'Y'es if this request is ready to be resubmitted. Request will become"
|
|---|
| 15 | . W !,"'Pending Equipment Committee Review/Rank' if status was 'Deferred'."
|
|---|
| 16 | . W !,"Or status will become 'Ready for 2237 Processing if status was 'Approved-Pending Funding'."
|
|---|
| 17 | . W !,"Or status will become 'Pending CMR Official Review if status was 'Returned by"
|
|---|
| 18 | . W !,"CMR Official-Not Approved."
|
|---|
| 19 | I %=1 D
|
|---|
| 20 | . S DIE=413,DR="6////^S X=NST;7////^S X=DT;77////^S X=ST" D ^DIE
|
|---|
| 21 | . W !!,"Transaction has become => ",$P(^PRCN(413.5,NST,0),U) W !
|
|---|
| 22 | D EXIT G EN
|
|---|
| 23 | EXIT K DIC,DUOUT,%,DIE,DR,ST,PRCNUSR,IN,X,D0,DA,D,NST
|
|---|
| 24 | Q
|
|---|
