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

Package: Occurrence Screen

Routine: QAOSPCL0


Information

QAOSPCL0 ;HISC/DAD-CLINICAL REVIEWER WORKSHEET (PART 1) ;2/12/93 15:16

Source Information

Source file <QAOSPCL0.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIR  ^DIWP  
Quality Assurance Integration 1 EN6^QAQAUTL  

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

Package Total Caller Graph
Occurrence Screen 3 QAOSPRD1  QAOSSFR1  QAOSWRK0  

Entry Points

Name Comments DBIA/ICR reference
DONE
EXIT ;
LOOP1 ;
HEAD ;
INSTR
PAUSE ;

External References

Name Field # of Occurrence
^DIR PAUSE+1
^DIWP QAOSPCL0+10, LOOP1+2
EN6^QAQAUTL HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: QAOSPCL0+9
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: QAOSPCL0+11
Function Call: WRITE
  • Prompt: !!,$J(QAOSNUM,3),$S(QAOSS0=QAOSPRIM:" (Y)/ N",1:" Y / N")
  • Line Location: LOOP1+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: FLAG
  • Line Location: LOOP1+4
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: LOOP1+4
Function Call: WRITE
  • Prompt: !!?23,"CLINICAL REVIEW WORKSHEET (PART 1)",?68,TODAY,!?68,"PAGE: ",PAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,"Instructions: Review the medical record and answer the following by circling",!,"the appropriate 'Y' or 'N'. Record any comments at the end of the worksheet.",!,UNDL
  • Line Location: INSTR+0
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" QAOSPCL0+4, HEAD+3
^DIC(45.7 - [#45.7] HEAD+9
^DPT - [#2] HEAD+3, HEAD+4
^QA(740 - [#740] QAOSPCL0+2
^QA(741 - [#741] QAOSPCL0+3, QAOSPCL0+4, QAOSPCL0+5, QAOSPCL0+6, QAOSPCL0+10, HEAD+7
^QA(741.1 - [#741.1] QAOSPCL0+4
^QA(741.2 - [#741.2] QAOSPCL0+5
^QA(741.4 - [#741.4] QAOSPCL0+7, QAOSPCL0+8, LOOP1+1
^SC - [#44] HEAD+4
^UTILITY($J QAOSPCL0+9!, QAOSPCL0+11, LOOP1+2!, LOOP1+4
^VA(200 - [#200] HEAD+6, HEAD+7, HEAD+8

Label References

Name Line Occurrences
DONE QAOSPCL0+9
EXIT QAOSPCL0+7
HEAD QAOSPCL0+7, QAOSPCL0+11, LOOP1+2
INSTR HEAD+5
LOOP1 QAOSPCL0+8
PAUSE QAOSPCL0+11, DONE, LOOP1+2

Naked Globals

Name Field # of Occurrence
^( HEAD+4
^("OS" QAOSPCL0+2
^("SCRN" QAOSPCL0+3, QAOSPCL0+4
^(0 QAOSPCL0+5, HEAD+3, HEAD+4, HEAD+6, HEAD+7, HEAD+8, HEAD+9
^(1 LOOP1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+1!
DIR(0 PAUSE+1*
DIWF QAOSPCL0+9*, EXIT+1!, LOOP1+1*
DIWL QAOSPCL0+9*, QAOSPCL0+11, EXIT+1!, LOOP1+1*, LOOP1+4
DIWR QAOSPCL0+9*, EXIT+1!, LOOP1+1*
DT QAOSPCL0+4
FLAG EXIT+1!, LOOP1+4*
HEADER QAOSPCL0+4*, QAOSPCL0+11*, EXIT+1!, LOOP1+2*, HEAD+5
IOF DONE, HEAD+1
IOSL QAOSPCL0+11, LOOP1+2
IOST QAOSPCL0+11, DONE, LOOP1+2, HEAD+1
LOC EXIT+1!, HEAD+3*, HEAD+7*, HEAD+8, HEAD+9
NAME EXIT+1!, HEAD+3*, HEAD+5
PAGE QAOSPCL0+4*, EXIT+1!, HEAD+1, HEAD+2*
QA QAOSPCL0+11*, EXIT+1!, LOOP1+4*, HEAD+6*, HEAD+7*, HEAD+8*, HEAD+9*
QAOSCLIN QAOSPCL0+5*, QAOSPCL0+6, EXIT+1!
QAOSCODE QAOSPCL0+8*, EXIT+1!
>> QAOSD0 QAOSPCL0+3, QAOSPCL0+4, QAOSPCL0+5, QAOSPCL0+6, QAOSPCL0+10, HEAD+7
>> QAOSD1 QAOSPCL0+5*, QAOSPCL0+10
>> QAOSDATA QAOSPCL0+6, QAOSPCL0+10
>> QAOSHEAD QAOSPCL0+9*, QAOSPCL0+11
>> QAOSHOW QAOSPCL0+10
QAOSMULT QAOSPCL0+5*, QAOSPCL0+6*, EXIT+1!, HEAD+6
QAOSNUM EXIT+1!, LOOP1+1*, LOOP1+3
QAOSPRIM QAOSPCL0+6*, EXIT+1!, LOOP1+3
>> QAOSQUIT QAOSPCL0+4*, QAOSPCL0+8, QAOSPCL0+9, QAOSPCL0+11, DONE, LOOP1+2, PAUSE+1*
QAOSS0 QAOSPCL0+8*, QAOSPCL0+10*, EXIT+1!, LOOP1+1, LOOP1+3
QAOSSCRN QAOSPCL0+4*, QAOSPCL0+7, QAOSPCL0+8, EXIT+1!
QAOSWHEN EXIT+1!, HEAD+3*, HEAD+5
QAOSZERO QAOSPCL0+4*, EXIT+1!, HEAD+3, HEAD+4
SCREEN EXIT+1!, HEAD+3*, HEAD+5
SCRN QAOSPCL0+4*, EXIT+1!, HEAD+3
SSN EXIT+1!, HEAD+3*, HEAD+5
TEXT EXIT+1!, HEAD+3*, HEAD+5
TODAY QAOSPCL0+4*, EXIT+1!, HEAD+2
UNDL QAOSPCL0+4!*, EXIT+1!, INSTR
WARD EXIT+1!, HEAD+4*, HEAD+5
WARD(0 HEAD+4*, HEAD+5
X QAOSPCL0+10*, EXIT+1!, LOOP1+1*
Y QAOSPCL0+4*, EXIT+1!, HEAD+3*, PAUSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All