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

RGMTMONX.m

Go to the documentation of this file.
  1. RGMTMONX ;BIR/CML,PTD-MPI/PD Monitor HL7 Messaging/Filers and Setups (CONT) ;07/30/02
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**20,30,31**;30 Apr 99
  1. ;
  1. ;Reference to ^DIC(4,"D", supported by IA #3627
  1. ;Reference to ^HLCS(870 supported by IA #3335
  1. ;Reference to ^DGCN(391.91, supported by IA #2911
  1. ;
  1. START ;
  1. I DEV,'$D(RGHLMQ) W @IOF,"Logical Link Monitor:",!,"=====================",!
  1. ;
  1. K ^XTMP("RGMT","MONT")
  1. I '$D(TXTCNT) S TXTCNT=0
  1. I '$D(LOCSITE) S LOCSITE=$P($$SITE^VASITE(),"^")
  1. ;
  1. ;MULTID=# of multiple "D" xrefs in ^DIC(4 for Station #
  1. ;NOINST=# of VAxxx Links with no INSTITUTION defined
  1. ;BADINST=# of VAxxx Links that have an incorrect INSTITUTION defined
  1. ;BADTF=# of patients with invalid Treating Facilities
  1. ;NONVA=# of non-VAxxx Logical Links with INSTITUTION defined
  1. ;CNT=# of VAxxx Logical Links processed
  1. ;
  1. S (NOINST,BADINST,BADTF,MULTID,NONVA,CNT,DODHOST)=0
  1. ;
  1. 1 ;
  1. I DEV,'$D(RGHLMQ) W !,"=> Checks 1-3: Checking Link Setups..."
  1. K LINKARR
  1. S LINK=""
  1. F S LINK=$O(^HLCS(870,"B",LINK)) Q:LINK="" D
  1. .I LINK'="MPIVA"&($E(LINK,1,2)'="VA") Q
  1. .I $E(LINK,1,2)="VA"&($L(LINK," ")>1) Q
  1. .Q:LINK["-"
  1. .I $T(@LINK)']"" Q
  1. .S CNT=CNT+1
  1. .S VALSTA=$P($P($T(@LINK),";;",2),"^",2)
  1. .;build array of links with valid station numbers to do check 5
  1. .S LINKARR(VALSTA)=LINK
  1. 2 .;check for multiple "D" xrefs in ^DIC(4 for this station #)
  1. .S (XCNT,QQ)=0
  1. .F S QQ=$O(^DIC(4,"D",VALSTA,QQ)) Q:'QQ D
  1. ..S XCNT=XCNT+1
  1. ..I QQ["." D
  1. ...S ^XTMP("RGMT","MONT","DECIMEL INST IEN",VALSTA,QQ)=""
  1. .I XCNT>1 D
  1. ..S LINKIEN=$O(^HLCS(870,"B",LINK,0))
  1. ..S MULTID=MULTID+1
  1. ..S (XCNT,QQ)=0
  1. ..F S QQ=$O(^DIC(4,"D",VALSTA,QQ)) Q:'QQ D
  1. ...S ^XTMP("RGMT","MONT","MULTI DXREF",VALSTA,QQ)=$$GET1^DIQ(4,QQ_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.02,"I")
  1. 3 .;check for defined INSTITUTION and set (if necessary) AUTOSTART and RESTART for links in file 870
  1. .S LINKIEN=$O(^HLCS(870,"B",LINK,0))
  1. .S LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
  1. .I 'LINKINST D Q
  1. ..S NOINST=NOINST+1
  1. ..S ^XTMP("RGMT","MONT","NO INST",LINK)=LINKIEN_"^"_$P($P($T(@LINK),";;",2),"^",1,2)
  1. ..S TXT=" ** No INSTITUTION defined for "_LINK D TXT
  1. 4 .;check for incorrect INSTITUTION
  1. .S LOCSTA=$P($$NS^XUAF4(LINKINST),"^",2)
  1. .I LOCSTA'=VALSTA D
  1. ..S BADINST=BADINST+1
  1. ..S ^XTMP("RGMT","MONT","BAD INST",LINK)=LOCSTA
  1. ..S TXT=" ** Bad INSTITUTION of Station #"_LOCSTA_" defined for "_LINK_" - should be Station #"_VALSTA D TXT
  1. ;
  1. 5 ;
  1. I DEV,'$D(RGHLMQ) W !,"=> Check 4 : Checking for patients with invalid Treating Facilities..."
  1. S TFIEN=0
  1. F S TFIEN=$O(^DGCN(391.91,"C",TFIEN)) Q:'TFIEN D
  1. .S TF=$P($$NS^XUAF4(TFIEN),"^",2)
  1. .I TF="" D Q
  1. ..S TFIFN=0 F S TFIFN=$O(^DGCN(391.91,"C",TFIEN,TFIFN)) Q:'TFIFN D
  1. ...S BADTF=BADTF+1
  1. ...S DFN=$$GET1^DIQ(391.91,TFIFN_",",.01,"I")
  1. ...I DEV,'$D(RGHLMQ) D
  1. ....W !?3,"** TF with no station # for ",$P(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",TFIFN,")"
  1. .I '$D(LINKARR(TF)) D
  1. ..S IEN=0 F S IEN=$O(^DGCN(391.91,"C",TFIEN,IEN)) Q:'IEN D
  1. ...I TF=200 S DODHOST=DODHOST+1 Q
  1. ...S DFN=$$GET1^DIQ(391.91,IEN_",",.01,"I")
  1. ...S BADTF=BADTF+1
  1. ...S ^XTMP("RGMT","MONT","BAD TF",DFN)=$$GET1^DIQ(4,TFIEN_",",.01)_"^"_IEN
  1. ...I DEV,'$D(RGHLMQ) W !?3,"** Bad TF of ",$P(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",IEN,")"
  1. ;
  1. 6 ;
  1. I DEV,'$D(RGHLMQ) W !,"=> Check 5 : Checking for non-VAxxx links with INSTITUTION defined..."
  1. S LINK=""
  1. F S LINK=$O(^HLCS(870,"B",LINK)) Q:LINK="" I $E(LINK,1,2)'="VA"!($E(LINK,1,4)="VAFC") D
  1. .Q:LINK="MPIVA"
  1. .S LINKIEN=$O(^HLCS(870,"B",LINK,0))
  1. .S LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
  1. .Q:'LINKINST
  1. .Q:LINKINST'=+$$SITE^VASITE()
  1. .S NONVA=NONVA+1
  1. .S ^XTMP("RGMT","MONT","NONVA LINK WITH INSTITUTION",LINK)=""
  1. .S TXT=" ** Non-VA Link with LOCAL INSTITUTION defined - "_LINK D TXT
  1. ;
  1. DONE ;
  1. S TXT="" D TXT
  1. ;
  1. S TXT="==============================" D TXT
  1. S TXT="Check 1: "_MULTID_" VA MPI/PD Links with multiple ""D"" xref in ^DIC(4 for Station #." D TXT
  1. S TXT="Check 2: "_NOINST_" VA MPI/PD Links without an INSTITUTION defined." D TXT
  1. S TXT="Check 3: "_BADINST_" VA MPI/PD Links with incorrect INSTITUTION defined." D TXT
  1. S TXT="Check 4: "_BADTF_" patients with invalid Treating Facilities. => FHIE Pts: "_DODHOST D TXT
  1. S TXT="Check 5: "_NONVA_" non-VA MPI/PD Links with an INSTITUTION of local site defined." D TXT
  1. ;
  1. K BADINST,BADTF,CNT,DEV,DFN,IEN,LINK,LINKARR,LINKIEN,LINKINST,LOCSITE,LOCSTA,MULTID
  1. K NOINST,NONVA,QQ,TF,TFIEN,TFIFN,TXT,TXTCNT,VALSTA,XCNT,DODHOST
  1. Q
  1. ;
  1. TXT ;
  1. S TXTCNT=TXTCNT+1
  1. I DEV,'$D(RGHLMQ) W !,TXT
  1. I $D(RGHLMQ) S ^XTMP("RGMT","HLMQMONT",LOCSITE,TXTCNT)=TXT
  1. Q
  1. ;
  1. MPIVA ;;MPI^200M
  1. VAALX ;;ALEXANDRIA^502
  1. VAALT ;;ALTOONA^503
  1. VAAMA ;;AMARILLO HCS^504
  1. VAANC ;;ANCHORAGE^463
  1. VAANN ;;ANN ARBOR^506
  1. VAASH ;;ASHEVILLE^637
  1. VAATG ;;ATLANTA^508
  1. VAAUG ;;AUGUSTA^509
  1. VABAC ;;BATTLE CREEK^515
  1. VABAY ;;BAY PINES^516
  1. VABEC ;;BECKLEY^517
  1. VABED ;;BEDFORD^518
  1. VABIL ;;BILOXI^520
  1. VABIR ;;BIRMINGHAM^521
  1. VABHH ;;BLACK HILLS HCS^568
  1. VABOI ;;BOISE^531
  1. VABOS ;;BOSTON HCS^523
  1. VABRX ;;BRONX^526
  1. VABUT ;;BUTLER^529
  1. VACAH ;;CENTRAL ALABAMA HCS^619
  1. VALIT ;;CENTRAL ARKANSAS HCS^598
  1. VAFRE ;;CENTRAL CALIFORNIA HCS^570
  1. VAOMA ;;CENTRAL PLAINS HCS^636
  1. VACTX ;;CENTRAL TEXAS HCS^674
  1. VACHA ;;CHARLESTON^534
  1. VACHY ;;CHEYENNE^442
  1. VACHS ;;CHICAGO HCS^537
  1. VACLL ;;CHILLICOTHE^538
  1. VACIN ;;CINCINNATI^539
  1. VACLA ;;CLARKSBURG^540
  1. VACLE ;;CLEVELAND^541
  1. VACOA ;;COATESVILLE^542
  1. VACMS ;;COLUMBIA^544
  1. VACOS ;;COLUMBUS^757
  1. VACON ;;CONNECTICUT HCS^689
  1. VADAY ;;DAYTON^552
  1. VADEN ;;DENVER^554
  1. VADET ;;DETROIT^553
  1. VADUB ;;DUBLIN^557
  1. VADUR ;;DURHAM^558
  1. VAELP ;;EL PASO^756
  1. VAERI ;;ERIE^562
  1. VAFAR ;;FARGO^437
  1. VAFNC ;;FAYETTEVILLE^565
  1. VAFAV ;;FAYETTEVILLE^564
  1. VAJAC ;;G. V. (SONNY) MONTGOMERY^586
  1. VAGRJ ;;GRAND JUNCTION^575
  1. VAHAM ;;HAMPTON^590
  1. VAHIN ;;HINES^578
  1. VAHON ;;HONOLULU VAMROC^459
  1. VAHOU ;;HOUSTON^580
  1. VAHVH ;;HUDSON VALLEY HCS^620
  1. VAHUN ;;HUNTINGTON^581
  1. VADAN ;;ILLIANA HEALTH CARE SYSTEM^550
  1. VAIND ;;INDIANAPOLIS^583
  1. VAIRO ;;IRON MOUNTAIN^585
  1. VALAS ;;LAS VEGAS^593
  1. VALEB ;;LEBANON^595
  1. VALEX ;;LEXINGTON^596
  1. VALOM ;;LOMA LINDA^605
  1. VALON ;;LONG BEACH HCS^600
  1. VALOU ;;LOUISVILLE^603
  1. VAMAD ;;MADISON^607
  1. VAMAN ;;MANCHESTER^608
  1. VAMPI ;;MANILA^358
  1. VAMWV ;;MARTINSBURG^613
  1. VAMAR ;;MARYLAND HCS^512
  1. VAMEM ;;MEMPHIS^614
  1. VAMIA ;;MIAMI^546
  1. VAMIW ;;MILWAUKEE^695
  1. VAMIN ;;MINNEAPOLIS^618
  1. VAFHM ;;MONTANA HCS^436
  1. VAMOU ;;MOUNTAIN HOME^621
  1. VAMUS ;;MUSKOGEE^623
  1. VAGAI ;;N. FLORIDA/S. GEORGIA HCS^573
  1. VANJH ;;NEW JERSEY HCS^561
  1. VAALB ;;NEW MEXICO HCS^501
  1. VANOL ;;NEW ORLEANS^629
  1. VANYN ;;NEW YORK HARBOR HCS^630
  1. VANCH ;;NORTH CHICAGO^556
  1. VANTH ;;NORTH TEXAS HCS^549
  1. VANHM ;;NORTHAMPTON^631
  1. VAPRE ;;NORTHERN ARIZONA HCS^649
  1. VAMAC ;;NORTHERN CALIFORNIA HCS^612
  1. VANIN ;;NORTHERN INDIANA HCS^610
  1. VANOP ;;NORTHPORT^632
  1. VAOKL ;;OKLAHOMA CITY^635
  1. VAPAL ;;PALO ALTO HCS^640
  1. VAPHI ;;PHILADELPHIA^642
  1. VAPHO ;;PHOENIX^644
  1. VAPTH ;;PITTSBURGH HCS^646
  1. VAPOR ;;PORTLAND^648
  1. VAPRO ;;PROVIDENCE^650
  1. VAPUG ;;PUGET SOUND HCS^663
  1. VARIC ;;RICHMOND^652
  1. VAROS ;;ROSEBURG^653
  1. VASAG ;;SAGINAW^655
  1. VASAM ;;SALEM^658
  1. VASBY ;;SALISBURY^659
  1. VASLC ;;SALT LAKE CITY HCS^660
  1. VASDC ;;SAN DIEGO HCS^664
  1. VASFC ;;SAN FRANCISCO^662
  1. VASAJ ;;SAN JUAN^672
  1. VASHE ;;SHERIDAN^666
  1. VASHR ;;SHREVEPORT^667
  1. VAREN ;;SIERRA NEVADA HCS^654
  1. VASUX ;;SIOUX FALLS^438
  1. VASTX ;;SOUTH TEXAS HCS^671
  1. VATUC ;;SOUTHERN ARIZONA HCS^678
  1. VASPO ;;SPOKANE^668
  1. VASTC ;;ST. CLOUD^656
  1. VATAM ;;TAMPA^673
  1. VANAS ;;TENNESSEE VALLEY HCS^626
  1. VATOG ;;TOGUS^402
  1. VATOM ;;TOMAH^676
  1. VATUA ;;TUSCALOOSA^679
  1. VAWNY ;;UPSTATE NEW YORK HCS^528
  1. VASTL ;;VA HEARTLAND - EAST, VISN 15^657
  1. VAKAN ;;VA HEARTLAND - WEST, VISN 15^589
  1. VAWWW ;;WALLA WALLA^687
  1. VAWAS ;;WASHINGTON^688
  1. VAWLA ;;WEST LA VAMC^691
  1. VAWPB ;;WEST PALM BEACH^548
  1. VABIG ;;WEST TEXAS HCS^519
  1. VAWCO ;;WHITE CITY^692
  1. VAWRJ ;;WHITE RIVER JCT^405
  1. VAWBP ;;WILKES BARRE^693
  1. VAWIM ;;WILMINGTON^460
  1. ;;***