BAREP186 ; IHS/SD/LSL - POST-INSTALL V1.8 PATCH 6; 07/30/2008
;;1.8;IHS ACCOUNTS RECEIVABLE;**6**;APR 27,2007
;;NEW ROUTINE -- CONTINUATION OF BAREV186
;
POST186 ;EP; PATCH 6 POST-INSTALL
D REINDEX ;add "G" cross reference to A/F UFMS Cashier Session Log file
D TASK186 ;task job to populate booking date with 9/30/08
;
N BARZ
F BARZ="3080901.21","3080930.21" D
.D TASK1862(BARZ) ;task jobs to kill NS X-REF ;MRS; BAR*1.8*6 SCR-124
Q
;
REINDEX ;index new cross reference on A/R UFMS Cashier Log
W !,"Adding ""G"" cross reference to A/R UFMS Cashier Session Log....",!
S BARHOLD=DUZ(2)
S DUZ(2)=0
F S DUZ(2)=$O(^BARSESS(DUZ(2))) Q:+DUZ(2)=0 D
.S BARA=0
.F S BARA=$O(^BARSESS(DUZ(2),BARA)) Q:+BARA=0 D
..S BARB=0
..F S BARB=$O(^BARSESS(DUZ(2),BARA,11,BARB)) Q:+BARB=0 D
...S DA(2)=BARA
...S DA(1)=BARB
...S DIK="^BARSESS(DUZ(2),"_DA(2)_",11,"_DA(1)_",2,"
...S DIK(1)=".01^G"
...D ENALL^DIK
S DUZ(2)=BARHOLD
Q
TASK186 ;EP
S ZTRTN="BOOKDT^BAREP186"
S ZTDESC="A/R UFMS BOOKING DT POPULATION"
S ZTIO=""
S ZTPRI=5
S ZTDTH="3080930.23" ;09/30/08 at 11:00pm
K ZTSK
D ^%ZTLOAD
W:$G(ZTSK) !,"Task # ",ZTSK," queued to populate UFMS booking date at 09/30/2008@23:00",!
Q
BOOKDT ;EP
S DUZ2=1
F S DUZ2=$O(^BAR(90052.06,DUZ2)) Q:'DUZ2 D
.S DA(1)=DUZ2
.S DA=0
.F S DA=$O(^BAR(90052.06,DUZ2,DA)) Q:'DA D
..Q:'$$IHS^BARUFUT(DA)
..S DIE="^BAR(90052.06,"_DA(1)_","
..S DR="1505////3081001"
..D ^DIE
Q
;
TASK1862(BARZ) ;EP;; KILL NOT SENT (NS) X-REF ;MRS;BAR*1.8*6 SCR-124
;TASK TWO JOBS, ONE FOR 9/1/08 @2100 AND ONE FOR 9/30/08 @2100
S ZTRTN="NS^BAREP186"
S ZTDTH=BARZ
S ZTDESC="A/R UFMS REMOVE NOT SENT AT "_ZTDTH
S ZTIO=""
S ZTPRI=5
K ZTSK
D ^%ZTLOAD
S BARZ=$S(BARZ[3080901:"09/01/2008@21:00",BARZ[3080930:"09/30/2008@21:00",1:"")
W:$G(ZTSK) !,"Task # ",ZTSK," queued to remove UFMS Not Sent cross-references at "_BARZ,!
Q
NS ;EP; KILL A/R UFMS CASHIER SESSION LOG NOT SENT CROSS-REFERENCES ;MRS;BAR*1.8*6 SCR-124
N DUZ2
S DUZ2=0
F S DUZ2=$O(^BARSESS(DUZ2)) Q:'DUZ2 D
.K ^BARSESS(DUZ2,"NS")
Q
BAREP186 ; IHS/SD/LSL - POST-INSTALL V1.8 PATCH 6; 07/30/2008
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**6**;APR 27,2007
+2 ;;NEW ROUTINE -- CONTINUATION OF BAREV186
+3 ;
POST186 ;EP; PATCH 6 POST-INSTALL
+1 ;add "G" cross reference to A/F UFMS Cashier Session Log file
DO REINDEX
+2 ;task job to populate booking date with 9/30/08
DO TASK186
+3 ;
+4 NEW BARZ
+5 FOR BARZ="3080901.21","3080930.21"
Begin DoDot:1
+6 ;task jobs to kill NS X-REF ;MRS; BAR*1.8*6 SCR-124
DO TASK1862(BARZ)
End DoDot:1
+7 QUIT
+8 ;
REINDEX ;index new cross reference on A/R UFMS Cashier Log
+1 WRITE !,"Adding ""G"" cross reference to A/R UFMS Cashier Session Log....",!
+2 SET BARHOLD=DUZ(2)
+3 SET DUZ(2)=0
+4 FOR
SET DUZ(2)=$ORDER(^BARSESS(DUZ(2)))
IF +DUZ(2)=0
QUIT
Begin DoDot:1
+5 SET BARA=0
+6 FOR
SET BARA=$ORDER(^BARSESS(DUZ(2),BARA))
IF +BARA=0
QUIT
Begin DoDot:2
+7 SET BARB=0
+8 FOR
SET BARB=$ORDER(^BARSESS(DUZ(2),BARA,11,BARB))
IF +BARB=0
QUIT
Begin DoDot:3
+9 SET DA(2)=BARA
+10 SET DA(1)=BARB
+11 SET DIK="^BARSESS(DUZ(2),"_DA(2)_",11,"_DA(1)_",2,"
+12 SET DIK(1)=".01^G"
+13 DO ENALL^DIK
End DoDot:3
End DoDot:2
End DoDot:1
+14 SET DUZ(2)=BARHOLD
+15 QUIT
TASK186 ;EP
+1 SET ZTRTN="BOOKDT^BAREP186"
+2 SET ZTDESC="A/R UFMS BOOKING DT POPULATION"
+3 SET ZTIO=""
+4 SET ZTPRI=5
+5 ;09/30/08 at 11:00pm
SET ZTDTH="3080930.23"
+6 KILL ZTSK
+7 DO ^%ZTLOAD
+8 IF $GET(ZTSK)
WRITE !,"Task # ",ZTSK," queued to populate UFMS booking date at 09/30/2008@23:00",!
+9 QUIT
BOOKDT ;EP
+1 SET DUZ2=1
+2 FOR
SET DUZ2=$ORDER(^BAR(90052.06,DUZ2))
IF 'DUZ2
QUIT
Begin DoDot:1
+3 SET DA(1)=DUZ2
+4 SET DA=0
+5 FOR
SET DA=$ORDER(^BAR(90052.06,DUZ2,DA))
IF 'DA
QUIT
Begin DoDot:2
+6 IF '$$IHS^BARUFUT(DA)
QUIT
+7 SET DIE="^BAR(90052.06,"_DA(1)_","
+8 SET DR="1505////3081001"
+9 DO ^DIE
End DoDot:2
End DoDot:1
+10 QUIT
+11 ;
TASK1862(BARZ) ;EP;; KILL NOT SENT (NS) X-REF ;MRS;BAR*1.8*6 SCR-124
+1 ;TASK TWO JOBS, ONE FOR 9/1/08 @2100 AND ONE FOR 9/30/08 @2100
+2 SET ZTRTN="NS^BAREP186"
+3 SET ZTDTH=BARZ
+4 SET ZTDESC="A/R UFMS REMOVE NOT SENT AT "_ZTDTH
+5 SET ZTIO=""
+6 SET ZTPRI=5
+7 KILL ZTSK
+8 DO ^%ZTLOAD
+9 SET BARZ=$SELECT(BARZ[3080901:"09/01/2008@21:00",BARZ[3080930:"09/30/2008@21:00",1:"")
+10 IF $GET(ZTSK)
WRITE !,"Task # ",ZTSK," queued to remove UFMS Not Sent cross-references at "_BARZ,!
+11 QUIT
NS ;EP; KILL A/R UFMS CASHIER SESSION LOG NOT SENT CROSS-REFERENCES ;MRS;BAR*1.8*6 SCR-124
+1 NEW DUZ2
+2 SET DUZ2=0
+3 FOR
SET DUZ2=$ORDER(^BARSESS(DUZ2))
IF 'DUZ2
QUIT
Begin DoDot:1
+4 KILL ^BARSESS(DUZ2,"NS")
End DoDot:1
+5 QUIT
