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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 MSG^DIALOG  UPDATE^DIE  ^DIR  
MailMan 2 $$MG^XMBGRP  ($$GOTLOCAL,ADDMBRS)^XMXAPIG  
Kernel 1 ($$FTG,$$GTF)^%ZISH  

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

External References

Name Field # of Occurrence
$$FTG^%ZISH EN+16
$$GTF^%ZISH UPD+12
MSG^DIALOG ERR+5
UPDATE^DIE OFF+25
^DIR DIR+4, DIR+7
$$MG^XMBGRP MAIL+18
$$GOTLOCAL^XMXAPIG MAIL+7
ADDMBRS^XMXAPIG MAIL+27

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
Routine Call
  • DIALOG
  • Line Location:
    • ERR+5
Routine Call
  • DIE
  • Line Location:
    • OFF+25
Routine Call
  • DIR
  • Line Location:
    • DIR+4
    • DIR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGQUEUE(2006.033 - [#2006.033] OFF+12, OFF+13, OFF+14, PLAT+8, KILL+1!, KILL+2*
^TMP($J EN+2!, EN+16, EN+18, EN+23, EXIT+2!, PULL+4, PULL+5, SET+2*, OFF+8, OFF+9
, UPD+4, UPD+8*, UPD+9, UPD+10*, UPD+12
^VA(200 - [#200] MAIL+35, MAIL+39
^XMB(3.8 - [#3.8] MAIL+7, MAIL+8, MAIL+9, MAIL+26, MAIL+28

Label References

Name Line Occurrences
$$MAIL EN+8
$$PLAT OFF+5
DIR EN+11
ERR EN+17, EN+18, OFF+29
EXIT EN+17, EN+18, EN+29
OFF EN+28
PULL EN+22
SET PULL+8, PULL+16
UPD EN+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHKG MAIL+5~, MAIL+7*, MAIL+12, MAIL+33
CHKM MAIL+5~, MAIL+7*, MAIL+12
CNT PULL+2~, PULL+4*, PULL+19, SET+1*, SET+2, OFF+1~, OFF+3*, OFF+20*
CNT1 OFF+1~, OFF+3*, OFF+28*, OFF+31
DESC MAIL+5~, MAIL+18
DESC(1 MAIL+16*, MAIL+17*
DIERR OFF+2~, OFF+28
DIR EN+1~, EN+2!, DIR+1~, DIR+4!, DIR+7!
DIR("A" DIR+3*, DIR+6*
DIR(0 DIR+2*, DIR+5*
DUP OFF+2~, OFF+3*, OFF+16*, OFF+34
DUZ MAIL+13, MAIL+15, MAIL+27, MAIL+35, MAIL+39
ENR MAIL+5~, MAIL+15*, MAIL+18
FILE EN+1~, EN+12, EN+15, EN+16, EN+17, EN+18, EXIT+2!, DIR+7*, OFF+5, UPD+2
, UPD+12*, UPD+13
GRP EN+1~, EN+6*, EN+7, EN+8, MAIL~, MAIL+6, MAIL+7, MAIL+12, MAIL+18, MAIL+20
, MAIL+27, MAIL+30, MAIL+34, MAIL+40
GRPIEN MAIL+5~, MAIL+22*, MAIL+26, MAIL+28
I EN+1~, EN+3*, EN+8*, DIR+1~, OFF+2~, PLAT+1~, PLAT+5*, PLAT+6
INT MAIL+5~, MAIL+15*, MAIL+18
L EN+1~, PULL+2~, PULL+4*, PULL+5, OFF+1~, OFF+3*, OFF+8*, OFF+9
LAST UPD+1~, UPD+9*, UPD+10
LAST1 UPD+1~, UPD+9*, UPD+10
LN EN+1~, PULL+2~, PULL+5*, PULL+7, PULL+8*, PULL+11, PULL+13, PULL+14*, PULL+15*, SET+2
, OFF+1~, OFF+9*, OFF+12, OFF+13, OFF+23, OFF+29, ERR+4
MAGERR OFF+29!
MAGFDA OFF+1~
MAGFDA( OFF+23*, OFF+24*
MAGFL OFF+1~, OFF+3*, OFF+23, OFF+24
MAGIEN OFF+1~, OFF+22!*, OFF+23, OFF+24
MAGMAIL MAIL+5~, MAIL+8*, MAIL+9, MAIL+27, MAIL+29
MAGPLAT EN+1~, EN+29, EXIT+2!, OFF+5*, OFF+6, OFF+16, OFF+24, UPD+2, UPD+3, UPD+8
, UPD+12, PLAT~, PLAT+5, PLAT+6, PLAT+9*, PLAT+12, PLAT+14
MAGPLAT1 OFF+2~
MAGPLAT30 PLAT+1~, PLAT+4*, PLAT+5, PLAT+6*, PLAT+8, PLAT+9, PLAT+12
MAGSVR MAIL+5~, MAIL+9*, MAIL+26, MAIL+28
MAILCHK EN+1~, EN+8*
MRK OFF+2~, OFF+12*, OFF+16*
N EN+1~, PULL+2~, PULL+15*
OIEN OFF+2~, OFF+13*, OFF+14
ORG MAIL+5~, MAIL+15*, MAIL+18
PATH EN+1~, EN+12, EN+16, EN+17, EXIT+2!, DIR+4*, UPD+12, UPD+13
RES MAIL+5~
RES(1 MAIL+19, MAIL+20*, MAIL+33, MAIL+34*, MAIL+39*, MAIL+40*, MAIL+41
RES(2 MAIL+19, MAIL+21*, MAIL+33, MAIL+35*, MAIL+36*
RES(3 MAIL+25*, MAIL+29*, MAIL+33, MAIL+41
RES(4 MAIL+25*, MAIL+30*, MAIL+41
RPT OFF+2~, OFF+14*, OFF+16
T1 ERR~, ERR+2, ERR+7, ERR+8!
T2 ERR~, ERR+7, ERR+8!
T3 ERR~, ERR+5!
TY ERR~, ERR+1, ERR+2, ERR+3, ERR+8!
TYPE MAIL+5~, MAIL+15*, MAIL+18
U EN+8, OFF+14, MAIL+19, MAIL+33, MAIL+35, MAIL+39, MAIL+41
X EN+1~
XMY MAIL+5~, MAIL+18
XMY( MAIL+15*
XX EN+1~, PULL+2~, PULL+15*
Y EN+1~, EN+16*, EN+17, DIR+1~, DIR+4, DIR+7, UPD+1~, UPD+12*, UPD+13, MAIL+5~
, MAIL+18*, MAIL+19, MAIL+22
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All