BSDCAR.m

BSDCAR ; IHS/ANMC/LJF - CLINIC AVAILABILITY REPORTS ;

 ;;5.3;PIMS;**1011,1012,1015**;APR 26, 2002;Build 21

 ;

ASK ; -- ask user to choose report

 NEW BSDA,I,NAME,X,Y,RTN,INTRO,POP,DIRUT

 F I=1:1 S NAME=$P($T(REPORTS+I),";;",2) Q:NAME=""  D

 . S BSDA(I)=$$SP(10)_$J(I,2)_". "_NAME

 S BSDA(I)=""   ;extra line for readability

 S Y=$$READ^BDGF("NO^1:"_(I-1),$$SP(10)_"Select REPORT","","","",.BSDA)

 Q:'Y  I Y=10 S XQH="BSDSM CAR OVERVIEW" D EN^XQH G ASK

 I Y'=2 S BSDTAXYN=1  ;cmi/maw PATCH 1011

 S RTN=$P($T(REPORTS+Y),";;",3),INTRO=$P($T(REPORTS+Y),";;",4)

 D @INTRO,@RTN

 K BSDTAXYN  ;cmi/maw PATCH 1011

 D ^XBCLS,CAR^BSDH02,ASK Q

 ;

 ;

PAD(D,L) ;EP -- SUBRTN to pad length of data

 ; -- D=data L=length

 Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)

 ;

SP(N) ; -- SUBRTN to pad N number of spaces

 Q $$PAD(" ",N)

 ;

REPORTS ;;

 ;;Clinic List (Day of Week);;^SDCLDOW;;DOW^BSDH021

 ;;Month-at-a-glance Display;;^BSDMON;;MD^BSDH01

 ;;Clinic Availability Report;;^SDCLAV;;CAV^BSDH021

 ;;Clinic Capacity Report;;^BSDCCR0;;CAP^BSDH021

 ;;Next Available Appointment Report;;^BSDNXAA;;NAA^BSDH021

 ;;Number of Available Appointments;;^BSDNAA;;NUM^BSDH021

 ;;Number of Appts Made & Wait Times;;^BSDDAM;;NAM^BSDH021

 ;;Time of Day Clinic Fills Up;;^BSDTOD;;TOD^BSDH021

 ;;Clinic Abbreviations;;^BSDCLA;;ABB^BSDH021

 ;;On-line Help (Report Descriptions);;

BSDCAR    ; IHS/ANMC/LJF - CLINIC AVAILABILITY REPORTS ;

 +1       ;;5.3;PIMS;**1011,1012,1015**;APR 26, 2002;Build 21

 +2       ;

ASK       ; -- ask user to choose report

 +1        NEW BSDA,I,NAME,X,Y,RTN,INTRO,POP,DIRUT

 +2        FOR I=1:1

               SET NAME=$PIECE($TEXT(REPORTS+I),";;",2)

               IF NAME=""

                   QUIT 

               Begin DoDot:1

 +3                SET BSDA(I)=$$SP(10)_$JUSTIFY(I,2)_". "_NAME

               End DoDot:1

 +4       ;extra line for readability

           SET BSDA(I)=""

 +5        SET Y=$$READ^BDGF("NO^1:"_(I-1),$$SP(10)_"Select REPORT","","","",.BSDA)

 +6        IF 'Y

               QUIT 

           IF Y=10

               SET XQH="BSDSM CAR OVERVIEW"

               DO EN^XQH

               GOTO ASK

 +7       ;cmi/maw PATCH 1011

           IF Y'=2

               SET BSDTAXYN=1

 +8        SET RTN=$PIECE($TEXT(REPORTS+Y),";;",3)

           SET INTRO=$PIECE($TEXT(REPORTS+Y),";;",4)

 +9        DO @INTRO

           DO @RTN

 +10      ;cmi/maw PATCH 1011

           KILL BSDTAXYN

 +11       DO ^XBCLS

           DO CAR^BSDH02

           DO ASK

           QUIT 

 +12      ;

 +13      ;

PAD(D,L)  ;EP -- SUBRTN to pad length of data

 +1       ; -- D=data L=length

 +2        QUIT $EXTRACT(D_$$REPEAT^XLFSTR(" ",L),1,L)

 +3       ;

SP(N)     ; -- SUBRTN to pad N number of spaces

 +1        QUIT $$PAD(" ",N)

 +2       ;

REPORTS   ;;

 +1       ;;Clinic List (Day of Week);;^SDCLDOW;;DOW^BSDH021

 +2       ;;Month-at-a-glance Display;;^BSDMON;;MD^BSDH01

 +3       ;;Clinic Availability Report;;^SDCLAV;;CAV^BSDH021

 +4       ;;Clinic Capacity Report;;^BSDCCR0;;CAP^BSDH021

 +5       ;;Next Available Appointment Report;;^BSDNXAA;;NAA^BSDH021

 +6       ;;Number of Available Appointments;;^BSDNAA;;NUM^BSDH021

 +7       ;;Number of Appts Made & Wait Times;;^BSDDAM;;NAM^BSDH021

 +8       ;;Time of Day Clinic Fills Up;;^BSDTOD;;TOD^BSDH021

 +9       ;;Clinic Abbreviations;;^BSDCLA;;ABB^BSDH021

 +10      ;;On-line Help (Report Descriptions);;