PSOMLLD2 ;BIR/LE - Service Connection Check for SC>50% ;14-May-2013 11:13;PLS
;;7.0;OUTPATIENT PHARMACY;**143,219,239,225,1015**;DEC 1997;Build 62
;External reference SDC022 supported by DBIA 1579
;External reference DIS^SDROUT2 private by DBIA 112
;External reference $$GETSHAD^DGUTL3 supported by DBIA 4462
;Modified - IHS/MSC/PLS - 05/14/2013 - Lines SC+2,SHAD+1
SC ;This routine is used for SC>50% - OUTSIDE OF COPAY - DFN AND PSOSCP VARIABLES ARE EXPECTED TO BE PRESENT WHEN CALLED
; Requires: DFN, PSOSCP, PSOSCA
Q ;IHS/MSC/PLS - 05/14/2013
I '$G(DFN) N DFN S DFN=+$G(PSODFN)
;I $G(DFN) I '$$SC^SDCO22(DFN) D Q ;if SC>49 don't ask if api says not to
;. K PSOANSQ("SC>50"),PSOANSQD("SC>50") I $G(PSOX("IRXN")) K PSOANSQ(PSOX("IRXN"),"SC>50")
SC2 I $G(PSOMESOI)=1,$G(PSORXED) W !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! S PSOMESOI=2
I $G(PSOMESFI)=1 W !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! S PSOMESFI=2
D DIS^SDROUT2
N PSOUFLAG S PSOUFLAG=0 K DIR S DIR(0)="Y"
S DIR("A")="Was treatment for a Service Connected condition"
S DIR("?")=" ",DIR("?",1)="Enter 'Yes' if this prescription is being used to treat a condition related",DIR("?",2)="to Service Connected."
I '$G(PSOFLAG) D
. I PSOSCP<50 S (DIR("B"),PSOUFLAG)=$S($G(PSORX(+$G(PSORENW("OIRXN")),"SC"))=0:"NO",$G(PSORX(+$G(PSORENW("OIRXN")),"SC"))=1:"YES",1:"") I DIR("B")="" K DIR("B") S PSOUFLAG=0
. I PSOSCP<50&($D(PSORX(+$G(PSORENW("OIRXN")),"SC>50"))) S (DIR("B"),PSOUFLAG)=$S($G(PSORX(+$G(PSORENW("OIRXN")),"SC>50"))=0:"NO",$G(PSORX(+$G(PSORENW("OIRXN")),"SC>50"))=1:"YES",1:"") I DIR("B")="" K DIR("B") S PSOUFLAG=0
. I PSOSCP>49 S (DIR("B"),PSOUFLAG)=$S($G(PSORX(+$G(PSORENW("OIRXN")),"SC>50"))=0:"NO",$G(PSORX(+$G(PSORENW("OIRXN")),"SC>50"))=1:"YES",1:"") I DIR("B")="" K DIR("B") S PSOUFLAG=0
. I '$D(DIR("B"))&($D(PSOANSQD("SC>50"))!($D(PSOANSQD("SC")))) D I '$D(DIR("B")) K DIR("B") S PSOUFLAG=0
.. I $D(PSOANSQD("SC>50")) I $G(PSOANSQD("SC>50"))=0!($G(PSOANSQD("SC>50"))=1) S (PSOUFLAG,DIR("B"))=$S($G(PSOANSQD("SC>50"))=1:"YES",1:"NO")
.. I $D(PSOANSQD("SC")) I $G(PSOANSQD("SC"))=0!($G(PSOANSQD("SC"))=1) S (PSOUFLAG,DIR("B"))=$S($G(PSOANSQD("SC"))=1:"YES",1:"NO")
I $G(PSORX("SC"))]""!($G(PSORX(+$G(PSORENW("OIRXN")),"SC"))'="") S DIR("B")=$S($G(PSORX("SC"))="SC":"YES",$G(PSORX("SC"))="NSC":"NO",$G(PSORX(+$G(PSORENW("OIRXN")),"SC"))=1:"YES",$G(PSORX(+$G(PSORENW("OIRXN")),"SC"))=0:"NO",1:"")
;
I $G(PSOFLAG),$G(PSONEWFF) I $G(PSOANSQD("SC>50"))=0!($G(PSOANSQD("SC>50"))=1) S DIR("B")=$S($G(PSOANSQD("SC>50"))=1:"YES",1:"NO")
I $G(DIR("B"))="YES"!($G(DIR("B"))="NO") S PSOUFLAG=$G(DIR("B"))
I $G(DIR("B"))="" K DIR("B")
W ! D ^DIR K DIR
I $G(Y)=1!($G(Y)=0) D I $G(PSONEWFF),$G(PSOFLAG) S PSOANSQD("SC>50")=$G(Y)
. I $G(PSOX("IRXN")) S PSOANSQ(PSOX("IRXN"),"SC>50")=+Y
. S PSOANSQ("SC>50")=+Y
I PSOFLAG I Y["^"!($D(DTOUT))!($D(DUOUT)) S PSOCPZ("DFLG")=1
S:Y=0 Y=2
S PSOANSR=+Y I 'PSOANSR,'PSOFLAG D S $P(PSOCPAY,"^")=$S($G(PSOUFLAG)="NO":1,1:0) W ! K DIR S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR K DIR Q
.W !!,"This Renewal has been designated as "_$S($G(PSOUFLAG)="YES":"SERVICE CONNECTED",1:"NON-SERVICE CONNECTED.")
.;W !,"Please use the 'Reset Copay Status/Cancel Charges' option to make corrections."
.S PSOANSQ("SC>50")=$S($G(PSOUFLAG)="YES":1,1:0)
I $G(PSOFLAG),$G(PSOCPZ("DFLG")) G EXIT
S:PSOANSR=1 PSOCPAY=0 S:PSOANSR=2 $P(PSOCPAY,"^")=1
EXIT ;
K PSOANSR,DIR,DUOUT,DIRUT,DTOUT,Y,X,PSOSCA
Q
;
PAUSE K DIR W ! S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR K DIR
Q
;
SHAD ; PROJ 112/SHAD Question
Q ;IHS/MSC/PLS - 05/14/2013
I $G(PSODFN),$L($T(GETSHAD^DGUTL3)) I $$GETSHAD^DGUTL3(PSODFN)'=1 D Q
. K PSOANSQ("SHAD"),PSOANSQD("SHAD") I $G(PSOX("IRXN")) K PSOANSQ(PSOX("IRXN"),"SHAD")
N PSOUFLAG S PSOUFLAG=0
K DIR S DIR(0)="Y"
S DIR("A")="Was treatment related to PROJ 112/SHAD"
S DIR("?")=" "
S DIR("?",1)="Enter 'Yes' if this prescription is being used to treat a condition due to"
S DIR("?",2)="Shipboard Hazard and Defense (SHAD) exposure."
S DIR("?",3)="This response will be used to determine whether or not a copay should"
S DIR("?",4)="be applied to the prescription."
I '$G(PSOFLAG) D
. S (DIR("B"),PSOUFLAG)=$S($G(PSORX(+$G(PSORENW("OIRXN")),"SHAD"))=0:"NO",$G(PSORX(+$G(PSORENW("OIRXN")),"SHAD"))=1:"YES",1:"")
. I DIR("B")="" K DIR("B") S PSOUFLAG=0
I $G(PSOFLAG),$G(PSONEWFF) D
. I $G(PSOANSQD("SHAD"))=0!($G(PSOANSQD("SHAD"))=1) D
. . S DIR("B")=$S($G(PSOANSQD("SHAD"))=1:"YES",1:"NO")
W ! D ^DIR K DIR
I $G(PSOFLAG) W ! D Q
. I Y["^"!($D(DUOUT))!($G(DTOUT)) S PSOCPZ("DFLG")=1 Q
. S PSOANSQ("SHAD")=Y
. I $G(PSONEWFF) S PSOANSQD("SHAD")=Y
I Y["^"!($D(DUOUT))!($D(DTOUT)) D Q
. W !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of "
. W !,"Shipboard Hazard and Defense (SHAD) exposure." D:$G(PSOSCP)<50 MESS^PSOMLLDT D PAUSE
. S PSOANSQ(PSOX("IRXN"),"SHAD")=$S($G(PSOUFLAG)="YES":1,1:0)
I $G(PSOX("IRXN")) S PSOANSQ(PSOX("IRXN"),"SHAD")=Y
E S PSOANSQ("SHAD")=Y
Q
;
PSOMLLD2 ;BIR/LE - Service Connection Check for SC>50% ;14-May-2013 11:13;PLS
+1 ;;7.0;OUTPATIENT PHARMACY;**143,219,239,225,1015**;DEC 1997;Build 62
+2 ;External reference SDC022 supported by DBIA 1579
+3 ;External reference DIS^SDROUT2 private by DBIA 112
+4 ;External reference $$GETSHAD^DGUTL3 supported by DBIA 4462
+5 ;Modified - IHS/MSC/PLS - 05/14/2013 - Lines SC+2,SHAD+1
SC ;This routine is used for SC>50% - OUTSIDE OF COPAY - DFN AND PSOSCP VARIABLES ARE EXPECTED TO BE PRESENT WHEN CALLED
+1 ; Requires: DFN, PSOSCP, PSOSCA
+2 ;IHS/MSC/PLS - 05/14/2013
QUIT
+3 IF '$GET(DFN)
NEW DFN
SET DFN=+$GET(PSODFN)
+4 ;I $G(DFN) I '$$SC^SDCO22(DFN) D Q ;if SC>49 don't ask if api says not to
+5 ;. K PSOANSQ("SC>50"),PSOANSQD("SC>50") I $G(PSOX("IRXN")) K PSOANSQ(PSOX("IRXN"),"SC>50")
SC2 IF $GET(PSOMESOI)=1
IF $GET(PSORXED)
WRITE !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
SET PSOMESOI=2
+1 IF $GET(PSOMESFI)=1
WRITE !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
SET PSOMESFI=2
+2 DO DIS^SDROUT2
+3 NEW PSOUFLAG
SET PSOUFLAG=0
KILL DIR
SET DIR(0)="Y"
+4 SET DIR("A")="Was treatment for a Service Connected condition"
+5 SET DIR("?")=" "
SET DIR("?",1)="Enter 'Yes' if this prescription is being used to treat a condition related"
SET DIR("?",2)="to Service Connected."
+6 IF '$GET(PSOFLAG)
Begin DoDot:1
+7 IF PSOSCP<50
SET (DIR("B"),PSOUFLAG)=$SELECT($GET(PSORX(+$GET(PSORENW("OIRXN")),"SC"))=0:"NO",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SC"))=1:"YES",1:"")
IF DIR("B")=""
KILL DIR("B")
SET PSOUFLAG=0
+8 IF PSOSCP<50&($DATA(PSORX(+$GET(PSORENW("OIRXN")),"SC>50")))
SET (DIR("B"),PSOUFLAG)=$SELECT($GET(PSORX(+$GET(PSORENW("OIRXN")),"SC>50"))=0:"NO",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SC>50"))=1:"YES",1:"")
IF DIR("B")=""
KILL DIR("B")
SET PSOUFLAG=0
+9 IF PSOSCP>49
SET (DIR("B"),PSOUFLAG)=$SELECT($GET(PSORX(+$GET(PSORENW("OIRXN")),"SC>50"))=0:"NO",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SC>50"))=1:"YES",1:"")
IF DIR("B")=""
KILL DIR("B")
SET PSOUFLAG=0
+10 IF '$DATA(DIR("B"))&($DATA(PSOANSQD("SC>50"))!($DATA(PSOANSQD("SC"))))
Begin DoDot:2
+11 IF $DATA(PSOANSQD("SC>50"))
IF $GET(PSOANSQD("SC>50"))=0!($GET(PSOANSQD("SC>50"))=1)
SET (PSOUFLAG,DIR("B"))=$SELECT($GET(PSOANSQD("SC>50"))=1:"YES",1:"NO")
+12 IF $DATA(PSOANSQD("SC"))
IF $GET(PSOANSQD("SC"))=0!($GET(PSOANSQD("SC"))=1)
SET (PSOUFLAG,DIR("B"))=$SELECT($GET(PSOANSQD("SC"))=1:"YES",1:"NO")
End DoDot:2
IF '$DATA(DIR("B"))
KILL DIR("B")
SET PSOUFLAG=0
End DoDot:1
+13 IF $GET(PSORX("SC"))]""!($GET(PSORX(+$GET(PSORENW("OIRXN")),"SC"))'="")
SET DIR("B")=$SELECT($GET(PSORX("SC"))="SC":"YES",$GET(PSORX("SC"))="NSC":"NO",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SC"))=1:"YES",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SC"))=0:"NO",1:"")
+14 ;
+15 IF $GET(PSOFLAG)
IF $GET(PSONEWFF)
IF $GET(PSOANSQD("SC>50"))=0!($GET(PSOANSQD("SC>50"))=1)
SET DIR("B")=$SELECT($GET(PSOANSQD("SC>50"))=1:"YES",1:"NO")
+16 IF $GET(DIR("B"))="YES"!($GET(DIR("B"))="NO")
SET PSOUFLAG=$GET(DIR("B"))
+17 IF $GET(DIR("B"))=""
KILL DIR("B")
+18 WRITE !
DO ^DIR
KILL DIR
+19 IF $GET(Y)=1!($GET(Y)=0)
Begin DoDot:1
+20 IF $GET(PSOX("IRXN"))
SET PSOANSQ(PSOX("IRXN"),"SC>50")=+Y
+21 SET PSOANSQ("SC>50")=+Y
End DoDot:1
IF $GET(PSONEWFF)
IF $GET(PSOFLAG)
SET PSOANSQD("SC>50")=$GET(Y)
+22 IF PSOFLAG
IF Y["^"!($DATA(DTOUT))!($DATA(DUOUT))
SET PSOCPZ("DFLG")=1
+23 IF Y=0
SET Y=2
+24 SET PSOANSR=+Y
IF 'PSOANSR
IF 'PSOFLAG
Begin DoDot:1
+25 WRITE !!,"This Renewal has been designated as "_$SELECT($GET(PSOUFLAG)="YES":"SERVICE CONNECTED",1:"NON-SERVICE CONNECTED.")
+26 ;W !,"Please use the 'Reset Copay Status/Cancel Charges' option to make corrections."
+27 SET PSOANSQ("SC>50")=$SELECT($GET(PSOUFLAG)="YES":1,1:0)
End DoDot:1
SET $PIECE(PSOCPAY,"^")=$SELECT($GET(PSOUFLAG)="NO":1,1:0)
WRITE !
KILL DIR
SET DIR(0)="E"
SET DIR("A")="Press Return to continue"
DO ^DIR
KILL DIR
QUIT
+28 IF $GET(PSOFLAG)
IF $GET(PSOCPZ("DFLG"))
GOTO EXIT
+29 IF PSOANSR=1
SET PSOCPAY=0
IF PSOANSR=2
SET $PIECE(PSOCPAY,"^")=1
EXIT ;
+1 KILL PSOANSR,DIR,DUOUT,DIRUT,DTOUT,Y,X,PSOSCA
+2 QUIT
+3 ;
PAUSE KILL DIR
WRITE !
SET DIR(0)="E"
SET DIR("A")="Press Return to continue"
DO ^DIR
KILL DIR
+1 QUIT
+2 ;
SHAD ; PROJ 112/SHAD Question
+1 ;IHS/MSC/PLS - 05/14/2013
QUIT
+2 IF $GET(PSODFN)
IF $LENGTH($TEXT(GETSHAD^DGUTL3))
IF $$GETSHAD^DGUTL3(PSODFN)'=1
Begin DoDot:1
+3 KILL PSOANSQ("SHAD"),PSOANSQD("SHAD")
IF $GET(PSOX("IRXN"))
KILL PSOANSQ(PSOX("IRXN"),"SHAD")
End DoDot:1
QUIT
+4 NEW PSOUFLAG
SET PSOUFLAG=0
+5 KILL DIR
SET DIR(0)="Y"
+6 SET DIR("A")="Was treatment related to PROJ 112/SHAD"
+7 SET DIR("?")=" "
+8 SET DIR("?",1)="Enter 'Yes' if this prescription is being used to treat a condition due to"
+9 SET DIR("?",2)="Shipboard Hazard and Defense (SHAD) exposure."
+10 SET DIR("?",3)="This response will be used to determine whether or not a copay should"
+11 SET DIR("?",4)="be applied to the prescription."
+12 IF '$GET(PSOFLAG)
Begin DoDot:1
+13 SET (DIR("B"),PSOUFLAG)=$SELECT($GET(PSORX(+$GET(PSORENW("OIRXN")),"SHAD"))=0:"NO",$GET(PSORX(+$GET(PSORENW("OIRXN")),"SHAD"))=1:"YES",1:"")
+14 IF DIR("B")=""
KILL DIR("B")
SET PSOUFLAG=0
End DoDot:1
+15 IF $GET(PSOFLAG)
IF $GET(PSONEWFF)
Begin DoDot:1
+16 IF $GET(PSOANSQD("SHAD"))=0!($GET(PSOANSQD("SHAD"))=1)
Begin DoDot:2
+17 SET DIR("B")=$SELECT($GET(PSOANSQD("SHAD"))=1:"YES",1:"NO")
End DoDot:2
End DoDot:1
+18 WRITE !
DO ^DIR
KILL DIR
+19 IF $GET(PSOFLAG)
WRITE !
Begin DoDot:1
+20 IF Y["^"!($DATA(DUOUT))!($GET(DTOUT))
SET PSOCPZ("DFLG")=1
QUIT
+21 SET PSOANSQ("SHAD")=Y
+22 IF $GET(PSONEWFF)
SET PSOANSQD("SHAD")=Y
End DoDot:1
QUIT
+23 IF Y["^"!($DATA(DUOUT))!($DATA(DTOUT))
Begin DoDot:1
+24 WRITE !!,"This Renewal has been designated as"_$SELECT($GET(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of "
+25 WRITE !,"Shipboard Hazard and Defense (SHAD) exposure."
IF $GET(PSOSCP)<50
DO MESS^PSOMLLDT
DO PAUSE
+26 SET PSOANSQ(PSOX("IRXN"),"SHAD")=$SELECT($GET(PSOUFLAG)="YES":1,1:0)
End DoDot:1
QUIT
+27 IF $GET(PSOX("IRXN"))
SET PSOANSQ(PSOX("IRXN"),"SHAD")=Y
+28 IF '$TEST
SET PSOANSQ("SHAD")=Y
+29 QUIT
+30 ;
