ACRFSS51 ;IHS/OIRM/DSD/THL,AEF - CONTINUATION OF ACRFSS5; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
;;CONTINUATION OF ACRFSS5
ADD ;EP;
F D ADD1 Q:$D(ACRQUIT)!$D(ACROUT)
D TMFEEA(ACRDOCDA)
Q
ADD1 S (ACRJ,X)=ACRJ+1
S DIC="^ACRAL("
S DIC(0)="L"
S DIC("DR")=".02////"_ACRDOCDA_";.03////"_ACRDOCDA
I ACRJ>1,$D(^ACRAL(+$G(ACRAL(1)),0)) S DIC("DR")=DIC("DR")_";2////"_$P($G(^("DT")),U,2)_";11////"_$P($G(^("DT")),U,11)
D FILE^ACRFDIC
S (DA,ACRDA)=+Y
D EDIT2
S DA=ACRDA
S DIR(0)="YO"
S DIR("A")="Add another flight"
S DIR("B")="NO"
W !
D DIR^ACRFDIC
I Y'=1 S ACRQUIT=""
Q
EDIT ;EP;
S DIR(0)="LO^1:"_ACRJ
S DIR("A")="Which FLIGHT(S)"
W !
D DIR^ACRFDIC
Q:$D(ACRQUIT)!$D(ACROUT)
S ACRZ=Y
F ACRI=1:1 S ACRYY=$P(ACRZ,",",ACRI) Q:'ACRYY D:$D(ACRAL(ACRYY)) EDIT1
K ACRZ
Q
EDIT1 S (DA,ACRDA)=+ACRAL(ACRYY)
EDIT2 S DIE="^ACRAL("
S DR="[ACR AIRLINE INFO]"
D DDS^ACRFDIC
Q:'$D(ACRSCREN)
K ACRSCREN
D ^ACRFEAL
Q
DELETE ;EP;
S DIR(0)="LO^1:"_ACRJ
S DIR("A")="Which FLIGHT(S)"
W !
D DIR^ACRFDIC
Q:$D(ACRQUIT)!$D(ACROUT)
S ACRY=Y
S:$E(ACRY,$L(ACRY))="," ACRY=$E(ACRY,1,($L(ACRY)-1))
F ACRI=1:1 S ACRYY=$P(ACRY,",",ACRI) Q:ACRYY="" D DTV1:$D(ACRAL(ACRYY))
Q
DTV1 S DA=$P(ACRAL(ACRYY),U)
S DIK="^ACRAL("
D DIK^ACRFDIC
D TMFEED(ACRDOCDA)
Q
TMFEEA(ACRDOCDA) ;
;----- ADDS TRAVEL MGT FEE WHEN AIRLINE FLIGHT IS ADDED
;
; ACRDOCDA = FMS DOCUMENT IEN
;
Q:'$D(^ACRAL("E",ACRDOCDA))
S DA=$$TMFIEN(ACRDOCDA)
Q:'DA
S DIE="^ACRSS("
S DR="13////"_+$P($G(^ACRSYS(1,400)),U)
D ^DIE
Q
TMFEED(ACRDOCDA) ;
;----- DELETES TRAVEL MGT FEE WHEN AIRLINE FLIGHTS ARE DELETED
;
; ACRDOCDA = FMS DOCUMENT IEN
;
Q:$D(^ACRAL("E",ACRDOCDA))
S DA=$$TMFIEN(ACRDOCDA)
Q:'DA
S DIE="^ACRSS("
S DR="13////"_"0"
D ^DIE
Q
TMFIEN(ACRDOCDA) ;
;----- EXTRINSIC FUNCTION - FIND FMS SUPPLIES & SERVICES ENTRY
; CONTAINING THE TRAVEL MGT FEE
;
; INPUT:
; ACRDOCDA = FMS DOCUMENT IEN
;
; OUTPUT:
; Y = FMS SUPPLIES & SERVICES FILE ENTRY IEN
;
N Y
S Y=0
F S Y=$O(^ACRSS("C",ACRDOCDA,Y)) Q:'Y Q:$P($G(^ACRSS(Y,"NMS")),U,5)="Travel Mgt Fee"
Q +Y
ACRFSS51 ;IHS/OIRM/DSD/THL,AEF - CONTINUATION OF ACRFSS5; [ 11/01/2001 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
+2 ;;CONTINUATION OF ACRFSS5
ADD ;EP;
+1 FOR
DO ADD1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+2 DO TMFEEA(ACRDOCDA)
+3 QUIT
ADD1 SET (ACRJ,X)=ACRJ+1
+1 SET DIC="^ACRAL("
+2 SET DIC(0)="L"
+3 SET DIC("DR")=".02////"_ACRDOCDA_";.03////"_ACRDOCDA
+4 IF ACRJ>1
IF $DATA(^ACRAL(+$GET(ACRAL(1)),0))
SET DIC("DR")=DIC("DR")_";2////"_$PIECE($GET(^("DT")),U,2)_";11////"_$PIECE($GET(^("DT")),U,11)
+5 DO FILE^ACRFDIC
+6 SET (DA,ACRDA)=+Y
+7 DO EDIT2
+8 SET DA=ACRDA
+9 SET DIR(0)="YO"
+10 SET DIR("A")="Add another flight"
+11 SET DIR("B")="NO"
+12 WRITE !
+13 DO DIR^ACRFDIC
+14 IF Y'=1
SET ACRQUIT=""
+15 QUIT
EDIT ;EP;
+1 SET DIR(0)="LO^1:"_ACRJ
+2 SET DIR("A")="Which FLIGHT(S)"
+3 WRITE !
+4 DO DIR^ACRFDIC
+5 IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+6 SET ACRZ=Y
+7 FOR ACRI=1:1
SET ACRYY=$PIECE(ACRZ,",",ACRI)
IF 'ACRYY
QUIT
IF $DATA(ACRAL(ACRYY))
DO EDIT1
+8 KILL ACRZ
+9 QUIT
EDIT1 SET (DA,ACRDA)=+ACRAL(ACRYY)
EDIT2 SET DIE="^ACRAL("
+1 SET DR="[ACR AIRLINE INFO]"
+2 DO DDS^ACRFDIC
+3 IF '$DATA(ACRSCREN)
QUIT
+4 KILL ACRSCREN
+5 DO ^ACRFEAL
+6 QUIT
DELETE ;EP;
+1 SET DIR(0)="LO^1:"_ACRJ
+2 SET DIR("A")="Which FLIGHT(S)"
+3 WRITE !
+4 DO DIR^ACRFDIC
+5 IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+6 SET ACRY=Y
+7 IF $EXTRACT(ACRY,$LENGTH(ACRY))=","
SET ACRY=$EXTRACT(ACRY,1,($LENGTH(ACRY)-1))
+8 FOR ACRI=1:1
SET ACRYY=$PIECE(ACRY,",",ACRI)
IF ACRYY=""
QUIT
IF $DATA(ACRAL(ACRYY))
DO DTV1
+9 QUIT
DTV1 SET DA=$PIECE(ACRAL(ACRYY),U)
+1 SET DIK="^ACRAL("
+2 DO DIK^ACRFDIC
+3 DO TMFEED(ACRDOCDA)
+4 QUIT
TMFEEA(ACRDOCDA) ;
+1 ;----- ADDS TRAVEL MGT FEE WHEN AIRLINE FLIGHT IS ADDED
+2 ;
+3 ; ACRDOCDA = FMS DOCUMENT IEN
+4 ;
+5 IF '$DATA(^ACRAL("E",ACRDOCDA))
QUIT
+6 SET DA=$$TMFIEN(ACRDOCDA)
+7 IF 'DA
QUIT
+8 SET DIE="^ACRSS("
+9 SET DR="13////"_+$PIECE($GET(^ACRSYS(1,400)),U)
+10 DO ^DIE
+11 QUIT
TMFEED(ACRDOCDA) ;
+1 ;----- DELETES TRAVEL MGT FEE WHEN AIRLINE FLIGHTS ARE DELETED
+2 ;
+3 ; ACRDOCDA = FMS DOCUMENT IEN
+4 ;
+5 IF $DATA(^ACRAL("E",ACRDOCDA))
QUIT
+6 SET DA=$$TMFIEN(ACRDOCDA)
+7 IF 'DA
QUIT
+8 SET DIE="^ACRSS("
+9 SET DR="13////"_"0"
+10 DO ^DIE
+11 QUIT
TMFIEN(ACRDOCDA) ;
+1 ;----- EXTRINSIC FUNCTION - FIND FMS SUPPLIES & SERVICES ENTRY
+2 ; CONTAINING THE TRAVEL MGT FEE
+3 ;
+4 ; INPUT:
+5 ; ACRDOCDA = FMS DOCUMENT IEN
+6 ;
+7 ; OUTPUT:
+8 ; Y = FMS SUPPLIES & SERVICES FILE ENTRY IEN
+9 ;
+10 NEW Y
+11 SET Y=0
+12 FOR
SET Y=$ORDER(^ACRSS("C",ACRDOCDA,Y))
IF 'Y
QUIT
IF $PIECE($GET(^ACRSS(Y,"NMS")),U,5)="Travel Mgt Fee"
QUIT
+13 QUIT +Y
