BDGM202.m

BDGM202 ; IHS/ANMC/LJF - HSA-202 QUEUE ;  [ 03/04/2004  1:55 PM ]

 ;;5.3;PIMS;**1004**;MAY 28, 2004

 ;IHS/OIT/LJF 07/15/2005 PATCH 1004 added check for earliest date

 ;

ONE ;EP; entry point for M202 (one month)

 NEW BDGBM,BDGEM

 ;IHS/ITSC/WAR 3/2/04 Added loop and earliest date check.

 S BDGBM=0

 F  Q:BDGBM  D

 .S BDGBM=$$READ^BDGF("DO^:"_DT_":EP","Print Report for Which Month")

 .I +BDGBM'=0,(BDGBM<$$GET1^DIQ(43,1_",GL",10,"I")) D

 ..W !!,"Date can not be earlier than "_$$GET1^DIQ(43,1_",GL",10),!

 ..D PAUSE^BDGF

 ..S BDGBM=0

 .E  D

 ..I +BDGBM=0 S BDGBM=-1 Q

 Q:BDGBM<1

 S BDGEM=BDGBM

 ;

 D ZIS^BDGF("PQ","^BDGM202A","M202 REPORT","BDGBM;BDGEM")

 D HOME^%ZIS

 Q

 ;

 ;

RANGE ;EP; entry point for Y202 (range of months)

 ;NEW BDGBM,BDGEM

 S BDGBM=$$READ^BDGF("DO^::EP","Start Report with Which Month")

 ;

 ;IHS/OIT/LJF 7/15/2005 PATCH 1004 code added

 I +BDGBM'=0,(BDGBM<$$GET1^DIQ(43,1_",GL",10,"I")) D  Q

 . W !!,"Date can not be earlier than "_$$GET1^DIQ(43,1_",GL",10),!

 . D PAUSE^BDGF

 ;IHS/OIT/LJF end of new code

 ;

 Q:BDGBM<1

 S BDGEM=$$READ^BDGF("DO^::EP","End Report with Which Month")

 Q:BDGEM<1

 I BDGEM<BDGBM W !!,"Sorry, END date must not be less than START date" D RANGE Q

 ;

 D ZIS^BDGF("PQ","^BDGM202A","Y202 REPORT","BDGBM;BDGEM")

 D HOME^%ZIS

 Q

BDGM202   ; IHS/ANMC/LJF - HSA-202 QUEUE ;  [ 03/04/2004  1:55 PM ]

 +1       ;;5.3;PIMS;**1004**;MAY 28, 2004

 +2       ;IHS/OIT/LJF 07/15/2005 PATCH 1004 added check for earliest date

 +3       ;

ONE       ;EP; entry point for M202 (one month)

 +1        NEW BDGBM,BDGEM

 +2       ;IHS/ITSC/WAR 3/2/04 Added loop and earliest date check.

 +3        SET BDGBM=0

 +4        FOR 

               IF BDGBM

                   QUIT 

               Begin DoDot:1

 +5                SET BDGBM=$$READ^BDGF("DO^:"_DT_":EP","Print Report for Which Month")

 +6                IF +BDGBM'=0

                       IF (BDGBM<$$GET1^DIQ(43,1_",GL",10,"I"))

                           Begin DoDot:2

 +7                            WRITE !!,"Date can not be earlier than "_$$GET1^DIQ(43,1_",GL",10),!

 +8                            DO PAUSE^BDGF

 +9                            SET BDGBM=0

                           End DoDot:2

 +10              IF '$TEST

                       Begin DoDot:2

 +11                       IF +BDGBM=0

                               SET BDGBM=-1

                               QUIT 

                       End DoDot:2

               End DoDot:1

 +12       IF BDGBM<1

               QUIT 

 +13       SET BDGEM=BDGBM

 +14      ;

 +15       DO ZIS^BDGF("PQ","^BDGM202A","M202 REPORT","BDGBM;BDGEM")

 +16       DO HOME^%ZIS

 +17       QUIT 

 +18      ;

 +19      ;

RANGE     ;EP; entry point for Y202 (range of months)

 +1       ;NEW BDGBM,BDGEM

 +2        SET BDGBM=$$READ^BDGF("DO^::EP","Start Report with Which Month")

 +3       ;

 +4       ;IHS/OIT/LJF 7/15/2005 PATCH 1004 code added

 +5        IF +BDGBM'=0

               IF (BDGBM<$$GET1^DIQ(43,1_",GL",10,"I"))

                   Begin DoDot:1

 +6                    WRITE !!,"Date can not be earlier than "_$$GET1^DIQ(43,1_",GL",10),!

 +7                    DO PAUSE^BDGF

                   End DoDot:1

                   QUIT 

 +8       ;IHS/OIT/LJF end of new code

 +9       ;

 +10       IF BDGBM<1

               QUIT 

 +11       SET BDGEM=$$READ^BDGF("DO^::EP","End Report with Which Month")

 +12       IF BDGEM<1

               QUIT 

 +13       IF BDGEM<BDGBM

               WRITE !!,"Sorry, END date must not be less than START date"

               DO RANGE

               QUIT 

 +14      ;

 +15       DO ZIS^BDGF("PQ","^BDGM202A","Y202 REPORT","BDGBM;BDGEM")

 +16       DO HOME^%ZIS

 +17       QUIT