ABSPOS6K.m

ABSPOS6K ; IHS/FCS/DRS - Other options ;

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

MENU ;    

 D FULL^VALM1

 N X

 F  D  Q:X<1

 . S X=$$SET^ABSPOSU3("Select 1: Log diagnostic info // ","1",0,"V","1:Diagnostics")

 . Q:X<1

 . I X=1 D

 . . D DIAG

 . ;E  I X=2 D

 . S X=-1 ; for now, cause it to bump out

 . ; worthwhile to loop and ask again when you get more options here

 S VALMBCK="R"

 Q

DIAG ; collect diagnostic information

 N X

 W !,"This logs diagnostic information to a file for later analysis",!

 W "by programming staff.  ",!

 W !

 W "Select 1 to log general information about the system.",!

 W "Select 2 to log information about your screen in particular.",!

 W "Select 3 to do both 1 + 2.",!

 S X=$$SET^ABSPOSU3("Select 1: General  2: Your screen  3:Both // ","1",0,"H","1:General;2:Your screen;3:Both")

 W !

 I X<1 W !,"Nothing logged.",! Q

 D FULL^ABSPOSUB:X=1,JOB^ABSPOSUB:X=2,BOTH^ABSPOSUB:X=3

 D ANY^ABSPOS2A ; press any key

 Q

ABSPOS6K  ; IHS/FCS/DRS - Other options ;

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

MENU      ;    

 +1        DO FULL^VALM1

 +2        NEW X

 +3        FOR 

               Begin DoDot:1

 +4                SET X=$$SET^ABSPOSU3("Select 1: Log diagnostic info // ","1",0,"V","1:Diagnostics")

 +5                IF X<1

                       QUIT 

 +6                IF X=1

                       Begin DoDot:2

 +7                        DO DIAG

                       End DoDot:2

 +8       ;E  I X=2 D

 +9       ; for now, cause it to bump out

                   SET X=-1

 +10      ; worthwhile to loop and ask again when you get more options here

               End DoDot:1

               IF X<1

                   QUIT 

 +11       SET VALMBCK="R"

 +12       QUIT 

DIAG      ; collect diagnostic information

 +1        NEW X

 +2        WRITE !,"This logs diagnostic information to a file for later analysis",!

 +3        WRITE "by programming staff.  ",!

 +4        WRITE !

 +5        WRITE "Select 1 to log general information about the system.",!

 +6        WRITE "Select 2 to log information about your screen in particular.",!

 +7        WRITE "Select 3 to do both 1 + 2.",!

 +8        SET X=$$SET^ABSPOSU3("Select 1: General  2: Your screen  3:Both // ","1",0,"H","1:General;2:Your screen;3:Both")

 +9        WRITE !

 +10       IF X<1

               WRITE !,"Nothing logged.",!

               QUIT 

 +11       IF X=1

               DO FULL^ABSPOSUB

           IF X=2

               DO JOB^ABSPOSUB

           IF X=3

               DO BOTH^ABSPOSUB

 +12      ; press any key

           DO ANY^ABSPOS2A

 +13       QUIT