source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF6C.m@ 1279

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1IBDF6C ;ALB/CJM - ENCOUNTER FORM - (deleting setup, editing form name) ;JAN 16,1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4DSETUP ;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
17EDITFORM ;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
Note: See TracBrowser for help on using the repository browser.