Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFXMY

ACRFXMY.m

Go to the documentation of this file.
  1. 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
  1. ;;ROUTINE USED TO PROCESS MAILMAN MESSAGES GENERATED BY VARIOUS ARMS
  1. ;;FUNCTIONS
  1. XMY ;EP;
  1. S:$D(ACRAPDA) ACRAPDAX=ACRAPDA
  1. N ACRAPDA
  1. K XMY
  1. S ACRAPDA=0
  1. F S ACRAPDA=$O(^ACRAPVS("AB",ACRDOCDA,ACRAPDA)) Q:'ACRAPDA D
  1. .S ACRDT=$G(^ACRAPVS(ACRAPDA,"DT"))
  1. .S ACR0=$G(^ACRAPVS(ACRAPDA,0))
  1. .Q:$P(ACRDT,U)=""
  1. .I $P(ACRDT,U,2),$P(ACR0,U,6)=$P(^ACRDOC(ACRDOCDA,0),U,13) D XMY1
  1. S XMY($P(^ACROBL(ACRDOCDA,0),U,5))=""
  1. S XMY(DUZ)=""
  1. I ACRAPDAS="D" D
  1. . I $G(ACRAPDAX) Q:$P(^ACRAPVS(ACRAPDAX,0),U,11)
  1. .S DA=ACRDOCDA
  1. .S DIE="^ACROBL("
  1. .S DR="905////D"
  1. .D DIE^ACRFDIC
  1. S:$D(ACRAPDAX) ACRAPDA=ACRAPDAX
  1. K:'$D(ACRAPDAX) ACRAPDA
  1. K ACRAPDAX
  1. D:$D(XMY) MESSAGE
  1. Q
  1. XMY1 S XMY($P(ACRDT,U,2))=""
  1. I $P(ACRDT,U,6),$P(ACRDT,U,6)'=$P(ACRDT,U,2) S XMY($P(ACRDT,U,6))=""
  1. Q
  1. MESSAGE ;EP;
  1. I $G(ACRAPDA) D
  1. .W !!,"One moment please, message being delivered."
  1. .H 2
  1. .S ^ACROBL(ACRDOCDA,"CNG")=$G(^ACRAPVS(ACRAPDA,"CNG"))
  1. .S ^ACROBL(ACRDOCDA,"RSN")=$G(^ACRAPVS(ACRAPDA,"RSN"))
  1. I '$G(ACRAPDA) D
  1. .S DA=ACRDOCDA
  1. .S DIE="^ACROBL("
  1. .S DR="[ACR REASON FOR CHANGE]"
  1. .D DDS^ACRFDIC
  1. .Q:'$D(ACRSCREN)
  1. .K ACRSCREN
  1. .W !
  1. .D DIE^ACRFDIC
  1. S ACRCNG=$G(^ACROBL(ACRDOCDA,"CNG"))
  1. S ACRRSN=$G(^ACROBL(ACRDOCDA,"RSN"))
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. I $G(ACRAPDA) D
  1. . I $P(^ACRAPVS(ACRAPDA,0),U,11) S XMB(1)="TRAVEL ADVANCE for "
  1. 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 "
  1. S XMB(1)=XMB(1)_$S(ACRAPDAS="A":"APPROVED",ACRAPDAS="R":"RETURNED FOR CLARIFICATION",ACRAPDAS="D":"DISAPPROVD",1:"PROCESSED, READ COMMENTS BELOW")_" by "
  1. ;S XMB(2)=$P(^VA(200,DUZ,0),U) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)=$$NAME2^ACRFUTL1(DUZ) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)=$P($P(XMB(2),",",2)," ")_" "_$P(XMB(2),",")
  1. S XMB(3)=$S($G(ACRAPDA):$P(^ACRAPVT($P(^ACRAPVS(ACRAPDA,0),U,3),0),U),1:"")
  1. S XMB(3)=$P($P(XMB(3),",",2)," ")_" "_$P(XMB(3),",")
  1. S XMB(2)=XMB(2)_" as the "_XMB(3)
  1. S XMB(3)=" "
  1. S XMB(4)="Information which needs to be changed:"
  1. I ACRCNG]"" D
  1. .N ACRI
  1. .F ACRI=1:1:5 S:$P(ACRCNG,U,ACRI)]"" XMB(ACRI+4)=$P(ACRCNG,U,ACRI)
  1. S XMB(10)=" "
  1. S XMB(11)="Reason for change: "
  1. I ACRRSN]"" D
  1. .N ACRI
  1. .F ACRI=1:1:5 S:$P(ACRRSN,U,ACRI)]"" XMB(ACRI+11)=$P(ACRRSN,U,ACRI)
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="REQUEST COMMENT/DISAPPROVAL NOTIFICATION"
  1. S XMB="ACR REQUEST STATUS"
  1. D ^XMD
  1. K ACRAPV,ACRCNG,ACRRSN,XMB,XMDUZ,XMSUB,XMY,XMTEXT
  1. Q
  1. TVAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
  1. Q:'$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9)
  1. N ACRDUZ
  1. S ACRDUZ=$P(^ACRDOC(ACRDOCDA,"TO"),U,9)
  1. S XMY(ACRDUZ)=""
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. ;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
  1. 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
  1. S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
  1. X ^DD("DD")
  1. S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
  1. ;S XMB(2)="was Certified for Payment on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
  1. ;S XMB(3)="Payment should be made to "_$P($G(^VA(200,+ACRDUZ,0)),U) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)="was Certified for Payment on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
  1. S XMB(3)="Payment should be made to "_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
  1. D ^ACRFTOT
  1. S:$G(ACRREIM)]"" XMB(4)="in the amount of "_$FN(ACRREIM,"P,",2)_" on Schedule No.: "_$P($G(^ACRDOC(ACRDOCDA,18)),U,3)
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="TRAVEL VOUCHER CERTIFIED FOR PAYMENT"
  1. S XMB="ACR TV CERT FOR PAY"
  1. D ^XMD
  1. Q
  1. TOAPP ;EP;TO SEND MESSAGE TO TRAVELER WHEN PAYMENT IS CERTIFIED
  1. Q:'$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9) S ACRDUZ=$P(^("TO"),U,9)
  1. S XMY(ACRDUZ)=""
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. ;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
  1. S XMB(1)="Travel Order NO. "_$P(ACRDOC0,U)_" ("_$P(ACRDOC0,U,14)_") for"_$$NAME2^ACRFUTL1(+ACRDUZ) ;ACR*2.1*19.02 IM16848
  1. S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
  1. X ^DD("DD")
  1. S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
  1. ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="TRAVEL ORDER APPROVED"
  1. S XMB="ACR TO SIGNED"
  1. D ^XMD
  1. Q
  1. POAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
  1. Q:'$P($G(^ACRDOC(ACRDOCDA,"REQ2")),U,8)
  1. S XMY($P(^ACRDOC(ACRDOCDA,"REQ2"),U,8))=""
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. S XMB(1)="Purchase Order NO. "_$P(ACRDOC0,U,2)_" ("_$P(ACRDOC0,U)_" - "_$P(ACRDOC0,U,14)_")"
  1. S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
  1. X ^DD("DD")
  1. S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
  1. ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="PO SIGNED"
  1. S XMB="ACR PO SIGNED"
  1. D ^XMD
  1. Q
  1. TRAPP ;EP;TO SEND MESSAGE TO REQUEST INITIATOR WHEN PO IS SIGNED
  1. Q:'$P($G(^ACRDOC(ACRDOCDA,"TRNG")),U,2) S ACRDUZ=$P(^("TRNG"),U,2)
  1. S XMY(ACRDUZ)=""
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. ;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
  1. 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
  1. S Y=$P(^ACRAPVS(ACRAPDA,"DT"),U,4)
  1. X ^DD("DD")
  1. S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2)
  1. ;S XMB(2)="was approved on "_Y_" by "_$P($G(^VA(200,+X,0)),U) ;ACR*2.1*19.02 IM16848
  1. S XMB(2)="was approved on "_Y_" by "_$$NAME2^ACRFUTL1(+X) ;ACR*2.1*19.02 IM16848
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="TRAINING REQUEST SIGNED"
  1. S XMB="ACR TR SIGNED"
  1. D ^XMD
  1. Q
  1. 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
  1. ;ENTERS WITH FMS DOCUMENT IEN AND FMS REQUEST CONTROLLER FILE IEN
  1. ;
  1. N ACRDUZ,ACRFMO,ACRAMT,ACRTMP,ACRDOC0,ACRNAM,ACRID,XMY
  1. N ACRDOC,X,Y,XMDUZ,XMTEXT,XMSUB
  1. S ACRDUZ=$P($G(^ACRDOC(ACRDOCDA,"TO")),U,9) ; TRAVELER
  1. Q:'ACRDUZ
  1. S ACRAMT=$$TOTAMT^ACRFSSU(ACRDOCDA) ; TOTAL AMOUNT
  1. Q:ACRAMT<2500
  1. S ACRFMO=$P($G(^ACRDOC(ACRDOCDA,"REQ1")),U,13) ; AREA FMO
  1. Q:'ACRFMO
  1. S ACRFMO=$$NAME^ACRFUTL1(ACRFMO)
  1. S XMY(ACRFMO)=""
  1. S ACRTVA=$P($G(^ACRDOC(ACRDOCDA,"TO")),U,24) ;TRAVEL VOUCHER AUDITOR
  1. I ACRTVA]"" D
  1. .S ACRTVA=$$NAME^ACRFUTL1(ACRTVA)
  1. .S XMY(ACRTVA)=""
  1. S ACRDOC0=^ACRDOC(ACRDOCDA,0)
  1. S ACRDOC=$P(ACRDOC0,U)
  1. S ACRNAM=$$NAME^ACRFUTL1(ACRDUZ)
  1. S ACRID=$P(ACRDOC0,U,14) ; DOCUMENT ID
  1. S XMB(1)="Travel Order NO. "_ACRDOC_" ("_ACRID_") for "_ACRNAM
  1. S X=$P(^ACRAPVS(ACRAPDA,"DT"),U,2) ; REQUESTED BY
  1. S ACRNAM=$$NAME^ACRFUTL1(X)
  1. S Y=DT X ^DD("DD")
  1. S XMB(2)="for "_ACRAMT_" was requested on "_Y_" by "_ACRNAM
  1. S XMDUZ=.5
  1. S XMTEXT="XMB("
  1. S XMSUB="TRAVEL ORDER REQ >$2500"
  1. S XMB="ACR TO REQ >2500"
  1. D ^XMD
  1. Q