Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: EDPBDL

Package: Emergency Department Integration Software

Routine: EDPBDL


Information

EDPBDL ;SLC/KCM - Delete/Inactivate Config Entries ;2/28/12 08:33am

Source Information

Source file <EDPBDL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Kernel 1 $$STA^XUAF4  

Entry Points

Name Comments DBIA/ICR reference
BED ; Delete Room/Area entries
LKBED(AREA) ; Lookup a bed
DELBED(IEN) ; Delete bed if nothing references it, otherwise inactivate
BEDUSED(IEN) ; Return true if log entry references bed
BOARD ; Delete Board entries
CODE ; Delete Selection entries
LKSEL(AREA) ; Choose selection list for deletion
DELCODE(SET,DA) ; Delete from inside selection multiple
SETAREA(AREA) ; Set to default area for institution in DUZ(2)

External References

Name Field # of Occurrence
^DIC LKBED+4, CODE+11
^DIE DELBED+5
^DIK DELBED+7, DELCODE+3
^DIR LKSEL+7
$$STA^XUAF4 LKSEL+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"EDIS Delete Room-Bed Tool",!
  • Line Location: BED+3
Function Call: WRITE
  • Prompt: !,"This will delete or inactivate an entry from the TRACKING ROOM-BED file."
  • Line Location: BED+4
Function Call: WRITE
  • Prompt: !,"This may take time, as it must search for usage of the Room-Bed entry."
  • Line Location: BED+5
Function Call: WRITE
  • Prompt: !,"If the entry has been referenced, it will be inactivated."
  • Line Location: BED+6
Function Call: WRITE
  • Prompt: !,"Otherwise the entry will be deleted.",!
  • Line Location: BED+7
Function Call: WRITE
  • Prompt: !,NM," inactivated and renamed 'Z"_NM_"'.",!
  • Line Location: DELBED+5
Function Call: WRITE
  • Prompt: !,$S($D(^EDPB(231.8,DA,0)):" not",1:"")_" deleted.",!
  • Line Location: DELBED+8
Function Call: WRITE
  • Prompt: !,"Searching for usages of ",$P(^EDPB(231.8,IEN,0),U)
  • Line Location: BEDUSED+1
Function Call: WRITE
  • Prompt: "...found"
  • Line Location: BEDUSED+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: BEDUSED+6
Function Call: WRITE
  • Prompt: !,"EDIS Delete Selection Tool",!
  • Line Location: CODE+3
Function Call: WRITE
  • Prompt: !,"This will delete a locally defined selection from"
  • Line Location: CODE+4
Function Call: WRITE
  • Prompt: !,"an EDIS selection list.",!
  • Line Location: CODE+5
Function Call: WRITE
  • Prompt: !,"Cannot delete nationally defined item."
  • Line Location: CODE+14
Function Call: WRITE
  • Prompt: !,"No locally defined selections found."
  • Line Location: LKSEL+15
Function Call: WRITE
  • Prompt: !,$P(^EDPB(233.2,SET,1,DA,0),U,4)
  • Line Location: DELCODE+2
Function Call: WRITE
  • Prompt: " ",$S($D(^EDPB(233.2,SET,1,DA,0)):" not",1:"")," deleted",!
  • Line Location: DELCODE+4
Function Call: WRITE
  • Prompt: !,"No tracking area is configured."
  • Line Location: SETAREA+2
Routine Call
  • DIC
  • Line Location:
    • LKBED+4
    • CODE+11
Routine Call
  • DIE
  • Line Location:
    • DELBED+5
Routine Call
  • DIR
  • Line Location:
    • LKSEL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EDPB(231.8 - [#231.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EDP(230.1 - [#230.1] BEDUSED+4, BEDUSED+5
^EDPB(231.8 - [#231.8] DELBED+2, DELBED+8, BEDUSED+1
^EDPB(231.9 - [#231.9] SETAREA+1
^EDPB(233.1 - [#233.1] CODE+13
^EDPB(233.2 - [#233.2] CODE+13, LKSEL+14, DELCODE+2, DELCODE+4

Label References

Name Line Occurrences
$$BEDUSED DELBED+3
$$LKBED BED+8
$$LKSEL CODE+6
DELBED BED+8
DELCODE CODE+15
SETAREA BED+2, CODE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AREA BED+1~, BED+2, BED+8, LKBED~, CODE+1~, CODE+2, CODE+6, LKSEL~, SETAREA~, SETAREA+1*
, SETAREA+2
COUNT BEDUSED+2~, BEDUSED+3*, BEDUSED+6*
DA DELBED+1~, DELBED+4*, DELBED+7*, DELBED+8, DELCODE~, DELCODE+2, DELCODE+4
DA(1 DELCODE+3*
DIC LKBED+1~, LKBED+2*, CODE+8~, CODE+9*
DIC("S" LKBED+3*
DIC("W" CODE+10*
DIC(0 LKBED+2*, CODE+9*
DIE DELBED+1~, DELBED+4*
DIK DELBED+1~, DELBED+7*, DELCODE+1~, DELCODE+3*
DIR LKSEL+1~
DIR("A" LKSEL+3*, LKSEL+4*, LKSEL+5*, LKSEL+6*
DIR(0 LKSEL+2*
DIRUT LKSEL+1~
DR DELBED+1~, DELBED+4*
DTOUT LKBED+1~, DELBED+1~, CODE+8~, LKSEL+1~
DUOUT LKBED+1~, DELBED+1~, CODE+8~, LKSEL+1~
DUZ(2 LKSEL+13, SETAREA+1
FOUND BEDUSED+2~, BEDUSED+3*, BEDUSED+4, BEDUSED+5*, BEDUSED+7
I BEDUSED+2~, BEDUSED+3*, BEDUSED+4*, BEDUSED+5
IEN BED+1~, BED+8*, DELBED~, DELBED+2, DELBED+3, DELBED+4, DELBED+7, BEDUSED~, BEDUSED+1, BEDUSED+5
, LKSEL+10~, LKSEL+14*, LKSEL+15, LKSEL+16
NM DELBED+1~, DELBED+2*, DELBED+4, DELBED+5, CODE+8~, CODE+13*, CODE+14
SET CODE+1~, CODE+6*, CODE+9, CODE+13, CODE+15, DELCODE~, DELCODE+2, DELCODE+3, DELCODE+4
SETNM LKSEL+10~, LKSEL+11*, LKSEL+12, LKSEL+13*, LKSEL+14
U DELBED+2, BEDUSED+1, BEDUSED+5, CODE+13, DELCODE+2
X LKBED+1~, CODE+8~, LKSEL+1~
X0 CODE+8~, CODE+13*
Y LKBED+1~, LKBED+5, CODE+8~, CODE+12, CODE+13, CODE+15, LKSEL+1~, LKSEL+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All