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

BEDDUTL2.m

Go to the documentation of this file.
  1. BEDDUTL2 ;VNGT/HS/BEE-BEDD Utility Routine 2 ; 08 Nov 2011 12:00 PM
  1. ;;2.0;BEDD DASHBOARD;**3**;Jun 04, 2014;Build 12
  1. ;
  1. Q
  1. ;
  1. CLIN(CLIN) ;EP - Return List of Applicable Clinics
  1. ;
  1. ;Input:
  1. ; None
  1. ;
  1. ;Output:
  1. ; CLIN Array - List of Clinics
  1. ;
  1. NEW CIEN,CTIEN,CNT
  1. K CLIN
  1. S CTIEN=$O(^AMER(2,"B","CLINIC TYPE","")) Q:CTIEN=""
  1. S CNT=0,CIEN="" F S CIEN=$O(^AMER(3,"AC",CTIEN,CIEN)) Q:+CIEN=0 D
  1. . ;GDIT/HS/BEE 05/10/2018;CR#10213 - BEDD*2.0*3 - Filter out inactive
  1. . I $$GET1^DIQ(9009083,CIEN_",",.05,"I") Q
  1. . S CNT=CNT+1
  1. . ;GDIT/HS/BEE 07/10/2018;CR#10213 - BEDD*2.0*3 - Now use CIEN rather then code
  1. . ;S CLIN(CNT)=$$GET1^DIQ(9009083,CIEN_",",5,"I")_"^"_$$GET1^DIQ(9009083,CIEN_",",".01","I")
  1. . S CLIN(CNT)=CIEN_"^"_$$GET1^DIQ(9009083,CIEN_",",".01","I")
  1. ;
  1. Q
  1. ;
  1. VCLIN(VIEN) ;Return the ER Clinic IEN based on the PCC visit
  1. ;
  1. I '$G(VIEN) Q ""
  1. ;
  1. Q $$GETCLN^AMER2A(VIEN)
  1. ;
  1. NEW CLIN,HL
  1. ;
  1. S CLIN=""
  1. ;
  1. ;First lookup by hospital location
  1. S HL=$$GET1^DIQ(9000010,VIEN_",",.22,"I")
  1. I HL]"" D
  1. . NEW INST,DA,IENS
  1. . ;
  1. . ;Get the Hospital Location Pointer to file 4
  1. . S INST=$$GET1^DIQ(44,HL_",",3,"I") Q:INST=""
  1. . ;
  1. . ;Now look in ER PREFERENCES for map to ER OPTION Entry
  1. . S DA(1)=INST,DA=$O(^AMER(2.5,"C",HL,INST,"")) Q:DA=""
  1. . S IENS=$$IENS^DILF(.DA)
  1. . S CLIN=$$GET1^DIQ(9009082.58,IENS,.01,"I")
  1. ;
  1. ;If not set - try old method
  1. I CLIN="" D
  1. . NEW CL
  1. . ;
  1. . ;Get the clinic code from the visit
  1. . S CL=$$GET1^DIQ(9000010,VIEN_",",.08,"I")
  1. . I CL]"" S CLIN=$O(^AMER(3,"B",CL,""))
  1. ;
  1. Q CLIN
  1. ;
  1. GCLIN(CLIN) ;Return the clinic code and hospital location for the ER OPTION CIEN
  1. ;
  1. I '$G(CLIN) Q ""
  1. ;
  1. NEW HLOC,ICPREF
  1. ;
  1. S HLOC=""
  1. ;
  1. ;Look for associated hospital location
  1. S ICPREF=$O(^AMER(2.5,DUZ(2),8,"B",CLIN,"")) I ICPREF]"" D
  1. . NEW DA,IENS
  1. . S DA(1)=DUZ(2),DA=ICPREF,IENS=$$IENS^DILF(.DA)
  1. . S HLOC=$$GET1^DIQ(9009082.58,IENS,".02","I")
  1. ;
  1. ;If hospital location isn't set, pull from default
  1. S:HLOC="" HLOC=$G(^AMER(2.5,DUZ(2),"SD"))
  1. ;
  1. I HLOC="" D Q ""
  1. . W !,"SITE PARAMETERS have not been set up in the ERS PARAMETER option"
  1. . W !,"No entry for EMERGENCY MEDICINE could be located"
  1. ;
  1. ;Get the clinic
  1. S CLIN=$$GET1^DIQ(44,HLOC_",",8,"I")
  1. ;
  1. Q CLIN_U_HLOC