BEXPST.m

BEXPST ; cmi/anch/maw - BEX AUTO REFILL POST INIT ; [ 03/02/2010  11:04 AM ]

 ;;1.0;BEX TELEPHONE REFILL SYSTEM;**1,2,4**;DEC 01, 2009

 ;

 ;

 ;

 ;this routine will set up the auto refill post install questions

 ;

MAIN ;PEP - this is the main routine driver

 D SET

 X ^%ZOSF("EON")  ;turn echo on for questions

 D EDIT

 D EOJ

 X ^%ZOSF("EOFF")  ;turn echo off for questions

 Q

 ;

EDIT ;-- ask which reference lab and then stuff the file

 W !!,"I Will now walk you through setting your Pharmacy Auto Refill Parameters",!!

 S DIC(0)="AELMQZ",DIC="^BEXHRXP("

 S DIC("A")="Setup parameters files for which Site: "

 D ^DIC

 Q:Y<0

 S BEXSITE=+Y

 S DIE=DIC,DA=BEXSITE,DR=".02:2"

 D ^DIE

 K DIC,DIE,DR,DA

 S DIR(0)="Y",DIR("A")="Setup Another Site "

 D ^DIR

 K DIR

 Q:'Y

 G EDIT

 Q

 ;

SET ;EP - set the global

 S ^DIC(19080.1,0,"AUDIT")="Pp"

 S ^DIC(90350.1,0,"DD")="#"

 S ^DIC(90350.1,0,"DEL")="Pp"

 S ^DIC(90350.1,0,"LAYGO")="Pp"

 S ^DIC(90350.1,0,"RD")="Pp"

 S ^DIC(90350.1,0,"WR")="Pp"

 S ^DIC(90350.2,0,"AUDIT")="Pp"

 S ^DIC(90350.2,0,"DD")="#"

 S ^DIC(90350.2,0,"DEL")="Pp"

 S ^DIC(90350.2,0,"LAYGO")="Pp"

 S ^DIC(90350.2,0,"RD")="Pp"

 S ^DIC(90350.2,0,"WR")="Pp"

 ;S ^DD(90350.1,0,"VR")="1.0"

 ;S ^DD(90350.2,0,"VR")="1.0"

 N BEXPKG

 S BEXPKG=$O(^DIC(9.4,"B","BEX AUDIOCARE TELEPHONE REFILL",0))

 I '$G(BEXPKG) D

 . N BEXIENS,BEXFDA,BEXERR

 . S BEXIENS=""

 . S BEXFDA(9.4,"+1,",.01)="BEX AUDIOCARE TELEPHONE REFILL"

 . S BEXFDA(9.4,"+1,",1)="BEX"

 . S BEXFDA(9.49,"+2,+1,",.01)="1.0T1"

 . S BEXFDA(9.49,"+2,+1,",1)=$G(DT)

 . S BEXFDA(9.49,"+2,+1,",2)=$G(DT)

 . D UPDATE^DIE("","BEXFDA","BEXIENS","BEXERR(1)")

 . Q:'$G(BEXIENS(1))

 . N DIE,DA,DR

 . S DA=$O(^XPD(9.6,"B","BEX REFILL TRANSACTION 1.0",0))

 . Q:'$G(DA)

 . S DIE="^XPD(9.6,",DR="1////"_$G(BEXIENS(1))

 . D ^DIE

 Q

 ;

EOJ ;-- kill variables and quit

 D EN^XBVK("BEX")

 Q

 ;

BEXPST    ; cmi/anch/maw - BEX AUTO REFILL POST INIT ; [ 03/02/2010  11:04 AM ]

 +1       ;;1.0;BEX TELEPHONE REFILL SYSTEM;**1,2,4**;DEC 01, 2009

 +2       ;

 +3       ;

 +4       ;

 +5       ;this routine will set up the auto refill post install questions

 +6       ;

MAIN      ;PEP - this is the main routine driver

 +1        DO SET

 +2       ;turn echo on for questions

           XECUTE ^%ZOSF("EON")

 +3        DO EDIT

 +4        DO EOJ

 +5       ;turn echo off for questions

           XECUTE ^%ZOSF("EOFF")

 +6        QUIT 

 +7       ;

EDIT      ;-- ask which reference lab and then stuff the file

 +1        WRITE !!,"I Will now walk you through setting your Pharmacy Auto Refill Parameters",!!

 +2        SET DIC(0)="AELMQZ"

           SET DIC="^BEXHRXP("

 +3        SET DIC("A")="Setup parameters files for which Site: "

 +4        DO ^DIC

 +5        IF Y<0

               QUIT 

 +6        SET BEXSITE=+Y

 +7        SET DIE=DIC

           SET DA=BEXSITE

           SET DR=".02:2"

 +8        DO ^DIE

 +9        KILL DIC,DIE,DR,DA

 +10       SET DIR(0)="Y"

           SET DIR("A")="Setup Another Site "

 +11       DO ^DIR

 +12       KILL DIR

 +13       IF 'Y

               QUIT 

 +14       GOTO EDIT

 +15       QUIT 

 +16      ;

SET       ;EP - set the global

 +1        SET ^DIC(19080.1,0,"AUDIT")="Pp"

 +2        SET ^DIC(90350.1,0,"DD")="#"

 +3        SET ^DIC(90350.1,0,"DEL")="Pp"

 +4        SET ^DIC(90350.1,0,"LAYGO")="Pp"

 +5        SET ^DIC(90350.1,0,"RD")="Pp"

 +6        SET ^DIC(90350.1,0,"WR")="Pp"

 +7        SET ^DIC(90350.2,0,"AUDIT")="Pp"

 +8        SET ^DIC(90350.2,0,"DD")="#"

 +9        SET ^DIC(90350.2,0,"DEL")="Pp"

 +10       SET ^DIC(90350.2,0,"LAYGO")="Pp"

 +11       SET ^DIC(90350.2,0,"RD")="Pp"

 +12       SET ^DIC(90350.2,0,"WR")="Pp"

 +13      ;S ^DD(90350.1,0,"VR")="1.0"

 +14      ;S ^DD(90350.2,0,"VR")="1.0"

 +15       NEW BEXPKG

 +16       SET BEXPKG=$ORDER(^DIC(9.4,"B","BEX AUDIOCARE TELEPHONE REFILL",0))

 +17       IF '$GET(BEXPKG)

               Begin DoDot:1

 +18               NEW BEXIENS,BEXFDA,BEXERR

 +19               SET BEXIENS=""

 +20               SET BEXFDA(9.4,"+1,",.01)="BEX AUDIOCARE TELEPHONE REFILL"

 +21               SET BEXFDA(9.4,"+1,",1)="BEX"

 +22               SET BEXFDA(9.49,"+2,+1,",.01)="1.0T1"

 +23               SET BEXFDA(9.49,"+2,+1,",1)=$GET(DT)

 +24               SET BEXFDA(9.49,"+2,+1,",2)=$GET(DT)

 +25               DO UPDATE^DIE("","BEXFDA","BEXIENS","BEXERR(1)")

 +26               IF '$GET(BEXIENS(1))

                       QUIT 

 +27               NEW DIE,DA,DR

 +28               SET DA=$ORDER(^XPD(9.6,"B","BEX REFILL TRANSACTION 1.0",0))

 +29               IF '$GET(DA)

                       QUIT 

 +30               SET DIE="^XPD(9.6,"

                   SET DR="1////"_$GET(BEXIENS(1))

 +31               DO ^DIE

               End DoDot:1

 +32       QUIT 

 +33      ;

EOJ       ;-- kill variables and quit

 +1        DO EN^XBVK("BEX")

 +2        QUIT 

 +3       ;