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
Print Page as PDF
Routine: MAGSDOFF

Package: Imaging

Routine: MAGSDOFF


Information

MAGSDOFF ; OI&T-Clin3/DWM - DEX & AA Track Offline Images ; 01/31/13

Source Information

Source file <MAGSDOFF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point; called by ^MAGSDOFL; from option [MAG JB OFFLINE]
EXIT ;
DIR ; ask path & file name
PULL ; extract image file name from data saved in ^TMP($J,
; build ^TMP($J,"PLATTER",L)=file_name
SET ; LN = image file name
OFF ; import image file names into #2006.033 'OFFLINE IMAGES FILE'
UPD ; update platter report file in directory
PLAT(MAGPLAT) ; starting at 30 char length, whittle down until unique
ERR(TY,T1,T2,T3) ; error messaging
MAIL(GRP) ; add "OFFLINE IMAGE TRACKERS" and/or active member
; No update if group exist w/active local member
; If no group add it, add DUZ as member and mag server
; If group w/o active local member, add DUZ as member and mag server
KILL ; remove before release

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AA Offline Platter Utility",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Validating mail group '"_GRP_"'..."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?7,$P(MAILCHK,U,I)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Extracting data from "_FILE_"..."
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: "completed.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"No files to take offline - "
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: "platter report will not be modified",!!
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !!,"Unable to create unique report platter name 30 characters or less"
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+2
Function Call: WRITE
  • Prompt: !,"Pulling image file names from report data",!
  • Line Location: PULL+3
Function Call: WRITE
  • Prompt: !,"completed - "_CNT_" file names found.",!
  • Line Location: PULL+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !,"Updating the individual image files as 'offline'"
  • Line Location: OFF+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: OFF+20
Function Call: WRITE
  • Prompt: !,"Done - "_CNT1_" entries added to #2006.033"
  • Line Location: OFF+31
Function Call: WRITE
  • Prompt: !,DUP_" duplicate(s) not added"
  • Line Location: OFF+34
Function Call: WRITE
  • Prompt: !!,"Creating new platter report "_MAGPLAT
  • Line Location: UPD+2
Function Call: WRITE
  • Prompt: !!,"Reformatting platter report "_MAGPLAT
  • Line Location: UPD+3
Function Call: WRITE
  • Prompt: !!,"No platter data available for updating of report!"
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: !!,"Unable to create/update platter report",!
  • Line Location: UPD+13
Function Call: WRITE
  • Prompt: PATH_FILE
  • Line Location: UPD+13
Function Call: WRITE
  • Prompt: !,"Finished"
  • Line Location: UPD+14
Function Call: WRITE
  • Prompt: !,"Original report name is greater than the allowed 30 characters,"
  • Line Location: PLAT+2
Function Call: WRITE
  • Prompt: !,?5,"a new name for the report will be generated for #2006.033."
  • Line Location: PLAT+3
Function Call: WRITE
  • Prompt: !!,"Unable to pull data from "_T1
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !!,"Unable to add "_LN_" as an offline image",!
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: !!,"Unable to access "_T2_T1
  • Line Location: ERR+7
Info |  Source |  Entry Points |  Interaction Calls