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
Print Page as PDF
Routine: QAMUTL1

Package: Clinical Monitoring System

Routine: QAMUTL1


Information

QAMUTL1 ;HISC/DAD-MONITORING TOOL UTILITIES ;6/8/93 12:24

Source Information

Source file <QAMUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; *** DISPLAY HELP SCREEN OF CONDITIONS
; *** USED BEFORE EDIT OF CONDITION FOR DATE OF EVENT (743,64)
EN2 ; *** EDIT A PARAMETER (SCREENED LOOK UP)
2
EXIT2
DEL2
HELP2
H2
EN3 ; *** EDIT A PARAMETER
3
EXIT3
DEL3
EN4 ; *** DISPLAY CONDITION DESCRIPTION (?CONDITION)
4
41
EN5 ; *** XECUTABLE HELP FOR 743.42,.02 - DISPLAYS SELECTABLE FIELDS
1
EXIST(DIC) ; *** DOES THE FILE SPECIFIED BY DIC EXIST $S(YES:1,1:0)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"NUMBER",?15,"CONDITION",!?2,"--------",?14,"-----------"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?3,$J(QAMD1,4,0),?15,QAM
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!?5,"*** File not found !! ***",*7,!
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,DIC("A"),$S($D(DIC("B"))#2:" "_DIC("B")_"//",1:"")," "
  • Line Location: EN2+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: DEL2+0
Function Call: WRITE
  • Prompt: !!?10,"Please answer Y(es) or N(o)",!
  • Line Location: DEL2+1
Function Call: WRITE
  • Prompt: !?5,DIR("?",QAM)
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: !?5,$P(QAMDIR," ",1,QA)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!?5,"*** File not found !! ***",*7,!
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: DEL3+0
Function Call: WRITE
  • Prompt: !!?10,"Please answer Y(es) or N(o)",!
  • Line Location: DEL3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN4+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN4+6
Function Call: WRITE
  • Prompt: !,CND,!,$E("------------------------------",1,$L(CND))
  • Line Location: 4+0
Function Call: WRITE
  • Prompt: !?DIWL-1,"Sorry, no description found for this condition.",!
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: !?5,QA,?15,$P(^DD(QAM,QA,0),"^")
  • Line Location: EN5+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: QA(0)
  • Timeout: DTIME
  • Line Location: 1+0
Info |  Source |  Entry Points |  Interaction Calls