SDHPIENV ;MTC,PKE/ALB - Health Services R&D- ENVIRONMENT CHECK; 3/12/96 [ 10/21/96 8:19 AM ]
;;5.3;Scheduling;**141**;DEC 18, 1997
;
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDHPIENV 4626 printed Apr 09, 2024@21:56:31 Page 2
SDHPIENV ;MTC,PKE/ALB - Health Services R&D- ENVIRONMENT CHECK; 3/12/96 [ 10/21/96 8:19 AM ]
+1 ;;5.3;Scheduling;**141**;DEC 18, 1997
+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
