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