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 |  Local Variables  | All
Print Page as PDF
Routine: QAOSPSM

Package: Occurrence Screen

Routine: QAOSPSM


Information

QAOSPSM ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - DRIVER ;6/11/93 15:58

Source Information

Source file <QAOSPSM.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Occurrence Screen 4 ^QAOSPSM0  ^QAOSPSM1  ^QAOSPSM2  ^QAOSPSM5  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 YN^DICN  ^DIR  
Quality Assurance Integration 1 (,K)^QAQDATE  

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

Package Total Caller Graph
Occurrence Screen 2 QAOS RPT SEMI ANNUAL  QAOSXTRN  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Automatically print medical center, reporting period, criteria auto
; enrolled, computer program used, number of times an action was
; taken, and service specific occurrences
EN2 ; Print a totally blank report
ASKSCR ;
ASKPRT2 ;
ASKPEND ;
ASKDATE ;
ASKDEV ;
ENTSK ;
EXIT ;

External References

Name Field # of Occurrence
^%ZIS ASKDEV+1
^%ZISC EXIT+1
^%ZTLOAD ASKDEV+6
YN^DICN ASKPRT2+2, ASKPEND+3
^DIR ASKSCR+6
^QAOSPSM0 ENTSK+1
^QAOSPSM1 ENTSK+1
^QAOSPSM2 ENTSK+2
^QAOSPSM5 ENTSK+3
^QAQDATE ASKDATE+2
K^QAQDATE EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSCR+6
Function Call: WRITE
  • Prompt: !!,"Print PART II of the Summary of Occurrence Screening"
  • Line Location: ASKPRT2+1
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASKPRT2+3
Function Call: WRITE
  • Prompt: !!,"Print a list of all PENDING occurrences"
  • Line Location: ASKPEND+2
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASKPEND+4
Function Call: WRITE
  • Prompt: !!,"Select the reporting period:"
  • Line Location: ASKDATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+1
Routine Call
  • DIR
  • Line Location:
    • ASKSCR+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J ENTSK+1!, EXIT+8!

Label References

Name Line Occurrences
ASKDATE ASKPEND+1
ASKPEND ASKPEND+4
ASKPRT2 ASKPRT2+3
ASKSCR EN1+3
EXIT ASKSCR+6, ASKPRT2+2, ASKPEND+3, ASKDATE+2, ASKDEV+1, ASKDEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKPRT2+2*, ASKPRT2+3, ASKPEND+3*, ASKPEND+4, EXIT+6!
%H EXIT+6!
%ZIS ASKDEV+1!*, EXIT+2!
DIR ASKSCR+1!, EXIT+2!
DIR("?" ASKSCR+3*, ASKSCR+4*, ASKSCR+5*
DIR("A" ASKSCR+2*
DIR("B" ASKSCR+3*
DIR(0 ASKSCR+1*
DIRUT ASKSCR+6, EXIT+2!
IO ENTSK+1
IO("Q" ASKDEV+2!
POP ASKDEV+1, EXIT+2!
QA EXIT+2!
QAO EXIT+2!
QAOBLANK EN1+3*, EN2+1*, ASKPEND+1, EXIT+5!
QAOFINAL EXIT+6!
QAOPART2 ASKPRT2+2*, ENTSK+2, EXIT+2!
QAOS EXIT+2!
QAOSACTN EXIT+2!
QAOSCLIN EXIT+2!
QAOSCREV EXIT+2!
QAOSCRN EXIT+5!
QAOSD0 EXIT+3!
QAOSD1 EXIT+3!
QAOSDATE EXIT+3!
QAOSDPT EXIT+6!
QAOSFIND EXIT+3!
QAOSHOSP EXIT+6!
QAOSKIND EXIT+3!
QAOSLEVL EXIT+3!
QAOSLIST EXIT+3!
QAOSLIST(0 ASKSCR+6*
QAOSLST EXIT+3!
QAOSMGMT EXIT+4!
QAOSNUM EXIT+4!
QAOSPAGE EXIT+6!
QAOSPAT EXIT+6!
QAOSPEER EXIT+5!
QAOSPEND ASKPEND+1*, ASKPEND+3*, ENTSK+3, EXIT+5!
QAOSQUIT ENTSK+2, ENTSK+3, EXIT+4!
QAOSRFPR EXIT+4!
QAOSRV EXIT+6!
QAOSS1 EXIT+5!
QAOSS2 EXIT+5!
QAOSSCRN EXIT+4!
QAOSSEQ EXIT+4!
QAOSSITE EXIT+4!
QAOSSN EXIT+6!
QAOSSTAT EXIT+4!
QAOSTEMP EXIT+5!
QAOSWARD EXIT+7!
QAOSZERO EXIT+5!
>> QAQDATE ASKDATE+2*
>> QAQQUIT ASKDATE+2
SERV EXIT+7!
TAB EXIT+1!
TODAY EXIT+6!
UNDL EXIT+1!
X EXIT+1!
Y ASKSCR+6, EXIT+1!
>> ZTDESC ASKDEV+5*
>> ZTQUEUED EXIT+9
>> ZTREQ EXIT+9*
ZTRTN ASKDEV+3*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE("QAO*" ASKDEV+4*
ZTSAVE("QAQ*" ASKDEV+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All