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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGDMEDL

Package: Imaging

Routine: MAGDMEDL


Information

MAGDMEDL ;WOIFO/LB - Routine to look up entries in the Medicine files ; 06/06/2007 09:42

Source Information

Source file <MAGDMEDL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 $$FIND1^DIC  ^DIR  
Imaging 1 DICOMID^MAGDMEDI  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Imaging 1 MAGDMEDJ  

Entry Points

Name Comments DBIA/ICR reference
SELECT(ITEM,ARRAY) ;
LOOP(ARRAY,MAGPAT,SUB,CASEDT) ;
; MAGPAT = patient's dfn
; SUB = Medicine specialty
; CASEDT = case date
; array(0)= 1 or 0 ^ # entries found ^ message text
; array(#)= formatted out display without delimiters
; array(#,1) = internal stored values
; Variable MAGDIMG
DISPLAY(ARRAY) ;
; Call routine needs to pass array in the following sequence
; ARRAY(0)= 1 or 0 ^ #entries ^ message
; ARRAY(#)= Formatted output to be displayed.
; Will set the RES variable for selected entry.
HEAD ;
LINE ;
ASKQ ;
ASKMORE() ;

External References

Name Field # of Occurrence
$$FIND1^DIC LOOP+13
^DIR SELECT+6, ASKQ+3, ASKMORE+6, ASKMORE+9
DICOMID^MAGDMEDI LOOP+29
$$FMADD^XLFDT LOOP+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please select an entry or use '^' to exit"
  • Line Location: SELECT+10
Function Call: WRITE
  • Prompt: !,"You have selected ",$P(ARRAY(ENTRY),"^"),"."
  • Line Location: SELECT+11
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+3>IOSL
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,MSG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,ENTRY,".) "_OUTPUT
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !,"Please select an entry or '^' to exit"
  • Line Location: ASKQ+7
Function Call: WRITE
  • Prompt: !,"You have selected ",$P($G(ARRAY(ITEM)),"^")
  • Line Location: ASKQ+8
Function Call: WRITE
  • Prompt: !,"Search will include 3 days prior to the day specified."
  • Line Location: ASKMORE+8
Function Call: WRITE
  • Prompt: "No entries found."
  • Line Location: ASKMORE+15
Routine Call
  • DIC
  • Line Location:
    • LOOP+13
Routine Call
  • DIR
  • Line Location:
    • SELECT+6
    • ASKQ+3
    • ASKMORE+6
    • ASKMORE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LOOP+14
^MAG(2005 - [#2005] LOOP+26, LOOP+27

Label References

Name Line Occurrences
ASKQ DISPLAY+17, DISPLAY+18, ASKQ+7
HEAD DISPLAY+12, DISPLAY+16
LINE DISPLAY+16
LOOP ASKMORE+13
SELECT SELECT+9

Naked Globals

Name Field # of Occurrence
^(0 LOOP+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SELECT~, SELECT+3, LOOP~, DISPLAY~
ARRAY( SELECT+9, SELECT+11, SELECT+12, LOOP+33*, LOOP+34*, DISPLAY+14, DISPLAY+15, ASKQ+7, ASKQ+8
ARRAY(0 LOOP+8*, LOOP+35*, DISPLAY+5, DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+13
BEG LOOP+11~, LOOP+17*
CASEDT LOOP~, LOOP+16*, LOOP+17
CDT LOOP+11~, LOOP+17*, LOOP+18*, LOOP+19, LOOP+20, LOOP+23, LOOP+24, LOOP+25
CNT SELECT+2~, SELECT+3*, SELECT+4, SELECT+5, LOOP+11~, LOOP+17*, LOOP+32*, LOOP+33, LOOP+34, LOOP+35
DATA LOOP+11~, LOOP+20*, LOOP+21, LOOP+22, LOOP+28
DATE ASKMORE+1~, ASKMORE+12*, ASKMORE+13
DICOM LOOP+11~, LOOP+29*, LOOP+30, LOOP+31*, LOOP+33, LOOP+34
DIR SELECT+2~, ASKQ+1~, ASKMORE+1~, ASKMORE+6!
DIR("A" SELECT+5*, ASKQ+3*, ASKMORE+5*
DIR("B" ASKMORE+4*
DIR("T" SELECT+6*, ASKQ+3*
DIR(0 SELECT+5*, ASKQ+2*, ASKMORE+4*, ASKMORE+9*
DIROUT SELECT+2~, SELECT+7, ASKQ+5
DIRUT SELECT+2~, SELECT+7, ASKQ+5
DT LOOP+16
EN LOOP+11~, LOOP+19*, LOOP+20, LOOP+23, LOOP+24, LOOP+25, LOOP+34
END LOOP+11~, LOOP+17*, LOOP+18
ENTRY SELECT+2~, SELECT+8*, SELECT+9, SELECT+11, SELECT+12, DISPLAY+9~, DISPLAY+13*, DISPLAY+14*, DISPLAY+15, LINE+1
, ASKQ+2
IEN LOOP+12~, LOOP+22*, LOOP+29
II LOOP+12~, LOOP+23*, LOOP+24*, LOOP+25
IMAGEPTR LOOP+11~, LOOP+25*, LOOP+26*, LOOP+27*, LOOP+34
IMG LOOP+11~
IO DISPLAY+11*
IOF DISPLAY+11*, HEAD+1
IOSL DISPLAY+11*, DISPLAY+16, DISPLAY+17, HEAD+1
IOUT LOOP+12~, LOOP+23*, LOOP+24, LOOP+27*
ITEM SELECT~, DISPLAY+9~, DISPLAY+18, ASKQ+4*, ASKQ+6, ASKQ+7, ASKQ+8
ITEMS DISPLAY+9~, DISPLAY+13*, ASKQ+2
MAGDIMG LOOP+11~
MAGMC LOOP+10, LOOP+12~
MAGMC( LOOP+18, LOOP+19, LOOP+20, LOOP+23, LOOP+24, LOOP+25
MAGPAT LOOP~, LOOP+9, LOOP+13, LOOP+14, LOOP+18, LOOP+19, LOOP+20, LOOP+23, LOOP+24, LOOP+25
, LOOP+29, ASKMORE+2, ASKMORE+13
MEDFILE LOOP+12~, LOOP+28*, LOOP+29, LOOP+34
MSG DISPLAY+9~, DISPLAY+10*, HEAD+1
OUT DISPLAY+9~, DISPLAY+13*, DISPLAY+14, DISPLAY+18, ASKQ+9*
OUTPUT DISPLAY+9~, DISPLAY+15*, LINE+1
PATIENT LOOP+11~, LOOP+15*, LOOP+33, LOOP+35
PATNME LOOP+11~, LOOP+14*, LOOP+15, LOOP+34
>> POP DISPLAY+11*
PRC LOOP+11~, LOOP+21*, LOOP+29, LOOP+34
PRCNM LOOP+11~, LOOP+21*, LOOP+33, LOOP+34
RES DISPLAY+9~, DISPLAY+10*, DISPLAY+18*, DISPLAY+19
SSN LOOP+11~, LOOP+14*, LOOP+15, LOOP+34
SUB LOOP~, LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+23, LOOP+24, LOOP+25, ASKMORE+3, ASKMORE+13
THEDT LOOP+11~, LOOP+22*, LOOP+33
X LOOP+11~, ASKQ+1~, ASKMORE+1~
X1 LOOP+11~
X2 LOOP+11~
XX ASKMORE+1~, ASKMORE+13
XX(0 ASKMORE+14
Y SELECT+8, ASKQ+1~, ASKQ+4, ASKMORE+1~, ASKMORE+7, ASKMORE+11, ASKMORE+12
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 |  Naked Globals |  Local Variables  | All