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

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^DIC(4 - [#4] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call