ACRFPRC5 ;IHS/OIRM/DSD/THL,AEF - EDIT TRAINING VENDOR; [ 05/10/2005 11:53 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;**3,16,17**;NOV 05, 2001
;;UTILITY FOR ACTIONS NEEDED DURING DOCUMENT SIGNATURE PROCESSING
AUX ;EP;TO PROCESS AUXILLIARY FUNCTIONS DURING APPROVAL PROCESS
I ACRAPVT=31!(ACRAPVT=6) S ACRREFX=116 D
.;OFFICER TO EDIT ITEMS DURING APPROVAL SEQUENCE
.N X
.S X=0
.K ACRQUIT,ACRREV
.D ^ACRFSS
.S ACRREV=""
;I ACRAPVT=39,$P(^ACRSYS(1,"DT"),U,99) D VOUCHER^ACRFSS41 ; REMOVE LINE ;ACR*2.1*3.09
I ACRAPVT=14 D TVENDOR
I $G(ACRREF)=148,$P($G(^ACRAPVS(ACRAPDA,"DT")),U,5)="Y" D TVENDOR ;ACR*2.1*3.18
I ACRAPVT=38!(ACRAPVT=39),$P($G(^ACRAPVS(+$G(ACRAPDA),"DT")),U,5)="Y" D TPAY
I ACRAPVT=38!(ACRAPVT=39),ACRREFX'=148,$P(^ACRSYS(1,"DT"),U,25)=1,'$P(^("DT"),U,37),'$P($G(^ACRSYS(1,"DT1")),U,9) D 38^ACRFPRC4
I ACRAPVT=39,$P($G(ACRAPV0),U,11)=ACRDOCDA,$P($G(^ACROTA(ACRDOCDA,0)),U,3) W !!,"Edit TRAVEL ADVANCE",! D E11^ACRFTA
Q
TVENDOR ;EP;TO ADD/EDIT THE TRAINING VENDOR
F D T1 Q:$D(ACRQUIT)
I +$G(^ACRDOC(ACRDOCDA,"TRNG3")) K ACRQUIT Q
W !!,"NO vendor from the STANDARD VENDOR file was added to this 350."
W !,"A vendor must be added before the requrest can be signed."
S DIR(0)="YO"
S DIR("A")="Add the vendor now"
S DIR("B")="YES"
W !
D DIR^ACRFDIC
I +Y'=1 S ACRQUIT=""
G:'$D(ACRQUIT) TVENDOR
Q
T1 D TDISP
S DIR(0)="SO^1:Add or Change VENDOR on this 350;2:Add or Edit VENDOR on STANDARD VENDOR File;3:Return Request for Change/Clarification"
W !
D DIR^ACRFDIC
I +$G(Y)<1 S ACRQUIT="" Q
I Y=1 D CHANGE Q
I Y=2 D VEND Q
I Y=3 S ACRAPDAS="R" D RETURN^ACRFPRC1 S ACRQUIT="" Q
Q
CHANGE ;CHANGE VENDOR ON 350
S DA=ACRDOCDA
S DIE="^ACRDOC("
S DR="148181T"
W !
D DIE^ACRFDIC
Q
TDISP ;DISPLAY VENDOR DATA
K ACRDOCVN
I '+$G(^ACRDOC(ACRDOCDA,"TRNG3")),$P($G(^(3)),U)="" D
.W !!,"NO vendor information on file for this 350."
W @IOF
I +$G(^ACRDOC(ACRDOCDA,"TRNG3")) S ACRDOCVN=+^("TRNG3")
D VEND^ACRFJS
Q
VEND ;ADD/EDIT STANDARD VENDOR FILE
N AUTVDA
D ^ACRFVEND
I $G(AUTVDA),$D(^AUTTVNDR(AUTVDA,0)),$D(^AUTTVNDR(AUTVDA,11)) D
.S DIR(0)="YO"
.S DIR("A")="Make "_X_" the vendor for this 350"
.S DIR("B")="NO"
.W !
.D DIR^ACRFDIC
.I +Y=1 D
..S DA=ACRDOCDA
..S DIE="^ACRDOC("
..S DR="148181"
..D DIE^ACRFDIC
Q
TPAY ;EP;TO EDIT PRELIMINARY DATA FOR TRAVEL PAYMENT VIA 1166
Q:$P($G(^ACRSYS(1,"DT1")),U,9)<2
S:ACRREFX'=148 ACRDUZ=$P(^ACRDOC(ACRDOCDA,"TO"),U,9)
S:ACRREFX=148 ACRVDA=+^ACRDOC(ACRDOCDA,"TRNG3")
S ACRBTYP=$S(ACRREFX'=148:"T",1:"V")
S DIR("B")="ACH Non-Grouped"
D SCHT^ACRFIV4 ;commented out ACR*2.1*16.06 IM15505 ;put back ACR*2.1*17.07 IM17139
;D SCHT^ACRFIV4(.ACRACHX,.ACRACH,.ACRBTYP,.ACRVDA,.ACRDUZ,.ACRQUIT) ;ACR*2.1*16.06 IM15505; ACR*2.1*17.07 IM17139
Q
ACRFPRC5 ;IHS/OIRM/DSD/THL,AEF - EDIT TRAINING VENDOR; [ 05/10/2005 11:53 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**3,16,17**;NOV 05, 2001
+2 ;;UTILITY FOR ACTIONS NEEDED DURING DOCUMENT SIGNATURE PROCESSING
AUX ;EP;TO PROCESS AUXILLIARY FUNCTIONS DURING APPROVAL PROCESS
+1 IF ACRAPVT=31!(ACRAPVT=6)
SET ACRREFX=116
Begin DoDot:1
+2 ;OFFICER TO EDIT ITEMS DURING APPROVAL SEQUENCE
+3 NEW X
+4 SET X=0
+5 KILL ACRQUIT,ACRREV
+6 DO ^ACRFSS
+7 SET ACRREV=""
End DoDot:1
+8 ;I ACRAPVT=39,$P(^ACRSYS(1,"DT"),U,99) D VOUCHER^ACRFSS41 ; REMOVE LINE ;ACR*2.1*3.09
+9 IF ACRAPVT=14
DO TVENDOR
+10 ;ACR*2.1*3.18
IF $GET(ACRREF)=148
IF $PIECE($GET(^ACRAPVS(ACRAPDA,"DT")),U,5)="Y"
DO TVENDOR
+11 IF ACRAPVT=38!(ACRAPVT=39)
IF $PIECE($GET(^ACRAPVS(+$GET(ACRAPDA),"DT")),U,5)="Y"
DO TPAY
+12 IF ACRAPVT=38!(ACRAPVT=39)
IF ACRREFX'=148
IF $PIECE(^ACRSYS(1,"DT"),U,25)=1
IF '$PIECE(^("DT"),U,37)
IF '$PIECE($GET(^ACRSYS(1,"DT1")),U,9)
DO 38^ACRFPRC4
+13 IF ACRAPVT=39
IF $PIECE($GET(ACRAPV0),U,11)=ACRDOCDA
IF $PIECE($GET(^ACROTA(ACRDOCDA,0)),U,3)
WRITE !!,"Edit TRAVEL ADVANCE",!
DO E11^ACRFTA
+14 QUIT
TVENDOR ;EP;TO ADD/EDIT THE TRAINING VENDOR
+1 FOR
DO T1
IF $DATA(ACRQUIT)
QUIT
+2 IF +$GET(^ACRDOC(ACRDOCDA,"TRNG3"))
KILL ACRQUIT
QUIT
+3 WRITE !!,"NO vendor from the STANDARD VENDOR file was added to this 350."
+4 WRITE !,"A vendor must be added before the requrest can be signed."
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Add the vendor now"
+7 SET DIR("B")="YES"
+8 WRITE !
+9 DO DIR^ACRFDIC
+10 IF +Y'=1
SET ACRQUIT=""
+11 IF '$DATA(ACRQUIT)
GOTO TVENDOR
+12 QUIT
T1 DO TDISP
+1 SET DIR(0)="SO^1:Add or Change VENDOR on this 350;2:Add or Edit VENDOR on STANDARD VENDOR File;3:Return Request for Change/Clarification"
+2 WRITE !
+3 DO DIR^ACRFDIC
+4 IF +$GET(Y)<1
SET ACRQUIT=""
QUIT
+5 IF Y=1
DO CHANGE
QUIT
+6 IF Y=2
DO VEND
QUIT
+7 IF Y=3
SET ACRAPDAS="R"
DO RETURN^ACRFPRC1
SET ACRQUIT=""
QUIT
+8 QUIT
CHANGE ;CHANGE VENDOR ON 350
+1 SET DA=ACRDOCDA
+2 SET DIE="^ACRDOC("
+3 SET DR="148181T"
+4 WRITE !
+5 DO DIE^ACRFDIC
+6 QUIT
TDISP ;DISPLAY VENDOR DATA
+1 KILL ACRDOCVN
+2 IF '+$GET(^ACRDOC(ACRDOCDA,"TRNG3"))
IF $PIECE($GET(^(3)),U)=""
Begin DoDot:1
+3 WRITE !!,"NO vendor information on file for this 350."
End DoDot:1
+4 WRITE @IOF
+5 IF +$GET(^ACRDOC(ACRDOCDA,"TRNG3"))
SET ACRDOCVN=+^("TRNG3")
+6 DO VEND^ACRFJS
+7 QUIT
VEND ;ADD/EDIT STANDARD VENDOR FILE
+1 NEW AUTVDA
+2 DO ^ACRFVEND
+3 IF $GET(AUTVDA)
IF $DATA(^AUTTVNDR(AUTVDA,0))
IF $DATA(^AUTTVNDR(AUTVDA,11))
Begin DoDot:1
+4 SET DIR(0)="YO"
+5 SET DIR("A")="Make "_X_" the vendor for this 350"
+6 SET DIR("B")="NO"
+7 WRITE !
+8 DO DIR^ACRFDIC
+9 IF +Y=1
Begin DoDot:2
+10 SET DA=ACRDOCDA
+11 SET DIE="^ACRDOC("
+12 SET DR="148181"
+13 DO DIE^ACRFDIC
End DoDot:2
End DoDot:1
+14 QUIT
TPAY ;EP;TO EDIT PRELIMINARY DATA FOR TRAVEL PAYMENT VIA 1166
+1 IF $PIECE($GET(^ACRSYS(1,"DT1")),U,9)<2
QUIT
+2 IF ACRREFX'=148
SET ACRDUZ=$PIECE(^ACRDOC(ACRDOCDA,"TO"),U,9)
+3 IF ACRREFX=148
SET ACRVDA=+^ACRDOC(ACRDOCDA,"TRNG3")
+4 SET ACRBTYP=$SELECT(ACRREFX'=148:"T",1:"V")
+5 SET DIR("B")="ACH Non-Grouped"
+6 ;commented out ACR*2.1*16.06 IM15505 ;put back ACR*2.1*17.07 IM17139
DO SCHT^ACRFIV4
+7 ;D SCHT^ACRFIV4(.ACRACHX,.ACRACH,.ACRBTYP,.ACRVDA,.ACRDUZ,.ACRQUIT) ;ACR*2.1*16.06 IM15505; ACR*2.1*17.07 IM17139
+8 QUIT
