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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGDLB12

Package: Imaging

Routine: MAGDLB12


Information

MAGDLB12 ;WOIFO/LB,MLH/JSL/SAF - Routine to fix failed DICOM entries ; 04/25/2005 07:46

Source Information

Source file <MAGDLB12.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 $$FIND1^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Imaging 1 SET^MAGDLB1  
Kernel 1 OWNSKEY^XUSRB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Imaging 6 MAGDCCS  MAGDCCSD  MAGDCCSS  MAGDLB1  MAGDLB9  MAGDLBSR  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
SITE(XSITE) ; select a site for which to process entries
; input: none
; output: .XSITE site number for which to process entries
;
; return: 0 always
;
FIX(SITES,CNT) ;SUBROUTINE - Prepare to fix the entries for the user's division entries.
; Multiple divisions have images to be corrected and user has appropriate security key.
SECKEY() ;
MDIV() ;Multi-divisional flag
LKUSR(RESULT,USER) ;

External References

Name Field # of Occurrence
$$FIND1^DIC SITE+8
$$GET1^DIQ SITE+18, FIX+6
GETS^DIQ LKUSR+8
^DIR FIX+12
SET^MAGDLB1 LOOP+25
OWNSKEY^XUSRB SECKEY+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No entries for division "_$$GET1^DIQ(4,+XSITE,".01","E")
  • Line Location: SITE+18
Function Call: WRITE
  • Prompt: !,$P(RESULT,"^",2)
  • Line Location: SITE+22
Function Call: WRITE
  • Prompt: !,I,") ",$G(SITES(I))," ",$$GET1^DIQ(4,+$G(SITES(I)),".01","E")
  • Line Location: FIX+6
Routine Call
  • DIC
  • Line Location:
    • SITE+8
Routine Call
  • DIR
  • Line Location:
    • FIX+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^DIC(4 - [#4] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2006.1 - [#2006.1] MDIV+3, LKUSR+13
^MAGD(2006.575 - [#2006.575] LOOP+12, LOOP+13, LOOP+15, LOOP+16!, LOOP+20, LOOP+22, LOOP+23, SITE+7, SITE+18

Label References

Name Line Occurrences
$$MDIV SITE+13
$$SECKEY LOOP+7, SITE+13
$$SITE LOOP+10
FIX SITE+15, SITE+31
LKUSR SITE+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS LOOP+1~
ANSR LOOP+1~
CASENO LOOP+1~
CNT SITE+6~, SITE+7*, SITE+9*, SITE+11, SITE+15, SITE+25*, SITE+28*, SITE+29, SITE+30, SITE+31
, FIX~, FIX+3, FIX+4, FIX+8, FIX+9, FIX+11, FIX+13, MDIV+1~, MDIV+2*, MDIV+3*
, MDIV+4, LKUSR+6~, LKUSR+11*, LKUSR+13*, LKUSR+15, LKUSR+16*, LKUSR+17*, LKUSR+18
COMNT1 LOOP+1~
DATA LOOP+1~
DATA1 LOOP+1~
DATA2 LOOP+1~
DATE LOOP+1~
DIR FIX+2~
DIR("A" FIX+10*, FIX+11*
DIR(0 FIX+9*
DUZ SITE+20, SECKEY+2
DUZ(2 LOOP+20, SITE+16, SITE+17, LKUSR+5
EN SITE+24~, SITE+28*
FILE LOOP+1~
FIRST LOOP+1~, LOOP+8*, LOOP+24*
FIRSTS LOOP+1~
I FIX+2~, FIX+5*, FIX+6, MDIV+1~, MDIV+2*, MDIV+3*
II SITE+24~, SITE+26*, SITE+27*, SITE+28*
KFIXALL LOOP+5~, LOOP+7*, LOOP+20, SITE+6~, SITE+13*, SITE+15
MACHID LOOP+2~
MAGARRAY LKUSR+6~
MAGARRAY( LKUSR+13*, LKUSR+17
MAGDIEN LOOP+2~
MAGDV LKUSR+6~, LKUSR+13*
MAGDY LOOP+2~
MAGERR LKUSR+6~
MAGFIX LOOP+4~
MAGIEN LOOP+2~, LOOP+13*, LOOP+15, LOOP+16, LOOP+20, LOOP+22, LOOP+23, LOOP+24
MAGKY SECKEY+1~, SECKEY+4
MAGKY("MAGDFI X ALL" , SECKEY+3*
MAGOUT LKUSR+6~, LKUSR+10
MAGOUT( LKUSR+12
MAGRSLT SECKEY+1~, SECKEY+4
MAGRSLT("MAGD FIX ALL" , SECKEY+5
MAGSITE SITE+24~, SITE+31
MAGSITE( SITE+28*
MAGSITE(1 SITE+30
MAGTYPE LOOP+2~, LOOP+22*
MAGX LKUSR+6~, LKUSR+11*, LKUSR+12*, LKUSR+13
MOD LOOP+3~
MODEL LOOP+3~
MSG LOOP+2~
NEWCAS LOOP+3~
NEWDFN LOOP+3~
NEWDTI LOOP+3~
NEWDTIM LOOP+3~
NEWMUL LOOP+3~
NEWNME LOOP+3~
NEWPID LOOP+4~
NEWPIEN LOOP+3~
NEWPROC LOOP+3~
NSITE SITE+24~
NSITE( SITE+26*, SITE+28
OK LOOP+4~
OOUT LOOP+4~, LOOP+8*, LOOP+12
OUT LOOP+4~, LOOP+8*
PAT LOOP+4~
PID LOOP+4~
PP LOOP+4~
PREV LOOP+4~, LOOP+8*, LOOP+24*
PREVS LOOP+4~, LOOP+24*
REASON LOOP+4~
RESULT SITE+6~, SITE+20, SITE+22, LKUSR~
RESULT( SITE+28, LKUSR+5*, LKUSR+17*
RESULT(0 SITE+21, SITE+22, LKUSR+5*, LKUSR+7*, LKUSR+18*
SITE LOOP+4~, LOOP+10, LOOP+12, LOOP+13, LOOP+16, FIX+4*, FIX+15*
SITES SITE+6~, SITE+15, FIX~
SITES( SITE+9*, SITE+26, FIX+4, FIX+5, FIX+6, FIX+15
START LOOP+2~
>> STAT LOOP+10*
STOP LOOP+2~
STUDYUID LOOP+4~
SUID LOOP+2~, LOOP+11*, LOOP+12*, LOOP+13, LOOP+16, LOOP+24
U LOOP+20
USER LKUSR~, LKUSR+8
WHY LOOP+4~
X SITE+24~, SITE+26*, FIX+2~, LKUSR+17*
XSITE SITE~, SITE+7*, SITE+8, SITE+9, SITE+17*, SITE+18, SITE+25*, SITE+30*
Y FIX+2~, FIX+8, FIX+13, FIX+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All