Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EDPB(231.8 - [#231.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call