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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls