- 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
