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 ---[H[J[2J[HIBCICMW 1093 printed Nov 22, 2024@17:23:21 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
