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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  ^DIR  ^DIWP  ^DIWW  
Kernel 2 HOME^%ZIS  EN1^XQH  

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

Package Total Caller Graph
Clinical Monitoring System 29 DICTIONARY NUMBER  QAMC1  QAMC10  QAMC11  QAMC12  QAMC13  QAMC14  QAMC15  
QAMC16  QAMC17  QAMC18  QAMC19  QAMC2  QAMC20  QAMC21  QAMC22  
QAMC23  QAMC24  QAMC25  QAMC3  QAMC5  QAMC6  QAMC7  QAMC8  
QAMC9  QAMEDT0  QAMEDT2  QAMEDT5A  ^QA(743  

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)

External References

Name Field # of Occurrence
HOME^%ZIS EN4+1
^DIC 2+2
YN^DICN DEL2+1, DEL3+1
^DIR EN3+5, 41
^DIWP 4+3
^DIWW 4+4
EN1^XQH HELP2

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
Routine Call
  • %ZIS
  • Line Location:
    • EN4+1
Routine Call
  • DIC
  • Line Location:
    • 2+2
Routine Call
  • DIR
  • Line Location:
    • EN3+5
    • 41

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN5+1
^DIC - [#1] EXIST+1
^QA(743 - [#743] EN1+2, EN1+4, DEL2DEL2+2!, DEL3DEL3+2!
^QA(743.3 - [#743.3] EN1+4, EN4+5, 44+2, 4+3
^QA(743.4 - [#743.4] EN5+1
^UTILITY($J EN4+7!, 4+1!

Label References

Name Line Occurrences
$$EXIST EN2+1, EN3+1
1 EN5+1
2 EN2+1
3 EN3+1
4 EN4+5
41 44+2, 4+3, 4+4
DEL2 2+1, DEL2+1
DEL3 3DEL3+1
EN2 2+1, 2+2
EN3 3
EXIT2 22+1, 2+2
EXIT3 3
H2 H2
HELP2 2+2

Naked Globals

Name Field # of Occurrence
^(0 EN1+2, EN1+4, 4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 2+1, DEL2*, DEL2+1*, DEL2+2, 3, DEL3*, DEL3+1*, DEL3+2
CND EN4+7!, 4*
>> D0 EN5+1
>> D1 EN5+1
>> DA EN1+2, EN1+4
DIC EN2+1, EXIT2!, EXIST~, EXIST+1*, EXIST+2
DIC("A" EN2+5
DIC("B" EN2+5, EN2+6
DIC(0 EN2+5*
DIR EXIT2!, EXIT3!, 41!
DIR("?" HELP2+1, HELP2+2, HELP2+3
DIR("??" HELP2
DIR(0 EN3+1, EN3+5, 41*
DIRUT EN2+1!, 2*, 2+1!, 2+2, EN3+3*, EN3+5!*, 3!
DIWF EN4+7!, 4+1*
DIWL EN4+7!, 4+1*, 4+2
DIWR EN4+7!, 4+1*
DTIME EN2+6, 1
DTOUT EN3+3!, 3
IOM HELP2+3
IOSL 41EN5+1
QA HELP2*, H2*, EN5+1*, EN5+2!
QA("$Y" EN5+1*, 1*
QA("IOSL" EN5+1*
QA(0 EN5+1*, 1*
QAM EN1+4*, HELP2*, HELP2+2*, EN5+1*, EN5+2!
QAMCND EN4+2*, EN4+3*, EN4+4*, EN4+5*, EN4+7!
QAMCND(0 EN4+2*, EN4+4*, EN4+5
QAMCND(1 EN4+5*
>> QAMD0 DEL2DEL2+2, DEL3DEL3+2
>> QAMD1 EN1+4*, DEL2DEL2+2, DEL3DEL3+2
QAMDIR HELP2+3*, H2*, H2+1!
QAMFOUND EN4+2*, EN4+6, EN4+7!, 4*
>> QAMIFN0 EN4+5*, 44+2, 4+3
>> QAMIFN1 4+3*
QAMINF0 EN4+7!
QAMINF1 EN4+7!
QAMLINE EN4+2*, EN4+7!, 41*
>> QAMPARAM DEL2DEL2+2, DEL3DEL3+2
QAMQUIT EN4+2*, EN4+5, EN4+7!, 4+3, 4+4, 41*
QAMWID HELP2+3*, H2H2+1!
X EN2+3*, EN2+6*, 2*, 2+1*, 2+2*, HELP2~*, EN3+3*, 3EN4+1, EN4+2
4+3*
XQH HELP2*!
>> Y 2*, 2+1*, 2+2*, EN3+5, 3*, 41
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All