- ACRFEAL ;IHS/OIRM/DSD/THL,AEF - EDIT AIRLINE FLIGHT; [ 11/01/2001 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- ;;ROUTINE TO ALLOW EDIT OF TRAVEL DAYS
- EN D FIELDS
- F D EN1 Q:$D(ACRQUIT)
- EXIT K ACRX,ACRAL0,ACRAL1,ACRALDT,ACRFLDS,ACRY,ACR
- Q
- EN1 ;
- D DISP
- S DIR(0)="LO^1:11"
- S DIR("A")=" Edit which fields"
- D DIR^ACRFDIC
- I +Y<1 S ACRQUIT="" Q
- S ACRFLDS=ACRY
- W !
- F J=1:1 S ACRX=$P(ACRFLDS,",",J) Q:ACRX="" D DIE
- Q
- DIE ;
- S DA=ACRDA
- S DIE="^ACRAL("
- S DR=ACR("DR",ACRX)
- I $E(DR)'="[",DR'["T" S DR=DR_"T"
- D DIE^ACRFDIC
- Q
- DISP ;DISPLAY TRAVEL DAY INFO
- D GATHER
- W @IOF
- W !?17,@ACRON,"AIRLINE FLIGHT INFORMATION",@ACROF
- W !,"1. DATE ISSUED.: ",$G(ACR(1))
- W !,"2. AIRLINE COMP: ",$G(ACR(2))
- W !,"3. CONTRCT FARE: ",$G(ACR(3))
- W !,"4. FLIGHT COST.: ",$G(ACR(4))
- W !,"5. GTR NO......: ",$G(ACR(5))
- W !,"6. FLIGHT NO...: ",$G(ACR(6))
- W !,"7. DEPART TIME.: ",$G(ACR(7))
- W !,"8. DEPART FROM.: ",$G(ACR(8))
- W !,"9. ARRIVE TIME.: ",$G(ACR(9))
- W !,"10.ARRIVE IN...: ",$G(ACR(10))
- W !,"11.SEAT ASSIGN.: ",$G(ACR(11))
- W !,"--------------------------------------------------------------------------------"
- Q
- GATHER ;GATHER TRAVEL DAY INFO
- S ACRAL0=$G(^ACRAL(ACRDA,0))
- S ACRALDT=$G(^ACRAL(ACRDA,"DT"))
- S Y=$P(ACRALDT,U)
- X ^DD("DD")
- S ACR(1)=Y
- S ACR(2)=$P($G(^ACRACOMP(+$P(ACRALDT,U,2),0)),U)
- S ACR(3)=$P(ACRALDT,U,11)
- S ACR(4)=$FN($P(ACRALDT,U,9),"P,",2)
- S ACR(5)=$P(ACRALDT,U,10)
- S ACR(6)=$P(ACRALDT,U,3)
- S Y=$P(ACRALDT,U,4)
- X ^DD("DD")
- S ACR(7)=Y
- S ACR(8)=$P(ACRALDT,U,5)
- I ACR(8) S ACR(8)=$P($G(^ACRPD(ACR(8),0)),U)
- S Y=$P(ACRALDT,U,6)
- X ^DD("DD")
- S ACR(9)=Y
- S ACR(10)=$P(ACRALDT,U,7)
- I ACR(10) S ACR(10)=$P($G(^ACRPD(ACR(10),0)),U)
- S ACR(11)=$P(ACRALDT,U,8)
- Q
- FIELDS ;SET FIELDS TO BE EDITED
- S ACR("DR",1)=1
- S ACR("DR",2)=2
- S ACR("DR",3)=11
- S ACR("DR",4)=9
- S ACR("DR",5)=10
- S ACR("DR",6)=3
- S ACR("DR",7)=4
- S ACR("DR",8)=5
- S ACR("DR",9)=6
- S ACR("DR",10)=7
- S ACR("DR",11)=8
- Q
- ACRFEAL ;IHS/OIRM/DSD/THL,AEF - EDIT AIRLINE FLIGHT; [ 11/01/2001 9:44 AM ]
- +1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- +2 ;;ROUTINE TO ALLOW EDIT OF TRAVEL DAYS
- EN DO FIELDS
- +1 FOR
- DO EN1
- IF $DATA(ACRQUIT)
- QUIT
- EXIT KILL ACRX,ACRAL0,ACRAL1,ACRALDT,ACRFLDS,ACRY,ACR
- +1 QUIT
- EN1 ;
- +1 DO DISP
- +2 SET DIR(0)="LO^1:11"
- +3 SET DIR("A")=" Edit which fields"
- +4 DO DIR^ACRFDIC
- +5 IF +Y<1
- SET ACRQUIT=""
- QUIT
- +6 SET ACRFLDS=ACRY
- +7 WRITE !
- +8 FOR J=1:1
- SET ACRX=$PIECE(ACRFLDS,",",J)
- IF ACRX=""
- QUIT
- DO DIE
- +9 QUIT
- DIE ;
- +1 SET DA=ACRDA
- +2 SET DIE="^ACRAL("
- +3 SET DR=ACR("DR",ACRX)
- +4 IF $EXTRACT(DR)'="["
- IF DR'["T"
- SET DR=DR_"T"
- +5 DO DIE^ACRFDIC
- +6 QUIT
- DISP ;DISPLAY TRAVEL DAY INFO
- +1 DO GATHER
- +2 WRITE @IOF
- +3 WRITE !?17,@ACRON,"AIRLINE FLIGHT INFORMATION",@ACROF
- +4 WRITE !,"1. DATE ISSUED.: ",$GET(ACR(1))
- +5 WRITE !,"2. AIRLINE COMP: ",$GET(ACR(2))
- +6 WRITE !,"3. CONTRCT FARE: ",$GET(ACR(3))
- +7 WRITE !,"4. FLIGHT COST.: ",$GET(ACR(4))
- +8 WRITE !,"5. GTR NO......: ",$GET(ACR(5))
- +9 WRITE !,"6. FLIGHT NO...: ",$GET(ACR(6))
- +10 WRITE !,"7. DEPART TIME.: ",$GET(ACR(7))
- +11 WRITE !,"8. DEPART FROM.: ",$GET(ACR(8))
- +12 WRITE !,"9. ARRIVE TIME.: ",$GET(ACR(9))
- +13 WRITE !,"10.ARRIVE IN...: ",$GET(ACR(10))
- +14 WRITE !,"11.SEAT ASSIGN.: ",$GET(ACR(11))
- +15 WRITE !,"--------------------------------------------------------------------------------"
- +16 QUIT
- GATHER ;GATHER TRAVEL DAY INFO
- +1 SET ACRAL0=$GET(^ACRAL(ACRDA,0))
- +2 SET ACRALDT=$GET(^ACRAL(ACRDA,"DT"))
- +3 SET Y=$PIECE(ACRALDT,U)
- +4 XECUTE ^DD("DD")
- +5 SET ACR(1)=Y
- +6 SET ACR(2)=$PIECE($GET(^ACRACOMP(+$PIECE(ACRALDT,U,2),0)),U)
- +7 SET ACR(3)=$PIECE(ACRALDT,U,11)
- +8 SET ACR(4)=$FNUMBER($PIECE(ACRALDT,U,9),"P,",2)
- +9 SET ACR(5)=$PIECE(ACRALDT,U,10)
- +10 SET ACR(6)=$PIECE(ACRALDT,U,3)
- +11 SET Y=$PIECE(ACRALDT,U,4)
- +12 XECUTE ^DD("DD")
- +13 SET ACR(7)=Y
- +14 SET ACR(8)=$PIECE(ACRALDT,U,5)
- +15 IF ACR(8)
- SET ACR(8)=$PIECE($GET(^ACRPD(ACR(8),0)),U)
- +16 SET Y=$PIECE(ACRALDT,U,6)
- +17 XECUTE ^DD("DD")
- +18 SET ACR(9)=Y
- +19 SET ACR(10)=$PIECE(ACRALDT,U,7)
- +20 IF ACR(10)
- SET ACR(10)=$PIECE($GET(^ACRPD(ACR(10),0)),U)
- +21 SET ACR(11)=$PIECE(ACRALDT,U,8)
- +22 QUIT
- FIELDS ;SET FIELDS TO BE EDITED
- +1 SET ACR("DR",1)=1
- +2 SET ACR("DR",2)=2
- +3 SET ACR("DR",3)=11
- +4 SET ACR("DR",4)=9
- +5 SET ACR("DR",5)=10
- +6 SET ACR("DR",6)=3
- +7 SET ACR("DR",7)=4
- +8 SET ACR("DR",8)=5
- +9 SET ACR("DR",9)=6
- +10 SET ACR("DR",10)=7
- +11 SET ACR("DR",11)=8
- +12 QUIT
