ABSVMS1 ;OAKLAND/DPC-VSS MIGRATION;7/31/2002
 ;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
 ;
SENDPROC(ABSVMTO,ABSSDA) ;
 ;Driver for sending data to SQL database.
 D CLEANXTP^ABSVMUT1
 D SETUPXTP^ABSVMUT1
 D LDCDS^ABSVMUT1
 D SERVSP(.ABSVMTO,.ABSSDA)
 D ORGSP(.ABSVMTO,.ABSSDA)
 D VOLSP(.ABSVMTO,.ABSSDA)
 D OHRSSP(.ABSVMTO,.ABSSDA)
 D RHRSSP(.ABSVMTO,.ABSSDA)
 D CLEANXTP^ABSVMUT1
 Q
 ;
SERVSP(ABSVMWHO,ABSSDA) ;
 ;Process for sending Services.  Includes Validation.
 N FL,EXPORT,TOSEND,TXTFILE
 N ABSSRES
 ;
 W !,"Validating Services"
 D SRVVAL^ABSVMRV1("S",.ABSSRES)
 W !,"Errors found in Service Codes: "_ABSSRES("ERRCNT")
 S ABSSDA(ABSSRES("DA"))=""
 ;
 S FL=503332
 S EXPORT="ABSVM SERVICE CODES EXPORT"
 S TOSEND="ABSVM SERVICES TOSEND"
 S TXTFILE="VtkServices"
 W !,"Sending Services.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 W !
 Q
 ;
ORGSP(ABSVMWHO,ABSSDA) ;
 ;Send Process for Organizations.
 N FL,EXPORT,TOSEND,TXTFILE
 N ABSSRES
 W !,"Validating Organizations"
 D ORGVAL^ABSVMRV1("S",.ABSSRES)
 W !,"Errors found in Organization Codes: "_ABSSRES("ERRCNT")
 S ABSSDA(ABSSRES("DA"))=""
 ;
 W !,"Sending Organizations.."
 S FL=503334
 S EXPORT="ABSVM ORGANIZATION EXPORT"
 S TOSEND="ABSVM ORGANIZATIONS TOSEND"
 S TXTFILE="VtkOrganizations"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 W !
 Q
 ;
VOLSP(ABSVMWHO,ABSSDA) ;
 ;Send Process for Volunteers
 N FL,EXPORT,TOSEND,TXTFILE
 N ABSSRES,EXSITES
 D EXSITES^ABSVMUT1
 W !,"Building List of Volunteers with Hours"
 D BLDVOLLT^ABSVMUT1()
 W !,"Validating Volunteers"
 D VALVOL^ABSVMVV1("S",.ABSSRES)
 W !,"Errors found in Volunteer data: "_ABSSRES("ERRCNT")
 S ABSSDA(ABSSRES("DA"))=""
 ;
 S FL=503330
 ; Volunteer Master
 S EXPORT="ABSVM VOL MASTER EXPORT"
 S TOSEND="ABSVM VOLUNTEER TOSEND"
 S TXTFILE="VtkVolunteers"
 W !,"Sending Volunteer Master Information.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;CONTACTS
 S EXPORT="ABSVM VOL CONTACT EXPORT"
 S TOSEND="ABSVM VOLUNTEER TOSEND"
 S TXTFILE="VtkVolContacts"
 W !,"Sending Volunteer Contact Information.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;COMBINATION CODES
 N COMBDIS
 S EXPORT="ABSVM VOL COMBINATIONS EXPORT"
 S TOSEND=""
 S COMBDIS(0)="I $D(^XTMP(""ABSVMVOLCB"",""IEN"",D0))"
 S TXTFILE="VtkVolCombinations"
 W !,"Sending Combination code Information.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.COMBDIS)
 ;PROFILES
 N PROFDIS
 S EXPORT="ABSVM PROFILES EXPORT"
 S TOSEND=""
 S TXTFILE="VtkVolProfiles"
 S PROFDIS(0)="I $D(^XTMP(""ABSVMVOLP"",""IEN"",D0))"
 W !,"Sending Volunteer Profile Information.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.PROFDIS)
 ;PARKING STICKERS
 N PARKDIS
 S EXPORT="ABSVM PARKING EXPORT"
 S TOSEND=""
 S TXTFILE="VtkVolParking"
 S PARKDIS(0)="I $D(^XTMP(""ABSVMVOLPK"",""IEN"",D0))"
 W !,"Sending Parking Sticker Information.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.PARKDIS)
 W !
 Q
 ;
OHRSSP(ABSVMWHO,ABSSDA) ;
 ;Occasional Hours Processing.
 N FL,EXPORT,TOSEND,TXTFILE
 N ABSSRES,EXSITES
 D EXSITES^ABSVMUT1
 W !,"Validating Occasional Hours"
 D OHRSVAL^ABSVMHV1("S",.ABSSRES)
 W !,"Errors found in Occasional Hours: "_ABSSRES("ERRCNT")
 S ABSSDA(ABSSRES("DA"))=""
 ;
 S FL=503336
 S EXPORT="ABSVM OCCASIONAL EXPORT"
 S TOSEND="ABSVM OCCASIONAL HOURS TOSEND"
 S TXTFILE="VtkOccHours"
 W !,"Sending Occasional Hours.."
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 W !
 Q
 ;
RHRSSP(ABSVMWHO,ABSSDA) ;
 ;Regular hours processing.
 N FL,EXPORT,TOSEND,TXTFILE
 N ABSSRES,EXSITES
 D EXSITES^ABSVMUT1
 W !,"Validating Regular Hours"
 D RHRSVAL^ABSVMHV1("S",.ABSSRES)
 W !,"Errors found in Regular Hours: "_ABSSRES("ERRCNT")
 S ABSSDA(ABSSRES("DA"))=""
 ;
 S FL=503331
 S EXPORT="ABSVM REGULAR HOURS EXPORT"
 W !,"Sending Regular Hours.."
 ;97
 S TOSEND="ABSVM REG HOURS 97Q1 TOSEND"
 S TXTFILE="VtkRegHours97Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;97Q2
 S TOSEND="ABSVM REG HOURS 97Q2 TOSEND"
 S TXTFILE="VtkRegHours97Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;97Q3
 S TOSEND="ABSVM REG HOURS 97Q3 TOSEND"
 S TXTFILE="VtkRegHours97Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;97Q4
 S TOSEND="ABSVM REG HOURS 97Q4 TOSEND"
 S TXTFILE="VtkRegHours97Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;98
 S TOSEND="ABSVM REG HOURS 98Q1 TOSEND"
 S TXTFILE="VtkRegHours98Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;98Q2
 S TOSEND="ABSVM REG HOURS 98Q2 TOSEND"
 S TXTFILE="VtkRegHours98Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;98Q3
 S TOSEND="ABSVM REG HOURS 98Q3 TOSEND"
 S TXTFILE="VtkRegHours98Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;98Q4
 S TOSEND="ABSVM REG HOURS 98Q4 TOSEND"
 S TXTFILE="VtkRegHours98Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;99
 S TOSEND="ABSVM REG HOURS 99Q1 TOSEND"
 S TXTFILE="VtkRegHours99Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;99Q2
 S TOSEND="ABSVM REG HOURS 99Q2 TOSEND"
 S TXTFILE="VtkRegHours99Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;99Q3
 S TOSEND="ABSVM REG HOURS 99Q3 TOSEND"
 S TXTFILE="VtkRegHours99Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;99Q4
 S TOSEND="ABSVM REG HOURS 99Q4 TOSEND"
 S TXTFILE="VtkRegHours99Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;00
 S TOSEND="ABSVM REG HOURS 00Q1 TOSEND"
 S TXTFILE="VtkRegHours00Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;00Q2
 S TOSEND="ABSVM REG HOURS 00Q2 TOSEND"
 S TXTFILE="VtkRegHours00Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;00Q3
 S TOSEND="ABSVM REG HOURS 00Q3 TOSEND"
 S TXTFILE="VtkRegHours00Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;00Q4
 S TOSEND="ABSVM REG HOURS 00Q4 TOSEND"
 S TXTFILE="VtkRegHours00Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;01
 S TOSEND="ABSVM REG HOURS 01Q1 TOSEND"
 S TXTFILE="VtkRegHours01Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;01Q2
 S TOSEND="ABSVM REG HOURS 01Q2 TOSEND"
 S TXTFILE="VtkRegHours01Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;01Q3
 S TOSEND="ABSVM REG HOURS 01Q3 TOSEND"
 S TXTFILE="VtkRegHours01Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;01Q4
 S TOSEND="ABSVM REG HOURS 01Q4 TOSEND"
 S TXTFILE="VtkRegHours01Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;02
 S TOSEND="ABSVM REG HOURS 02Q1 TOSEND"
 S TXTFILE="VtkRegHours02Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;02Q2
 S TOSEND="ABSVM REG HOURS 02Q2 TOSEND"
 S TXTFILE="VtkRegHours02Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;02Q3
 S TOSEND="ABSVM REG HOURS 02Q3 TOSEND"
 S TXTFILE="VtkRegHours02Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;02Q4
 S TOSEND="ABSVM REG HOURS 02Q4 TOSEND"
 S TXTFILE="VtkRegHours02Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;03
 S TOSEND="ABSVM REG HOURS 03Q1 TOSEND"
 S TXTFILE="VtkRegHours03Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;03Q2
 S TOSEND="ABSVM REG HOURS 03Q2 TOSEND"
 S TXTFILE="VtkRegHours03Q2"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;03Q3
 S TOSEND="ABSVM REG HOURS 03Q3 TOSEND"
 S TXTFILE="VtkRegHours03Q3"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;03Q4
 S TOSEND="ABSVM REG HOURS 03Q4 TOSEND"
 S TXTFILE="VtkRegHours03Q4"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 ;04
 S TOSEND="ABSVM REG HOURS 04Q1 TOSEND"
 S TXTFILE="VtkRegHours04Q1"
 D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
 Q
 ;
SEND(TEXTFILE,ABSVMWHO,FILE,XPTEMP,SORTTEMP,SCREEN) ;
 ;Sending data.
 N ABSVHFS,ABSVDEL,XMDUZ,XMY,XMSUB,XMTEXT,XMZ,%ZIS,IOP,Y
 ;set MailMan variables
 M XMY=ABSVMWHO
 S XMDUZ=DUZ,XMSUB="$Station$ "_$P($G(^DIC(4,+$$KSP^XUPARAM("INST"),99)),U)_" :"_TEXTFILE_" -- "_$$FMTE^XLFDT($$NOW^XLFDT)
 ;set device handler variables
 S ABSVHFS="ABSVMIGRATION.DAT",IOP="HFS",%ZIS="",%ZIS("HFSMODE")="W",%ZIS("HFSNAME")=ABSVHFS
 D EXPORT^DDXP(FILE,XPTEMP,0,$G(SORTTEMP),,,.SCREEN,,IOP)
 ;create message and get message number
 F  D XMZ^XMA2 Q:XMZ>0  H 1
 ;import from HFS to message global
 S Y=$$FTG^%ZISH("",ABSVHFS,$NA(^XMB(3.9,XMZ,2,1,0)),4)
 ;send message
 S XMDUZ=DUZ
 D ENT1^XMD
 ;delete HFS file
 S ABSVDEL(ABSVHFS)="",Y=$$DEL^%ZISH("",$NA(ABSVDEL))
 W !,"   Message #",XMZ
 Q