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

Package: Occurrence Screen

Routine: QAOSUPL2


Information

QAOSUPL2 ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;10/7/93 11:01

Source Information

Source file <QAOSUPL2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASKMAIL ;
EXIT ;
BUILD ;
SERVER ;
SITE ;
RELY ;
WORK ;
ACTN ;
SCRN ;
SERVICE(SEQUENCE,PATTERN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASKMAIL+1
Function Call: WRITE
  • Prompt: !,"Reporting period: ",QAQ2HED
  • Line Location: ASKMAIL+2
Function Call: WRITE
  • Prompt: !!,"Results of Reliability Assessments."
  • Line Location: ASKMAIL+3
Function Call: WRITE
  • Prompt: !?5,"Date clinical review reliability assessment completed:"
  • Line Location: ASKMAIL+4
Function Call: WRITE
  • Prompt: ?69,$S(Y]"":Y,1:"N/A")
  • Line Location: ASKMAIL+5
Function Call: WRITE
  • Prompt: !?5,"Percentage agreement found:"
  • Line Location: ASKMAIL+6
Function Call: WRITE
  • Prompt: ?69,$S(Y]"":$J(Y,6,2)_"%",1:"N/A")
  • Line Location: ASKMAIL+7
Function Call: WRITE
  • Prompt: !?5,"Date peer review reliability assessment completed: "
  • Line Location: ASKMAIL+8
Function Call: WRITE
  • Prompt: ?69,$S(Y]"":Y,1:"N/A")
  • Line Location: ASKMAIL+9
Function Call: WRITE
  • Prompt: !?5,"Percentage agreement found:"
  • Line Location: ASKMAIL+10
Function Call: WRITE
  • Prompt: ?69,$S(Y]"":$J(Y,6,2)_"%",1:"N/A")
  • Line Location: ASKMAIL+11
Function Call: WRITE
  • Prompt: !!,"Facility Workload Data."
  • Line Location: ASKMAIL+12
Function Call: WRITE
  • Prompt: !?5,"Number of admissions to acute care by bed section."
  • Line Location: ASKMAIL+13
Function Call: WRITE
  • Prompt: !?10,"Medicine (Include Neurology, exclude Intermediate Med.):"
  • Line Location: ASKMAIL+14
Function Call: WRITE
  • Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A")
  • Line Location: ASKMAIL+15
Function Call: WRITE
  • Prompt: !?10,"Surgery:"
  • Line Location: ASKMAIL+16
Function Call: WRITE
  • Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A")
  • Line Location: ASKMAIL+16
Function Call: WRITE
  • Prompt: !?10,"Psychiatry:"
  • Line Location: ASKMAIL+17
Function Call: WRITE
  • Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A")
  • Line Location: ASKMAIL+17
Function Call: WRITE
  • Prompt: !?5,"Number of ""Unscheduled"" and ""10-10"" ambulatory care visits:"
  • Line Location: ASKMAIL+18
Function Call: WRITE
  • Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A")
  • Line Location: ASKMAIL+19
Function Call: WRITE
  • Prompt: !?5,"Number of surgical procedures performed:"
  • Line Location: ASKMAIL+20
Function Call: WRITE
  • Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A")
  • Line Location: ASKMAIL+21
Function Call: WRITE
  • Prompt: !!,"WARNING: This data will overwrite your pre-existing data"
  • Line Location: ASKMAIL+23
Function Call: WRITE
  • Prompt: !," at the NQADB for this semi-annual period !!"
  • Line Location: ASKMAIL+24
Function Call: WRITE
  • Prompt: !!,"Ready to send the ",XMSUB," data to the National Quality"
  • Line Location: ASKMAIL+25
Function Call: WRITE
  • Prompt: !,"Assurance DataBase (NQADB) at ",QAOSSERV,"@",QAOSDOM
  • Line Location: ASKMAIL+26
Function Call: WRITE
  • Prompt: !,"OK to send"
  • Line Location: ASKMAIL+27
Function Call: READ
  • Variable: QA
  • Timeout: 5
  • Line Location: ASKMAIL+28
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o) "
  • Line Location: ASKMAIL+28
Function Call: WRITE
  • Prompt: !,"Sending . . ."
  • Line Location: ASKMAIL+29
Info |  Source |  Entry Points |  Interaction Calls