source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEFG41.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.5 KB
Line 
1IBCEFG41 ;ALB/TMP - OUTPUT FORMATTER MAINT - ACT PROC (CONT) ;22-JAN-96
2 ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
3 ;
4ELEMENT ;Add/Edit Local Data Elements
5 D FULL^VALM1
6 N DIC,DIE,DR,DA,Y,Z,DINUM,LDINUM
7 S LDINUM=$O(^IBA(364.5,"A"),-1) S:LDINUM<100000 LDINUM=99999
8 F LDINUM=LDINUM+1:1 L +^IBA(364.5,LDINUM):1 I $T S DINUM=LDINUM Q
9 S DIC("A")="Select LOCAL DATA ELEMENT Name: ",DIC("S")="I $P($G(^(0)),U,2)=""L""",DIC="^IBA(364.5,",DIC(0)="AELMQ",DIC("DR")=".02////L",DLAYGO=364.5 D ^DIC K DIC,DLAYGO G:Y<0 ELEQ
10 I $P(Y,U,3),$E(^IBA(364.5,+Y,0),1,2)="N-" W !,"ONLY NATIONAL FIELDS CAN BEGIN WITH 'N-'" S DA=+Y,DIK="^IBA(364.5," D ^DIK G ELEMENT
11 S $P(^IBA(364.5,0),U,3)=$O(^IBA(364.5,9999),-1) L -^IBA(364.5,LDINUM)
12 K DINUM
13 S DIE="^IBA(364.5,",DR="[IBCE DEFINE LOCAL ELEMENT]",DA=+Y D ^DIE
14ELEQ S VALMBCK="R"
15 Q
16 ;
17DELETE ; Delete form
18 N DIR,Y,IBDA,IBDA1,IBF
19 D FULL^VALM1
20 I $G(IBCEXDA) D
21 .S IBF=$P($G(^IBE(353,IBCEXDA,0)),U)
22 .K DIR S DIR(0)="YA",DIR("A")="Are you sure you want to DELETE LOCAL FORM - "_IBF_": ",DIR("B")="NO",DIR("A",1)="If you choose to delete this form, the form's field content definitions will also be deleted" D ^DIR K DIR
23 .Q:$D(DIRUT)!('Y)
24 .S IBDA=0 F S IBDA=$O(^IBA(364.6,"B",IBCEXDA,IBDA)) Q:'IBDA D
25 ..S IBDA1=0 F S IBDA1=$O(^IBA(364.7,"B",IBDA,IBDA1)) D Q:'IBDA1
26 ...I 'IBDA1 S DIK="^IBA(364.6,",DA=IBDA D ^DIK Q
27 ...S DIK="^IBA(364.7,",DA=IBDA1 D ^DIK
28 .S DIK="^IBE(353,",DA=IBCEXDA D ^DIK
29 .W !!,"Form ",IBF," Deleted" D PAUSE^VALM1
30 S VALMBCK=$S($D(^IBE(353,+$G(IBCEXDA))):"R",1:"Q")
31 Q
32 ;
Note: See TracBrowser for help on using the repository browser.