BSDAMO.m

BSDAMO ; IHS/ANMC/LJF - IHS MODS TO APPT MGT REPORT ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

EN ;EP; -- main entry point for BSDRM APPT MGT

 NEW VALMCNT D TERM^VALM0

 D EN^VALM("BSDRM APPT MGT")

 D CLEAR^VALM1

 Q

 ;

HDR ; -- header code

 Q

 ;

INIT ; -- init variables and list array

 K ^TMP("BSDAMO",$J),^TMP("BSDAMO1",$J)

 D GUIR^XBLM("START^SDAMOS","^TMP(""BSDAMO1"",$J,")

 S X=0 F  S X=$O(^TMP("BSDAMO1",$J,X)) Q:'X  D

 . S VALMCNT=X

 . S ^TMP("BSDAMO",$J,X,0)=^TMP("BSDAMO1",$J,X)

 K ^TMP("BSDAMO1",$J)

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("BSDAMO",$J)

 Q

 ;

EXPND ; -- expand code

 Q

 ;

LEGEND ;EP; Legend on bottom of output

 ; called by LEGEND^SDAMOSP

 ;

 W !?5,"* CI=Checked-In ; RB=Rebooked"

 W !?5,"* Cancelled appointments only reflect appointments cancelled using"

 W !?7,"the ""Cancel Clinic Availability"" option, not Cancel Appointment."

 W !?5,"* Checked-In does not include no-shows or cancelled appointments"

 W !?7,"that have been checked in.  They are listed under those categories.",!

 Q

 ;

BSDAMO    ; IHS/ANMC/LJF - IHS MODS TO APPT MGT REPORT ;

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

 +2       ;

EN        ;EP; -- main entry point for BSDRM APPT MGT

 +1        NEW VALMCNT

           DO TERM^VALM0

 +2        DO EN^VALM("BSDRM APPT MGT")

 +3        DO CLEAR^VALM1

 +4        QUIT 

 +5       ;

HDR       ; -- header code

 +1        QUIT 

 +2       ;

INIT      ; -- init variables and list array

 +1        KILL ^TMP("BSDAMO",$JOB),^TMP("BSDAMO1",$JOB)

 +2        DO GUIR^XBLM("START^SDAMOS","^TMP(""BSDAMO1"",$J,")

 +3        SET X=0

           FOR 

               SET X=$ORDER(^TMP("BSDAMO1",$JOB,X))

               IF 'X

                   QUIT 

               Begin DoDot:1

 +4                SET VALMCNT=X

 +5                SET ^TMP("BSDAMO",$JOB,X,0)=^TMP("BSDAMO1",$JOB,X)

               End DoDot:1

 +6        KILL ^TMP("BSDAMO1",$JOB)

 +7        QUIT 

 +8       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("BSDAMO",$JOB)

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;

LEGEND    ;EP; Legend on bottom of output

 +1       ; called by LEGEND^SDAMOSP

 +2       ;

 +3        WRITE !?5,"* CI=Checked-In ; RB=Rebooked"

 +4        WRITE !?5,"* Cancelled appointments only reflect appointments cancelled using"

 +5        WRITE !?7,"the ""Cancel Clinic Availability"" option, not Cancel Appointment."

 +6        WRITE !?5,"* Checked-In does not include no-shows or cancelled appointments"

 +7        WRITE !?7,"that have been checked in.  They are listed under those categories.",!

 +8        QUIT 

 +9       ;