| [613] | 1 | IBDF6C ;ALB/CJM - ENCOUNTER FORM - (deleting setup, editing form name) ;JAN 16,1993
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | DSETUP ;allows user to select a form, then removes it from the clinic setup
|
|---|
| 5 | N SEL,IBFORM,SETUP
|
|---|
| 6 | D EN^VALM2($G(XQORNOD(0)),"S")
|
|---|
| 7 | S SEL=$O(VALMY("")),(IBFORM,VALMBCK)=""
|
|---|
| 8 | I SEL S SEL=$G(@VALMAR@("IDX",2*SEL,SEL)),IBFORM=+SEL
|
|---|
| 9 | I IBFORM D
|
|---|
| 10 | .S VALMBCK="R"
|
|---|
| 11 | .K DA S DA=$O(^SD(409.95,"B",+$G(IBCLINIC),"")) Q:'DA
|
|---|
| 12 | .S SETUP=$G(^SD(409.95,DA,0)) Q:SETUP=""
|
|---|
| 13 | .S DR=$P(SEL,"^",2)_"////@"
|
|---|
| 14 | .K DIE S DIE=409.95 D ^DIE K DIE,DR,DA
|
|---|
| 15 | .X IBAPI("INDEX")
|
|---|
| 16 | Q
|
|---|
| 17 | EDITFORM ;allows user to select a form, then edit its name, description, and size
|
|---|
| 18 | N IBFORM,IBDELETE,IBSCAN,IBOLD ;IBDELETE,IBSCAN,IBOLD appear in the input template
|
|---|
| 19 | I $G(IBAPI("SELECT"))'="" X IBAPI("SELECT")
|
|---|
| 20 | S VALMBCK="R"
|
|---|
| 21 | I IBFORM D
|
|---|
| 22 | .D UNCMPALL^IBDF19(IBFORM)
|
|---|
| 23 | .D FULL^VALM1
|
|---|
| 24 | .S VALMBCK="R"
|
|---|
| 25 | .K DA,DR,DIE S DA=IBFORM
|
|---|
| 26 | .S DR="[IBDF EDIT OLD OR COPIED FORM]"
|
|---|
| 27 | .S IBOLD=$S($P($G(^IBE(357,IBFORM,0)),"^",16):0,1:1)
|
|---|
| 28 | .S DIE=357 D ^DIE K DIE,DR,DA
|
|---|
| 29 | .X IBAPI("INDEX")
|
|---|
| 30 | Q
|
|---|
