BPSSCRCU.m

BPSSCRCU ;BHAM ISC/SS - ECME SCREEN CONTINUOUS UPDATE AND CHANGE VIEW ;05-APR-05

 ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,24**;JUN 2004;Build 43

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

 Q

 ;

CU ;

 N BPKEY,BPTIME,X,Y

 S BPTIME=15 ;update every 15 seconds

 D RE^VALM4

 W "Press ""Q"" to quit."

 F  D  S BPKEY=$$READ^XGF(1,BPTIME) Q:(BPKEY="Q")!(BPKEY="q")

 . D UD^BPSSCRUD

 . D RE^VALM4

 . N %

 . D NOW^%DTC S Y=% X ^DD("DD")

 . W "The screen has been updated on "_Y_". Press ""Q"" to quit."

 Q

 ;

 ; Select Insurance using IB API - IA 4721

 ; Input:  BPARR passed by ref to store user selection

 ;         BPDUZ - User DUZ

 ; Output: RETV = -1 if timeout or user enters "^"

 ;         BPARR(1.11)="I" for individual insurance or "A" for all

 ;         BPARR("INS")=semi-colon list of IENs from file 36 if individual insurances selected

 ; Example output: BPARR(1.11)="I" BPARR("INS")=";7;499;200;"

INSURSEL(BPARR,BPDUZ) ;

 N RETV,BPQ,BPINP,BPINSARR,Y,BPCNT

 S (BPARR(1.11),BPARR(2.04),BPARR("INS"))=""

 S (BPINS,BPCNT)=0

 S RETV=$$EDITFLD^BPSSCRCV(1.11,+BPDUZ,"S^I:SPECIFIC INSURANCE(S);A:ALL","Select Certain (I)NSURANCE or (A)LL","ALL",.BPARR)

 ; Quit if timeout or ^ entered

 Q:RETV<0 +RETV

 ; Quit if ALL selected

 Q:$P(RETV,U,2)="A" +RETV

 ; Get selected insurances from parameters and display them

 I $$GETINS(BPDUZ,.BPINSARR) D DISPINS(.BPINSARR)

SELINS1 ;

 ; Select specific Insurances to add to BPARR("INS") array

 S BPQ=0 F  D  Q:BPQ'=0

 . S BPINP=$$SELINSUR^IBNCPDPI("Select INSURANCE","")

 . S:+BPINP=-1 BPQ=-1 I BPQ=-1 Q

 . ;

 . ; Handle deletes

 . I $D(BPINSARR(+BPINP)) D  Q

 . . W !

 . . S Y=$$PROMPT^BPSSCRCV("S^Y:YES;N:NO","Delete "_$P(BPINP,U,2)_" from your list?","NO")

 . . I Y="Y" K BPINSARR(+BPINP),BPINSARR("B",$P(BPINP,U,2),+BPINP)

 . . ; Display a list of selected Insurance Companies

 . . D DISPINS(.BPINSARR)

 . ; Save selection in Insurance Company array

 . S BPINSARR(+BPINP)=BPINP,BPINSARR("B",$P(BPINP,U,2),+BPINP)=""

 . ; Display a list of selected Insurance Companies

 . D DISPINS(.BPINSARR)

 ;

 ;If the user entered "^" Quit returning "^"

 I BPQ=-1,X="^" Q "^"

 ;

 ; Save selected Insurances in BPARR("INS") to be saved in instance 1.14 when filed.

 S BPARR("INS")=""

 F BPCNT=1:1 S BPINS=$O(BPINSARR(BPINS)) Q:+BPINS=0  D

 . S BPARR("INS")=$G(BPARR("INS"))_";"_BPINS

 S (BPARR("INS"),BPARR(2.04))=$G(BPARR("INS"))_";"

 Q +RETV

 ;

 ;Reads insurance selection from the USER PROFILE file

 ;Input: BPDUZ7 - DUZ

 ;       BPINSUR by ref - array to return insurances saved in 2.04 Parameter : BPINSUR(IEN of file 36)

 ;Return value:

 ; 0 nothing saved

 ; n number of IENs of #36 selected by the user and stored in BPINSUR

 ;Returned by reference:

 ; BPINSUR - array with IENs to file #36

GETINS(BPDUZ7,BPINSUR) ;

 N BPINS,BPCNT

 S BPARRAY("INS")=$$GETPARAM^BPSSCRSL("2.04",BPDUZ7)

 F BPCNT=1:1:20 S BPINS=$P($G(BPARRAY("INS")),";",BPCNT+1) Q:+BPINS=0  D

 . S BPINSUR(BPINS)=BPINS,BPINSUR("B",$$INSNM^IBNCPDPI(BPINS),BPINS)=""

 Q BPCNT-1

 ;

 ;Display selected Insurances

 ;Input: BPINSARR = Array of insurances to display

 ; BPINSARR("B",INSURANCE COMPANY NAME)

DISPINS(BPINSARR) ;

 I $D(BPINSARR)>9 D

 . N X

 . W !,?2,"Selected:"

 . S X="" F  S X=$O(BPINSARR("B",X)) Q:X=""  W ?12,X,!

 . K X

 Q

 ;

 ;Check if PLAN ID for selected BP59 matches selected insurances

 ;Input: BPPLAN = Insurance company IEN from PLAN ID field in BPS TRANSACTION file

 ;       BPINS = Semi-colon separated list of insurances selected by the user.

 ;               See INSURSEL

 ;Output: 1 = Yes a match was found

 ;        0 = No match found

CHKINS(BPPLAN,BPINS) ;

 N BPIN,BPRETV

 S BPRETV=0

 F I=2:1 S BPIN=$P($G(BPINS),";",I) Q:BPIN=""  D  Q:BPRETV

 . S BPRETV=$S(BPIN=BPPLAN:1,1:0)

 Q BPRETV

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSSCRCU   3825     printed  Feb 18, 2025@23:19:31                                                                                                                                                                                                    Page 2

BPSSCRCU  ;BHAM ISC/SS - ECME SCREEN CONTINUOUS UPDATE AND CHANGE VIEW ;05-APR-05

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,24**;JUN 2004;Build 43

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

 +3        QUIT 

 +4       ;

CU        ;

 +1        NEW BPKEY,BPTIME,X,Y

 +2       ;update every 15 seconds

           SET BPTIME=15

 +3        DO RE^VALM4

 +4        WRITE "Press ""Q"" to quit."

 +5        FOR 

               Begin DoDot:1

 +6                DO UD^BPSSCRUD

 +7                DO RE^VALM4

 +8                NEW %

 +9                DO NOW^%DTC

                   SET Y=%

                   XECUTE ^DD("DD")

 +10               WRITE "The screen has been updated on "_Y_". Press ""Q"" to quit."

               End DoDot:1

               SET BPKEY=$$READ^XGF(1,BPTIME)

               if (BPKEY="Q")!(BPKEY="q")

                   QUIT 

 +11       QUIT 

 +12      ;

 +13      ; Select Insurance using IB API - IA 4721

 +14      ; Input:  BPARR passed by ref to store user selection

 +15      ;         BPDUZ - User DUZ

 +16      ; Output: RETV = -1 if timeout or user enters "^"

 +17      ;         BPARR(1.11)="I" for individual insurance or "A" for all

 +18      ;         BPARR("INS")=semi-colon list of IENs from file 36 if individual insurances selected

 +19      ; Example output: BPARR(1.11)="I" BPARR("INS")=";7;499;200;"

INSURSEL(BPARR,BPDUZ) ;

 +1        NEW RETV,BPQ,BPINP,BPINSARR,Y,BPCNT

 +2        SET (BPARR(1.11),BPARR(2.04),BPARR("INS"))=""

 +3        SET (BPINS,BPCNT)=0

 +4        SET RETV=$$EDITFLD^BPSSCRCV(1.11,+BPDUZ,"S^I:SPECIFIC INSURANCE(S);A:ALL","Select Certain (I)NSURANCE or (A)LL","ALL",.BPARR)

 +5       ; Quit if timeout or ^ entered

 +6        if RETV<0

               QUIT +RETV

 +7       ; Quit if ALL selected

 +8        if $PIECE(RETV,U,2)="A"

               QUIT +RETV

 +9       ; Get selected insurances from parameters and display them

 +10       IF $$GETINS(BPDUZ,.BPINSARR)

               DO DISPINS(.BPINSARR)

SELINS1   ;

 +1       ; Select specific Insurances to add to BPARR("INS") array

 +2        SET BPQ=0

           FOR 

               Begin DoDot:1

 +3                SET BPINP=$$SELINSUR^IBNCPDPI("Select INSURANCE","")

 +4                if +BPINP=-1

                       SET BPQ=-1

                   IF BPQ=-1

                       QUIT 

 +5       ;

 +6       ; Handle deletes

 +7                IF $DATA(BPINSARR(+BPINP))

                       Begin DoDot:2

 +8                        WRITE !

 +9                        SET Y=$$PROMPT^BPSSCRCV("S^Y:YES;N:NO","Delete "_$PIECE(BPINP,U,2)_" from your list?","NO")

 +10                       IF Y="Y"

                               KILL BPINSARR(+BPINP),BPINSARR("B",$PIECE(BPINP,U,2),+BPINP)

 +11      ; Display a list of selected Insurance Companies

 +12                       DO DISPINS(.BPINSARR)

                       End DoDot:2

                       QUIT 

 +13      ; Save selection in Insurance Company array

 +14               SET BPINSARR(+BPINP)=BPINP

                   SET BPINSARR("B",$PIECE(BPINP,U,2),+BPINP)=""

 +15      ; Display a list of selected Insurance Companies

 +16               DO DISPINS(.BPINSARR)

               End DoDot:1

               if BPQ'=0

                   QUIT 

 +17      ;

 +18      ;If the user entered "^" Quit returning "^"

 +19       IF BPQ=-1

               IF X="^"

                   QUIT "^"

 +20      ;

 +21      ; Save selected Insurances in BPARR("INS") to be saved in instance 1.14 when filed.

 +22       SET BPARR("INS")=""

 +23       FOR BPCNT=1:1

               SET BPINS=$ORDER(BPINSARR(BPINS))

               if +BPINS=0

                   QUIT 

               Begin DoDot:1

 +24               SET BPARR("INS")=$GET(BPARR("INS"))_";"_BPINS

               End DoDot:1

 +25       SET (BPARR("INS"),BPARR(2.04))=$GET(BPARR("INS"))_";"

 +26       QUIT +RETV

 +27      ;

 +28      ;Reads insurance selection from the USER PROFILE file

 +29      ;Input: BPDUZ7 - DUZ

 +30      ;       BPINSUR by ref - array to return insurances saved in 2.04 Parameter : BPINSUR(IEN of file 36)

 +31      ;Return value:

 +32      ; 0 nothing saved

 +33      ; n number of IENs of #36 selected by the user and stored in BPINSUR

 +34      ;Returned by reference:

 +35      ; BPINSUR - array with IENs to file #36

GETINS(BPDUZ7,BPINSUR) ;

 +1        NEW BPINS,BPCNT

 +2        SET BPARRAY("INS")=$$GETPARAM^BPSSCRSL("2.04",BPDUZ7)

 +3        FOR BPCNT=1:1:20

               SET BPINS=$PIECE($GET(BPARRAY("INS")),";",BPCNT+1)

               if +BPINS=0

                   QUIT 

               Begin DoDot:1

 +4                SET BPINSUR(BPINS)=BPINS

                   SET BPINSUR("B",$$INSNM^IBNCPDPI(BPINS),BPINS)=""

               End DoDot:1

 +5        QUIT BPCNT-1

 +6       ;

 +7       ;Display selected Insurances

 +8       ;Input: BPINSARR = Array of insurances to display

 +9       ; BPINSARR("B",INSURANCE COMPANY NAME)

DISPINS(BPINSARR) ;

 +1        IF $DATA(BPINSARR)>9

               Begin DoDot:1

 +2                NEW X

 +3                WRITE !,?2,"Selected:"

 +4                SET X=""

                   FOR 

                       SET X=$ORDER(BPINSARR("B",X))

                       if X=""

                           QUIT 

                       WRITE ?12,X,!

 +5                KILL X

               End DoDot:1

 +6        QUIT 

 +7       ;

 +8       ;Check if PLAN ID for selected BP59 matches selected insurances

 +9       ;Input: BPPLAN = Insurance company IEN from PLAN ID field in BPS TRANSACTION file

 +10      ;       BPINS = Semi-colon separated list of insurances selected by the user.

 +11      ;               See INSURSEL

 +12      ;Output: 1 = Yes a match was found

 +13      ;        0 = No match found

CHKINS(BPPLAN,BPINS) ;

 +1        NEW BPIN,BPRETV

 +2        SET BPRETV=0

 +3        FOR I=2:1

               SET BPIN=$PIECE($GET(BPINS),";",I)

               if BPIN=""

                   QUIT 

               Begin DoDot:1

 +4                SET BPRETV=$SELECT(BPIN=BPPLAN:1,1:0)

               End DoDot:1

               if BPRETV

                   QUIT 

 +5        QUIT BPRETV

 +6       ;