ABSPOSU6.m

ABSPOSU6 ; IHS/FCS/DRS - utilities, continued ;

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

 Q

COMMSLOG ;EP - ABSPOSC2 ; ABSP COMMS LOG VIEW option

 ; choose which dial out

 N DIC,X,DTIME,DLAYGO,DINUM,Y,DTOUT,DUOUT

 N DIR,DA,DIRUT

 N POP,DIALOUT ; DIALOUT points to 9002313.55

 N LOGFILEN ; points to piece in ^ABSP(9002313.55,DIALOUT,"LOG FILE")

 N LOGSLOT ; points to ^ABSPECX("LOG",

 S DIC=9002313.55,DIC(0)="AEM"

 S DIC("A")="DISPLAY log file for which Dial Out: "

 D

 . N X S X=$$DEF5599^ABSPOSA Q:'X

 . S DIC("B")=$P(^ABSP(9002313.55,X,0),U)

 D ^DIC W !

 Q:Y<0  S DIALOUT=+Y

 N LOGFILES S LOGFILES=$G(^ABSP(9002313.55,DIALOUT,"LOG FILE"))

 I LOGFILES?."^" D  Q

 . W !,"There are no log files available for this dial out.",!

 ; ask for device

 D ^%ZIS Q:$G(POP)

 S LOGFILEN=1

 ; display log file

C1 S LOGSLOT=$P(LOGFILES,U,LOGFILEN)

 U IO D PRINTLOG^ABSPOSL(LOGSLOT)

 ; ask if you want to see previous file

 U $P

 I $P(LOGFILES,U,LOGFILEN+1)="" G C2 ; no more log files, you're done

 S DIR(0)="YO",DIR("A")="Want to see the previous log file"

 D ^DIR W !

 I Y S LOGFILEN=LOGFILEN+1 G C1

C2 ;

 D ^%ZISC

 Q

ABSPOSU6  ; IHS/FCS/DRS - utilities, continued ;

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

 +2        QUIT 

COMMSLOG  ;EP - ABSPOSC2 ; ABSP COMMS LOG VIEW option

 +1       ; choose which dial out

 +2        NEW DIC,X,DTIME,DLAYGO,DINUM,Y,DTOUT,DUOUT

 +3        NEW DIR,DA,DIRUT

 +4       ; DIALOUT points to 9002313.55

           NEW POP,DIALOUT

 +5       ; points to piece in ^ABSP(9002313.55,DIALOUT,"LOG FILE")

           NEW LOGFILEN

 +6       ; points to ^ABSPECX("LOG",

           NEW LOGSLOT

 +7        SET DIC=9002313.55

           SET DIC(0)="AEM"

 +8        SET DIC("A")="DISPLAY log file for which Dial Out: "

 +9        Begin DoDot:1

 +10           NEW X

               SET X=$$DEF5599^ABSPOSA

               IF 'X

                   QUIT 

 +11           SET DIC("B")=$PIECE(^ABSP(9002313.55,X,0),U)

           End DoDot:1

 +12       DO ^DIC

           WRITE !

 +13       IF Y<0

               QUIT 

           SET DIALOUT=+Y

 +14       NEW LOGFILES

           SET LOGFILES=$GET(^ABSP(9002313.55,DIALOUT,"LOG FILE"))

 +15       IF LOGFILES?."^"

               Begin DoDot:1

 +16               WRITE !,"There are no log files available for this dial out.",!

               End DoDot:1

               QUIT 

 +17      ; ask for device

 +18       DO ^%ZIS

           IF $GET(POP)

               QUIT 

 +19       SET LOGFILEN=1

 +20      ; display log file

C1         SET LOGSLOT=$PIECE(LOGFILES,U,LOGFILEN)

 +1        USE IO

           DO PRINTLOG^ABSPOSL(LOGSLOT)

 +2       ; ask if you want to see previous file

 +3        USE $PRINCIPAL

 +4       ; no more log files, you're done

           IF $PIECE(LOGFILES,U,LOGFILEN+1)=""

               GOTO C2

 +5        SET DIR(0)="YO"

           SET DIR("A")="Want to see the previous log file"

 +6        DO ^DIR

           WRITE !

 +7        IF Y

               SET LOGFILEN=LOGFILEN+1

               GOTO C1

C2        ;

 +1        DO ^%ZISC

 +2        QUIT