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

Package: Clinical Monitoring System

Routine: QAMPHIS1


Information

QAMPHIS1 ;HISC/GJC-ROUTINE TO GENERATE MONITOR SUMMARY REPORTS ;9/10/93 15:10

Source Information

Source file <QAMPHIS1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Quality Assurance Integration 2 (,K)^QAQDATE  EN1^QAQSELCT  
VA FileMan 1 ^DIR  

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
Clinical Monitoring System 1 QAM RPT MONITOR HISTORY  

Entry Points

Name Comments DBIA/ICR reference
EN1
K1
K2
HDER ;HEADER
HDH ;
PRNT1 ;
PRNT2 ;
HEAD ;

External References

Name Field # of Occurrence
^%ZIS QAMPHIS1+6
HOME^%ZIS K1
^%ZISC K1
^%ZTLOAD QAMPHIS1+7
^DIR HDH+1
^QAQDATE QAMPHIS1+4
K^QAQDATE K2+1
EN1^QAQSELCT QAMPHIS1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR THIS REPORT"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: K1+0
Function Call: WRITE
  • Prompt: !!,"CODE: ",$P(QAMND0,U)_$S($P(QAMND0,U,4):" (a)",1:" (m)"),?43,"TITLE: ",$P(QAMND0,U,2),!
  • Line Location: HDER+3
Function Call: WRITE
  • Prompt: "THRESHOLD: ",$P(QAMND1,U,3),?21,$S($P(QAMND1,U,3)["%":"MINSAMPLE: ",1:"ALERT LEV: "),$P(QAMND1,U,2),?42,"TIM FR: ",$P($G(^QA(743.92,+QAMND1,0)),U),!
  • Line Location: HDER+4
Function Call: WRITE
  • Prompt: !,"START: ",Y
  • Line Location: PRNT2+1
Function Call: WRITE
  • Prompt: ?25,"FALLOUT: ",$P(QAMND2,U,4)
  • Line Location: PRNT2+2
Function Call: WRITE
  • Prompt: ?50,"PERCENT: "
  • Line Location: PRNT2+3
Function Call: WRITE
  • Prompt: $J(($P(QAMND2,U,4)/$P(QAMND2,U,5))*100,3,3)_"%"
  • Line Location: PRNT2+3
Function Call: WRITE
  • Prompt: !,"END: ",Y
  • Line Location: PRNT2+4
Function Call: WRITE
  • Prompt: ?25,"SAMPLE SIZE: ",$P(QAMND2,U,5)
  • Line Location: PRNT2+5
Function Call: WRITE
  • Prompt: ?50,"THRESHOLD MET: ",$S($P(QAMND2,U,6)=1:"YES",1:"NO"),!
  • Line Location: PRNT2+6
Function Call: WRITE
  • Prompt: !?32,"MONITOR HISTORY",?68,QAMDT,!?68,"PAGE: ",QAMPG(QAM),!,QAMST
  • Line Location: HEAD+3
Routine Call
  • %ZIS
  • Line Location:
    • QAMPHIS1+6
Routine Call
  • %ZIS
  • Line Location:
    • K1
Routine Call
  • DIR
  • Line Location:
    • HDH+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1, PRNT2+1, PRNT2+4
^QA(743 - [#743] HDER+2
^QA(743.2 - [#743.2] EN1+3, PRNT1+1
^QA(743.92 - [#743.92] HDER+4
^UTILITY($J EN1+2, EN1+3, EN1+4, K2!, PRNT1+2

Label References

Name Line Occurrences
HDER EN1+3, HDH+2
HDH PRNT1+1, PRNT1+2
HEAD EN1+4, HDER+1
K1 QAMPHIS1+7
K2 QAMPHIS1+3, QAMPHIS1+4, QAMPHIS1+6
PRNT1 EN1+3
PRNT2 PRNT1+1

Naked Globals

Name Field # of Occurrence
^(0 PRNT1+1
^(1 HDER+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QAMPHIS1+6!*, K2!
DIR K2!, HDH+1!
DIR(0 HDH+1*
DT EN1+1
IO EN1
IO("Q" QAMPHIS1+7!
IOF HEAD+2
IOP QAMPHIS1+6!
IOSL PRNT1+1
IOST HDH+1, HEAD+2
POP QAMPHIS1+6, K2!
QAM EN1+2*, EN1+3*, EN1+4*, K2!, PRNT1+2, HEAD+1, HEAD+2, HEAD+3
QAM1 EN1+3*, K2!, HDER+2, PRNT1+1
QAM2 K2!, PRNT1+1*
QAMDT EN1+1*, K2!, HEAD+3
QAMFOUND EN1*, EN1+4, K2!, HDER+1*
QAMHDH EN1+1*, K2!, HDH+2, PRNT1+2*
QAMND0 K2!, HDER+2*, HDER+3
QAMND1 K2!, HDER+2*, HDER+4
QAMND2 K2!, PRNT1+1*, PRNT2+1, PRNT2+2, PRNT2+3, PRNT2+4, PRNT2+5, PRNT2+6
QAMPG K2!
QAMPG( EN1+2*, HEAD+1*, HEAD+2, HEAD+3
QAMST EN1+1!*, K2!, HEAD+3
QAMUOUT EN1+1*, EN1+3, K2!, HDH+1*, PRNT1+1, PRNT1+2
QAQDIC QAMPHIS1+3*, K2!
QAQDIC("A" QAMPHIS1+3*
QAQDIC(0 QAMPHIS1+3*
>> QAQNBEG PRNT1+1
>> QAQNEND PRNT1+1
>> QAQQUIT QAMPHIS1+3, QAMPHIS1+4
>> QAQUTIL QAMPHIS1+3*
U HDER+3, HDER+4, PRNT1+1, PRNT2+1, PRNT2+2, PRNT2+3, PRNT2+4, PRNT2+5, PRNT2+6
Y EN1+1*, K2!, HDH+1, PRNT2+1*, PRNT2+4*
ZTDESC QAMPHIS1+7*, K2!
ZTIO K2!
>> ZTQUEUED K2+1
>> ZTREQ K2+1*
ZTRTN QAMPHIS1+7*, K2!
ZTSAVE K2!
ZTSAVE("QAQ*" QAMPHIS1+7*
ZTSAVE("^UTILITY($J," QAMPHIS1+7*
ZTSK K2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All