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

PSUTL1.m

Go to the documentation of this file.
  1. PSUTL1 ;BIR/CFL - Subroutines for PBMS Modules ;25 AUG 1998
  1. ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
  1. ;Reference to file #2 supported by DBIA #3301
  1. SECTN ;Service/Sections Array
  1. S PSECT("AMBULATORY CARE")="AMB"
  1. S PSECT("ANESTHESIOLOGY")="ANES"
  1. S PSECT("CARDIOLOGY")="CV"
  1. S PSECT("CLINICAL PHARMACY")="CPHAR"
  1. S PSECT("DENTAL")="DDS"
  1. S PSECT("INTERMEDIATE MEDICINE")="IM"
  1. S PSECT("MEDICINE")="MED"
  1. S PSECT("NEUROLOGY")="NEUR"
  1. S PSECT("NUCLEAR MEDICINE")="NUM"
  1. S PSECT("NURSING")="RN"
  1. S PSECT("ORTHOPEDICS")="ORTHO"
  1. S PSECT("PSYCHIATRY")="PSY"
  1. S PSECT("RADIOLOGY")="RAD"
  1. S PSECT("SURGERY")="SUR"
  1. S PSECT("UROLOGY")="U"
  1. SECTNQ Q
  1. ;
  1. PURGE ; remove outdated PSU namespace entries in ^XTMP
  1. N PSUI,PSUPDT,PSUCDT
  1. D NOW^%DTC
  1. S PSUCDT=X
  1. S PSUI="PSU"
  1. F S PSUI=$O(^XTMP(PSUI)) Q:$E(PSUI,1,3)'="PSU" D
  1. .S PSUPDT=$P($G(^XTMP(PSUI,0)),"^",1)
  1. .I PSUPDT="" K ^XTMP(PSUI) Q
  1. .I PSUPDT<PSUCDT K ^XTMP(PSUI) Q
  1. PURGEQ Q ; purge complete
  1. ;
  1. XMY ;EP Setup Mail Groups
  1. ; PSUXMYH() Mail Group for Hines Message and message to self/PBM group
  1. ; PSUXMYS1() Mail Group for Summary 1 & No Data Messages
  1. ; PSUXMYS2() Mail Group for Summary 2 Messages
  1. ;S PSUPBMG=^XTMP("PSU_"_PSUJOB,"PSUPBMG")
  1. ;
  1. Q:$D(^XTMP("PSU_"_$G(PSUJOB),"PSUFLAG3"))
  1. ;
  1. ; Hines Group
  1. I $G(PSUMASF) D
  1. .S PSUXMYH("G.PSU PBM@CMOP-NAT.DOMAIN.EXT")=""
  1. I $G(PSUPBMG) S PSUXMYH("G.PSU PBM")="" ;local PBM mail group
  1. I $G(PSUDUZ) S PSUXMYH(PSUDUZ)="" ;self
  1. ;
  1. ; Summary 1 Group and NO DATA message
  1. S PSUXMYS1("G.PSU PBM")=""
  1. I $G(PSUDUZ) S PSUXMYS1(PSUDUZ)=""
  1. ;
  1. ; Summary 2 Group
  1. S PSUXMYS2("G.PSU PBM")=""
  1. I $G(PSUDUZ) S PSUXMYS2(PSUDUZ)=""
  1. XMYQ Q
  1. ;EXIT
  1. TESTPAT(DFN) ;EP SCREEN AGAINST TEST PATIENTS (RETURN=1 IF TEST)
  1. Q:'DFN 0
  1. D PID^VADPT
  1. I VA("PID")["000-00" Q 1
  1. Q $$VALI^PSUTL(2,DFN,.6)
  1. ;