BSDNSR.m

BSDNSR ; IHS/ANMC/LJF - NO-SHOW REPORTS ;

 ;;5.3;PIMS;**1011**;APR 26, 2002

 ;

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=3 S XQH="BSDSM NSR OVERVIEW" D EN^XQH G ASK

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

 S BSDTAXYN=1  ;cmi/maw PATCH 1011

 D @INTRO,@RTN

 K BSDTAXYN  ;cmi/maw PATCH 1011

 D ^XBCLS,NSR^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 ;;

 ;;No-Show Report;;^SDNOS;;NS1^BSDH021

 ;;Frequent No-Shows;;^BSDNS2;;NS2^BSDH021

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

BSDNSR    ; IHS/ANMC/LJF - NO-SHOW REPORTS ;

 +1       ;;5.3;PIMS;**1011**;APR 26, 2002

 +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=3

               SET XQH="BSDSM NSR OVERVIEW"

               DO EN^XQH

               GOTO ASK

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

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

 +8       ;cmi/maw PATCH 1011

           SET BSDTAXYN=1

 +9        DO @INTRO

           DO @RTN

 +10      ;cmi/maw PATCH 1011

           KILL BSDTAXYN

 +11       DO ^XBCLS

           DO NSR^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       ;;No-Show Report;;^SDNOS;;NS1^BSDH021

 +2       ;;Frequent No-Shows;;^BSDNS2;;NS2^BSDH021

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