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

Package: Occurrence Screen

Routine: QAOSPCL1


Information

QAOSPCL1 ;HISC/DAD-CLINICAL REVIEWER WORKSHEET (PART 2) ;5/7/93 20:27

Source Information

Source file <QAOSPCL1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIR  ^DIWP  
Occurrence Screen 1 ^QAOSPHDR  

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
SKIP1 ;
SKIP2 ;
BLANK
EXIT ;
EXIT0
CHK ;

External References

Name Field # of Occurrence
^DIR EXIT+1, CHK+1
^DIWP QAOSPCL1+9, SKIP1+5, SKIP2+9
^QAOSPHDR QAOSPCL1+6, CHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: QAOSPCL1+8
Function Call: WRITE
  • Prompt: !?3,ARRAY(Y),?8,$J($P(Y,"^"),3)
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: QA(0)>1
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,QA(0),0)
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: SKIP1+1
Function Call: WRITE
  • Prompt: !?3,$S($P(QAOSMULT,"^",5)=D0:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(LOC,"^",2)
  • Line Location: SKIP1+2
Function Call: WRITE
  • Prompt: ": __________________________________________________"
  • Line Location: SKIP1+4
Function Call: WRITE
  • Prompt: !?3,"_X_",?8,$J(QA(0),3)
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: QA>1
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: !?3,$P(ARRAY(QA),"^"),?8,$J(QA,3),?15,$P(ARRAY(QA),"^",2)
  • Line Location: SKIP2+3
Function Call: WRITE
  • Prompt: !!,"DATE REVIEW COMPLETED: "
  • Line Location: SKIP2+5
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"____________________")
  • Line Location: SKIP2+5
Function Call: WRITE
  • Prompt: !!,"Should the care in this case be considered for educational presentations"
  • Line Location: SKIP2+6
Function Call: WRITE
  • Prompt: !,"because it was exemplary? ___ YES, ___ NO. If YES, describe."
  • Line Location: SKIP2+7
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: SKIP2+8
Function Call: WRITE
  • Prompt: !?3,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: SKIP2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+0
Function Call: WRITE
  • Prompt: !,"SIGNATURE"
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: CHK+2
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • CHK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SKIP2+5
^QA(741 - [#741] QAOSPCL1+2, QAOSPCL1+3, QAOSPCL1+4, QAOSPCL1+6, QAOSPCL1+7, SKIP2+2, SKIP2+9
^QA(741.2 - [#741.2] QAOSPCL1+2
^QA(741.4 - [#741.4] SKIP1+5
^QA(741.5 - [#741.5] QAOSPCL1+7
^QA(741.6 - [#741.6] SKIP1+2
^QA(741.7 - [#741.7] SKIP2+2
^UTILITY($J QAOSPCL1+9!, SKIP1+5!, SKIP2+8!, SKIP2+10
^VA(200 - [#200] QAOSPCL1+5

Label References

Name Line Occurrences
BLANK BLANK
CHK QAOSPCL1+9, SKIP1+2, SKIP1+5, SKIP2+3, SKIP2+5, SKIP2+6, SKIP2+7, SKIP2+10
EXIT QAOSPCL1+10, SKIP1+3, SKIP1+6, SKIP2+4, SKIP2+5, SKIP2+11
SKIP1 QAOSPCL1+8
SKIP2 SKIP1+4

Naked Globals

Name Field # of Occurrence
^(0 QAOSPCL1+4, QAOSPCL1+5
^(1 SKIP1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY QAOSPCL1+7!, QAOSPCL1+8, SKIP2+1!, EXIT0!
ARRAY( QAOSPCL1+7*, QAOSPCL1+9, SKIP2+2*, SKIP2+3
D0 QAOSPCL1+7*, SKIP1+2*, SKIP2+2*, EXIT0!, CHK+1~
DIR EXIT+1!, CHK+1!
DIR(0 EXIT+1*, CHK+1*
DIWF QAOSPCL1+8*, SKIP1+5*, SKIP2+8*, EXIT0!
DIWL QAOSPCL1+8*, QAOSPCL1+9, SKIP1+5*, SKIP2+8*, SKIP2+10, EXIT0!
DIWR QAOSPCL1+8*, SKIP1+5*, SKIP2+8*, EXIT0!
IOF EXIT+2
IOSL BLANK, CHK+1
IOST EXIT+1, EXIT+2, CHK+1
LOC QAOSPCL1+7*, SKIP1+2*, SKIP2+2*, EXIT0!
QA QAOSPCL1+5*, QAOSPCL1+9*, SKIP1+2*, SKIP1+4*, SKIP1+5*, SKIP2+2*, SKIP2+3*, SKIP2+10*, EXIT0!, CHK+1~
QA(0 QAOSPCL1+9*, SKIP1+5*
QAOSCLIN QAOSPCL1+2*, QAOSPCL1+3, EXIT0!
>> QAOSD0 QAOSPCL1+2, QAOSPCL1+3, QAOSPCL1+4, QAOSPCL1+6, QAOSPCL1+7, SKIP2+2, SKIP2+9
QAOSD1 QAOSPCL1+2*, QAOSPCL1+3*, QAOSPCL1+4, QAOSPCL1+7, SKIP2+2, SKIP2+9, EXIT0!
>> QAOSDATA QAOSPCL1+3, SKIP2+9
QAOSHEAD QAOSPCL1+8*, SKIP1+1*, SKIP1+4*, SKIP2+3*, SKIP2+6*, SKIP2+8*, EXIT0!, CHK+2
>> QAOSHOW SKIP2+9
QAOSMULT QAOSPCL1+4*, QAOSPCL1+5, SKIP1+2, SKIP1+4, SKIP2+5, EXIT0!
QAOSPAGE QAOSPCL1+2*, QAOSPCL1+6*, EXIT0!
>> QAOSQUIT QAOSPCL1+2*, QAOSPCL1+9, QAOSPCL1+10, SKIP1+2, SKIP1+3, SKIP1+5, SKIP1+6, SKIP2+3, SKIP2+4, SKIP2+5
, SKIP2+6, SKIP2+7, SKIP2+10, SKIP2+11, EXIT+1*, CHK+1*
QAOSREVR QAOSPCL1+2*, QAOSPCL1+5*, EXIT0!
>> QAOSS0 SKIP2+9*
QAOSSCRN QAOSPCL1+6*, QAOSPCL1+7, EXIT0!
X QAOSPCL1+7*, QAOSPCL1+9*, SKIP1+5*, SKIP2+9*, EXIT0!
XX EXIT0!
Y QAOSPCL1+8*, QAOSPCL1+9*, SKIP2+5*, EXIT+1, EXIT0!, CHK+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All