DG53334D.m

DG53334D ;ALB/MRY - ALS Extract; 9/27/00  14:54PM

 ;;5.3;Registration;**334,1015**;Aug 13,  1993;Build 21

 ;

 ;Description:

 ;Patient data will be extracted from the Patient file (#2) for all 

 ;hospital sites.  Station numbers and SSN's have been provided and 

 ;stored in file^XTMP.

 ;

 ;

EN N DGARY

 I $D(DUZ)'=11 DO  Q

 . D BMES^XPDUTL("     Missing DUZ variables.")

 . S DGARY(1)=("     To set up the DUZ variables do:")

 . S DGARY(2)=("")

 . S DGARY(3)=("     >D ^XUP")

 . S DGARY(4)=("")

 . S DGARY(5)=("     Setting up programmer environment")

 . S DGARY(6)=("     Access Code: <enter your access code>")

 . S DGARY(7)=("")

 . S DGARY(8)=("     Terminal Type set to: C-VT320")

 . S DGARY(9)=("")

 . S DGARY(10)=("     Select OPTION NAME: <press the return key>")

 . S DGARY(11)=("")

 . S DGARY(12)=("     >D EN^DG53334A")

 . S DGARY(13)=("")

 . D MES^XPDUTL(.DGARY)

 ;

 ;Description:

 ;  Retrive the site station number, if not found display message

 ;  If found queue this routine to run which will load the data.

 ;

 N DGARY,XMDUZ,XMSUB,XMY,XMZ,ZTDESC,ZTIO,ZTSK,ZTQUEUED,ZTRTN

 ;

 S DGTATION=+$P($$SITE^VASITE(),U,3)

 I 'DGTATION DO  Q

 . D BMES^XPDUTL("Station number not defined in Division file") Q

 ;

 D BMES^XPDUTL()

 S DGARY(1)=("       >>> ALS Extract <<< ")

 S DGARY(2)=("   Please queue to run at a non peak time.")

 S DGARY(3)=("   This extract will generate 2 mail messages to you.")

 S DGARY(4)=("   One of the messsages will contain the data extracted")

 S DGARY(5)=("   and the second message will contain any errors that")

 S DGARY(6)=("   may have occurred during the ALS extract.")

 D MES^XPDUTL(.DGARY)

 ;

 ;Queue routine to run NOW

 S ZTIO="",ZTRTN="START^DG53334A"

 S ZTDESC="DG*5.3*334 - VA Patient Survey"

 D ^%ZTLOAD,HOME^%ZIS

 I $G(ZTSK) D BMES^XPDUTL("               Task Number = "_ZTSK)

 Q

DG53334D  ;ALB/MRY - ALS Extract; 9/27/00  14:54PM

 +1       ;;5.3;Registration;**334,1015**;Aug 13,  1993;Build 21

 +2       ;

 +3       ;Description:

 +4       ;Patient data will be extracted from the Patient file (#2) for all 

 +5       ;hospital sites.  Station numbers and SSN's have been provided and 

 +6       ;stored in file^XTMP.

 +7       ;

 +8       ;

EN         NEW DGARY

 +1        IF $DATA(DUZ)'=11

               Begin DoDot:1

 +2                DO BMES^XPDUTL("     Missing DUZ variables.")

 +3                SET DGARY(1)=("     To set up the DUZ variables do:")

 +4                SET DGARY(2)=("")

 +5                SET DGARY(3)=("     >D ^XUP")

 +6                SET DGARY(4)=("")

 +7                SET DGARY(5)=("     Setting up programmer environment")

 +8                SET DGARY(6)=("     Access Code: <enter your access code>")

 +9                SET DGARY(7)=("")

 +10               SET DGARY(8)=("     Terminal Type set to: C-VT320")

 +11               SET DGARY(9)=("")

 +12               SET DGARY(10)=("     Select OPTION NAME: <press the return key>")

 +13               SET DGARY(11)=("")

 +14               SET DGARY(12)=("     >D EN^DG53334A")

 +15               SET DGARY(13)=("")

 +16               DO MES^XPDUTL(.DGARY)

               End DoDot:1

               QUIT 

 +17      ;

 +18      ;Description:

 +19      ;  Retrive the site station number, if not found display message

 +20      ;  If found queue this routine to run which will load the data.

 +21      ;

 +22       NEW DGARY,XMDUZ,XMSUB,XMY,XMZ,ZTDESC,ZTIO,ZTSK,ZTQUEUED,ZTRTN

 +23      ;

 +24       SET DGTATION=+$PIECE($$SITE^VASITE(),U,3)

 +25       IF 'DGTATION

               Begin DoDot:1

 +26               DO BMES^XPDUTL("Station number not defined in Division file")

                   QUIT 

               End DoDot:1

               QUIT 

 +27      ;

 +28       DO BMES^XPDUTL()

 +29       SET DGARY(1)=("       >>> ALS Extract <<< ")

 +30       SET DGARY(2)=("   Please queue to run at a non peak time.")

 +31       SET DGARY(3)=("   This extract will generate 2 mail messages to you.")

 +32       SET DGARY(4)=("   One of the messsages will contain the data extracted")

 +33       SET DGARY(5)=("   and the second message will contain any errors that")

 +34       SET DGARY(6)=("   may have occurred during the ALS extract.")

 +35       DO MES^XPDUTL(.DGARY)

 +36      ;

 +37      ;Queue routine to run NOW

 +38       SET ZTIO=""

           SET ZTRTN="START^DG53334A"

 +39       SET ZTDESC="DG*5.3*334 - VA Patient Survey"

 +40       DO ^%ZTLOAD

           DO HOME^%ZIS

 +41       IF $GET(ZTSK)

               DO BMES^XPDUTL("               Task Number = "_ZTSK)

 +42       QUIT