PRCNRSMT ;SSI/ALA-Resubmit Equipment Requests ;[ 03/18/96 12:47 PM ]
;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
EN ; Review equipment requests and resubmit to equipment committee
S DIC="^PRCN(413,",DIC(0)="AEQZ"
I $G(PRCNCMF)="" S DIC("S")="S ST=$P(^(0),U,7) I ST=4!(ST=17)!(ST=18)&($P(^(0),U,2)=DUZ)"
I $G(PRCNCMF)'="" S DIC("S")="S ST=$P(^(0),U,7) I (ST=4)!(ST=17)!(ST=18)&($P(^(0),U,6)=DUZ)"
D ^DIC K DIC("S") G EXIT:Y<0
S (IN,DA)=+Y,PRCNUSR=8 D SETUP^PRCNPRNT
S PST=$P($G(^PRCN(413,DA,8)),U,9)
S NST=$S(ST=4:3,ST=17:10,ST=18:39,1:ST) S:PST=45 NST=39
G EXIT:$D(DUOUT)
QS W !,"Is this request ready to go" S %=1 D YN^DICN
I %=0 D G QS
. W !!,"Enter 'Y'es if this request is ready to be resubmitted. Request will become"
. W !,"'Pending Equipment Committee Review/Rank' if status was 'Deferred'."
. W !,"Or status will become 'Ready for 2237 Processing if status was 'Approved-Pending Funding'."
. W !,"Or status will become 'Pending CMR Official Review if status was 'Returned by"
. W !,"CMR Official-Not Approved."
I %=1 D
. S DIE=413,DR="6////^S X=NST;7////^S X=DT;77////^S X=ST" D ^DIE
. W !!,"Transaction has become => ",$P(^PRCN(413.5,NST,0),U) W !
D EXIT G EN
EXIT K DIC,DUOUT,%,DIE,DR,ST,PRCNUSR,IN,X,D0,DA,D,NST
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNRSMT 1275 printed Oct 16, 2024@17:55:26 Page 2
PRCNRSMT ;SSI/ALA-Resubmit Equipment Requests ;[ 03/18/96 12:47 PM ]
+1 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
EN ; Review equipment requests and resubmit to equipment committee
+1 SET DIC="^PRCN(413,"
SET DIC(0)="AEQZ"
+2 IF $GET(PRCNCMF)=""
SET DIC("S")="S ST=$P(^(0),U,7) I ST=4!(ST=17)!(ST=18)&($P(^(0),U,2)=DUZ)"
+3 IF $GET(PRCNCMF)'=""
SET DIC("S")="S ST=$P(^(0),U,7) I (ST=4)!(ST=17)!(ST=18)&($P(^(0),U,6)=DUZ)"
+4 DO ^DIC
KILL DIC("S")
if Y<0
GOTO EXIT
+5 SET (IN,DA)=+Y
SET PRCNUSR=8
DO SETUP^PRCNPRNT
+6 SET PST=$PIECE($GET(^PRCN(413,DA,8)),U,9)
+7 SET NST=$SELECT(ST=4:3,ST=17:10,ST=18:39,1:ST)
if PST=45
SET NST=39
+8 if $DATA(DUOUT)
GOTO EXIT
QS WRITE !,"Is this request ready to go"
SET %=1
DO YN^DICN
+1 IF %=0
Begin DoDot:1
+2 WRITE !!,"Enter 'Y'es if this request is ready to be resubmitted. Request will become"
+3 WRITE !,"'Pending Equipment Committee Review/Rank' if status was 'Deferred'."
+4 WRITE !,"Or status will become 'Ready for 2237 Processing if status was 'Approved-Pending Funding'."
+5 WRITE !,"Or status will become 'Pending CMR Official Review if status was 'Returned by"
+6 WRITE !,"CMR Official-Not Approved."
End DoDot:1
GOTO QS
+7 IF %=1
Begin DoDot:1
+8 SET DIE=413
SET DR="6////^S X=NST;7////^S X=DT;77////^S X=ST"
DO ^DIE
+9 WRITE !!,"Transaction has become => ",$PIECE(^PRCN(413.5,NST,0),U)
WRITE !
End DoDot:1
+10 DO EXIT
GOTO EN
EXIT KILL DIC,DUOUT,%,DIE,DR,ST,PRCNUSR,IN,X,D0,DA,D,NST
+1 QUIT
