Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDHPIENV

SDHPIENV.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. ENVIR N SDSITE
  1. S SDSITE=+$$SITE^VASITE()
  1. I 'SDSITE DO QUIT
  1. . W !!?3,"A call to $$SITE^VASITE() does not return your Station Number"
  1. . W !?3,"Please correct this before installing this Patch"
  1. .;
  1. . I '$G(XPDENV) Q
  1. . S XPDQUIT=2
  1. ;
  1. I $D(DUZ)'=11 DO
  1. . W !!?3,"Please set DUZ variables, D ^XUP"
  1. . I '$G(XPDENV) Q
  1. . S XPDQUIT=2
  1. ;
  1. ; default no to disable option/protocols
  1. I $G(XPDENV)=1 S XPDDIQ("XPZ1","B")="NO"
  1. ;
  1. Q
  1. ;
  1. PRETRANS ;
  1. ;load table of station numbers, ssn from temporary file
  1. ;
  1. ;format of table "sd",station,N sequential)=SSN piece string
  1. ;n winds up not sequential for integration sites
  1. ;
  1. M @XPDGREF@("SDHPI")=^XTMP("SDHPIENV")
  1. ;remove legacy stations
  1. K @XPDGREF@("SDHPI",505)
  1. K @XPDGREF@("SDHPI",513)
  1. K @XPDGREF@("SDHPI",522)
  1. K @XPDGREF@("SDHPI",533)
  1. K @XPDGREF@("SDHPI",535)
  1. ;
  1. K @XPDGREF@("SDHPI",566) K @XPDGREF@("SDHPI",641)
  1. K @XPDGREF@("SDHPI",569)
  1. K @XPDGREF@("SDHPI",574)
  1. K @XPDGREF@("SDHPI",579)
  1. K @XPDGREF@("SDHPI",592)
  1. K @XPDGREF@("SDHPI",591)
  1. K @XPDGREF@("SDHPI",604)
  1. ;
  1. K @XPDGREF@("SDHPI",611) K @XPDGREF@("SDHPI",685)
  1. K @XPDGREF@("SDHPI",627)
  1. K @XPDGREF@("SDHPI",640)
  1. K @XPDGREF@("SDHPI",645)
  1. K @XPDGREF@("SDHPI",680)
  1. K @XPDGREF@("SDHPI",686)
  1. ;
  1. K @XPDGREF@("SDHPI",691) K @XPDGREF@("SDHPI",752)
  1. ;
  1. W !?9,"removed ..."
  1. ;merge legacy stations to primary
  1. ;
  1. M @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",566)
  1. M @XPDGREF@("SDHPI",512)=^XTMP("SDHPIENV",641)
  1. ;
  1. M @XPDGREF@("SDHPI",528)=^XTMP("SDHPIENV",513)
  1. M @XPDGREF@("SDHPI",537)=^XTMP("SDHPIENV",535)
  1. M @XPDGREF@("SDHPI",549)=^XTMP("SDHPIENV",522)
  1. M @XPDGREF@("SDHPI",555)=^XTMP("SDHPIENV",592)
  1. M @XPDGREF@("SDHPI",561)=^XTMP("SDHPIENV",604)
  1. M @XPDGREF@("SDHPI",568)=^XTMP("SDHPIENV",579)
  1. M @XPDGREF@("SDHPI",597)=^XTMP("SDHPIENV",574)
  1. M @XPDGREF@("SDHPI",599)=^XTMP("SDHPIENV",640)
  1. M @XPDGREF@("SDHPI",610)=^XTMP("SDHPIENV",569)
  1. M @XPDGREF@("SDHPI",619)=^XTMP("SDHPIENV",680)
  1. M @XPDGREF@("SDHPI",620)=^XTMP("SDHPIENV",533)
  1. M @XPDGREF@("SDHPI",646)=^XTMP("SDHPIENV",645)
  1. ;
  1. M @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",691)
  1. M @XPDGREF@("SDHPI",665)=^XTMP("SDHPIENV",752)
  1. ;
  1. M @XPDGREF@("SDHPI",671)=^XTMP("SDHPIENV",591)
  1. ;
  1. M @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",611)
  1. M @XPDGREF@("SDHPI",674)=^XTMP("SDHPIENV",685)
  1. ;
  1. M @XPDGREF@("SDHPI",677)=^XTMP("SDHPIENV",686)
  1. M @XPDGREF@("SDHPI",663)=^XTMP("SDHPIENV",505)
  1. M @XPDGREF@("SDHPI",689)=^XTMP("SDHPIENV",627)
  1. ;
  1. Q
  1. ;
  1. POSTINST ;
  1. ;install station specific table of SSNs.
  1. N SDSITE
  1. S SDSITE=+$$SITE^VASITE() I 'SDSITE QUIT
  1. ;
  1. K ^XTMP("SDHPI")
  1. S ^XTMP("SDHPI",0)=$$FMADD^XLFDT(DT,9)
  1. ;
  1. I '$D(@XPDGREF@("SDHPI",SDSITE)) DO QUIT
  1. . S ^XTMP("SDHPI","S",SDSITE,"ERROR","NO DATA REQUESTED")=DT
  1. ;
  1. M ^XTMP("SDHPI","S",SDSITE)=@XPDGREF@("SDHPI",SDSITE)
  1. ;
  1. Q
  1. STATION ;
  1. ;;358;363;402;405;436;437;438;442;452;459;460;463;
  1. ;;500;501;502;503;504;505;506;508;509;512;513;514;515;516;517;518;519;
  1. ;;520;521;522;523;525;526;527;528;529;531;532;533;534;535;537;538;539;
  1. ;;540;541;542;543;544;546;548;549;550;552;553;554;555;556;557;558;
  1. ;;561;562;564;565;566;567;568;569;570;573;574;575;578;579;
  1. ;;580;581;583;584;585;586;589;590;591;592;593;594;595;596;597;598;599;
  1. ;;600;603;604;605;607;608;609;610;611;612;613;614;617;618;619;
  1. ;;620;621;622;623;626;627;629;630;631;632;635;636;637;
  1. ;;640;641;642;644;645;646;647;648;649;
  1. ;;650;652;653;654;655;656;657;658;659;
  1. ;;660;662;663;664;665;666;667;668;670;671;672;673;674;676;677;678;679;
  1. ;;680;685;686;687;688;689;691;692;693;695;752;756;757;758;
  1. Q
  1. ;checklist
  1. ; SDSITE=512 M (566),(641) ;baltimore/perrypt/fthoward
  1. ; SDSITE=528 M (513) ;buffalo/batavia
  1. ; SDSITE=537 M (535) ;westside/lakeside
  1. ; SDSITE=549 M (522) ;dallas/bonham
  1. ; SDSITE=555 M (592) ;desmoines/knoxville
  1. ; SDSITE=561 M (604) ;eastorange/lyons
  1. ; SDSITE=568 M (579) ;fortmead/hotsprings
  1. ; SDSITE=597 M (574) ;lincoln/grandisland
  1. ; SDSITE=599 M (640) ;paloalto/livermore
  1. ; SDSITE=610 M (569) ;marion/fortwayne
  1. ; SDSITE=619 M (680) ;montgomery/tuskegee
  1. ; SDSTIE=620 M (533) ;montrose/castle pt
  1. ; SDSITE=646 M (645) ;pittsburguniv/highlandrive
  1. ; SDSITE=663 M (505) ;seatle/americTN=
  1. ; SDSITE=665 M (752) ;sepulvada/la opc
  1. ; SDSITE=671 M (591) ;sanantonio/kerrvile
  1. ; SDSITE=674 M (611),(685) ;temple/waco/marlin
  1. ; SDSITE=677 M (686) ;topeka/leavenworth
  1. ; SDSITE=689 M (627) ;westhaven/newington
  1. Q