- 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")
