- SDHPIENV ;MTC,PKE/ALB - Health Services R&D- ENVIRONMENT CHECK; 3/12/96 [ 10/21/96 8:19 AM ]
- ;;5.3;Scheduling;**141,1015**;DEC 18, 1997;Build 21
- ;
- ;
- ENVIR N SDSITE
- S SDSITE=+$$SITE^VASITE()
- I 'SDSITE DO QUIT
- . W !!?3,"A call to $$SITE^VASITE() does not return your Station Number"
- . W !?3,"Please correct this before installing this Patch"
- .;
- . I '$G(XPDENV) Q
- . S XPDQUIT=2
- ;
- I $D(DUZ)'=11 DO
- . W !!?3,"Please set DUZ variables, D ^XUP"
- . I '$G(XPDENV) Q
- . S XPDQUIT=2
- ;
- ; default no to disable option/protocols
- I $G(XPDENV)=1 S XPDDIQ("XPZ1","B")="NO"
- ;
- Q
- ;
- PRETRANS ;
- ;load table of station numbers, ssn from temporary file
- ;
- ;format of table "sd",station,N sequential)=SSN piece string
- ;n winds up not sequential for integration sites
- ;
- M @XPDGREF@("SDHPI")=^XTMP("SDHPIENV")
- ;remove legacy stations
- K @XPDGREF@("SDHPI",505)
- K @XPDGREF@("SDHPI",513)
- K @XPDGREF@("SDHPI",522)
- K @XPDGREF@("SDHPI",533)
- K @XPDGREF@("SDHPI",535)
- ;
- K @XPDGREF@("SDHPI",566) K @XPDGREF@("SDHPI",641)
- K @XPDGREF@("SDHPI",569)
- K @XPDGREF@("SDHPI",574)
- K @XPDGREF@("SDHPI",579)
- K @XPDGREF@("SDHPI",592)
- K @XPDGREF@("SDHPI",591)
- K @XPDGREF@("SDHPI",604)
- ;
- K @XPDGREF@("SDHPI",611) K @XPDGREF@("SDHPI",685)
- K @XPDGREF@("SDHPI",627)
- K @XPDGREF@("SDHPI",640)
- K @XPDGREF@("SDHPI",645)
- K @XPDGREF@("SDHPI",680)
- K @XPDGREF@("SDHPI",686)
- ;
- K @XPDGREF@("SDHPI",691) K @XPDGREF@("SDHPI",752)
- ;
- W !?9,"removed ..."
- ;merge legacy stations to primary
- ;
- M @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",566)
- M @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",641)
- ;
- M @XPDGREF@("SDHPI",528)=^XTMP("SDHPIENV",513)
- M @XPDGREF@("SDHPI",537)=^XTMP("SDHPIENV",535)
- M @XPDGREF@("SDHPI",549)=^XTMP("SDHPIENV",522)
- M @XPDGREF@("SDHPI",555)=^XTMP("SDHPIENV",592)
- M @XPDGREF@("SDHPI",561)=^XTMP("SDHPIENV",604)
- M @XPDGREF@("SDHPI",568)=^XTMP("SDHPIENV",579)
- M @XPDGREF@("SDHPI",597)=^XTMP("SDHPIENV",574)
- M @XPDGREF@("SDHPI",599)=^XTMP("SDHPIENV",640)
- M @XPDGREF@("SDHPI",610)=^XTMP("SDHPIENV",569)
- M @XPDGREF@("SDHPI",619)=^XTMP("SDHPIENV",680)
- M @XPDGREF@("SDHPI",620)=^XTMP("SDHPIENV",533)
- M @XPDGREF@("SDHPI",646)=^XTMP("SDHPIENV",645)
- ;
- M @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",691)
- M @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",752)
- ;
- M @XPDGREF@("SDHPI",671)=^XTMP("SDHPIENV",591)
- ;
- M @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",611)
- M @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",685)
- ;
- M @XPDGREF@("SDHPI",677)=^XTMP("SDHPIENV",686)
- M @XPDGREF@("SDHPI",663)=^XTMP("SDHPIENV",505)
- M @XPDGREF@("SDHPI",689)=^XTMP("SDHPIENV",627)
- ;
- Q
- ;
- POSTINST ;
- ;install station specific table of SSNs.
- N SDSITE
- S SDSITE=+$$SITE^VASITE() I 'SDSITE QUIT
- ;
- K ^XTMP("SDHPI")
- S ^XTMP("SDHPI",0)=$$FMADD^XLFDT(DT,9)
- ;
- I '$D(@XPDGREF@("SDHPI",SDSITE)) DO QUIT
- . S ^XTMP("SDHPI","S",SDSITE,"ERROR","NO DATA REQUESTED")=DT
- ;
- M ^XTMP("SDHPI","S",SDSITE)=@XPDGREF@("SDHPI",SDSITE)
- ;
- Q
- STATION ;
- ;;358;363;402;405;436;437;438;442;452;459;460;463;
- ;;500;501;502;503;504;505;506;508;509;512;513;514;515;516;517;518;519;
- ;;520;521;522;523;525;526;527;528;529;531;532;533;534;535;537;538;539;
- ;;540;541;542;543;544;546;548;549;550;552;553;554;555;556;557;558;
- ;;561;562;564;565;566;567;568;569;570;573;574;575;578;579;
- ;;580;581;583;584;585;586;589;590;591;592;593;594;595;596;597;598;599;
- ;;600;603;604;605;607;608;609;610;611;612;613;614;617;618;619;
- ;;620;621;622;623;626;627;629;630;631;632;635;636;637;
- ;;640;641;642;644;645;646;647;648;649;
- ;;650;652;653;654;655;656;657;658;659;
- ;;660;662;663;664;665;666;667;668;670;671;672;673;674;676;677;678;679;
- ;;680;685;686;687;688;689;691;692;693;695;752;756;757;758;
- Q
- ;checklist
- ; SDSITE=512 M (566),(641) ;baltimore/perrypt/fthoward
- ; SDSITE=528 M (513) ;buffalo/batavia
- ; SDSITE=537 M (535) ;westside/lakeside
- ; SDSITE=549 M (522) ;dallas/bonham
- ; SDSITE=555 M (592) ;desmoines/knoxville
- ; SDSITE=561 M (604) ;eastorange/lyons
- ; SDSITE=568 M (579) ;fortmead/hotsprings
- ; SDSITE=597 M (574) ;lincoln/grandisland
- ; SDSITE=599 M (640) ;paloalto/livermore
- ; SDSITE=610 M (569) ;marion/fortwayne
- ; SDSITE=619 M (680) ;montgomery/tuskegee
- ; SDSTIE=620 M (533) ;montrose/castle pt
- ; SDSITE=646 M (645) ;pittsburguniv/highlandrive
- ; SDSITE=663 M (505) ;seatle/americTN=
- ; SDSITE=665 M (752) ;sepulvada/la opc
- ; SDSITE=671 M (591) ;sanantonio/kerrvile
- ; SDSITE=674 M (611),(685) ;temple/waco/marlin
- ; SDSITE=677 M (686) ;topeka/leavenworth
- ; SDSITE=689 M (627) ;westhaven/newington
- Q
- SDHPIENV ;MTC,PKE/ALB - Health Services R&D- ENVIRONMENT CHECK; 3/12/96 [ 10/21/96 8:19 AM ]
- +1 ;;5.3;Scheduling;**141,1015**;DEC 18, 1997;Build 21
- +2 ;
- +3 ;
- ENVIR NEW SDSITE
- +1 SET SDSITE=+$$SITE^VASITE()
- +2 IF 'SDSITE
- Begin DoDot:1
- +3 WRITE !!?3,"A call to $$SITE^VASITE() does not return your Station Number"
- +4 WRITE !?3,"Please correct this before installing this Patch"
- +5 ;
- +6 IF '$GET(XPDENV)
- QUIT
- +7 SET XPDQUIT=2
- End DoDot:1
- QUIT
- +8 ;
- +9 IF $DATA(DUZ)'=11
- Begin DoDot:1
- +10 WRITE !!?3,"Please set DUZ variables, D ^XUP"
- +11 IF '$GET(XPDENV)
- QUIT
- +12 SET XPDQUIT=2
- End DoDot:1
- +13 ;
- +14 ; default no to disable option/protocols
- +15 IF $GET(XPDENV)=1
- SET XPDDIQ("XPZ1","B")="NO"
- +16 ;
- +17 QUIT
- +18 ;
- PRETRANS ;
- +1 ;load table of station numbers, ssn from temporary file
- +2 ;
- +3 ;format of table "sd",station,N sequential)=SSN piece string
- +4 ;n winds up not sequential for integration sites
- +5 ;
- +6 MERGE @XPDGREF@("SDHPI")=^XTMP("SDHPIENV")
- +7 ;remove legacy stations
- +8 KILL @XPDGREF@("SDHPI",505)
- +9 KILL @XPDGREF@("SDHPI",513)
- +10 KILL @XPDGREF@("SDHPI",522)
- +11 KILL @XPDGREF@("SDHPI",533)
- +12 KILL @XPDGREF@("SDHPI",535)
- +13 ;
- +14 KILL @XPDGREF@("SDHPI",566)
- KILL @XPDGREF@("SDHPI",641)
- +15 KILL @XPDGREF@("SDHPI",569)
- +16 KILL @XPDGREF@("SDHPI",574)
- +17 KILL @XPDGREF@("SDHPI",579)
- +18 KILL @XPDGREF@("SDHPI",592)
- +19 KILL @XPDGREF@("SDHPI",591)
- +20 KILL @XPDGREF@("SDHPI",604)
- +21 ;
- +22 KILL @XPDGREF@("SDHPI",611)
- KILL @XPDGREF@("SDHPI",685)
- +23 KILL @XPDGREF@("SDHPI",627)
- +24 KILL @XPDGREF@("SDHPI",640)
- +25 KILL @XPDGREF@("SDHPI",645)
- +26 KILL @XPDGREF@("SDHPI",680)
- +27 KILL @XPDGREF@("SDHPI",686)
- +28 ;
- +29 KILL @XPDGREF@("SDHPI",691)
- KILL @XPDGREF@("SDHPI",752)
- +30 ;
- +31 WRITE !?9,"removed ..."
- +32 ;merge legacy stations to primary
- +33 ;
- +34 MERGE @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",566)
- +35 MERGE @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",641)
- +36 ;
- +37 MERGE @XPDGREF@("SDHPI",528)=^XTMP("SDHPIENV",513)
- +38 MERGE @XPDGREF@("SDHPI",537)=^XTMP("SDHPIENV",535)
- +39 MERGE @XPDGREF@("SDHPI",549)=^XTMP("SDHPIENV",522)
- +40 MERGE @XPDGREF@("SDHPI",555)=^XTMP("SDHPIENV",592)
- +41 MERGE @XPDGREF@("SDHPI",561)=^XTMP("SDHPIENV",604)
- +42 MERGE @XPDGREF@("SDHPI",568)=^XTMP("SDHPIENV",579)
- +43 MERGE @XPDGREF@("SDHPI",597)=^XTMP("SDHPIENV",574)
- +44 MERGE @XPDGREF@("SDHPI",599)=^XTMP("SDHPIENV",640)
- +45 MERGE @XPDGREF@("SDHPI",610)=^XTMP("SDHPIENV",569)
- +46 MERGE @XPDGREF@("SDHPI",619)=^XTMP("SDHPIENV",680)
- +47 MERGE @XPDGREF@("SDHPI",620)=^XTMP("SDHPIENV",533)
- +48 MERGE @XPDGREF@("SDHPI",646)=^XTMP("SDHPIENV",645)
- +49 ;
- +50 MERGE @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",691)
- +51 MERGE @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",752)
- +52 ;
- +53 MERGE @XPDGREF@("SDHPI",671)=^XTMP("SDHPIENV",591)
- +54 ;
- +55 MERGE @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",611)
- +56 MERGE @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",685)
- +57 ;
- +58 MERGE @XPDGREF@("SDHPI",677)=^XTMP("SDHPIENV",686)
- +59 MERGE @XPDGREF@("SDHPI",663)=^XTMP("SDHPIENV",505)
- +60 MERGE @XPDGREF@("SDHPI",689)=^XTMP("SDHPIENV",627)
- +61 ;
- +62 QUIT
- +63 ;
- POSTINST ;
- +1 ;install station specific table of SSNs.
- +2 NEW SDSITE
- +3 SET SDSITE=+$$SITE^VASITE()
- IF 'SDSITE
- QUIT
- +4 ;
- +5 KILL ^XTMP("SDHPI")
- +6 SET ^XTMP("SDHPI",0)=$$FMADD^XLFDT(DT,9)
- +7 ;
- +8 IF '$DATA(@XPDGREF@("SDHPI",SDSITE))
- Begin DoDot:1
- +9 SET ^XTMP("SDHPI","S",SDSITE,"ERROR","NO DATA REQUESTED")=DT
- End DoDot:1
- QUIT
- +10 ;
- +11 MERGE ^XTMP("SDHPI","S",SDSITE)=@XPDGREF@("SDHPI",SDSITE)
- +12 ;
- +13 QUIT
- STATION ;
- +1 ;;358;363;402;405;436;437;438;442;452;459;460;463;
- +2 ;;500;501;502;503;504;505;506;508;509;512;513;514;515;516;517;518;519;
- +3 ;;520;521;522;523;525;526;527;528;529;531;532;533;534;535;537;538;539;
- +4 ;;540;541;542;543;544;546;548;549;550;552;553;554;555;556;557;558;
- +5 ;;561;562;564;565;566;567;568;569;570;573;574;575;578;579;
- +6 ;;580;581;583;584;585;586;589;590;591;592;593;594;595;596;597;598;599;
- +7 ;;600;603;604;605;607;608;609;610;611;612;613;614;617;618;619;
- +8 ;;620;621;622;623;626;627;629;630;631;632;635;636;637;
- +9 ;;640;641;642;644;645;646;647;648;649;
- +10 ;;650;652;653;654;655;656;657;658;659;
- +11 ;;660;662;663;664;665;666;667;668;670;671;672;673;674;676;677;678;679;
- +12 ;;680;685;686;687;688;689;691;692;693;695;752;756;757;758;
- +13 QUIT
- +14 ;checklist
- +15 ; SDSITE=512 M (566),(641) ;baltimore/perrypt/fthoward
- +16 ; SDSITE=528 M (513) ;buffalo/batavia
- +17 ; SDSITE=537 M (535) ;westside/lakeside
- +18 ; SDSITE=549 M (522) ;dallas/bonham
- +19 ; SDSITE=555 M (592) ;desmoines/knoxville
- +20 ; SDSITE=561 M (604) ;eastorange/lyons
- +21 ; SDSITE=568 M (579) ;fortmead/hotsprings
- +22 ; SDSITE=597 M (574) ;lincoln/grandisland
- +23 ; SDSITE=599 M (640) ;paloalto/livermore
- +24 ; SDSITE=610 M (569) ;marion/fortwayne
- +25 ; SDSITE=619 M (680) ;montgomery/tuskegee
- +26 ; SDSTIE=620 M (533) ;montrose/castle pt
- +27 ; SDSITE=646 M (645) ;pittsburguniv/highlandrive
- +28 ; SDSITE=663 M (505) ;seatle/americTN=
- +29 ; SDSITE=665 M (752) ;sepulvada/la opc
- +30 ; SDSITE=671 M (591) ;sanantonio/kerrvile
- +31 ; SDSITE=674 M (611),(685) ;temple/waco/marlin
- +32 ; SDSITE=677 M (686) ;topeka/leavenworth
- +33 ; SDSITE=689 M (627) ;westhaven/newington
- +34 QUIT