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

Package: Imaging

Routine: MAGXCVX


Information

MAGXCVX ;WOIFO/SEB,MLH - Image File Conversion Export ; 24 Mar 2005 11:00 AM

Source Information

Source file <MAGXCVX.m>

Entry Points

Name Comments DBIA/ICR reference
EXPORT
EX1
ERR ; Reached when an error (including end-of-file) occurs.
EXDONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter a file name, including the path, of the file to export."
  • Line Location: EX1+2
Function Call: WRITE
  • Prompt: !!,"No filename entered. Goodbye!"
  • Line Location: EX1+4
Function Call: WRITE
  • Prompt: !,"Unable to open "_FNAME_" for output. Please try again."
  • Line Location: EX1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EX1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EX1+11
Function Call: WRITE
  • Prompt: "Image IEN",$C(9),"Short Description",$C(9),"Procedure",$C(9),"Parent Data File",$C(9)
  • Line Location: EX1+11
Function Call: WRITE
  • Prompt: "Document Category",$C(9),"Object Type",$C(9),"Save By Group",$C(9)
  • Line Location: EX1+12
Function Call: WRITE
  • Prompt: "Package",$C(9),"Class",$C(9),"Type",$C(9),"Specialty",$C(9),"Proc/Event",$C(9),"Origin",!
  • Line Location: EX1+13
Function Call: WRITE
  • Prompt: MAGIEN
  • Line Location: EX1+41
Function Call: WRITE
  • Prompt: $C(9),$G(MAGVALS(FLDNUM,"E"))
  • Line Location: EX1+41
Function Call: WRITE
  • Prompt: $C(9),$G(UTYPE)
  • Line Location: EX1+42
Function Call: WRITE
  • Prompt: $C(9),$P(MAGDATA,U,2)
  • Line Location: EX1+44
Function Call: WRITE
  • Prompt: $P(MAGDATA,U,3),"-",$P($G(^MAG(2005.82,$P(MAGDATA,U,3),0)),U)
  • Line Location: EX1+45
Function Call: WRITE
  • Prompt: $P(MAGDATA,U,4),"-",$P($G(^MAG(2005.83,$P(MAGDATA,U,4),0)),U)
  • Line Location: EX1+46
Function Call: WRITE
  • Prompt: $P(MAGDATA,U,6),"-",$P($G(^MAG(2005.84,$P(MAGDATA,U,6),0)),U)
  • Line Location: EX1+47
Function Call: WRITE
  • Prompt: $P(MAGDATA,U,5),"-",$P($G(^MAG(2005.85,$P(MAGDATA,U,5),0)),U)
  • Line Location: EX1+48
Function Call: WRITE
  • Prompt: INT_"-"_$G(EXT(0))
  • Line Location: EX1+52
Function Call: WRITE
  • Prompt: !
  • Line Location: EX1+54
Function Call: WRITE
  • Prompt: "***end***",!
  • Line Location: EX1+56
Function Call: WRITE
  • Prompt: !,"Done exporting generated index values."
  • Line Location: EXDONE+1

FileMan Files Accessed Via FileMan Db Call

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