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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call