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

Package: Clinical Monitoring System

Routine: QAMAUTO3


Information

QAMAUTO3 ;HISC/GJC-AUTO ENROLL FALL OUT REPORT ;9/13/93 08:42

Source Information

Source file <QAMAUTO3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
Quality Assurance Integration 1 EN6^QAQAUTL  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Monitoring System 1 QAMAUTO2  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
HDER ;HEADER
EN1
K1
DATE ;
K9

External References

Name Field # of Occurrence
HOME^%ZIS K9
^%ZISC K9
^%ZTLOAD QAMAUTO3+4
EN6^QAQAUTL HDER+2
PID^VADPT6 PAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Zero fall outs for the ",$P($G(^QA(743,QAMD0,0)),U)," monitor."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"Total number of Fall Outs is: ",^UTILITY($J,"QAM FALL OUT",QAMD0),!,"Fall Out sample size is: ",^UTILITY($J,"QAM SAMPLE",QAMD0),!,"Percent Fall Out: "
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: $J((^UTILITY($J,"QAM FALL OUT",QAMD0)/^UTILITY($J,"QAM SAMPLE",QAMD0)*100),3,3)_"%",!
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: "Division by zero!",!
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: K1+0
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$S($D(^DPT(QAM1,0))#2:$P(^(0),U),1:QAM1),?45,"SSN: ",QAMSSN
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !," DATE: ",Y
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: ?45,"*** Duplicate ***"
  • Condition for execution: ^UTILITY($J,"QAM FALL OUT",QAMD0,QAM1,QAMZ)="*"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!?30,"DAILY FALL OUT REPORT",?68,QAMDT,!?32,"FOR: ",QAMDT0,?68,"PAGE: ",QAMPG
  • Line Location: HDER+2
Function Call: WRITE
  • Prompt: !,QAMST
  • Line Location: HDER+2
Function Call: WRITE
  • Prompt: !!,"*** Monitor data not found ***"
  • Line Location: HDER+3
Function Call: WRITE
  • Prompt: !!,"CODE: ",$P(QAM,U)," ",$S($P(QAM,U,4):"(a)",1:"(m)"),?43,"TITLE: ",$P(QAM,U,2),!
  • Line Location: HDER+5
Function Call: WRITE
  • Prompt: "SERVICE: "
  • Line Location: HDER+5
Function Call: WRITE
  • Prompt: "SERVICE: "
  • Line Location: HDER+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDER+6
Routine Call
  • %ZIS
  • Line Location:
    • K9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1, DATE+1
^DIC(49 - [#49] HDER+5
^DPT - [#2] EN1+7, PAT+1
^QA(740 - [#740] QAMAUTO3+3
^QA(743 - [#743] EN1+3, HDER+3, HDER+4
^TMP($J EN1+5!, EN1+8*, EN1+10, K9+1!
^UTILITY($J EN1+3, EN1+6, EN1+11, EN1+12, DATE+1

Label References

Name Line Occurrences
DATE PAT+1
HDER EN1+2, DATE+1
K1 EN1+2, EN1+3
K9 QAMAUTO3+3, QAMAUTO3+5
PAT EN1+10

Naked Globals

Name Field # of Occurrence
^( EN1+3
^(0 PAT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS K9+1!
DFN K9+1!, PAT+1*
DT EN1+1
IO EN1
IOF HDER+1
IOP K9+1!
IOSL DATE+1
IOST HDER+1
>> QAM HDER+4*, HDER+5
QAM1 EN1+5*, EN1+6*, EN1+7, EN1+8, EN1+10*, K9+1!, PAT+1, DATE+1
>> QAMD0 EN1+2, EN1+3, EN1+6, EN1+11, EN1+12, DATE+1, HDER+3, HDER+4
QAMDT EN1+1*, K9+1!, HDER+2
QAMDT0 EN1+1*, K9+1!, HDER+2
QAMFG K9+1!
>> QAMPAT EN1+10*
QAMPG EN1+1*, K9+1!, HDER+1*, HDER+2
QAMSSN K9+1!, PAT+1*
QAMST EN1+1!*, K9+1!, HDER+2
>> QAMTODAY EN1+1
QAMZ K9+1!, DATE+1*
U QAMAUTO3+3, EN1+3, PAT+1, HDER+5
VA K9+1!
VA("PID" PAT+1
>> X EN1+7*, EN1+8
Y EN1+1*, K9+1!, DATE+1*
ZTDESC QAMAUTO3+4*, K9+1!
ZTDTH QAMAUTO3+4*, K9+1!
>> ZTIO QAMAUTO3+3*
>> ZTQUEUED K9+2
>> ZTREQ K9+2*
ZTRTN QAMAUTO3+4*, K9+1!
ZTSAVE K9+1!
ZTSAVE("QAMD0" QAMAUTO3+4*
ZTSAVE("QAMTODAY" QAMAUTO3+4*
ZTSAVE("^UTILITY($J," QAMAUTO3+4*
ZTSK K9+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All