source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCICMW.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1IBCICMW ;DSI/JSR - CLAIMSMANAGER WORKSHEET REPORT ;20-APR-2001
2 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;; Program Description
5 ; This routine is a Look-upList routine that envoked ListManager
6 ; Browse Template ^IBCIBW.
7 ; User can view the error messages for a claim in browse mode only.
8 ; Browse Mode is active during the look-up.
9 ; The data is extracted using ^IBCIWK which envokes this LM template.
10 ; The visual formating is done in ^IBCIMG.
11 ;
12EN ;
13 S IBQUIT=0
14 N I
15 F I=1:1 D ASK Q:IBQUIT=1
16 G Q1
17ASK ;
18 S IBQUIT=0,DIC="^IBA(351.9,",DIC(0)="AEMQZ",DIC("A")="Select ClaimsManager Bill: " W !!
19 D ^DIC I Y<1 S IBQUIT=1 Q
20 S IBIFN=+Y D EN^IBCIWK(0)
21 Q
22ERR ;
23 W @IOF
24 W !!?10,"ClaimsManager Worksheet Report"
25 W !!?5,"ClaimsManager does not have a Claims Worksheet on file for this Claim."
26 W !!?5,"Claim No: "_$P(Y(0),U,1)_" Patient: "_$P($G(^DPT($P(Y(0),U,2),0)),U,1)_" Not on File"
27 W !!?5,"Please verify that you entered the correct patient."
28 Q
29Q1 K %,IBQUIT,IBIFN,Y
30 Q
Note: See TracBrowser for help on using the repository browser.