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

PSUDEM5.m

Go to the documentation of this file.
  1. PSUDEM5 ;BIR/DAM - Patient Demographics Mail Messages ; 20 DEC 2001
  1. ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
  1. ;
  1. PDMAIL ;EN Mail patient demographics message
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto extract
  1. ;
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. I $G(^XTMP("PSU_"_PSUJOB,"REXMIT"))="YES" S PSUMON=PSURMON
  1. S XMDUZ=DUZ
  1. S XMSUB="V. 4.0 PBMPD"_" "_PSUMON_" "_PSUM_"/"_PSUMC_" "_PSUST_" "_PSUSTNM
  1. S XMCHAN=1
  1. ;S PSUPBMG=^XTMP("PSU_"_PSUJOB,"PSUPBMG")
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUM,"
  1. I PSUMASF!PSUDUZ!PSUPBMG D
  1. .I 'PSUSMRY M XMY=PSUXMYH D ;Detailed message to Hines and self
  1. .D ^XMD
  1. Q
  1. ;
  1. AUTO ;Find month if auto extract is run
  1. ;
  1. D NOW^%DTC S PSUMON=$S('$D(DT):X,1:DT),PSUMON=$E(PSUMON,1,5)-1 ;Prior mt
  1. I $E(PSUMON,4,5)="00" S PSUMON=($E(PSUMON,1,3)-1)_"12"
  1. S ^XTMP("PSU_"_PSUJOB,"PSUMONTH")=PSUMON
  1. Q
  1. ;
  1. VAR ;Get variables common to all extract messages
  1. ;
  1. N PSUSTNM,PSUST,PSUMON
  1. D INST^PSUDEM1
  1. ;
  1. Q
  1. ;
  1. PROV ;EN Mail Provider message
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. ;
  1. S XMCHAN=1
  1. S XMDUZ=DUZ
  1. S XMSUB="V. 4.0 PBMPRO"_" "_PSUMON_" "_PSUM_"/"_PSUMC_" "_PSUST_" "_PSUSTNM
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUM,"
  1. I PSUMASF!PSUDUZ!PSUPBMG D
  1. .I 'PSUSMRY M XMY=PSUXMYH D ;Detailed message to Hines and self
  1. .D ^XMD
  1. Q
  1. ;
  1. OPV ;EN Outpatient encounter message
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUOPV")) S PSUMC=1
  1. ;
  1. S XMDUZ=DUZ
  1. S XMSUB="V. 4.0 PBMOV"_" "_PSUMON_" "_PSUM_"/"_PSUMC_" "_PSUST_" "_PSUSTNM
  1. S XMCHAN=1
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUM,"
  1. I PSUMASF!PSUDUZ!PSUPBMG D
  1. .I 'PSUSMRY M XMY=PSUXMYH D ;Detailed message to Hines and self
  1. .D ^XMD
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUOPV")) M XMY=PSUXMYS1 D ;NODATA message
  1. .D ^XMD
  1. ;K ^XTMP("PSU_"_PSUJOB,"PSUMONTH")
  1. Q
  1. ;
  1. PTF ;EN INPATIENT RECORD MESSAGE
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUIPV")) S PSUMC=1
  1. ;
  1. S XMDUZ=DUZ
  1. S XMSUB="V. 4.0 PBMPTF"_" "_PSUMON_" "_PSUM_"/"_PSUMC_" "_PSUST_" "_PSUSTNM
  1. S XMCHAN=1
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUM,"
  1. I PSUMASF!PSUDUZ!PSUPBMG D
  1. .I 'PSUSMRY M XMY=PSUXMYH D ;Detailed message to Hines and self
  1. .D ^XMD
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUIPV")) M XMY=PSUXMYS1 D ;NODATA message
  1. .D ^XMD
  1. Q
  1. ;
  1. PRSUM ;EN Provider summary message
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. ;
  1. S XMDUZ=DUZ
  1. S XMCHAN=1
  1. S XMSUB="V. 4.0 PBMPRO"_" "_PSUMON_" "_PSUST_" "_PSUSTNM
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUSUM"","
  1. M XMY=PSUXMYS1
  1. I PSUSMRY=1 M XMY=PSUXMYS2 ;Summary only mailgroup
  1. D ^XMD
  1. Q
  1. ;
  1. PDSUM ;EN Pt. demographics summary message
  1. ;
  1. Q:$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG3")) ;don't send a mailman message if flag is set
  1. ;N PSUSTNM,PSUST
  1. D PULL^PSUCP
  1. I '$D(^XTMP("PSU_"_PSUJOB,"PSUMONTH")) D AUTO ;Find month if auto
  1. D VAR
  1. S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1)
  1. S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2)
  1. S PSUMON=$P(^XTMP("PSU_"_PSUJOB,"PSUMONTH"),U,1)
  1. ;
  1. S XMDUZ=DUZ
  1. S XMCHAN=1
  1. S XMSUB="V. 4.0 PBMPD"_" "_PSUMON_" "_PSUST_" "_PSUSTNM
  1. S XMTEXT="^XTMP(""PSU_""_PSUJOB,""PSUSUMA"","
  1. I PSUSMRY=1 M XMY=PSUXMYS2 ;Summary only mailgroup
  1. M XMY=PSUXMYS1 ;No Data mailgroup
  1. D ^XMD
  1. Q