- PSOCPBK5 ;BIR/GN-Back Billing Automated-release refill copay cont. ;10/11/05 1:56pm
- ;;7.0;OUTPATIENT PHARMACY;**217**;DEC 1997
- ;
- MAIL ;user mail message
- N TOTAMT,PSOCXPDA
- D NOW^%DTC S Y=% D DD^%DT S PSOEND=Y
- S PSOEND2=$$FMTE^XLFDT(%,"1PS")
- I $G(DUZ) S XMY(DUZ)=""
- S XMDUZ="PSO*7*217 "_JOBN
- S XMSUB="Outpatient Pharmacy Copay "_JOBN
- F PSOCXPDA=0:0 S PSOCXPDA=$O(^XUSEC("PSO COPAY",PSOCXPDA)) Q:'PSOCXPDA S XMY(PSOCXPDA)=""
- I $O(XMY(""))="" Q ; no recipients for mail message
- S PSOTEXT(1)="The Rx copay "_JOBN_" job for the Outpatient Pharmacy patch (PSO*7*217)"
- S PSOTEXT(2)="started "_PSOSTART_" and completed "_PSOEND_"."
- I PSOCNT=0 S PSOTEXT(3)="No released unbilled copay fills were found."
- I PSOCNT>0 D
- . S TOTAMT=0
- . F XX="YR2004","YR2005" D
- .. F YY=1:1:3 S PSOAMT(XX,YY)=PSOCNT(XX,YY)*YY*7,TOTAMT=TOTAMT+PSOAMT(XX,YY)
- . S PSOTEXT(3)="Auto-Released refills have now been Billed"
- . S PSOTEXT(4)="There were "_$FN(PSOCNT,",")_" fills successfully Billed for "_$FN(PSOVETS,",")_" veterans."
- . S PSOTEXT(5)=" "
- . S PSOTEXT(6)="Fills back-billing by year:"
- . S PSOTEXT(7)="2004 30-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2004",1),6)
- . S PSOTEXT(7)=PSOTEXT(7)_" $"_$J($FN(PSOAMT("YR2004",1),","),9)
- . S PSOTEXT(8)="2004 60-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2004",2),6)
- . S PSOTEXT(8)=PSOTEXT(8)_" $"_$J($FN(PSOAMT("YR2004",2),","),9)
- . S PSOTEXT(9)="2004 90-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2004",3),6)
- . S PSOTEXT(9)=PSOTEXT(9)_" $"_$J($FN(PSOAMT("YR2004",3),","),9)
- . S PSOTEXT(10)=""
- . S PSOTEXT(11)="2005 30-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2005",1),6)
- . S PSOTEXT(11)=PSOTEXT(11)_" $"_$J($FN(PSOAMT("YR2005",1),","),9)
- . S PSOTEXT(12)="2005 60-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2005",2),6)
- . S PSOTEXT(12)=PSOTEXT(12)_" $"_$J($FN(PSOAMT("YR2005",2),","),9)
- . S PSOTEXT(13)="2005 90-DAY EQUIVALENT FILLS: "_$J(PSOCNT("YR2005",3),6)
- . S PSOTEXT(13)=PSOTEXT(13)_" $"_$J($FN(PSOAMT("YR2005",3),","),9)
- . S PSOTEXT(14)=" =========="
- . S PSOTEXT(15)=" TOTAL $"_$J($FN(TOTAMT,","),9)
- . S PSOTEXT(16)=" "
- . S PSOTEXT(17)="To get a report of patients/prescriptions that were billed"
- . S PSOTEXT(18)="as part of this Back Billing, enter D RPT^PSOCPBK4 at the programmer's prompt"
- ;
- S XMTEXT="PSOTEXT(" N DIFROM D ^XMD K XMDUZ,XMTEXT,XMSUB
- Q
- ;
- MAIL2 ;management mail message
- N J
- S LIN="",$P(LIN," ",80)=""
- D NOW^%DTC S PSOTIME=$$FMDIFF^XLFDT(%,$G(PSOS1),2)
- S PSOINST=$P($G(^DIC(4,+$P($G(^XMB(1,1,"XUS")),"^",17),99)),"^")
- S PSOSTNM=$P($G(^DIC(4,PSOINST,0)),"^")
- K PSOTEXT
- S XMY(DUZ)="",PSOTC=0,PSOCNTS=""
- F J="YR2004","YR2005" F I=1:1:3 D
- .S PSOTC=PSOTC+PSOCNT(J,I)
- .S PSOCNTS=PSOCNTS_","_PSOCNT(J,I)
- S XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- S XMDUZ="PSO*7*217 "_JOBN
- S XMSUB="STATION "_$G(PSOINST)
- S XMSUB=XMSUB_$S($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- S XMSUB=XMSUB_" BACK BILLED COPAYS FOR PRESCRIPTION REFILLS"
- S PSOTEXT(1)=" Start time: "_PSOSTRT2
- S PSOTEXT(2)=" Completed time: "_PSOEND2
- S PSOTEXT(3)=" Elapsed Time: "_$$ETIME^PSOCPBK4(PSOTIME)
- S PSOTEXT(4)=""
- S PSOTEXT(5)=" Total RX's processed: "_$J($FN(PSOTRX,","),8)
- S PSOTEXT(6)=" Total Refills processed: "_$J($FN(PSOTRF,","),8)
- S PSOTEXT(7)=" Total billable refills: "_$J($FN(PSOTC,","),8)
- S PSOTEXT(8)=" Total billable vets: "_$J($FN(PSOVETS,","),8)
- S PSOTEXT(9)=""
- S PSOTEXT(10)=""
- S PSOTEXT(11)="Excel comma delimited data below, Two heading, one data line"
- S PSOTEXT(12)=""
- S PSOTEXT(13)=$E(("Station,Station,,2004,,,2005"_LIN),1,79)
- S PSOTEXT(14)=$E(("Name,#,30 days,60 days,90 days,30 days,60 days,90 days"_LIN),1,79)
- S PSOTEXT(15)=$E((PSOSTNM_","_PSOINST_PSOCNTS_LIN),1,79)
- S PSOTEXT(16)=""
- S XMTEXT="PSOTEXT(" N DIFROM D ^XMD K XMDUZ,XMTEXT,XMSUB
- Q
- ;
- MAIL3(MSG) ;management mail message
- S PSOINST=$P($G(^DIC(4,+$P($G(^XMB(1,1,"XUS")),"^",17),99)),"^")
- D NOW^%DTC S Y=% D DD^%DT S PSOEND=Y
- K PSOTEXT
- S XMY(DUZ)=""
- S XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- S XMDUZ="PSO*7*217 "_JOBN
- S XMSUB="STATION "_$G(PSOINST)
- S XMSUB=XMSUB_$S($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- S XMSUB=XMSUB_" BACK BILLED COPAYS FOR PRESCRIPTION REFILLS"
- S PSOTEXT(1)=""
- S PSOTEXT(2)="Started "_PSOSTART
- S PSOTEXT(3)=""
- S PSOTEXT(4)=" "_MSG
- S PSOTEXT(5)=""
- S PSOTEXT(6)="NO FURTHER ACTION REQUIRED."
- S XMTEXT="PSOTEXT(" N DIFROM D ^XMD K XMDUZ,XMTEXT,XMSUB
- Q
- ;
- MAILAAC ;send name info to AAC for mail stuffers
- N VA
- K XMY,^TMP(NAMSP)
- S PSOCNT=0
- S PSOINST=$P($G(^DIC(4,+$P($G(^XMB(1,1,"XUS")),"^",17),99)),"^")
- S XMY(DUZ)=""
- S XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- S:$$PROD^XUPROD(1) XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- S XMDUZ="PSO*7*217 "_JOBN
- S XMSUB=$G(PSOINST)_$S($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- S XMSUB=XMSUB_" - BACK BILLED COPAYS AAC DATA"
- S PSONAM=""
- F S PSONAM=$O(^XTMP(NAMSP,"BILLED",PSONAM)) Q:PSONAM="" D
- .S PSODFN=""
- .F S PSODFN=$O(^XTMP(NAMSP,"BILLED",PSONAM,PSODFN)) Q:PSODFN="" D
- ..N DFN S DFN=PSODFN D DEM^VADPT
- ..S PSOCNT=PSOCNT+1,^TMP(NAMSP,PSOCNT)=PSOINST_"^"_$G(VA("BID"))_$E($P(PSONAM,","),1,5)
- I '$D(^TMP(NAMSP)) S ^TMP(NAMSP,1)="NO BILLED FILLS FOR INSTITUTION: "_PSOINST
- S XMTEXT="^TMP(NAMSP," N DIFROM D ^XMD K XMDUZ,XMTEXT,XMSUB
- K ^TMP(NAMSP)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCPBK5 5705 printed Apr 23, 2025@18:40:16 Page 2
- PSOCPBK5 ;BIR/GN-Back Billing Automated-release refill copay cont. ;10/11/05 1:56pm
- +1 ;;7.0;OUTPATIENT PHARMACY;**217**;DEC 1997
- +2 ;
- MAIL ;user mail message
- +1 NEW TOTAMT,PSOCXPDA
- +2 DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET PSOEND=Y
- +3 SET PSOEND2=$$FMTE^XLFDT(%,"1PS")
- +4 IF $GET(DUZ)
- SET XMY(DUZ)=""
- +5 SET XMDUZ="PSO*7*217 "_JOBN
- +6 SET XMSUB="Outpatient Pharmacy Copay "_JOBN
- +7 FOR PSOCXPDA=0:0
- SET PSOCXPDA=$ORDER(^XUSEC("PSO COPAY",PSOCXPDA))
- if 'PSOCXPDA
- QUIT
- SET XMY(PSOCXPDA)=""
- +8 ; no recipients for mail message
- IF $ORDER(XMY(""))=""
- QUIT
- +9 SET PSOTEXT(1)="The Rx copay "_JOBN_" job for the Outpatient Pharmacy patch (PSO*7*217)"
- +10 SET PSOTEXT(2)="started "_PSOSTART_" and completed "_PSOEND_"."
- +11 IF PSOCNT=0
- SET PSOTEXT(3)="No released unbilled copay fills were found."
- +12 IF PSOCNT>0
- Begin DoDot:1
- +13 SET TOTAMT=0
- +14 FOR XX="YR2004","YR2005"
- Begin DoDot:2
- +15 FOR YY=1:1:3
- SET PSOAMT(XX,YY)=PSOCNT(XX,YY)*YY*7
- SET TOTAMT=TOTAMT+PSOAMT(XX,YY)
- End DoDot:2
- +16 SET PSOTEXT(3)="Auto-Released refills have now been Billed"
- +17 SET PSOTEXT(4)="There were "_$FNUMBER(PSOCNT,",")_" fills successfully Billed for "_$FNUMBER(PSOVETS,",")_" veterans."
- +18 SET PSOTEXT(5)=" "
- +19 SET PSOTEXT(6)="Fills back-billing by year:"
- +20 SET PSOTEXT(7)="2004 30-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2004",1),6)
- +21 SET PSOTEXT(7)=PSOTEXT(7)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2004",1),","),9)
- +22 SET PSOTEXT(8)="2004 60-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2004",2),6)
- +23 SET PSOTEXT(8)=PSOTEXT(8)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2004",2),","),9)
- +24 SET PSOTEXT(9)="2004 90-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2004",3),6)
- +25 SET PSOTEXT(9)=PSOTEXT(9)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2004",3),","),9)
- +26 SET PSOTEXT(10)=""
- +27 SET PSOTEXT(11)="2005 30-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2005",1),6)
- +28 SET PSOTEXT(11)=PSOTEXT(11)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2005",1),","),9)
- +29 SET PSOTEXT(12)="2005 60-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2005",2),6)
- +30 SET PSOTEXT(12)=PSOTEXT(12)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2005",2),","),9)
- +31 SET PSOTEXT(13)="2005 90-DAY EQUIVALENT FILLS: "_$JUSTIFY(PSOCNT("YR2005",3),6)
- +32 SET PSOTEXT(13)=PSOTEXT(13)_" $"_$JUSTIFY($FNUMBER(PSOAMT("YR2005",3),","),9)
- +33 SET PSOTEXT(14)=" =========="
- +34 SET PSOTEXT(15)=" TOTAL $"_$JUSTIFY($FNUMBER(TOTAMT,","),9)
- +35 SET PSOTEXT(16)=" "
- +36 SET PSOTEXT(17)="To get a report of patients/prescriptions that were billed"
- +37 SET PSOTEXT(18)="as part of this Back Billing, enter D RPT^PSOCPBK4 at the programmer's prompt"
- End DoDot:1
- +38 ;
- +39 SET XMTEXT="PSOTEXT("
- NEW DIFROM
- DO ^XMD
- KILL XMDUZ,XMTEXT,XMSUB
- +40 QUIT
- +41 ;
- MAIL2 ;management mail message
- +1 NEW J
- +2 SET LIN=""
- SET $PIECE(LIN," ",80)=""
- +3 DO NOW^%DTC
- SET PSOTIME=$$FMDIFF^XLFDT(%,$GET(PSOS1),2)
- +4 SET PSOINST=$PIECE($GET(^DIC(4,+$PIECE($GET(^XMB(1,1,"XUS")),"^",17),99)),"^")
- +5 SET PSOSTNM=$PIECE($GET(^DIC(4,PSOINST,0)),"^")
- +6 KILL PSOTEXT
- +7 SET XMY(DUZ)=""
- SET PSOTC=0
- SET PSOCNTS=""
- +8 FOR J="YR2004","YR2005"
- FOR I=1:1:3
- Begin DoDot:1
- +9 SET PSOTC=PSOTC+PSOCNT(J,I)
- +10 SET PSOCNTS=PSOCNTS_","_PSOCNT(J,I)
- End DoDot:1
- +11 SET XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- +12 if $$PROD^XUPROD(1)
- SET XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- +13 if $$PROD^XUPROD(1)
- SET XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- +14 SET XMDUZ="PSO*7*217 "_JOBN
- +15 SET XMSUB="STATION "_$GET(PSOINST)
- +16 SET XMSUB=XMSUB_$SELECT($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- +17 SET XMSUB=XMSUB_" BACK BILLED COPAYS FOR PRESCRIPTION REFILLS"
- +18 SET PSOTEXT(1)=" Start time: "_PSOSTRT2
- +19 SET PSOTEXT(2)=" Completed time: "_PSOEND2
- +20 SET PSOTEXT(3)=" Elapsed Time: "_$$ETIME^PSOCPBK4(PSOTIME)
- +21 SET PSOTEXT(4)=""
- +22 SET PSOTEXT(5)=" Total RX's processed: "_$JUSTIFY($FNUMBER(PSOTRX,","),8)
- +23 SET PSOTEXT(6)=" Total Refills processed: "_$JUSTIFY($FNUMBER(PSOTRF,","),8)
- +24 SET PSOTEXT(7)=" Total billable refills: "_$JUSTIFY($FNUMBER(PSOTC,","),8)
- +25 SET PSOTEXT(8)=" Total billable vets: "_$JUSTIFY($FNUMBER(PSOVETS,","),8)
- +26 SET PSOTEXT(9)=""
- +27 SET PSOTEXT(10)=""
- +28 SET PSOTEXT(11)="Excel comma delimited data below, Two heading, one data line"
- +29 SET PSOTEXT(12)=""
- +30 SET PSOTEXT(13)=$EXTRACT(("Station,Station,,2004,,,2005"_LIN),1,79)
- +31 SET PSOTEXT(14)=$EXTRACT(("Name,#,30 days,60 days,90 days,30 days,60 days,90 days"_LIN),1,79)
- +32 SET PSOTEXT(15)=$EXTRACT((PSOSTNM_","_PSOINST_PSOCNTS_LIN),1,79)
- +33 SET PSOTEXT(16)=""
- +34 SET XMTEXT="PSOTEXT("
- NEW DIFROM
- DO ^XMD
- KILL XMDUZ,XMTEXT,XMSUB
- +35 QUIT
- +36 ;
- MAIL3(MSG) ;management mail message
- +1 SET PSOINST=$PIECE($GET(^DIC(4,+$PIECE($GET(^XMB(1,1,"XUS")),"^",17),99)),"^")
- +2 DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET PSOEND=Y
- +3 KILL PSOTEXT
- +4 SET XMY(DUZ)=""
- +5 SET XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- +6 if $$PROD^XUPROD(1)
- SET XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- +7 if $$PROD^XUPROD(1)
- SET XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- +8 SET XMDUZ="PSO*7*217 "_JOBN
- +9 SET XMSUB="STATION "_$GET(PSOINST)
- +10 SET XMSUB=XMSUB_$SELECT($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- +11 SET XMSUB=XMSUB_" BACK BILLED COPAYS FOR PRESCRIPTION REFILLS"
- +12 SET PSOTEXT(1)=""
- +13 SET PSOTEXT(2)="Started "_PSOSTART
- +14 SET PSOTEXT(3)=""
- +15 SET PSOTEXT(4)=" "_MSG
- +16 SET PSOTEXT(5)=""
- +17 SET PSOTEXT(6)="NO FURTHER ACTION REQUIRED."
- +18 SET XMTEXT="PSOTEXT("
- NEW DIFROM
- DO ^XMD
- KILL XMDUZ,XMTEXT,XMSUB
- +19 QUIT
- +20 ;
- MAILAAC ;send name info to AAC for mail stuffers
- +1 NEW VA
- +2 KILL XMY,^TMP(NAMSP)
- +3 SET PSOCNT=0
- +4 SET PSOINST=$PIECE($GET(^DIC(4,+$PIECE($GET(^XMB(1,1,"XUS")),"^",17),99)),"^")
- +5 SET XMY(DUZ)=""
- +6 SET XMY("NAPOLIELLO.GREG@DOMAIN.EXT")=""
- +7 if $$PROD^XUPROD(1)
- SET XMY("WHITE.ELAINE@DOMAIN.EXT")=""
- +8 if $$PROD^XUPROD(1)
- SET XMY("WILLIAMSON.ERIC@DOMAIN.EXT")=""
- +9 SET XMDUZ="PSO*7*217 "_JOBN
- +10 SET XMSUB=$GET(PSOINST)_$SELECT($$PROD^XUPROD(1):" (Prod)",1:" (Test)")
- +11 SET XMSUB=XMSUB_" - BACK BILLED COPAYS AAC DATA"
- +12 SET PSONAM=""
- +13 FOR
- SET PSONAM=$ORDER(^XTMP(NAMSP,"BILLED",PSONAM))
- if PSONAM=""
- QUIT
- Begin DoDot:1
- +14 SET PSODFN=""
- +15 FOR
- SET PSODFN=$ORDER(^XTMP(NAMSP,"BILLED",PSONAM,PSODFN))
- if PSODFN=""
- QUIT
- Begin DoDot:2
- +16 NEW DFN
- SET DFN=PSODFN
- DO DEM^VADPT
- +17 SET PSOCNT=PSOCNT+1
- SET ^TMP(NAMSP,PSOCNT)=PSOINST_"^"_$GET(VA("BID"))_$EXTRACT($PIECE(PSONAM,","),1,5)
- End DoDot:2
- End DoDot:1
- +18 IF '$DATA(^TMP(NAMSP))
- SET ^TMP(NAMSP,1)="NO BILLED FILLS FOR INSTITUTION: "_PSOINST
- +19 SET XMTEXT="^TMP(NAMSP,"
- NEW DIFROM
- DO ^XMD
- KILL XMDUZ,XMTEXT,XMSUB
- +20 KILL ^TMP(NAMSP)
- +21 QUIT
