Routine: BPSOSQ4

BPSOSQ4 ;BHAM ISC/FCS/DRS/DLF - Process responses ;12/7/07  15:48

 ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,10,30**;JUN 2004;Build 19

 ;;Per VA Directive 6402, this routine should not be modified.

 ; This routine has two components

 ;   Procedures to report Response info

 ;   Procedures to handle insurer asleep functions

 ; The following are separate little utilities called from elsewhere.

PAID(IEN59) ;quick query to see if it's paid

 N TMP D RESPINFO(IEN59,.TMP) Q:'$D(TMP("RSP")) 0

 N X S X=TMP("RSP")

 I X="Payable" Q 1

Q 0

RESPINFO(IEN59,DST) ;EP - BPSOS6M

 ; quick way to get all the response info for a given BPS Transaction

 ; IMPORTANT!!  Do not change spelling, case, wording, or spacing!!!

 ; If a reversal was attempted, it complicates things.

 ;  fills DST array as follows:

 ; DST("HDR")=Response Status (header)

 ; DST("RSP")=Response Status (transaction)

 ;   This could be: "Payable", "Rejected", "Accepted", "Captured",

 ;                  "Duplicate", or  "null"

 ; DST("REJ",0)=count of reject codes

 ; DST("REJ",n)=each reject code

 ; DST("MSG")=message with the response

 ; All of these are defined, even if originals were '$D.

 ; The external forms are returned.

 N REVERSAL S REVERSAL=$G(^BPST(IEN59,4))>0

 N RESP

 I 'REVERSAL S RESP=$P(^BPST(IEN59,0),U,5)

 E  S RESP=$P(^BPST(IEN59,4),U,2)

 I 'RESP Q

 N ECME S POS=$P(^BPST(IEN59,0),U,9) Q:'POS

 N FMT S FMT="E"

 S DST("HDR")=$$RESP500(RESP,FMT)

 S DST("RSP")=$$RESP1000(RESP,POS,FMT)

 S DST("REJ",0)=$$REJCOUNT(RESP,POS,FMT)

 I DST("REJ",0) D

 . N I F I=1:1:DST("REJ",0) S DST("REJ",I)=$$REJCODE(RESP,POS,I,FMT)

 S DST("MSG")=$$RESPMSG(RESP,POS)

 ; Dealing with oddities of PCS (and others'?) response to reversals

 I REVERSAL,DST("RSP")["null" D

 . I DST("RSP")["null" S DST("RSP")=DST("HDR")_" reversal"

 ; In the following quickies:

 ; RESP = RESPIEN, pointer to 9002313.03

 ; FMT = "I" for internal, "E" for external, defaults to internal

RESP500(RESP,FMT) ;EP - BPSOS57,BPSOSUC

 ; returns the response header status

 N X S X=$P($G(^BPSR(RESP,500)),U)

 I $G(FMT)'="E" Q X

 I X="" S X="null"

 S X=$S(X="A":"Accepted",X="R":"Rejected",1:"?"_X)

Q X

RESP1000(RESP,POS,FMT) ;EP - BPSOSUC

 ; returns the transaction response status

 ; Note!  Could be DP or DC for duplicates

 N X S X=$P($G(^BPSR(RESP,1000,POS,500)),U)

 I $G(FMT)'="E" Q X

 I X="" S X="null"

 ;IHS/SD/lwj 10/07/02 NCPDP 5.1 changes - they will send an "A" back

 ; now on the transaction level to indicate that it has been accepted

 ; Next code line remarked out - following added

 S X=$S(X="A":"Accepted",X="P":"Payable",X="R":"Rejected",X="C":"Captured",X="D"!(X="DP")!(X="DC"):"Duplicate",1:"?"_X)

Q X

REJCOUNT(RESP,POS,FMT) ; returns rejection count

 Q +$P($G(^BPSR(RESP,1000,POS,511,0)),U,3)

REJCODE(RESP,POS,N,FMT) ; returns Nth rejection code

 ; if FMT="E", returns code:text

 N CODE S CODE=$P($G(^BPSR(RESP,1000,POS,511,N,0)),U)

 I CODE="" S CODE="null"

 I FMT'="E" Q CODE

 N X S X=$O(^BPSF(9002313.93,"B",CODE,0))

 I X]"" S CODE=CODE_":"_$P($G(^BPSF(9002313.93,X,0)),U,2)

 E  S CODE="?"_CODE

 Q CODE

 ; NCPDP 5.1 changes - message may not come back in 504.  They may

 ;  come back in 526 instead

 ; NCPDP D.0 change - 526 is a repeating field

RESPMSG(RESP,POS) ; response message - additional text from insurer

 I '$G(RESP) Q ""

 I '$G(POS) S POS=1

 N MSG

 S MSG=""

 S MSG=$G(^BPSR(RESP,504))

 I MSG]"" Q MSG

 N ADDMESS,N

 D ADDMESS^BPSSCRLG(RESP,POS,.ADDMESS)

 S N="" F  S N=$O(ADDMESS(N)) Q:'N  S MSG=MSG_$S(N=1:"",1:"~")_ADDMESS(N)

 Q MSG

NOW() ;

 Q $$NOW^XLFDT

 ; The xxxSLEEP functions are called from BPSOSQL

 ; ISASLEEP also called by BPSOSQA

REJSLEEP(BPSRESP,BPSPOS,IEN59) ;

 ; Check if the insurer should be asleep based on the reject codes

 ; Input

 ;   BPSRESP - BPS Response IEN

 ;   BPSPOS  - Multiple IEN

 ;   IEN59   - BPS TRANSACTION IEN

 ; Return

 ;   1 if the insurer should go to sleep

 ;   0 if the insurer should not go to sleep

 N BPSSITE,REJCD,GRPLAN,BPSRET

 ; Validate parameters

 I '$G(BPSRESP) Q 0

 I '$G(BPSPOS) Q 0

 I '$G(IEN59) Q 0

 ; Check asleep parameters to see asleep functionality is disabled

 S BPSSITE=$G(^BPS(9002313.99,1,0))

 I '$P(BPSSITE,"^",5)!('$P(BPSSITE,"^",6)) Q 0

 ; Do not do insurer asleep for Eligibility Verification requests

 I $P($G(^BPST(IEN59,0)),U,15)="E" Q 0

 ; Get the Group Insurance Plan and verify if asleep functionality is on

 S GRPLAN=$$GETPLN59^BPSUTIL2(IEN59) I 'GRPLAN Q 0

 I $$IGNORE^BPSOSQF(+GRPLAN) Q 0

 ; Don't sleep if response has reject 88 (DUR), 943 (DUR), or 79 (Refill Too Soon)

 I $D(^BPSR(BPSRESP,1000,BPSPOS,511,"B",88)) Q 0

 I $D(^BPSR(BPSRESP,1000,BPSPOS,511,"B",943)) Q 0

 I $D(^BPSR(BPSRESP,1000,BPSPOS,511,"B",79)) Q 0

 ; Is this a reject code to consider?

 S BPSRET=0

 F REJCD=90,91,92,95,96,97,98 I $D(^BPSR(BPSRESP,1000,BPSPOS,511,"B",REJCD)) S BPSRET=1 Q

 Q BPSRET

ADDSLEEP(IEN59) ;

 ; Adds a payer (if not already there) to the Asleep file

 ; Input

 ;   IEN59 - BPS TRANSACTION IEN

 ; Return

 ;   0 - No BPS Asleep Payer record created

 ;   BPS Asleep Payer IEN

 I '$G(IEN59) Q 0

 N GRPLAN,DIC,X,Y,DO,DTOUT,DUOUT

 ; Find the Group Insurance Plan

 S GRPLAN=$$GETPLN59^BPSUTIL2(IEN59) I 'GRPLAN Q 0

 ; If already in file quit

 I $D(^BPS(9002313.15,"B",+GRPLAN)) Q 0

 S DIC=9002313.15,DIC(0)="",X=+GRPLAN

 S DIC("DR")=".02///0;.03///0;.04////^S X=IEN59"

 D FILE^DICN

Q Y

INCSLEEP(IEN59) ; called from BPSOSQL

 ; INCSLEEP - Increment sleep time for this insurer

 ; Input

 ;   IEN59 - BPS TRANSACTION IEN

 ; Return

 ;    0 - Awake now

 ;    1 - Still asleep

 I '$G(IEN59) Q 0

 N GRPLAN,BPSIEN15,RETCNT,BPSPARAM,BPSRETRY,PROBER,IEN59T

 N DIE,DA,DR,DTOUT

 ; Get GROUP INSURANCE PLAN

 S GRPLAN=$$GETPLN59^BPSUTIL2(IEN59) I 'GRPLAN Q 0

 ; If the payer is not already asleep, add it to the BPS ASLEEP PAYERS file

 S BPSIEN15=$O(^BPS(9002313.15,"B",+GRPLAN,0))

 I 'BPSIEN15 S BPSIEN15=+$$ADDSLEEP(IEN59)

 I BPSIEN15<1 Q 0

 ; Get the prober.

 S PROBER=$P($G(^BPS(9002313.15,BPSIEN15,0)),U,4)

 ; If there is a prober and this is not it, just put this transaction to sleep and quit

 I PROBER,IEN59'=PROBER D SETSLEEP(IEN59,BPSIEN15,$T(+0)_"-Insurer Asleep-Waiting for Prober Transaction "_PROBER_" to complete") Q 1

 ; Get Asleep Paramters from BPS SETUP

 ; If the parameters are off, return 0

 S BPSPARAM=^BPS(9002313.99,1,0)

 I '$P(BPSPARAM,"^",5)!('$P(BPSPARAM,"^",6)) Q 0

 ; If maximum retries reached, flag to wake up and set status to complete.

 S RETCNT=$P($G(^BPS(9002313.15,BPSIEN15,0)),U,2)+1

 I RETCNT>$P(BPSPARAM,"^",6) D  Q 0

 . D LOG^BPSOSL(IEN59,$T(+0)_"-Maximum retries reached for insurer. Completing BPS TRANSACTION: "_IEN59)

 ; Set RETRY TIME based on site parameters and update retry count and retry time

 S BPSRETRY=$$FMADD^XLFDT($$NOW^XLFDT,,,$P(BPSPARAM,"^",5))

 I $$FILLFLDS^BPSUTIL2(9002313.15,".02",BPSIEN15,RETCNT)<1 Q 0

 I $$FILLFLDS^BPSUTIL2(9002313.15,".05",BPSIEN15,BPSRETRY)<1 Q 0

 ; Put the prober to Sleep

 S MSG="Retry number "_RETCNT_" scheduled for "_$$FMTE^XLFDT(BPSRETRY)

 D SETSLEEP(IEN59,BPSIEN15,$T(+0)_"-Insurer Asleep for "_$P(GRPLAN,U,2)_". "_MSG)

 ; Update the Last Update date/time for associated claims so that they don't

 ;   end up on the View/Unstand Submission Screen

 S IEN59T="" F  S IEN59T=$O(^BPST("ASL",BPSIEN15,IEN59T)) Q:IEN59T=""  D

 . I IEN59T=PROBER Q

 . S DIE=9002313.59,DA=IEN59T,DR="7///NOW" D ^DIE

 . D LOG^BPSOSL(IEN59T,$T(+0)_"-INCSLEEP is resetting the LAST UPDATE field to the current date/time")

 ; Queue packeter to restart at next retry time+10 seconds

 D TASKAT^BPSOSQA($$FMADD^XLFDT(BPSRETRY,,,,10))

Q 1

SETSLEEP(IEN59,BPSIEN15,MSG) ;

 ; Put transaction to sleep

 ; Input

 ;   IEN59 - BPS Transaction IEN

 ;   BPSIEN15 - BPS Asleep Payer IEN

 ;   MSG - Message used for Log

 I '$G(IEN59) Q

 I '$G(BPSIEN15) Q

 N DIE,DA,DR,DTOUT

 ; If the BPS TRANSACTION is not already pointing to the asleep payer, update it

 I '$D(^BPST("ASL",BPSIEN15,IEN59)) S DIE=9002313.59,DA=IEN59,DR="801////^S X=BPSIEN15" D ^DIE

 ; Set to 31% (Wait for retry (insurer asleep)) and log message

 D SETSTAT^BPSOSU(IEN59,31)

 I $G(MSG)="" S MSG=$T(+0)_"-Transaction being put to sleep by SETSLEEP"

 D LOG^BPSOSL(IEN59,MSG)

CLRSLEEP(GRPLAN,IEN59) ;EP - BPSOSQL

 ; Clear insurer sleeping condition

 ; Input:

 ;   GRPLAN - Group Insurance Plan IEN

 ;   IEN59 - BPS Transaction IEN

 I '$G(GRPLAN) Q

 N BPSIEN15,DA,DIE,DR,DTOUT,DIK,IEN59T

 ; Get the BPS ASLEEP PAYER record

 S BPSIEN15=$O(^BPS(9002313.15,"B",+GRPLAN,0))

 I BPSIEN15="" Q

 ; Logging message and creating a comment

 I $G(IEN59) D LOG^BPSOSL(IEN59,$T(+0)_"-Clearing sleep for "_$P(GRPLAN,U,2))

 ; Delete the BPS ASLEEP PAYER record

 S DA=BPSIEN15,DIK="^BPS(9002313.15," D ^DIK

 ; Clear any pointers to the sleep payer

 S IEN59T="" F  S IEN59T=$O(^BPST("ASL",BPSIEN15,IEN59T)) Q:IEN59T=""  D

 . S DIE=9002313.59,DA=IEN59T,DR="801///@" D ^DIE

 . D LOG^BPSOSL(IEN59T,$T(+0)_"-CLRSLEEP is clearing pointer to ASLEEP PAYER")

 ; Run the packeter to resubmit any other claims for the this payer

 D TASK^BPSOSQA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOSQ4   9377     printed  Feb 18, 2025@23:18:16                                                                                                                                                                                                     Page 2

BPSOSQ4   ;BHAM ISC/FCS/DRS/DLF - Process responses ;12/7/07  15:48

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,10,30**;JUN 2004;Build 19

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; This routine has two components

 +5       ;   Procedures to report Response info

 +6       ;   Procedures to handle insurer asleep functions

 +7        QUIT

 +8       ;

 +9       ; The following are separate little utilities called from elsewhere.

 +10      ;

PAID(IEN59) ;quick query to see if it's paid

 +1        NEW TMP

           DO RESPINFO(IEN59,.TMP)

           if '$DATA(TMP("RSP"))

               QUIT 0

 +2        NEW X

           SET X=TMP("RSP")

 +3        IF X="Payable"

               QUIT 1

 +4        QUIT 0

RESPINFO(IEN59,DST) ;EP - BPSOS6M

 +1       ; quick way to get all the response info for a given BPS Transaction

 +2       ; IMPORTANT!!  Do not change spelling, case, wording, or spacing!!!

 +3       ; If a reversal was attempted, it complicates things.

 +4       ;  fills DST array as follows:

 +5       ; DST("HDR")=Response Status (header)

 +6       ; DST("RSP")=Response Status (transaction)

 +7       ;   This could be: "Payable", "Rejected", "Accepted", "Captured",

 +8       ;                  "Duplicate", or  "null"

 +9       ; DST("REJ",0)=count of reject codes

 +10      ; DST("REJ",n)=each reject code

 +11      ; DST("MSG")=message with the response

 +12      ; All of these are defined, even if originals were '$D.

 +13      ; The external forms are returned.

 +14       NEW REVERSAL

           SET REVERSAL=$GET(^BPST(IEN59,4))>0

 +15       NEW RESP

 +16       IF 'REVERSAL

               SET RESP=$PIECE(^BPST(IEN59,0),U,5)

 +17      IF '$TEST

               SET RESP=$PIECE(^BPST(IEN59,4),U,2)

 +18       IF 'RESP

               QUIT

 +19       NEW ECME

           SET POS=$PIECE(^BPST(IEN59,0),U,9)

           if 'POS

               QUIT

 +20       NEW FMT

           SET FMT="E"

 +21       SET DST("HDR")=$$RESP500(RESP,FMT)

 +22       SET DST("RSP")=$$RESP1000(RESP,POS,FMT)

 +23       SET DST("REJ",0)=$$REJCOUNT(RESP,POS,FMT)

 +24       IF DST("REJ",0)

               Begin DoDot:1

 +25               NEW I

                   FOR I=1:1:DST("REJ",0)

                       SET DST("REJ",I)=$$REJCODE(RESP,POS,I,FMT)

               End DoDot:1

 +26       SET DST("MSG")=$$RESPMSG(RESP,POS)

 +27      ; Dealing with oddities of PCS (and others'?) response to reversals

 +28       IF REVERSAL

               IF DST("RSP")["null"

                   Begin DoDot:1

 +29                   IF DST("RSP")["null"

                           SET DST("RSP")=DST("HDR")_" reversal"

                   End DoDot:1

 +30       QUIT

 +31      ; In the following quickies:

 +32      ; RESP = RESPIEN, pointer to 9002313.03

 +33      ; FMT = "I" for internal, "E" for external, defaults to internal

RESP500(RESP,FMT) ;EP - BPSOS57,BPSOSUC

 +1       ; returns the response header status

 +2        NEW X

           SET X=$PIECE($GET(^BPSR(RESP,500)),U)

 +3        IF $GET(FMT)'="E"

               QUIT X

 +4        IF X=""

               SET X="null"

 +5        SET X=$SELECT(X="A":"Accepted",X="R":"Rejected",1:"?"_X)

 +6        QUIT X

RESP1000(RESP,POS,FMT) ;EP - BPSOSUC

 +1       ; returns the transaction response status

 +2       ; Note!  Could be DP or DC for duplicates

 +3        NEW X

           SET X=$PIECE($GET(^BPSR(RESP,1000,POS,500)),U)

 +4        IF $GET(FMT)'="E"

               QUIT X

 +5        IF X=""

               SET X="null"

 +6       ;

 +7       ;IHS/SD/lwj 10/07/02 NCPDP 5.1 changes - they will send an "A" back

 +8       ; now on the transaction level to indicate that it has been accepted

 +9       ; Next code line remarked out - following added

 +10      ;

 +11       SET X=$SELECT(X="A":"Accepted",X="P":"Payable",X="R":"Rejected",X="C":"Captured",X="D"!(X="DP")!(X="DC"):"Duplicate",1:"?"_X)

 +12       QUIT X

 +13      ;

REJCOUNT(RESP,POS,FMT) ; returns rejection count

 +1        QUIT +$PIECE($GET(^BPSR(RESP,1000,POS,511,0)),U,3)

 +2       ;

REJCODE(RESP,POS,N,FMT) ; returns Nth rejection code

 +1       ; if FMT="E", returns code:text

 +2        NEW CODE

           SET CODE=$PIECE($GET(^BPSR(RESP,1000,POS,511,N,0)),U)

 +3        IF CODE=""

               SET CODE="null"

 +4        IF FMT'="E"

               QUIT CODE

 +5        NEW X

           SET X=$ORDER(^BPSF(9002313.93,"B",CODE,0))

 +6        IF X]""

               SET CODE=CODE_":"_$PIECE($GET(^BPSF(9002313.93,X,0)),U,2)

 +7       IF '$TEST

               SET CODE="?"_CODE

 +8        QUIT CODE

 +9       ;

 +10      ; NCPDP 5.1 changes - message may not come back in 504.  They may

 +11      ;  come back in 526 instead

 +12      ; NCPDP D.0 change - 526 is a repeating field

RESPMSG(RESP,POS) ; response message - additional text from insurer

 +1       ;

 +2        IF '$GET(RESP)

               QUIT ""

 +3        IF '$GET(POS)

               SET POS=1

 +4        NEW MSG

 +5        SET MSG=""

 +6        SET MSG=$GET(^BPSR(RESP,504))

 +7        IF MSG]""

               QUIT MSG

 +8        NEW ADDMESS,N

 +9        DO ADDMESS^BPSSCRLG(RESP,POS,.ADDMESS)

 +10       SET N=""

FOR

               SET N=$ORDER(ADDMESS(N))

               if 'N

                   QUIT

               SET MSG=MSG_$SELECT(N=1:"",1:"~")_ADDMESS(N)

 +11       QUIT MSG

 +12      ;

 +13      ;

NOW()     ;

 +1        QUIT $$NOW^XLFDT

 +2       ;

 +3       ; The xxxSLEEP functions are called from BPSOSQL

 +4       ; ISASLEEP also called by BPSOSQA

 +5       ;

REJSLEEP(BPSRESP,BPSPOS,IEN59) ;

 +1       ; Check if the insurer should be asleep based on the reject codes

 +2       ; Input

 +3       ;   BPSRESP - BPS Response IEN

 +4       ;   BPSPOS  - Multiple IEN

 +5       ;   IEN59   - BPS TRANSACTION IEN

 +6       ; Return

 +7       ;   1 if the insurer should go to sleep

 +8       ;   0 if the insurer should not go to sleep

 +9       ;

 +10       NEW BPSSITE,REJCD,GRPLAN,BPSRET

 +11      ;

 +12      ; Validate parameters

 +13       IF '$GET(BPSRESP)

               QUIT 0

 +14       IF '$GET(BPSPOS)

               QUIT 0

 +15       IF '$GET(IEN59)

               QUIT 0

 +16      ;

 +17      ; Check asleep parameters to see asleep functionality is disabled

 +18       SET BPSSITE=$GET(^BPS(9002313.99,1,0))

 +19       IF '$PIECE(BPSSITE,"^",5)!('$PIECE(BPSSITE,"^",6))

               QUIT 0

 +20      ;

 +21      ; Do not do insurer asleep for Eligibility Verification requests

 +22       IF $PIECE($GET(^BPST(IEN59,0)),U,15)="E"

               QUIT 0

 +23      ;

 +24      ; Get the Group Insurance Plan and verify if asleep functionality is on

 +25       SET GRPLAN=$$GETPLN59^BPSUTIL2(IEN59)

           IF 'GRPLAN

               QUIT 0

 +26       IF $$IGNORE^BPSOSQF(+GRPLAN)

               QUIT 0

 +27      ;

 +28      ; Don't sleep if response has reject 88 (DUR), 943 (DUR), or 79 (Refill Too Soon)

 +29       IF $DATA(^BPSR(BPSRESP,1000,BPSPOS,511,"B",88))

               QUIT 0

 +30       IF $DATA(^BPSR(BPSRESP,1000,BPSPOS,511,"B",943))

               QUIT 0

 +31       IF $DATA(^BPSR(BPSRESP,1000,BPSPOS,511,"B",79))

               QUIT 0

 +32      ;

 +33      ; Is this a reject code to consider?

 +34       SET BPSRET=0

 +35       FOR REJCD=90,91,92,95,96,97,98

               IF $DATA(^BPSR(BPSRESP,1000,BPSPOS,511,"B",REJCD))

                   SET BPSRET=1

                   QUIT

 +36      ;

 +37       QUIT BPSRET

 +38      ;

ADDSLEEP(IEN59) ;

 +1       ; Adds a payer (if not already there) to the Asleep file

 +2       ; Input

 +3       ;   IEN59 - BPS TRANSACTION IEN

 +4       ; Return

 +5       ;   0 - No BPS Asleep Payer record created

 +6       ;   BPS Asleep Payer IEN

 +7       ;

 +8        IF '$GET(IEN59)

               QUIT 0

 +9        NEW GRPLAN,DIC,X,Y,DO,DTOUT,DUOUT

 +10      ;

 +11      ; Find the Group Insurance Plan

 +12       SET GRPLAN=$$GETPLN59^BPSUTIL2(IEN59)

           IF 'GRPLAN

               QUIT 0

 +13      ;

 +14      ; If already in file quit

 +15       IF $DATA(^BPS(9002313.15,"B",+GRPLAN))

               QUIT 0

 +16      ;

 +17       SET DIC=9002313.15

           SET DIC(0)=""

           SET X=+GRPLAN

 +18       SET DIC("DR")=".02///0;.03///0;.04////^S X=IEN59"

 +19       DO FILE^DICN

 +20      ;

 +21       QUIT Y

 +22      ;

INCSLEEP(IEN59) ; called from BPSOSQL

 +1       ; INCSLEEP - Increment sleep time for this insurer

 +2       ; Input

 +3       ;   IEN59 - BPS TRANSACTION IEN

 +4       ; Return

 +5       ;    0 - Awake now

 +6       ;    1 - Still asleep

 +7       ;

 +8        IF '$GET(IEN59)

               QUIT 0

 +9        NEW GRPLAN,BPSIEN15,RETCNT,BPSPARAM,BPSRETRY,PROBER,IEN59T

 +10       NEW DIE,DA,DR,DTOUT

 +11      ;

 +12      ; Get GROUP INSURANCE PLAN

 +13       SET GRPLAN=$$GETPLN59^BPSUTIL2(IEN59)

           IF 'GRPLAN

               QUIT 0

 +14      ;

 +15      ; If the payer is not already asleep, add it to the BPS ASLEEP PAYERS file

 +16       SET BPSIEN15=$ORDER(^BPS(9002313.15,"B",+GRPLAN,0))

 +17       IF 'BPSIEN15

               SET BPSIEN15=+$$ADDSLEEP(IEN59)

 +18       IF BPSIEN15<1

               QUIT 0

 +19      ;

 +20      ; Get the prober.

 +21       SET PROBER=$PIECE($GET(^BPS(9002313.15,BPSIEN15,0)),U,4)

 +22      ;

 +23      ; If there is a prober and this is not it, just put this transaction to sleep and quit

 +24       IF PROBER

               IF IEN59'=PROBER

                   DO SETSLEEP(IEN59,BPSIEN15,$TEXT(+0)_"-Insurer Asleep-Waiting for Prober Transaction "_PROBER_" to complete")

                   QUIT 1

 +25      ;

 +26      ; Get Asleep Paramters from BPS SETUP

 +27      ; If the parameters are off, return 0

 +28       SET BPSPARAM=^BPS(9002313.99,1,0)

 +29       IF '$PIECE(BPSPARAM,"^",5)!('$PIECE(BPSPARAM,"^",6))

               QUIT 0

 +30      ;

 +31      ; If maximum retries reached, flag to wake up and set status to complete.

 +32       SET RETCNT=$PIECE($GET(^BPS(9002313.15,BPSIEN15,0)),U,2)+1

 +33       IF RETCNT>$PIECE(BPSPARAM,"^",6)

               Begin DoDot:1

 +34               DO LOG^BPSOSL(IEN59,$TEXT(+0)_"-Maximum retries reached for insurer. Completing BPS TRANSACTION: "_IEN59)

               End DoDot:1

               QUIT 0

 +35      ;

 +36      ; Set RETRY TIME based on site parameters and update retry count and retry time

 +37       SET BPSRETRY=$$FMADD^XLFDT($$NOW^XLFDT,,,$PIECE(BPSPARAM,"^",5))

 +38       IF $$FILLFLDS^BPSUTIL2(9002313.15,".02",BPSIEN15,RETCNT)<1

               QUIT 0

 +39       IF $$FILLFLDS^BPSUTIL2(9002313.15,".05",BPSIEN15,BPSRETRY)<1

               QUIT 0

 +40      ;

 +41      ; Put the prober to Sleep

 +42       SET MSG="Retry number "_RETCNT_" scheduled for "_$$FMTE^XLFDT(BPSRETRY)

 +43       DO SETSLEEP(IEN59,BPSIEN15,$TEXT(+0)_"-Insurer Asleep for "_$PIECE(GRPLAN,U,2)_". "_MSG)

 +44      ;

 +45      ; Update the Last Update date/time for associated claims so that they don't

 +46      ;   end up on the View/Unstand Submission Screen

 +47       SET IEN59T=""

FOR

               SET IEN59T=$ORDER(^BPST("ASL",BPSIEN15,IEN59T))

               if IEN59T=""

                   QUIT

               Begin DoDot:1

 +48               IF IEN59T=PROBER

                       QUIT

 +49               SET DIE=9002313.59

                   SET DA=IEN59T

                   SET DR="7///NOW"

                   DO ^DIE

 +50               DO LOG^BPSOSL(IEN59T,$TEXT(+0)_"-INCSLEEP is resetting the LAST UPDATE field to the current date/time")

               End DoDot:1

 +51      ;

 +52      ; Queue packeter to restart at next retry time+10 seconds

 +53       DO TASKAT^BPSOSQA($$FMADD^XLFDT(BPSRETRY,,,,10))

 +54      ;

 +55       QUIT 1

 +56      ;

SETSLEEP(IEN59,BPSIEN15,MSG) ;

 +1       ; Put transaction to sleep

 +2       ; Input

 +3       ;   IEN59 - BPS Transaction IEN

 +4       ;   BPSIEN15 - BPS Asleep Payer IEN

 +5       ;   MSG - Message used for Log

 +6       ;

 +7        IF '$GET(IEN59)

               QUIT

 +8        IF '$GET(BPSIEN15)

               QUIT

 +9        NEW DIE,DA,DR,DTOUT

 +10      ;

 +11      ; If the BPS TRANSACTION is not already pointing to the asleep payer, update it

 +12       IF '$DATA(^BPST("ASL",BPSIEN15,IEN59))

               SET DIE=9002313.59

               SET DA=IEN59

               SET DR="801////^S X=BPSIEN15"

               DO ^DIE

 +13      ;

 +14      ; Set to 31% (Wait for retry (insurer asleep)) and log message

 +15       DO SETSTAT^BPSOSU(IEN59,31)

 +16       IF $GET(MSG)=""

               SET MSG=$TEXT(+0)_"-Transaction being put to sleep by SETSLEEP"

 +17       DO LOG^BPSOSL(IEN59,MSG)

 +18       QUIT

 +19      ;

CLRSLEEP(GRPLAN,IEN59) ;EP - BPSOSQL

 +1       ; Clear insurer sleeping condition

 +2       ; Input:

 +3       ;   GRPLAN - Group Insurance Plan IEN

 +4       ;   IEN59 - BPS Transaction IEN

 +5       ;

 +6        IF '$GET(GRPLAN)

               QUIT

 +7        NEW BPSIEN15,DA,DIE,DR,DTOUT,DIK,IEN59T

 +8       ;

 +9       ; Get the BPS ASLEEP PAYER record

 +10       SET BPSIEN15=$ORDER(^BPS(9002313.15,"B",+GRPLAN,0))

 +11       IF BPSIEN15=""

               QUIT

 +12      ;

 +13      ; Logging message and creating a comment

 +14       IF $GET(IEN59)

               DO LOG^BPSOSL(IEN59,$TEXT(+0)_"-Clearing sleep for "_$PIECE(GRPLAN,U,2))

 +15      ;

 +16      ; Delete the BPS ASLEEP PAYER record

 +17       SET DA=BPSIEN15

           SET DIK="^BPS(9002313.15,"

           DO ^DIK

 +18      ;

 +19      ; Clear any pointers to the sleep payer

 +20       SET IEN59T=""

FOR

               SET IEN59T=$ORDER(^BPST("ASL",BPSIEN15,IEN59T))

               if IEN59T=""

                   QUIT

               Begin DoDot:1

 +21               SET DIE=9002313.59

                   SET DA=IEN59T

                   SET DR="801///@"

                   DO ^DIE

 +22               DO LOG^BPSOSL(IEN59T,$TEXT(+0)_"-CLRSLEEP is clearing pointer to ASLEEP PAYER")

               End DoDot:1

 +23      ;

 +24      ; Run the packeter to resubmit any other claims for the this payer

 +25       DO TASK^BPSOSQA

 +26       QUIT

BPSOSQ4.m