©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBDFU2C ;ALB/CJM - ENCOUNTER FORM - (COPYING FORMS) ;AUG12,1993
Source file <IBDFU2C.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 5 | KILLTBL^IBDF19 $$FORMDSCR^IBDFU1C $$COPYBLK^IBDFU2 DLTBLK^IBDFU3 ($$RUSURE,PAUSE)^IBDFU5 |
| VA Fileman | 3 | FILE^DICN (,EN1,IX,IX1)^DIK ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COPYFORM(OLDFORM,FROMFILE,TOFILE,NEWNAME,TK) | ;
|
|
| NEWNAME(OLDNAME) | ;asks the user to select a unique form name
|
|
| TKFORM() | ;returns the form TOOL KIT that contains all of the tool kit blocs
|
|
| DELETE(FORM,FILE,ASK) | ;deletes the FORM in FILE- if ASK then asks permission first
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | COPYFORM+14, TKFORM+5 |
| ^DIK | DELETE+12 |
| EN1^DIK | TKFORM+12 |
| IX^DIK | COPYFORM+35 |
| IX1^DIK | COPYFORM+23, TKFORM+9 |
| ^DIR | NEWNAME+8 |
| KILLTBL^IBDF19 | DELETE+8 |
| $$FORMDSCR^IBDFU1C | DELETE+7 |
| $$COPYBLK^IBDFU2 | COPYFORM+38 |
| DLTBLK^IBDFU3 | COPYFORM+24, DELETE+10 |
| $$RUSURE^IBDFU5 | DELETE+3 |
| PAUSE^IBDFU5 | COPYFORM+16 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357 - [#357] | Classic Fileman Calls |
| ^IBE(357.1 - [#357.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE( | COPYFORM+8, COPYFORM+21, COPYFORM+22, COPYFORM+23!, COPYFORM+27*, COPYFORM+30, COPYFORM+31*, COPYFORM+34*, COPYFORM+38, DELETE+3 , DELETE+10 |
| ^IBE(357 - [#357] | DELETE+11!, NEWNAME+9, TKFORM+2, TKFORM+8* |
| ^IBE(357.1 - [#357.1] | TKFORM+10, TKFORM+11!, TKFORM+12!* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASK | DELETE~, DELETE+3 |
| BLKFILE | DELETE+4~, DELETE+9*, DELETE+10 |
| BLOCK | COPYFORM+7~, COPYFORM+21*, COPYFORM+22, COPYFORM+23, COPYFORM+24, DELETE+4~, DELETE+10*, TKFORM+1~, TKFORM+10*, TKFORM+11 , TKFORM+12 |
| CR | DELETE+4~, DELETE+11* |
| DA | COPYFORM+23!*, COPYFORM+35*, DELETE+12!*, TKFORM+5!, TKFORM+9*, TKFORM+12* |
| DD | COPYFORM+13!, TKFORM+4! |
| DIC | COPYFORM+13!*, COPYFORM+14!, TKFORM+4!*, TKFORM+5! |
| DIC(0 | COPYFORM+13*, TKFORM+4* |
| DIE | COPYFORM+14!, TKFORM+5! |
| DIK | COPYFORM+23*!, COPYFORM+35!*, DELETE+12*!, TKFORM+9!*, TKFORM+12!* |
| DIK(1 | TKFORM+12* |
| DINUM | COPYFORM+13!, TKFORM+4! |
| DIR | NEWNAME+5!, NEWNAME+12! |
| DIR("?" | NEWNAME+5* |
| DIR("A" | NEWNAME+5* |
| DIR("B" | NEWNAME+6* |
| DIR(0 | NEWNAME+5* |
| >> DIRUT | NEWNAME+8 |
| DO | COPYFORM+13!, TKFORM+4! |
| FILE | DELETE~, DELETE+2, DELETE+3, DELETE+6, DELETE+9, DELETE+11, DELETE+12 |
| FORM | DELETE~, DELETE+1, DELETE+3, DELETE+7, DELETE+8, DELETE+10, DELETE+11, DELETE+12, DELETE+13!, TKFORM+12* |
| FORM("TYPE" | DELETE+8 |
| FROM | COPYFORM+7~, COPYFORM+19*, COPYFORM+38 |
| FROMFILE | COPYFORM~, COPYFORM+3, COPYFORM+4, COPYFORM+8, COPYFORM+19, COPYFORM+30, COPYFORM+31, COPYFORM+34 |
| IBDELETE | COPYFORM+7~ |
| >> IBE(357 | NEWNAME+6 |
| NAME | NEWNAME+4~*, NEWNAME+11*, NEWNAME+13 |
| NEWBLOCK | COPYFORM+7~, COPYFORM+38* |
| NEWFORM | COPYFORM+7~, COPYFORM+15*, COPYFORM+16, COPYFORM+21, COPYFORM+22, COPYFORM+23, COPYFORM+24, COPYFORM+27, COPYFORM+31, COPYFORM+34 , COPYFORM+35, COPYFORM+38, COPYFORM+39 |
| NEWNAME | COPYFORM~, COPYFORM+9, COPYFORM+10*, COPYFORM+13 |
| NODE | COPYFORM+7~, COPYFORM+8*, COPYFORM+9*, COPYFORM+10, COPYFORM+11*, COPYFORM+12*, COPYFORM+27, COPYFORM+30*, COPYFORM+31*, COPYFORM+34* |
| OLDBLOCK | COPYFORM+7~, COPYFORM+38* |
| OLDFORM | COPYFORM~, COPYFORM+3, COPYFORM+6, COPYFORM+8, COPYFORM+30, COPYFORM+31, COPYFORM+34, COPYFORM+38 |
| OLDNAME | NEWNAME~, NEWNAME+6 |
| PAGE | COPYFORM+7~, COPYFORM+31* |
| QUIT | NEWNAME+4~*, NEWNAME+7, NEWNAME+8*, NEWNAME+11* |
| TK | COPYFORM~, COPYFORM+11, TKFORM+1~, TKFORM+11* |
| TKFORM | TKFORM+1~, TKFORM+2*, TKFORM+3, TKFORM+6*, TKFORM+7, TKFORM+8, TKFORM+9, TKFORM+12, TKFORM+13 |
| TKORDER | TKFORM+1~, TKFORM+10*, TKFORM+11 |
| TO | COPYFORM+7~, COPYFORM+20*, COPYFORM+22, COPYFORM+23, COPYFORM+24, COPYFORM+38 |
| TOFILE | COPYFORM~, COPYFORM+3, COPYFORM+5, COPYFORM+13, COPYFORM+20, COPYFORM+21, COPYFORM+27, COPYFORM+31, COPYFORM+34, COPYFORM+35 |
| >> X | COPYFORM+13*, TKFORM+4* |
| >> Y | COPYFORM+15, NEWNAME+9, NEWNAME+11, TKFORM+6 |