BSDAL.m

BSDAL ; IHS/ANMC/LJF - IHS APPOINTMENT LIST ; 

 ;;5.3;PIMS;**1007,1011**;FEB 27, 2007

 ;IHS version of SDAL

 ;

 ;cmi/anch/maw 11/22/2006 PATCH 1007 added code in EN for item 1007.02

 ;cmi/flag/maw 10/05/2009 PATCH 1011 added code in EN for item 1011.73

 ;

EN NEW SDCONC,VAUTC,VAUTD,BSDD,BSDWI,BSDCR,BSDAMB,BSDPH,BSDPCMM,BSDCOPY

 N BSDCC  ;cmi/anch/maw 11/3/2006 added for current community item 1007.02 patch 1007

 S SDCONC="B" D CLINIC^BSDU(1) I $D(BSDQ) Q

 ;

 ;S BSDD=$$READ^BDGF("D^::EX","For Date","TODAY") I BSDD<1 Q  cmi/maw 10/5/2009 PATCH 1011 orig line

 N BSDTODAY,BSDDIR

 S BSDTODAY="TODAY",BSDDIR="D^::EX"

 F I=1:1 D  Q:BSDD<1

 . I I>1 S BSDTODAY="",BSDDIR="DO^::EX"

 . S BSDD=$$READ^BDGF(BSDDIR,"For Date",BSDTODAY) I BSDD<1 Q

 . S BSDD(BSDD)=BSDD

 I BSDD=U Q

 ;cmi/maw 10/5/2009 PATCH 1011 RQMT73 add additional dates

 ;

 S BSDWI=$$READ^BDGF("Y","Include Walk-Ins","YES","If you answer YES, walk-ins will print.")

 I (BSDWI=U)!(BSDWI="") Q

 ;

 S BSDAMB=0 I '$$RESVIEW!$D(^XUSEC("SDZSUP",DUZ)) D

 . S BSDAMB=$$READ^BDGF("Y","Include Who Made Appt","NO")

 I (BSDAMB=U)!(BSDAMB="") Q

 ;

 S BSDPH=$$READ^BDGF("Y","Include Patient's Phone #","NO")

 I (BSDPH=U)!(BSDPH="") Q

 ;

 S BSDPCMM=$$READ^BDGF("Y","Include Primary Care Information","NO","If you answer YES, the patient's primary care provider and team affiliations will be displayed.")

 I (BSDPCMM=U)!(BSDPCMM="") Q

 ;

 ;cmi/anch/maw 11/3/2006 added option for current community item 1007.02 patch 1007

 S BSDCC=$$READ^BDGF("Y","Include Current Community","NO")

 I (BSDCC=U)!(BSDCC="") Q

 ;cmi/anch/maw end of item 1007.02 patch 1007

 ;

 S BSDCR=$$READ^BDGF("Y","Include Chart Requests","NO","If you answer YES, chart requests will be listed at the end of the report.")

 I (BSDCR=U)!(BSDCR="") Q

 ;

 S Y=$$BROWSE^BDGF I (Y=U)!(Y="") Q

 I Y="B" D EN^BSDALL Q

 ;

 S BSDCOPY=$$READ^BDGF("N^1:10","Number of Copies",1)

 I (BSDCOPY=U)!(BSDCOPY="") Q

 ;

 S X="VAUTD*"_";"_"VAUTC*"_";"_"BSD*"

 D ZIS^BDGF("QP","EN^BSDALL","Appointment List",X)

 D HOME^%ZIS

 Q

 ;

 ;

RESVIEW() ; -- returns 1 if restrict viewing of who made appt turned on

 Q +$$GET1^DIQ(9009020.2,$$DIV^BSDU,.12,"I")

BSDAL     ; IHS/ANMC/LJF - IHS APPOINTMENT LIST ; 

 +1       ;;5.3;PIMS;**1007,1011**;FEB 27, 2007

 +2       ;IHS version of SDAL

 +3       ;

 +4       ;cmi/anch/maw 11/22/2006 PATCH 1007 added code in EN for item 1007.02

 +5       ;cmi/flag/maw 10/05/2009 PATCH 1011 added code in EN for item 1011.73

 +6       ;

EN         NEW SDCONC,VAUTC,VAUTD,BSDD,BSDWI,BSDCR,BSDAMB,BSDPH,BSDPCMM,BSDCOPY

 +1       ;cmi/anch/maw 11/3/2006 added for current community item 1007.02 patch 1007

           NEW BSDCC

 +2        SET SDCONC="B"

           DO CLINIC^BSDU(1)

           IF $DATA(BSDQ)

               QUIT 

 +3       ;

 +4       ;S BSDD=$$READ^BDGF("D^::EX","For Date","TODAY") I BSDD<1 Q  cmi/maw 10/5/2009 PATCH 1011 orig line

 +5        NEW BSDTODAY,BSDDIR

 +6        SET BSDTODAY="TODAY"

           SET BSDDIR="D^::EX"

 +7        FOR I=1:1

               Begin DoDot:1

 +8                IF I>1

                       SET BSDTODAY=""

                       SET BSDDIR="DO^::EX"

 +9                SET BSDD=$$READ^BDGF(BSDDIR,"For Date",BSDTODAY)

                   IF BSDD<1

                       QUIT 

 +10               SET BSDD(BSDD)=BSDD

               End DoDot:1

               IF BSDD<1

                   QUIT 

 +11       IF BSDD=U

               QUIT 

 +12      ;cmi/maw 10/5/2009 PATCH 1011 RQMT73 add additional dates

 +13      ;

 +14       SET BSDWI=$$READ^BDGF("Y","Include Walk-Ins","YES","If you answer YES, walk-ins will print.")

 +15       IF (BSDWI=U)!(BSDWI="")

               QUIT 

 +16      ;

 +17       SET BSDAMB=0

           IF '$$RESVIEW!$D(^XUSEC("SDZSUP",DUZ))

               Begin DoDot:1

 +18               SET BSDAMB=$$READ^BDGF("Y","Include Who Made Appt","NO")

               End DoDot:1

 +19       IF (BSDAMB=U)!(BSDAMB="")

               QUIT 

 +20      ;

 +21       SET BSDPH=$$READ^BDGF("Y","Include Patient's Phone #","NO")

 +22       IF (BSDPH=U)!(BSDPH="")

               QUIT 

 +23      ;

 +24       SET BSDPCMM=$$READ^BDGF("Y","Include Primary Care Information","NO","If you answer YES, the patient's primary care provider and team affiliations will be displayed.")

 +25       IF (BSDPCMM=U)!(BSDPCMM="")

               QUIT 

 +26      ;

 +27      ;cmi/anch/maw 11/3/2006 added option for current community item 1007.02 patch 1007

 +28       SET BSDCC=$$READ^BDGF("Y","Include Current Community","NO")

 +29       IF (BSDCC=U)!(BSDCC="")

               QUIT 

 +30      ;cmi/anch/maw end of item 1007.02 patch 1007

 +31      ;

 +32       SET BSDCR=$$READ^BDGF("Y","Include Chart Requests","NO","If you answer YES, chart requests will be listed at the end of the report.")

 +33       IF (BSDCR=U)!(BSDCR="")

               QUIT 

 +34      ;

 +35       SET Y=$$BROWSE^BDGF

           IF (Y=U)!(Y="")

               QUIT 

 +36       IF Y="B"

               DO EN^BSDALL

               QUIT 

 +37      ;

 +38       SET BSDCOPY=$$READ^BDGF("N^1:10","Number of Copies",1)

 +39       IF (BSDCOPY=U)!(BSDCOPY="")

               QUIT 

 +40      ;

 +41       SET X="VAUTD*"_";"_"VAUTC*"_";"_"BSD*"

 +42       DO ZIS^BDGF("QP","EN^BSDALL","Appointment List",X)

 +43       DO HOME^%ZIS

 +44       QUIT 

 +45      ;

 +46      ;

RESVIEW() ; -- returns 1 if restrict viewing of who made appt turned on

 +1        QUIT +$$GET1^DIQ(9009020.2,$$DIV^BSDU,.12,"I")