IBCICMW.m

IBCICMW ;DSI/JSR - CLAIMSMANAGER WORKSHEET REPORT ;20-APR-2001

 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;; Program Description

 ;  This routine is a Look-upList routine that envoked ListManager

 ;  Browse Template ^IBCIBW.  

 ;  User can view the error messages for a claim in browse mode only.

 ;  Browse Mode is active during the look-up.

 ;  The data is extracted using ^IBCIWK which envokes this LM template.

 ;  The visual formating is done in ^IBCIMG.

 ;

EN ;

 S IBQUIT=0

 N I

 F I=1:1 D ASK Q:IBQUIT=1

 G Q1

ASK ; 

 S IBQUIT=0,DIC="^IBA(351.9,",DIC(0)="AEMQZ",DIC("A")="Select ClaimsManager Bill: " W !!

 D ^DIC I Y<1 S IBQUIT=1 Q

 S IBIFN=+Y D EN^IBCIWK(0)

 Q

ERR ;

 W @IOF

 W !!?10,"ClaimsManager Worksheet Report"

 W !!?5,"ClaimsManager does not have a Claims Worksheet on file for this Claim."

 W !!?5,"Claim No: "_$P(Y(0),U,1)_" Patient: "_$P($G(^DPT($P(Y(0),U,2),0)),U,1)_" Not on File"

 W !!?5,"Please verify that you entered the correct patient."

 Q

Q1 K %,IBQUIT,IBIFN,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCICMW   1093     printed  Apr 09, 2024@21:28:39                                                                                                                                                                                                     Page 2

IBCICMW   ;DSI/JSR - CLAIMSMANAGER WORKSHEET REPORT ;20-APR-2001

 +1       ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;; Program Description

 +4       ;  This routine is a Look-upList routine that envoked ListManager

 +5       ;  Browse Template ^IBCIBW.  

 +6       ;  User can view the error messages for a claim in browse mode only.

 +7       ;  Browse Mode is active during the look-up.

 +8       ;  The data is extracted using ^IBCIWK which envokes this LM template.

 +9       ;  The visual formating is done in ^IBCIMG.

 +10      ;

EN        ;

 +1        SET IBQUIT=0

 +2        NEW I

 +3        FOR I=1:1

               DO ASK

               if IBQUIT=1

                   QUIT 

 +4        GOTO Q1

ASK       ; 

 +1        SET IBQUIT=0

           SET DIC="^IBA(351.9,"

           SET DIC(0)="AEMQZ"

           SET DIC("A")="Select ClaimsManager Bill: "

           WRITE !!

 +2        DO ^DIC

           IF Y<1

               SET IBQUIT=1

               QUIT 

 +3        SET IBIFN=+Y

           DO EN^IBCIWK(0)

 +4        QUIT 

ERR       ;

 +1        WRITE @IOF

 +2        WRITE !!?10,"ClaimsManager Worksheet Report"

 +3        WRITE !!?5,"ClaimsManager does not have a Claims Worksheet on file for this Claim."

 +4        WRITE !!?5,"Claim No: "_$PIECE(Y(0),U,1)_" Patient: "_$PIECE($GET(^DPT($PIECE(Y(0),U,2),0)),U,1)_" Not on File"

 +5        WRITE !!?5,"Please verify that you entered the correct patient."

 +6        QUIT 

Q1         KILL %,IBQUIT,IBIFN,Y

 +1        QUIT