source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNSD1.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1IBCNSD1 ;ALB/NLR - BU EDIT TEMPLATES ; 10-JUN-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5ED(IBE) ;
6 D SAVEBU
7 S DIE="^IBA(355.5,",DA=IBCBU
8 S DR=IBE
9 L +^IBA(355.5,+IBCBU):5 I '$T D LOCKED^IBTRCD1 G EDQ
10 D ^DIE K DIE
11 D COMP
12 I IBDIF=1 D EDUP
13EDQ L -^IBA(355.5,+IBCBU)
14 D EXIT
15 Q
16 ;
17SAVEBU ;
18 K ^TMP($J,"IBBU")
19 S ^TMP($J,"IBBU",355.5,IBCBU,0)=$G(^IBA(355.5,IBCBU,0))
20 S ^TMP($J,"IBBU",355.5,IBCBU,1)=$G(^IBA(355.5,IBCBU,1))
21 Q
22COMP ;
23 S IBDIF=0
24 I $G(^IBA(355.5,DA,0))'=^TMP($J,"IBBU",355.5,DA,0) S IBDIF=1 Q
25 I $G(^IBA(355.5,DA,1))'=^TMP($J,"IBBU",355.5,DA,1) S IBDIF=1 Q
26 Q
27EDUP ; -- enter date and user if editing has taken place
28 S DIE="^IBA(355.5,",DA=IBCBU
29 S DR="1.05///NOW;1.06////"_DUZ
30 D ^DIE K DIE
31 Q
32CY ;
33 S IBYR1=IBYR K IBYR D INIT^IBCNSD
34 I $D(VALMQUIT) S IBYR=IBYR1 K VALMQUIT D EXITRP
35 I IBYR=IBYR1 D
36 .K IBYR1,VALMQUIT D EXITRP
37 E D EXIT
38 Q
39 ;
40EXIT I $G(IBDIF) D HDR^IBCNSA("Benefits Used"),BLD^IBCNSD
41EXITRP S VALMBCK="R"
42 Q
Note: See TracBrowser for help on using the repository browser.