IBCNAU2.m

IBCNAU2 ;ALB/KML/AWC - USER EDIT REPORT (COMPILE) ;6-APRIL-2015

 ;;2.0;INTEGRATED BILLING;**528,664,668,737**;21-MAR-94;Build 19

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

 ;

 ; Queued Entry Point for Report.

 ;  Required variable input:  ALLUSERS, ALLINS, PLANS, ALLPLANS, EXCEL

 ;  ^TMP("IBINC",$J) 

 ;  ^TMP("IBUSER",$J) 

 ;  DATE("START") and DATE("END") required array elements if all dates not selected

 ;

 ;IB*737/CKB - references to 'eIV Payer' should be changed to 'Payer' in order

 ; to include 'IIU Payers'

 Q

 ;

 ;EN(ALLINS,ALLPLANS,PLANS,DATE) ;

 ;/vd-IB*2*664 - Changed the above line to the line below.

EN(ALLINS,ALLPLANS,PLANS,ALLPYRS,REPTYP,DATE) ;

 N LN

 S LN=0

 ; - compile report data

 K ^TMP("IBPR",$J),^TMP("IBPR2",$J)

 K ^TMP("IBPRINS",$J) ; IB*737/DTG to track which DIA(36,"B",INSIENS have been picked up

 ;

 ; - user wanted all companies, PLANS, and users

 ;I PLANS D PLANS(ALLUSERS,.LN,.DATE)

 ;E  D NOPLANS(ALLUSERS,.LN,.DATE)

 ;/vd-IB*2*664 - Replaced the above 3 lines with the following:

 ;Beginning of IB*2*664 code

 ; - dependent upon Report selection prepare the respective insurance companies,

 ;   plans, eIV payers, and users

 I REPTYP'=2 D      ; report for ins cos/plans or both was selected

 .I PLANS D PLANS(ALLUSERS,.LN,.DATE)

 .E  D NOPLANS(ALLUSERS,.LN,.DATE)

 I REPTYP'=1 D PAYERS(ALLPLANS,ALLUSERS,.LN,.DATE)   ; report for eIV payers or both was selected

 ;End of IB*2*664 code

 ;

PRINT ; - print report

 ;D EN^IBCNAU3(ALLPLANS,PLANS)

 ;/vd-IB*2*664 - Replaced the line above with the line below

 D EN^IBCNAU3(ALLPLANS,PLANS,ALLPYRS,REPTYP)

 ;

 I $D(ZTQUEUED) S ZTREQ="@" Q

 D ^%ZISC

 Q

 ;

PLANS(ALLUSERS,LN,DATE) ;

 ; report will include edits to files 36 and 355.3

 N INSNAME,INSIEN,PLIEN,Z

 S INSNAME="" F  S INSNAME=$O(^TMP("IBINC",$J,INSNAME)) Q:INSNAME=""  D

 . S INSIEN=0 F  S INSIEN=$O(^TMP("IBINC",$J,INSNAME,INSIEN)) Q:'INSIEN  D

 . . S PLIEN=0 F  S PLIEN=$O(^TMP("IBINC",$J,INSNAME,INSIEN,PLIEN)) Q:'PLIEN  D

 . . . I ALLUSERS D ALLUSERS(INSNAME,INSIEN,PLIEN,PLANS,.LN,.DATE,.Z) Q

 . . . I 'ALLUSERS D SELUSERS(INSNAME,INSIEN,PLIEN,.LN,.DATE,.Z)

 Q

 ;

NOPLANS(ALLUSERS,LN,DATE) ;  only report edits made to INSURANCE COMPANY file (36)

 N INSNAME,INSIEN,PLIEN

 S PLIEN=0

 ;

 S INSNAME="" F  S INSNAME=$O(^TMP("IBINC",$J,INSNAME)) Q:INSNAME=""  D

 . S INSIEN=0 F  S INSIEN=$O(^TMP("IBINC",$J,INSNAME,INSIEN)) Q:'INSIEN  D

 . . I ALLUSERS D ALLUSERS(INSNAME,INSIEN,0,0,.LN,.DATE,.Z)

 . . I 'ALLUSERS D SELUSERS(INSNAME,INSIEN,PLIEN,.LN,.DATE,.Z)

 Q

 ;

ALLUSERS(INSNAME,INSIEN,PLIEN,PLANS,LN,DATE,Z) ; procedure to gather edits for All Users within a date range

 ; INSNAME = name of insurance company (36, .01)

 ; INSIEN = ien of INSURANCE COMPANY (36) entry

 ; PLIEN = ien of GROUP iNSURANCE PLAN (355.3) entry

 ;         OR equal to 0 if group plans or not to be reported

 ; DATE = date range for edits (DATE("START") and DATE("END"))

 ; Z = input and output array

 K Z

 N DIAIEN,SUB,DIA0,FIELD ;LN

 S SUB=$S(PLIEN:1,1:0)

 S DIAIEN=0

 S Z("PLAN")=$S(PLIEN:$P($G(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 S Z("INSNAME")=INSNAME

 ; INSURANCE COMPANY AUDITS

 F  S DIAIEN=$O(^DIA(36,"B",INSIEN,DIAIEN)) Q:'DIAIEN  D

 . S DIA0=^DIA(36,DIAIEN,0),DATE=$P($P(DIA0,U,2),".")

 . Q:DATE<DATE("START")  Q:DATE>DATE("END")   ; audit record outside date range

 . S FIELD=$S($P(DIA0,U,3)=".01":"INSURANCE COMPANY",1:$P(^DD(36,$P(DIA0,U,3),0),U))

 . S Z("DATE")=$E($P(DIA0,U,2),1,12),Z("FIELD")=FIELD,Z("USER")=$P(DIA0,U,4)

 . S Z("OLDVAL")=$G(^DIA(36,DIAIEN,2)),Z("NEWVAL")=$G(^DIA(36,DIAIEN,3))

 . S Z("PLAN")=$S(PLIEN:$P($G(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 . S Z("INSNAME")=INSNAME

 . S Z("ISINS")=36  ;IB*737/DTG flag for file 36

 . I $G(^TMP("IBPRINS",$J,INSIEN,DIAIEN))=1 Q  ; IB*737/DTG do not re-print if already printed

 . D ADDLN(SUB,.LN,.Z)

 . S ^TMP("IBPRINS",$J,INSIEN,DIAIEN)=1  ; IB*737/DTG track for not re-print if already printed

 ;

 ; if GROUP PLAN edits are to be reported then proceed with gathering edits from file 355.3, 355.32, 355.4

 ; GROUP INSURANCE PLAN AUDITS

 I PLANS D

 . S DIAIEN=0,Z("ISINS")=""  ;IB*737/DTG make sure DIAIEN is zero, clear item for file 36 chk

 . F  S DIAIEN=$O(^DIA(355.3,"B",PLIEN,DIAIEN)) Q:'DIAIEN  D

 . . S DIA0=^DIA(355.3,DIAIEN,0),DATE=$P($P(DIA0,U,2),".")

 . . Q:DATE<DATE("START")  Q:DATE>DATE("END")   ; audit record outside date range

 . . S FIELD=$P(^DD(355.3,$P(DIA0,U,3),0),U)

 . . S Z("DATE")=$E($P(DIA0,U,2),1,12),Z("FIELD")=FIELD,Z("USER")=$P(DIA0,U,4)

 . . S Z("OLDVAL")=$G(^DIA(355.3,DIAIEN,2)),Z("NEWVAL")=$G(^DIA(355.3,DIAIEN,3))

 . . D ADDLN(SUB,.LN,.Z)

 Q

 ;

SELUSERS(INSNAME,INSIEN,PLIEN,LN,DATE,Z) ; procedure to gather edits for selected Users for a date range

 K Z

 N DIAIEN,SUB,DIA0,FIELD,USER

 S SUB=$S(PLIEN:1,1:0)

 S DIAIEN=0

 S Z("PLAN")=$S(PLIEN:$P($G(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 S Z("INSNAME")=INSNAME

 ; INSURANCE COMPANY AUDITS

 F  S DIAIEN=$O(^DIA(36,"B",INSIEN,DIAIEN)) Q:'DIAIEN  D

 . S DIA0=^DIA(36,DIAIEN,0),DATE=$P($P(DIA0,U,2),"."),USER=$P(DIA0,U,4)

 . Q:'$D(^TMP("IBUSER",$J,USER))  ; not a selected user

 . Q:DATE<DATE("START")  Q:DATE>DATE("END")   ; audit record outside date range

 . S FIELD=$S($P(DIA0,U,3)=".01":"INSURANCE COMPANY",1:$P(^DD(36,$P(DIA0,U,3),0),U))

 . ;IB*737/CKB - display date & time when a specific User(s) is selected

 . S Z("DATE")=$E($P(DIA0,U,2),1,12),Z("FIELD")=FIELD,Z("USER")=USER

 . S Z("OLDVAL")=$G(^DIA(36,DIAIEN,2)),Z("NEWVAL")=$G(^DIA(36,DIAIEN,3))

 . S Z("PLAN")=$S(PLIEN:$P($G(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 . S Z("INSNAME")=INSNAME

 . S Z("ISINS")=36  ;IB*737/DTG flag for file 36

 . I $G(^TMP("IBPRINS",$J,INSIEN,DIAIEN))=1 Q  ; IB*737/DTG do not re-print if alredy printed

 . D ADDLN(SUB,.LN,.Z)

 . S ^TMP("IBPRINS",$J,INSIEN,DIAIEN)=1  ; IB*737/DTG track for not re-print if alredy printed

 ;

 Q:'PLANS  ; audits from the GROUP INSURANCE PLAN are not to be reported

 ; if GROUP PLAN edits are to be reported then proceed with gathering edits from file 355.3, 355.32, 355.4

 ;

 ; GROUP INSURANCE PLAN AUDITS

 S DIAIEN=0,Z("ISINS")=""  ;IB*737/DTG make sure DIAIEN is zero, clear itm for file 36

 F  S DIAIEN=$O(^DIA(355.3,"B",PLIEN,DIAIEN)) Q:'DIAIEN  D

 . S DIA0=^DIA(355.3,DIAIEN,0),DATE=$P($P(DIA0,U,2),"."),USER=$P(DIA0,U,4)

 . Q:'$D(^TMP("IBUSER",$J,USER))  ; not a selected user

 . Q:DATE<DATE("START")  Q:DATE>DATE("END")   ; audit record outside date range

 . S FIELD=$P(^DD(355.3,$P(DIA0,U,3),0),U)

 . ;IB*737/CKB - display date & time when a specific User(s) is selected

 . S Z("DATE")=$E($P(DIA0,U,2),1,12),Z("FIELD")=FIELD,Z("USER")=USER

 . S Z("OLDVAL")=$G(^DIA(355.3,DIAIEN,2)),Z("NEWVAL")=$G(^DIA(355.3,DIAIEN,3))

 . D ADDLN(SUB,.LN,.Z)

 Q

 ;

 ;/vd-IB*2*664 - Beginning of new code for eIV Payer selection(s).

 ;IB*737/CKB

PAYERS(ALLPLANS,ALLUSERS,LN,DATE) ; PROCESS PAYERS

 N BDATE,DIA0,DIAIEN,EDATE,FIELD,PAYERLN,PYRAPP,PYRIEN,PYRNAME,SUB

 ;

 S SUB=0

 S Z("ISINS")=""  ;IB*737/DTG clear itm for file 36

 S BDATE=DATE("START")-.000001,EDATE=DATE("END")+.999999

 F  S BDATE=$O(^DIA(365.12,"C",BDATE)) Q:BDATE=""  D

 . I BDATE>EDATE Q

 . S DIAIEN=0,PAYERLN=1

 . F  S DIAIEN=$O(^DIA(365.12,"C",BDATE,DIAIEN)) Q:DIAIEN=""  D

 . . N Z

 . . S DIA0=^DIA(365.12,DIAIEN,0)

 . . S PYRIEN=+$P(DIA0,U,1),PYRAPP=$P($P(DIA0,U,1),",",2)   ; Get the internal Payer # and the Application

 . . ;IB*737/CKB - only "eIV" and "IIU" Application Modifications.

 . . I ($$GET1^DIQ(365.121,PYRAPP_","_PYRIEN_",",.01)'="EIV")&($$GET1^DIQ(365.121,PYRAPP_","_PYRIEN_",",.01)'="IIU") Q

 . . S PYRNAME=$$GET1^DIQ(365.12,PYRIEN,.01)

 . . I 'ALLPYRS,'$D(^TMP("IBPYR",$J,PYRNAME,PYRIEN)) Q   ; Is this a selected payer?

 . . ;IB*668/TAZ - Changed Payer Application from IIV to EIV

 . . ;IB*737/CKB - allow for eIV and IIU Payers

 . . I ('+$$PYRAPP^IBCNEUT5("EIV",PYRIEN))&('+$$PYRAPP^IBCNEUT5("IIU",PYRIEN)) Q

 . . S FIELD=$S($P(DIA0,U,3)="1,.03":"LOCALLY ENABLED","1,5.01":"RECEIVE IIU DATA",1:"")

 . . I FIELD="" Q   ; Not the Locally Enabled or the Receive IIU Data field.

 . . S Z("DATE")=$P(DIA0,U,2),Z("FIELD")=FIELD,Z("USER")=$P(DIA0,U,4)

 . . S Z("OLDVAL")=$G(^DIA(365.12,DIAIEN,2)),Z("NEWVAL")=$G(^DIA(365.12,DIAIEN,3)),Z("PYRNAME")=PYRNAME

 . . I 'ALLUSERS,'$D(^TMP("IBUSER",$J,Z("USER"))) Q

 . . D ADDLN(SUB,.LN,.Z,PAYERLN)

 Q

 ;/IB*2*664 - End of new code.

 ;

 ;ADDLN(SUB,LN,Z) ;/vd-IB*2*664 - Replaced this line with the following line:

ADDLN(SUB,LN,Z,PAYERLN) ;

 ; SUB = 0 if no group plans to be reported

 ;     = 1 if group plans to be reported

 ; LN = passed by reference.  Line subscript at ^TMP("IBPR",$J,PLANS,LN)

 ; PAYERLN=0 if not generating a payer's line

 ;        =1 if a payer's line is being generated

 S LN=LN+1

 ; /vd-IB*2*664 - Replaced the following line with couple of lines below it.

 ;S ^TMP("IBPR",$J,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 ;I '+$G(PAYERLN) S ^TMP("IBPR",$J,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD") Q

 I '+$G(PAYERLN) D  Q

 . S ^TMP("IBPR",$J,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")

 . S ^TMP("IBPR",$J,SUB,LN)=^TMP("IBPR",$J,SUB,LN)_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 . S ^TMP("IBPR",$J,SUB,LN)=^TMP("IBPR",$J,SUB,LN)_U_$G(Z("ISINS"))  ; IB*737/DTG identify file 36 entry

 ;S ^TMP("IBPR2",$J,SUB,LN)=Z("PYRNAME")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 S ^TMP("IBPR2",$J,SUB,LN)=Z("PYRNAME")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 S ^TMP("IBPR2",$J,SUB,LN)=^TMP("IBPR2",$J,SUB,LN)_U_$G(Z("ISINS"))  ; IB*737/DTG identify file 36 entry

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNAU2   9815     printed  Feb 18, 2025@23:40:07                                                                                                                                                                                                     Page 2

IBCNAU2   ;ALB/KML/AWC - USER EDIT REPORT (COMPILE) ;6-APRIL-2015

 +1       ;;2.0;INTEGRATED BILLING;**528,664,668,737**;21-MAR-94;Build 19

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

 +3       ;

 +4       ; Queued Entry Point for Report.

 +5       ;  Required variable input:  ALLUSERS, ALLINS, PLANS, ALLPLANS, EXCEL

 +6       ;  ^TMP("IBINC",$J) 

 +7       ;  ^TMP("IBUSER",$J) 

 +8       ;  DATE("START") and DATE("END") required array elements if all dates not selected

 +9       ;

 +10      ;IB*737/CKB - references to 'eIV Payer' should be changed to 'Payer' in order

 +11      ; to include 'IIU Payers'

 +12       QUIT 

 +13      ;

 +14      ;EN(ALLINS,ALLPLANS,PLANS,DATE) ;

 +15      ;/vd-IB*2*664 - Changed the above line to the line below.

EN(ALLINS,ALLPLANS,PLANS,ALLPYRS,REPTYP,DATE) ;

 +1        NEW LN

 +2        SET LN=0

 +3       ; - compile report data

 +4        KILL ^TMP("IBPR",$JOB),^TMP("IBPR2",$JOB)

 +5       ; IB*737/DTG to track which DIA(36,"B",INSIENS have been picked up

           KILL ^TMP("IBPRINS",$JOB)

 +6       ;

 +7       ; - user wanted all companies, PLANS, and users

 +8       ;I PLANS D PLANS(ALLUSERS,.LN,.DATE)

 +9       ;E  D NOPLANS(ALLUSERS,.LN,.DATE)

 +10      ;/vd-IB*2*664 - Replaced the above 3 lines with the following:

 +11      ;Beginning of IB*2*664 code

 +12      ; - dependent upon Report selection prepare the respective insurance companies,

 +13      ;   plans, eIV payers, and users

 +14      ; report for ins cos/plans or both was selected

           IF REPTYP'=2

               Begin DoDot:1

 +15               IF PLANS

                       DO PLANS(ALLUSERS,.LN,.DATE)

 +16              IF '$TEST

                       DO NOPLANS(ALLUSERS,.LN,.DATE)

               End DoDot:1

 +17      ; report for eIV payers or both was selected

           IF REPTYP'=1

               DO PAYERS(ALLPLANS,ALLUSERS,.LN,.DATE)

 +18      ;End of IB*2*664 code

 +19      ;

PRINT     ; - print report

 +1       ;D EN^IBCNAU3(ALLPLANS,PLANS)

 +2       ;/vd-IB*2*664 - Replaced the line above with the line below

 +3        DO EN^IBCNAU3(ALLPLANS,PLANS,ALLPYRS,REPTYP)

 +4       ;

 +5        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +6        DO ^%ZISC

 +7        QUIT 

 +8       ;

PLANS(ALLUSERS,LN,DATE) ;

 +1       ; report will include edits to files 36 and 355.3

 +2        NEW INSNAME,INSIEN,PLIEN,Z

 +3        SET INSNAME=""

           FOR 

               SET INSNAME=$ORDER(^TMP("IBINC",$JOB,INSNAME))

               if INSNAME=""

                   QUIT 

               Begin DoDot:1

 +4                SET INSIEN=0

                   FOR 

                       SET INSIEN=$ORDER(^TMP("IBINC",$JOB,INSNAME,INSIEN))

                       if 'INSIEN

                           QUIT 

                       Begin DoDot:2

 +5                        SET PLIEN=0

                           FOR 

                               SET PLIEN=$ORDER(^TMP("IBINC",$JOB,INSNAME,INSIEN,PLIEN))

                               if 'PLIEN

                                   QUIT 

                               Begin DoDot:3

 +6                                IF ALLUSERS

                                       DO ALLUSERS(INSNAME,INSIEN,PLIEN,PLANS,.LN,.DATE,.Z)

                                       QUIT 

 +7                                IF 'ALLUSERS

                                       DO SELUSERS(INSNAME,INSIEN,PLIEN,.LN,.DATE,.Z)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +8        QUIT 

 +9       ;

NOPLANS(ALLUSERS,LN,DATE) ;  only report edits made to INSURANCE COMPANY file (36)

 +1        NEW INSNAME,INSIEN,PLIEN

 +2        SET PLIEN=0

 +3       ;

 +4        SET INSNAME=""

           FOR 

               SET INSNAME=$ORDER(^TMP("IBINC",$JOB,INSNAME))

               if INSNAME=""

                   QUIT 

               Begin DoDot:1

 +5                SET INSIEN=0

                   FOR 

                       SET INSIEN=$ORDER(^TMP("IBINC",$JOB,INSNAME,INSIEN))

                       if 'INSIEN

                           QUIT 

                       Begin DoDot:2

 +6                        IF ALLUSERS

                               DO ALLUSERS(INSNAME,INSIEN,0,0,.LN,.DATE,.Z)

 +7                        IF 'ALLUSERS

                               DO SELUSERS(INSNAME,INSIEN,PLIEN,.LN,.DATE,.Z)

                       End DoDot:2

               End DoDot:1

 +8        QUIT 

 +9       ;

ALLUSERS(INSNAME,INSIEN,PLIEN,PLANS,LN,DATE,Z) ; procedure to gather edits for All Users within a date range

 +1       ; INSNAME = name of insurance company (36, .01)

 +2       ; INSIEN = ien of INSURANCE COMPANY (36) entry

 +3       ; PLIEN = ien of GROUP iNSURANCE PLAN (355.3) entry

 +4       ;         OR equal to 0 if group plans or not to be reported

 +5       ; DATE = date range for edits (DATE("START") and DATE("END"))

 +6       ; Z = input and output array

 +7        KILL Z

 +8       ;LN

           NEW DIAIEN,SUB,DIA0,FIELD

 +9        SET SUB=$SELECT(PLIEN:1,1:0)

 +10       SET DIAIEN=0

 +11       SET Z("PLAN")=$SELECT(PLIEN:$PIECE($GET(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 +12       SET Z("INSNAME")=INSNAME

 +13      ; INSURANCE COMPANY AUDITS

 +14       FOR 

               SET DIAIEN=$ORDER(^DIA(36,"B",INSIEN,DIAIEN))

               if 'DIAIEN

                   QUIT 

               Begin DoDot:1

 +15               SET DIA0=^DIA(36,DIAIEN,0)

                   SET DATE=$PIECE($PIECE(DIA0,U,2),".")

 +16      ; audit record outside date range

                   if DATE<DATE("START")

                       QUIT 

                   if DATE>DATE("END")

                       QUIT 

 +17               SET FIELD=$SELECT($PIECE(DIA0,U,3)=".01":"INSURANCE COMPANY",1:$PIECE(^DD(36,$PIECE(DIA0,U,3),0),U))

 +18               SET Z("DATE")=$EXTRACT($PIECE(DIA0,U,2),1,12)

                   SET Z("FIELD")=FIELD

                   SET Z("USER")=$PIECE(DIA0,U,4)

 +19               SET Z("OLDVAL")=$GET(^DIA(36,DIAIEN,2))

                   SET Z("NEWVAL")=$GET(^DIA(36,DIAIEN,3))

 +20               SET Z("PLAN")=$SELECT(PLIEN:$PIECE($GET(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 +21               SET Z("INSNAME")=INSNAME

 +22      ;IB*737/DTG flag for file 36

                   SET Z("ISINS")=36

 +23      ; IB*737/DTG do not re-print if already printed

                   IF $GET(^TMP("IBPRINS",$JOB,INSIEN,DIAIEN))=1

                       QUIT 

 +24               DO ADDLN(SUB,.LN,.Z)

 +25      ; IB*737/DTG track for not re-print if already printed

                   SET ^TMP("IBPRINS",$JOB,INSIEN,DIAIEN)=1

               End DoDot:1

 +26      ;

 +27      ; if GROUP PLAN edits are to be reported then proceed with gathering edits from file 355.3, 355.32, 355.4

 +28      ; GROUP INSURANCE PLAN AUDITS

 +29       IF PLANS

               Begin DoDot:1

 +30      ;IB*737/DTG make sure DIAIEN is zero, clear item for file 36 chk

                   SET DIAIEN=0

                   SET Z("ISINS")=""

 +31               FOR 

                       SET DIAIEN=$ORDER(^DIA(355.3,"B",PLIEN,DIAIEN))

                       if 'DIAIEN

                           QUIT 

                       Begin DoDot:2

 +32                       SET DIA0=^DIA(355.3,DIAIEN,0)

                           SET DATE=$PIECE($PIECE(DIA0,U,2),".")

 +33      ; audit record outside date range

                           if DATE<DATE("START")

                               QUIT 

                           if DATE>DATE("END")

                               QUIT 

 +34                       SET FIELD=$PIECE(^DD(355.3,$PIECE(DIA0,U,3),0),U)

 +35                       SET Z("DATE")=$EXTRACT($PIECE(DIA0,U,2),1,12)

                           SET Z("FIELD")=FIELD

                           SET Z("USER")=$PIECE(DIA0,U,4)

 +36                       SET Z("OLDVAL")=$GET(^DIA(355.3,DIAIEN,2))

                           SET Z("NEWVAL")=$GET(^DIA(355.3,DIAIEN,3))

 +37                       DO ADDLN(SUB,.LN,.Z)

                       End DoDot:2

               End DoDot:1

 +38       QUIT 

 +39      ;

SELUSERS(INSNAME,INSIEN,PLIEN,LN,DATE,Z) ; procedure to gather edits for selected Users for a date range

 +1        KILL Z

 +2        NEW DIAIEN,SUB,DIA0,FIELD,USER

 +3        SET SUB=$SELECT(PLIEN:1,1:0)

 +4        SET DIAIEN=0

 +5        SET Z("PLAN")=$SELECT(PLIEN:$PIECE($GET(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 +6        SET Z("INSNAME")=INSNAME

 +7       ; INSURANCE COMPANY AUDITS

 +8        FOR 

               SET DIAIEN=$ORDER(^DIA(36,"B",INSIEN,DIAIEN))

               if 'DIAIEN

                   QUIT 

               Begin DoDot:1

 +9                SET DIA0=^DIA(36,DIAIEN,0)

                   SET DATE=$PIECE($PIECE(DIA0,U,2),".")

                   SET USER=$PIECE(DIA0,U,4)

 +10      ; not a selected user

                   if '$DATA(^TMP("IBUSER",$JOB,USER))

                       QUIT 

 +11      ; audit record outside date range

                   if DATE<DATE("START")

                       QUIT 

                   if DATE>DATE("END")

                       QUIT 

 +12               SET FIELD=$SELECT($PIECE(DIA0,U,3)=".01":"INSURANCE COMPANY",1:$PIECE(^DD(36,$PIECE(DIA0,U,3),0),U))

 +13      ;IB*737/CKB - display date & time when a specific User(s) is selected

 +14               SET Z("DATE")=$EXTRACT($PIECE(DIA0,U,2),1,12)

                   SET Z("FIELD")=FIELD

                   SET Z("USER")=USER

 +15               SET Z("OLDVAL")=$GET(^DIA(36,DIAIEN,2))

                   SET Z("NEWVAL")=$GET(^DIA(36,DIAIEN,3))

 +16               SET Z("PLAN")=$SELECT(PLIEN:$PIECE($GET(^IBA(355.3,PLIEN,2)),U),1:"NO PLANS SELECTED")

 +17               SET Z("INSNAME")=INSNAME

 +18      ;IB*737/DTG flag for file 36

                   SET Z("ISINS")=36

 +19      ; IB*737/DTG do not re-print if alredy printed

                   IF $GET(^TMP("IBPRINS",$JOB,INSIEN,DIAIEN))=1

                       QUIT 

 +20               DO ADDLN(SUB,.LN,.Z)

 +21      ; IB*737/DTG track for not re-print if alredy printed

                   SET ^TMP("IBPRINS",$JOB,INSIEN,DIAIEN)=1

               End DoDot:1

 +22      ;

 +23      ; audits from the GROUP INSURANCE PLAN are not to be reported

           if 'PLANS

               QUIT 

 +24      ; if GROUP PLAN edits are to be reported then proceed with gathering edits from file 355.3, 355.32, 355.4

 +25      ;

 +26      ; GROUP INSURANCE PLAN AUDITS

 +27      ;IB*737/DTG make sure DIAIEN is zero, clear itm for file 36

           SET DIAIEN=0

           SET Z("ISINS")=""

 +28       FOR 

               SET DIAIEN=$ORDER(^DIA(355.3,"B",PLIEN,DIAIEN))

               if 'DIAIEN

                   QUIT 

               Begin DoDot:1

 +29               SET DIA0=^DIA(355.3,DIAIEN,0)

                   SET DATE=$PIECE($PIECE(DIA0,U,2),".")

                   SET USER=$PIECE(DIA0,U,4)

 +30      ; not a selected user

                   if '$DATA(^TMP("IBUSER",$JOB,USER))

                       QUIT 

 +31      ; audit record outside date range

                   if DATE<DATE("START")

                       QUIT 

                   if DATE>DATE("END")

                       QUIT 

 +32               SET FIELD=$PIECE(^DD(355.3,$PIECE(DIA0,U,3),0),U)

 +33      ;IB*737/CKB - display date & time when a specific User(s) is selected

 +34               SET Z("DATE")=$EXTRACT($PIECE(DIA0,U,2),1,12)

                   SET Z("FIELD")=FIELD

                   SET Z("USER")=USER

 +35               SET Z("OLDVAL")=$GET(^DIA(355.3,DIAIEN,2))

                   SET Z("NEWVAL")=$GET(^DIA(355.3,DIAIEN,3))

 +36               DO ADDLN(SUB,.LN,.Z)

               End DoDot:1

 +37       QUIT 

 +38      ;

 +39      ;/vd-IB*2*664 - Beginning of new code for eIV Payer selection(s).

 +40      ;IB*737/CKB

PAYERS(ALLPLANS,ALLUSERS,LN,DATE) ; PROCESS PAYERS

 +1        NEW BDATE,DIA0,DIAIEN,EDATE,FIELD,PAYERLN,PYRAPP,PYRIEN,PYRNAME,SUB

 +2       ;

 +3        SET SUB=0

 +4       ;IB*737/DTG clear itm for file 36

           SET Z("ISINS")=""

 +5        SET BDATE=DATE("START")-.000001

           SET EDATE=DATE("END")+.999999

 +6        FOR 

               SET BDATE=$ORDER(^DIA(365.12,"C",BDATE))

               if BDATE=""

                   QUIT 

               Begin DoDot:1

 +7                IF BDATE>EDATE

                       QUIT 

 +8                SET DIAIEN=0

                   SET PAYERLN=1

 +9                FOR 

                       SET DIAIEN=$ORDER(^DIA(365.12,"C",BDATE,DIAIEN))

                       if DIAIEN=""

                           QUIT 

                       Begin DoDot:2

 +10                       NEW Z

 +11                       SET DIA0=^DIA(365.12,DIAIEN,0)

 +12      ; Get the internal Payer # and the Application

                           SET PYRIEN=+$PIECE(DIA0,U,1)

                           SET PYRAPP=$PIECE($PIECE(DIA0,U,1),",",2)

 +13      ;IB*737/CKB - only "eIV" and "IIU" Application Modifications.

 +14                       IF ($$GET1^DIQ(365.121,PYRAPP_","_PYRIEN_",",.01)'="EIV")&($$GET1^DIQ(365.121,PYRAPP_","_PYRIEN_",",.01)'="IIU")

                               QUIT 

 +15                       SET PYRNAME=$$GET1^DIQ(365.12,PYRIEN,.01)

 +16      ; Is this a selected payer?

                           IF 'ALLPYRS

                               IF '$DATA(^TMP("IBPYR",$JOB,PYRNAME,PYRIEN))

                                   QUIT 

 +17      ;IB*668/TAZ - Changed Payer Application from IIV to EIV

 +18      ;IB*737/CKB - allow for eIV and IIU Payers

 +19                       IF ('+$$PYRAPP^IBCNEUT5("EIV",PYRIEN))&('+$$PYRAPP^IBCNEUT5("IIU",PYRIEN))

                               QUIT 

 +20                       SET FIELD=$SELECT($PIECE(DIA0,U,3)="1,.03":"LOCALLY ENABLED","1,5.01":"RECEIVE IIU DATA",1:"")

 +21      ; Not the Locally Enabled or the Receive IIU Data field.

                           IF FIELD=""

                               QUIT 

 +22                       SET Z("DATE")=$PIECE(DIA0,U,2)

                           SET Z("FIELD")=FIELD

                           SET Z("USER")=$PIECE(DIA0,U,4)

 +23                       SET Z("OLDVAL")=$GET(^DIA(365.12,DIAIEN,2))

                           SET Z("NEWVAL")=$GET(^DIA(365.12,DIAIEN,3))

                           SET Z("PYRNAME")=PYRNAME

 +24                       IF 'ALLUSERS

                               IF '$DATA(^TMP("IBUSER",$JOB,Z("USER")))

                                   QUIT 

 +25                       DO ADDLN(SUB,.LN,.Z,PAYERLN)

                       End DoDot:2

               End DoDot:1

 +26       QUIT 

 +27      ;/IB*2*664 - End of new code.

 +28      ;

 +29      ;ADDLN(SUB,LN,Z) ;/vd-IB*2*664 - Replaced this line with the following line:

ADDLN(SUB,LN,Z,PAYERLN) ;

 +1       ; SUB = 0 if no group plans to be reported

 +2       ;     = 1 if group plans to be reported

 +3       ; LN = passed by reference.  Line subscript at ^TMP("IBPR",$J,PLANS,LN)

 +4       ; PAYERLN=0 if not generating a payer's line

 +5       ;        =1 if a payer's line is being generated

 +6        SET LN=LN+1

 +7       ; /vd-IB*2*664 - Replaced the following line with couple of lines below it.

 +8       ;S ^TMP("IBPR",$J,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 +9       ;I '+$G(PAYERLN) S ^TMP("IBPR",$J,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD") Q

 +10       IF '+$GET(PAYERLN)

               Begin DoDot:1

 +11               SET ^TMP("IBPR",$JOB,SUB,LN)=Z("INSNAME")_U_Z("PLAN")_U_Z("USER")_U_Z("DATE")

 +12               SET ^TMP("IBPR",$JOB,SUB,LN)=^TMP("IBPR",$JOB,SUB,LN)_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 +13      ; IB*737/DTG identify file 36 entry

                   SET ^TMP("IBPR",$JOB,SUB,LN)=^TMP("IBPR",$JOB,SUB,LN)_U_$GET(Z("ISINS"))

               End DoDot:1

               QUIT 

 +14      ;S ^TMP("IBPR2",$J,SUB,LN)=Z("PYRNAME")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 +15       SET ^TMP("IBPR2",$JOB,SUB,LN)=Z("PYRNAME")_U_Z("USER")_U_Z("DATE")_U_Z("OLDVAL")_U_Z("NEWVAL")_U_Z("FIELD")

 +16      ; IB*737/DTG identify file 36 entry

           SET ^TMP("IBPR2",$JOB,SUB,LN)=^TMP("IBPR2",$JOB,SUB,LN)_U_$GET(Z("ISINS"))

 +17       QUIT