| 1 | IBCEFG41 ;ALB/TMP - OUTPUT FORMATTER MAINT - ACT PROC (CONT) ;22-JAN-96
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ELEMENT ;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
|
|---|
| 14 | ELEQ S VALMBCK="R"
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | DELETE ; 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 | ;
|
|---|
