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: MAGSDLGR

Package: Imaging

Routine: MAGSDLGR


Information

MAGSDLGR ;WOIFO/SEB - Delete Image Group ; [ 06/20/2001 08:56 ]

Source Information

Source file <MAGSDLGR.m>

Entry Points

Name Comments DBIA/ICR reference
IMGDEL
RSN
CONFIRM() ;
SHOWINFO(IEN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IMGDEL+1
Function Call: WRITE
  • Prompt: !,"Please describe why the image group is being deleted.",!," or enter ""^"" to cancel."
  • Line Location: RSN+1
Function Call: WRITE
  • Prompt: !,"Deletion Canceled. The image group was not deleted."
  • Line Location: RSN+2
Function Call: WRITE
  • Prompt: !,"Please enter a description of a few words. (more than 10 characters)",!," or enter ""^"" to cancel."
  • Line Location: RSN+3
Function Call: WRITE
  • Prompt: !,"Deletion Canceled. The image group was not deleted."
  • Line Location: RSN+4
Function Call: WRITE
  • Prompt: !,"Deleting Group Images..."
  • Line Location: RSN+5
Function Call: WRITE
  • Prompt: !!,$P(MAGGRY(0),U,2)
  • Line Location: RSN+7
Function Call: WRITE
  • Prompt: !!,"Image group deletion successful!"
  • Line Location: RSN+8
Function Call: WRITE
  • Prompt: !!,"Information on Selected Image :",!
  • Line Location: SHOWINFO+1
Function Call: WRITE
  • Prompt: !,"IMAGE ID (IEN)",?30,IEN
  • Line Location: SHOWINFO+4
Function Call: WRITE
  • Prompt: !,"# Images in Group = ",?30,+$P($G(^MAG(2005,IEN,1,0)),U,4)
  • Line Location: SHOWINFO+5
Function Call: WRITE
  • Prompt: !,"PATIENT",?30,MAGGTRG(2005,IEN_",","PATIENT","E")
  • Line Location: SHOWINFO+6
Function Call: WRITE
  • Prompt: !,"PROCEDURE",?30,MAGGTRG(2005,IEN_",","PROCEDURE","E")
  • Line Location: SHOWINFO+7
Function Call: WRITE
  • Prompt: !,"PROCEDURE/EXAM DATE/TIME",?30,MAGGTRG(2005,IEN_",","PROCEDURE/EXAM DATE/TIME","E")
  • Line Location: SHOWINFO+8
Function Call: WRITE
  • Prompt: !,"SHORT DESCRIPTION",?30,MAGGTRG(2005,IEN_",","SHORT DESCRIPTION","E")
  • Line Location: SHOWINFO+9
Function Call: WRITE
  • Prompt: !,"TYPE",?30,$G(MAGGTRG(2005,IEN_",","TYPE INDEX","E"))
  • Line Location: SHOWINFO+10
Function Call: WRITE
  • Prompt: !,"SPEC/SUBSPEC",?30,$G(MAGGTRG(2005,IEN_",","SPEC/SUBSPEC INDEX","E"))
  • Line Location: SHOWINFO+11
Function Call: WRITE
  • Prompt: !,"PROC/EVENT",?30,$G(MAGGTRG(2005,IEN_",","PROC/EVENT INDEX","E"))
  • Line Location: SHOWINFO+12
Function Call: WRITE
  • Prompt: !,"DATE/TIME IMAGE SAVED",?30,MAGGTRG(2005,IEN_",","DATE/TIME IMAGE SAVED","E")
  • Line Location: SHOWINFO+13
Function Call: WRITE
  • Prompt: !,"IMAGE SAVE BY",?30,MAGGTRG(2005,IEN_",","IMAGE SAVE BY","E")
  • Line Location: SHOWINFO+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAG(2005 - [#2005] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call