ACRFXMY ;IHS/OIRM/DSD/THL,AEF - SEND ARMS MESSAGES TO MM; [ 09/26/2005 10:20 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;**5,19**;NOV 05, 2001
;;ROUTINE USED TO PROCESS MAILMAN MESSAGES GENERATED BY VARIOUS ARMS
;;FUNCTIONS
XMY ;EP;
S:$D(ACRAPDA) ACRAPDAX=ACRAPDA
N ACRAPDA
K XMY
S ACRAPDA=0
F S ACRAPDA=$O(^ACRAPVS("AB",ACRDOCDA,ACRAPDA)) Q:'ACRAPDA D
.S ACRDT=$G(^ACRAPVS(ACRAPDA,"DT"))
.S ACR0=$G(^ACRAPVS(ACRAPDA,0))
.Q:$P(ACRDT,U)=""
.I $P(ACRDT,U,2),$P(ACR0,U,6)=$P(^ACRDOC(ACRDOCDA,0),U,13) D XMY1
S XMY($P(^ACROBL(ACRDOCDA,0),U,5))=""
S XMY(DUZ)=""
I ACRAPDAS="D" D
. I $G(ACRAPDAX) Q:$P(^ACRAPVS(ACRAPDAX,0),U,11)
.S DA=ACRDOCDA
.S DIE="^ACROBL("
.S DR="905////D"
.D DIE^ACRFDIC
S:$D(ACRAPDAX) ACRAPDA=ACRAPDAX
K:'$D(ACRAPDAX) ACRAPDA
K ACRAPDAX
D:$D(XMY) MESSAGE
Q
XMY1 S XMY($P(ACRDT,U,2))=""
I $P(ACRDT,U,6),$P(ACRDT,U,6)'=$P(ACRDT,U,2) S XMY($P(ACRDT,U,6))=""
Q
MESSAGE ;EP;
I $G(ACRAPDA) D
.W !!,"One moment please, message being delivered."
.H 2
.S ^ACROBL(ACRDOCDA,"CNG")=$G(^ACRAPVS(ACRAPDA,"CNG"))
.S ^ACROBL(ACRDOCDA,"RSN")=$G(^ACRAPVS(ACRAPDA,"RSN"))
I '$G(ACRAPDA) D
.S DA=ACRDOCDA
.S DIE="^ACROBL("
.S DR="[ACR REASON FOR CHANGE]"
.D DDS^ACRFDIC
.Q:'$D(ACRSCREN)
.K ACRSCREN
.W !
.D DIE^ACRFDIC
S ACRCNG=$G(^ACROBL(ACRDOCDA,"CNG"))
S ACRRSN=$G(^ACROBL(ACRDOCDA,"RSN"))
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
I $G(ACRAPDA) D
. I $P(^ACRAPVS(ACRAPDA,0),U,11) S XMB(1)="TRAVEL ADVANCE for "
S XMB(1)=$G(XMB(1))_"Document no. "_$P(ACRDOC0,U)_" ("_$S($P(ACRDOC0,U,2)]""&($P(ACRDOC0,U)'=$P(ACRDOC0,U,2)):$P(ACRDOC0,U,2)_" - ",1:"")_$P(^ACRDOC(ACRDOCDA,0),U,14)_") ,was "
S XMB(1)=XMB(1)_$S(ACRAPDAS="A":"APPROVED",ACRAPDAS="R":"RETURNED FOR CLARIFICATION",ACRAPDAS="D":"DISAPPROVD",1:"PROCESSED, READ COMMENTS BELOW")_" by "
;S XMB(2)=$P(^VA(200,DUZ,0),U) ;ACR*2.1*19.02 IM16848
S XMB(2)=$$NAME2^ACRFUTL1(DUZ) ;ACR*2.1*19.02 IM16848
S XMB(2)=$P($P(XMB(2),",",2)," ")_" "_$P(XMB(2),",")
S XMB(3)=$S($G(ACRAPDA):$P(^ACRAPVT($P(^ACRAPVS(ACRAPDA,0),U,3),0),U),1:"")
S XMB(3)=$P($P(XMB(3),",",2)," ")_" "_$P(XMB(3),",")
S XMB(2)=XMB(2)_" as the "_XMB(3)
S XMB(3)=" "
S XMB(4)="Information which needs to be changed:"
I ACRCNG]"" D
.N ACRI
.F ACRI=1:1:5 S:$P(ACRCNG,U,ACRI)]"" XMB(ACRI+4)=$P(ACRCNG,U,ACRI)
S XMB(10)=" "
S XMB(11)="Reason for change: "
I ACRRSN]"" D
.N ACRI
.F ACRI=1:1:5 S:$P(ACRRSN,U,ACRI)]"" XMB(ACRI+11)=$P(ACRRSN,U,ACRI)
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="REQUEST COMMENT/DISAPPROVAL NOTIFICATION"
S XMB="ACR REQUEST STATUS"
D ^XMD
K ACRAPV,ACRCNG,ACRRSN,XMB,XMDUZ,XMSUB,XMY,XMTEXT
Q
TVAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
Q:'$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9)
N ACRDUZ
S ACRDUZ=$P(^ACRDOC(ACRDOCDA,"TO"),U,9)
S XMY(ACRDUZ)=""
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
;S XMB(1)="The Travel Voucher for Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(1)="The Travel Voucher for Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for "_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
X ^DD("DD")
S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
;S XMB(2)="was Certified for Payment on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
;S XMB(3)="Payment should be made to "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(2)="was Certified for Payment on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
S XMB(3)="Payment should be made to "_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
D ^ACRFTOT
S:$G(ACRREIM)]"" XMB(4)="in the amount of "_$FN(ACRREIM,"P,",2)_" on Schedule No.: "_$P($G(^ACRDOC(ACRDOCDA,18)),U,3)
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="TRAVEL VOUCHER CERTIFIED FOR PAYMENT"
S XMB="ACR TV CERT FOR PAY"
D ^XMD
Q
TOAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
Q:'$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9) S ACRDUZ=$P(^("TO"),U,9)
S XMY(ACRDUZ)=""
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
;S XMB(1)="Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for"_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.19*1.02 IM16848
S XMB(1)="Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for"_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
X ^DD("DD")
S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="TRAVEL ORDER APPROVED"
S XMB="ACR TO SIGNED"
D ^XMD
Q
POAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
Q:'$P($G(^ACRDOC(ACRDOCDA,"REQ2")),U,8)
S XMY($P(^ACRDOC(ACRDOCDA,"REQ2"),U,8))=""
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
S XMB(1)="Purchase Order NO. "_$P(ACRDOC0,U,2)_" ("_$P(ACRDOC0,U)_" - "_$P(ACRDOC0,U,14)_")"
S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
X ^DD("DD")
S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="PO SIGNED"
S XMB="ACR PO SIGNED"
D ^XMD
Q
TRAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
Q:'$P($G(^ACRDOC(ACRDOCDA,"TRNG")),U,2) S ACRDUZ=$P(^("TRNG"),U,2)
S XMY(ACRDUZ)=""
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
;S XMB(1)="Training Request NO. "_$P(ACRDOC0,U,2)_" ("_$P(ACRDOC0,U)_" - "_$P(ACRDOC0,U,14)_") for "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(1)="Training Request NO. "_$P(ACRDOC0,U,2)_" ("_$P(ACRDOC0,U)_" - "_$P(ACRDOC0,U,14)_") for "_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
X ^DD("DD")
S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="TRAINING REQUEST SIGNED"
S XMB="ACR TR SIGNED"
D ^XMD
Q
TO25(ACRDOCDA,ACRAPDA) ;EP;TO SEND MESSAGE TO AREA FMO WHEN AMOUNT IS GREATER THAN 2500 ;ACR*2.1*5.15
;ALSO SENDS MESSAGE TO THE TRAVEL VOUCHER AUDITOR
;ENTERS WITH FMS DOCUMENT IEN AND FMS REQUEST CONTROLLER FILE IEN
;
N ACRDUZ,ACRFMO,ACRAMT,ACRTMP,ACRDOC0,ACRNAM,ACRID,XMY
N ACRDOC,X,Y,XMDUZ,XMTEXT,XMSUB
S ACRDUZ=$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9) ; TRAVELER
Q:'ACRDUZ
S ACRAMT=$$TOTAMT^ACRFSSU(ACRDOCDA) ; TOTAL AMOUNT
Q:ACRAMT<2500
S ACRFMO=$P($G(^ACRDOC(ACRDOCDA,"REQ1")),U,13) ; AREA FMO
Q:'ACRFMO
S ACRFMO=$$NAME^ACRFUTL1(ACRFMO)
S XMY(ACRFMO)=""
S ACRTVA=$P($G(^ACRDOC(ACRDOCDA,"TO")),U,24) ;TRAVEL VOUCHER AUDITOR
I ACRTVA]"" D
.S ACRTVA=$$NAME^ACRFUTL1(ACRTVA)
.S XMY(ACRTVA)=""
S ACRDOC0=^ACRDOC(ACRDOCDA,0)
S ACRDOC=$P(ACRDOC0,U)
S ACRNAM=$$NAME^ACRFUTL1(ACRDUZ)
S ACRID=$P(ACRDOC0,U,14) ; DOCUMENT ID
S XMB(1)="Travel Order NO. "_ACRDOC_" ("_ACRID_") for "_ACRNAM
S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2) ; REQUESTED BY
S ACRNAM=$$NAME^ACRFUTL1(X)
S Y=DT X ^DD("DD")
S XMB(2)="for "_ACRAMT_" was requested on "_Y_" by "_ACRNAM
S XMDUZ=.5
S XMTEXT="XMB("
S XMSUB="TRAVEL ORDER REQ >$2500"
S XMB="ACR TO REQ >2500"
D ^XMD
Q
ACRFXMY ;IHS/OIRM/DSD/THL,AEF - SEND ARMS MESSAGES TO MM; [ 09/26/2005 10:20 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**5,19**;NOV 05, 2001
+2 ;;ROUTINE USED TO PROCESS MAILMAN MESSAGES GENERATED BY VARIOUS ARMS
+3 ;;FUNCTIONS
XMY ;EP;
+1 IF $DATA(ACRAPDA)
SET ACRAPDAX=ACRAPDA
+2 NEW ACRAPDA
+3 KILL XMY
+4 SET ACRAPDA=0
+5 FOR
SET ACRAPDA=$ORDER(^ACRAPVS("AB",ACRDOCDA,ACRAPDA))
IF 'ACRAPDA
QUIT
Begin DoDot:1
+6 SET ACRDT=$GET(^ACRAPVS(ACRAPDA,"DT"))
+7 SET ACR0=$GET(^ACRAPVS(ACRAPDA,0))
+8 IF $PIECE(ACRDT,U)=""
QUIT
+9 IF $PIECE(ACRDT,U,2)
IF $PIECE(ACR0,U,6)=$PIECE(^ACRDOC(ACRDOCDA,0),U,13)
DO XMY1
End DoDot:1
+10 SET XMY($PIECE(^ACROBL(ACRDOCDA,0),U,5))=""
+11 SET XMY(DUZ)=""
+12 IF ACRAPDAS="D"
Begin DoDot:1
+13 IF $GET(ACRAPDAX)
IF $PIECE(^ACRAPVS(ACRAPDAX,0),U,11)
QUIT
+14 SET DA=ACRDOCDA
+15 SET DIE="^ACROBL("
+16 SET DR="905////D"
+17 DO DIE^ACRFDIC
End DoDot:1
+18 IF $DATA(ACRAPDAX)
SET ACRAPDA=ACRAPDAX
+19 IF '$DATA(ACRAPDAX)
KILL ACRAPDA
+20 KILL ACRAPDAX
+21 IF $DATA(XMY)
DO MESSAGE
+22 QUIT
XMY1 SET XMY($PIECE(ACRDT,U,2))=""
+1 IF $PIECE(ACRDT,U,6)
IF $PIECE(ACRDT,U,6)'=$PIECE(ACRDT,U,2)
SET XMY($PIECE(ACRDT,U,6))=""
+2 QUIT
MESSAGE ;EP;
+1 IF $GET(ACRAPDA)
Begin DoDot:1
+2 WRITE !!,"One moment please, message being delivered."
+3 HANG 2
+4 SET ^ACROBL(ACRDOCDA,"CNG")=$GET(^ACRAPVS(ACRAPDA,"CNG"))
+5 SET ^ACROBL(ACRDOCDA,"RSN")=$GET(^ACRAPVS(ACRAPDA,"RSN"))
End DoDot:1
+6 IF '$GET(ACRAPDA)
Begin DoDot:1
+7 SET DA=ACRDOCDA
+8 SET DIE="^ACROBL("
+9 SET DR="[ACR REASON FOR CHANGE]"
+10 DO DDS^ACRFDIC
+11 IF '$DATA(ACRSCREN)
QUIT
+12 KILL ACRSCREN
+13 WRITE !
+14 DO DIE^ACRFDIC
End DoDot:1
+15 SET ACRCNG=$GET(^ACROBL(ACRDOCDA,"CNG"))
+16 SET ACRRSN=$GET(^ACROBL(ACRDOCDA,"RSN"))
+17 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+18 IF $GET(ACRAPDA)
Begin DoDot:1
+19 IF $PIECE(^ACRAPVS(ACRAPDA,0),U,11)
SET XMB(1)="TRAVEL ADVANCE for "
End DoDot:1
+20 SET XMB(1)=$GET(XMB(1))_"Document no. "_$PIECE(ACRDOC0,U)_" ("_$SELECT($PIECE(ACRDOC0,U,2)]""&($PIECE(ACRDOC0,U)'=$PIECE(ACRDOC0,U,2)):$PIECE(ACRDOC0,U,2)_" - ",1:"")_$PIECE(^ACRDOC(ACRDOCDA,0),U,14)_") ,was "
+21 SET XMB(1)=XMB(1)_$SELECT(ACRAPDAS="A":"APPROVED",ACRAPDAS="R":"RETURNED FOR CLARIFICATION",ACRAPDAS="D":"DISAPPROVD",1:"PROCESSED, READ COMMENTS BELOW")_" by "
+22 ;S XMB(2)=$P(^VA(200,DUZ,0),U) ;ACR*2.1*19.02 IM16848
+23 ;ACR*2.1*19.02 IM16848
SET XMB(2)=$$NAME2^ACRFUTL1(DUZ)
+24 SET XMB(2)=$PIECE($PIECE(XMB(2),",",2)," ")_" "_$PIECE(XMB(2),",")
+25 SET XMB(3)=$SELECT($GET(ACRAPDA):$PIECE(^ACRAPVT($PIECE(^ACRAPVS(ACRAPDA,0),U,3),0),U),1:"")
+26 SET XMB(3)=$PIECE($PIECE(XMB(3),",",2)," ")_" "_$PIECE(XMB(3),",")
+27 SET XMB(2)=XMB(2)_" as the "_XMB(3)
+28 SET XMB(3)=" "
+29 SET XMB(4)="Information which needs to be changed:"
+30 IF ACRCNG]""
Begin DoDot:1
+31 NEW ACRI
+32 FOR ACRI=1:1:5
IF $PIECE(ACRCNG,U,ACRI)]""
SET XMB(ACRI+4)=$PIECE(ACRCNG,U,ACRI)
End DoDot:1
+33 SET XMB(10)=" "
+34 SET XMB(11)="Reason for change: "
+35 IF ACRRSN]""
Begin DoDot:1
+36 NEW ACRI
+37 FOR ACRI=1:1:5
IF $PIECE(ACRRSN,U,ACRI)]""
SET XMB(ACRI+11)=$PIECE(ACRRSN,U,ACRI)
End DoDot:1
+38 SET XMDUZ=.5
+39 SET XMTEXT="XMB("
+40 SET XMSUB="REQUEST COMMENT/DISAPPROVAL NOTIFICATION"
+41 SET XMB="ACR REQUEST STATUS"
+42 DO ^XMD
+43 KILL ACRAPV,ACRCNG,ACRRSN,XMB,XMDUZ,XMSUB,XMY,XMTEXT
+44 QUIT
TVAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
+1 IF '$PIECE($GET(^ACRDOC(ACRDOCDA,"TO")),U,9)
QUIT
+2 NEW ACRDUZ
+3 SET ACRDUZ=$PIECE(^ACRDOC(ACRDOCDA,"TO"),U,9)
+4 SET XMY(ACRDUZ)=""
+5 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+6 ;S XMB(1)="The Travel Voucher for Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
+7 ;ACR*2.1*19.02 IM16848
SET XMB(1)="The Travel Voucher for Travel Order NO. "_$PIECE(ACRDOC0,U)_" ("_$PIECE(ACRDOC0,U,14)_") for "_$$NAME2^ACRFUTL1(+ACRDUZ)
+8 SET Y=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,4)
+9 XECUTE ^DD("DD")
+10 SET X=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,2)
+11 ;S XMB(2)="was Certified for Payment on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
+12 ;S XMB(3)="Payment should be made to "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
+13 ;ACR*2.1*19.02 IM16848
SET XMB(2)="was Certified for Payment on "_Y_" by "_$$NAME2^ACRFUTL1(+X)
+14 ;ACR*2.1*19.02 IM16848
SET XMB(3)="Payment should be made to "_$$NAME2^ACRFUTL1(+ACRDUZ)
+15 DO ^ACRFTOT
+16 IF $GET(ACRREIM)]""
SET XMB(4)="in the amount of "_$FNUMBER(ACRREIM,"P,",2)_" on Schedule No.: "_$PIECE($GET(^ACRDOC(ACRDOCDA,18)),U,3)
+17 SET XMDUZ=.5
+18 SET XMTEXT="XMB("
+19 SET XMSUB="TRAVEL VOUCHER CERTIFIED FOR PAYMENT"
+20 SET XMB="ACR TV CERT FOR PAY"
+21 DO ^XMD
+22 QUIT
TOAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
+1 IF '$PIECE($GET(^ACRDOC(ACRDOCDA,"TO")),U,9)
QUIT
SET ACRDUZ=$PIECE(^("TO"),U,9)
+2 SET XMY(ACRDUZ)=""
+3 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+4 ;S XMB(1)="Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for"_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.19*1.02 IM16848
+5 ;ACR*2.1*19.02 IM16848
SET XMB(1)="Travel Order NO. "_$PIECE(ACRDOC0,U)_" ("_$PIECE(ACRDOC0,U,14)_") for"_$$NAME2^ACRFUTL1(+ACRDUZ)
+6 SET Y=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,4)
+7 XECUTE ^DD("DD")
+8 SET X=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,2)
+9 ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
+10 ;ACR*2.1*19.02 IM16848
SET XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X)
+11 SET XMDUZ=.5
+12 SET XMTEXT="XMB("
+13 SET XMSUB="TRAVEL ORDER APPROVED"
+14 SET XMB="ACR TO SIGNED"
+15 DO ^XMD
+16 QUIT
POAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
+1 IF '$PIECE($GET(^ACRDOC(ACRDOCDA,"REQ2")),U,8)
QUIT
+2 SET XMY($PIECE(^ACRDOC(ACRDOCDA,"REQ2"),U,8))=""
+3 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+4 SET XMB(1)="Purchase Order NO. "_$PIECE(ACRDOC0,U,2)_" ("_$PIECE(ACRDOC0,U)_" - "_$PIECE(ACRDOC0,U,14)_")"
+5 SET Y=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,4)
+6 XECUTE ^DD("DD")
+7 SET X=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,2)
+8 ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
+9 ;ACR*2.1*19.02 IM16848
SET XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X)
+10 SET XMDUZ=.5
+11 SET XMTEXT="XMB("
+12 SET XMSUB="PO SIGNED"
+13 SET XMB="ACR PO SIGNED"
+14 DO ^XMD
+15 QUIT
TRAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
+1 IF '$PIECE($GET(^ACRDOC(ACRDOCDA,"TRNG")),U,2)
QUIT
SET ACRDUZ=$PIECE(^("TRNG"),U,2)
+2 SET XMY(ACRDUZ)=""
+3 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+4 ;S XMB(1)="Training Request NO. "_$P(ACRDOC0,U,2)_" ("_$P(ACRDOC0,U)_" - "_$P(ACRDOC0,U,14)_") for "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
+5 ;ACR*2.1*19.02 IM16848
SET XMB(1)="Training Request NO. "_$PIECE(ACRDOC0,U,2)_" ("_$PIECE(ACRDOC0,U)_" - "_$PIECE(ACRDOC0,U,14)_") for "_$$NAME2^ACRFUTL1(+ACRDUZ)
+6 SET Y=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,4)
+7 XECUTE ^DD("DD")
+8 SET X=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,2)
+9 ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
+10 ;ACR*2.1*19.02 IM16848
SET XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X)
+11 SET XMDUZ=.5
+12 SET XMTEXT="XMB("
+13 SET XMSUB="TRAINING REQUEST SIGNED"
+14 SET XMB="ACR TR SIGNED"
+15 DO ^XMD
+16 QUIT
TO25(ACRDOCDA,ACRAPDA) ;EP;TO SEND MESSAGE TO AREA FMO WHEN AMOUNT IS GREATER THAN 2500 ;ACR*2.1*5.15
+1 ;ALSO SENDS MESSAGE TO THE TRAVEL VOUCHER AUDITOR
+2 ;ENTERS WITH FMS DOCUMENT IEN AND FMS REQUEST CONTROLLER FILE IEN
+3 ;
+4 NEW ACRDUZ,ACRFMO,ACRAMT,ACRTMP,ACRDOC0,ACRNAM,ACRID,XMY
+5 NEW ACRDOC,X,Y,XMDUZ,XMTEXT,XMSUB
+6 ; TRAVELER
SET ACRDUZ=$PIECE($GET(^ACRDOC(ACRDOCDA,"TO")),U,9)
+7 IF 'ACRDUZ
QUIT
+8 ; TOTAL AMOUNT
SET ACRAMT=$$TOTAMT^ACRFSSU(ACRDOCDA)
+9 IF ACRAMT<2500
QUIT
+10 ; AREA FMO
SET ACRFMO=$PIECE($GET(^ACRDOC(ACRDOCDA,"REQ1")),U,13)
+11 IF 'ACRFMO
QUIT
+12 SET ACRFMO=$$NAME^ACRFUTL1(ACRFMO)
+13 SET XMY(ACRFMO)=""
+14 ;TRAVEL VOUCHER AUDITOR
SET ACRTVA=$PIECE($GET(^ACRDOC(ACRDOCDA,"TO")),U,24)
+15 IF ACRTVA]""
Begin DoDot:1
+16 SET ACRTVA=$$NAME^ACRFUTL1(ACRTVA)
+17 SET XMY(ACRTVA)=""
End DoDot:1
+18 SET ACRDOC0=^ACRDOC(ACRDOCDA,0)
+19 SET ACRDOC=$PIECE(ACRDOC0,U)
+20 SET ACRNAM=$$NAME^ACRFUTL1(ACRDUZ)
+21 ; DOCUMENT ID
SET ACRID=$PIECE(ACRDOC0,U,14)
+22 SET XMB(1)="Travel Order NO. "_ACRDOC_" ("_ACRID_") for "_ACRNAM
+23 ; REQUESTED BY
SET X=$PIECE(^ACRAPVS(ACRAPDA,"DT"),U,2)
+24 SET ACRNAM=$$NAME^ACRFUTL1(X)
+25 SET Y=DT
XECUTE ^DD("DD")
+26 SET XMB(2)="for "_ACRAMT_" was requested on "_Y_" by "_ACRNAM
+27 SET XMDUZ=.5
+28 SET XMTEXT="XMB("
+29 SET XMSUB="TRAVEL ORDER REQ >$2500"
+30 SET XMB="ACR TO REQ >2500"
+31 DO ^XMD
+32 QUIT
