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

Package: Occurrence Screen

Routine: QAOSPPR0


Information

QAOSPPR0 ;HISC/DAD-PEER REVIEWER WORKSHEET ;2/16/93 09:31

Source Information

Source file <QAOSPPR0.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: 2

Package Total Caller Graph
Occurrence Screen 2 QAOSPRD1  QAOSWRK0  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
LOOP1 ;
BLANK
CHK ;

External References

Name Field # of Occurrence
^DIR QAOSPPR0+5, QAOSPPR0+10, QAOSPPR0+13, CHK+1
^DIWP LOOP1+27
^QAOSPHDR LOOP1+3, CHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+4
Function Call: WRITE
  • Prompt: !?3,$S($P(QAOSMULT,"^",5)=D0:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(LOC,"^",2)
  • Line Location: LOOP1+5
Function Call: WRITE
  • Prompt: !!,"If quality of care is rated as level 2 or 3, indicate involved practitioner(s).",!!," __________________________________________________________________________"
  • Line Location: LOOP1+7
Function Call: WRITE
  • Prompt: !?3,$P(ARRAY(QA),"^"),?8,$J(QA,3,0),?15,$P(ARRAY(QA),"^",2)
  • Line Location: LOOP1+10
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+12
Function Call: WRITE
  • Prompt: !?3,$S(D0=LOC:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(^QA(741.8,D0,0),"^",2)
  • Line Location: LOOP1+14
Function Call: WRITE
  • Prompt: !!,"DATE REVIEW COMPLETED: "
  • Line Location: LOOP1+16
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"____________________")
  • Line Location: LOOP1+16
Function Call: WRITE
  • Prompt: ?47,"DUE DATE: "
  • Line Location: LOOP1+18
Function Call: WRITE
  • Prompt: $S((QAOSHOW=3)!(QAOSDATA=1)!(Y=""):"____________________",1:Y)
  • Line Location: LOOP1+19
Function Call: WRITE
  • Prompt: !!,"Can steps be taken to improve the care of similar patients in the future?"
  • Line Location: LOOP1+22
Function Call: WRITE
  • Prompt: !,"___ YES, ___ NO. If YES, describe. (Please answer even if quality of"
  • Line Location: LOOP1+23
Function Call: WRITE
  • Prompt: !,"care was rated as ""LEVEL 1"".)"
  • Line Location: LOOP1+23
Function Call: WRITE
  • Prompt: !!,"Should the care in this case be considered for educational presentations"
  • Line Location: LOOP1+24
Function Call: WRITE
  • Prompt: !,"because it was exemplary? ___ YES, ___ NO. If YES, describe."
  • Line Location: LOOP1+25
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+26
Function Call: WRITE
  • Prompt: !?3,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: LOOP1+28
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:
    • QAOSPPR0+5
    • QAOSPPR0+10
    • QAOSPPR0+13
    • CHK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LOOP1+16, LOOP1+18
^QA(740 - [#740] LOOP1+17
^QA(741 - [#741] QAOSPPR0+2, QAOSPPR0+8, QAOSPPR0+13, LOOP1+1, LOOP1+9, LOOP1+13, LOOP1+17, LOOP1+27
^QA(741.2 - [#741.2] QAOSPPR0+2
^QA(741.6 - [#741.6] LOOP1+5
^QA(741.7 - [#741.7] LOOP1+9
^QA(741.8 - [#741.8] LOOP1+14
^UTILITY($J LOOP1+26!, LOOP1+28
^VA(200 - [#200] LOOP1+2

Label References

Name Line Occurrences
BLANK BLANK
CHK LOOP1+5, LOOP1+7, LOOP1+10, LOOP1+14, LOOP1+21, LOOP1+22, LOOP1+23, LOOP1+24, LOOP1+25, LOOP1+28
EXIT QAOSPPR0+3, QAOSPPR0+8
LOOP1 QAOSPPR0+3, QAOSPPR0+8, QAOSPPR0+13

Naked Globals

Name Field # of Occurrence
^(0 LOOP1+1, LOOP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY EXIT+1!, LOOP1+8!
ARRAY( LOOP1+9*, LOOP1+10
D0 EXIT+1!, LOOP1+5*, LOOP1+9*, LOOP1+14*, CHK+1~
DIR QAOSPPR0+5!, QAOSPPR0+10!, QAOSPPR0+13!, CHK+1!
DIR(0 QAOSPPR0+5*, QAOSPPR0+10*, QAOSPPR0+13*, CHK+1*
DIWF EXIT+1!, LOOP1+26*
DIWL EXIT+1!, LOOP1+26*, LOOP1+28
DIWR EXIT+1!, LOOP1+26*
IOF QAOSPPR0+3, QAOSPPR0+8, QAOSPPR0+13
IOSL BLANK, CHK+1
IOST QAOSPPR0+3, QAOSPPR0+4, QAOSPPR0+8, QAOSPPR0+9, QAOSPPR0+13, CHK+1
LOC EXIT+1!, LOOP1+5*, LOOP1+9*, LOOP1+13*, LOOP1+14
QA EXIT+1!, LOOP1+2*, LOOP1+5*, LOOP1+9*, LOOP1+10*, LOOP1+14*, LOOP1+28*, CHK+1~
>> QAOSD0 QAOSPPR0+2, QAOSPPR0+8, QAOSPPR0+13, LOOP1+1, LOOP1+9, LOOP1+13, LOOP1+17, LOOP1+27
QAOSD1 QAOSPPR0+3*, QAOSPPR0+8*, QAOSPPR0+13*, EXIT+1!, LOOP1+1, LOOP1+9, LOOP1+27
>> QAOSDATA QAOSPPR0+3, QAOSPPR0+8, LOOP1+13, LOOP1+19, LOOP1+27
QAOSHEAD EXIT+1!, LOOP1+4*, LOOP1+7*, LOOP1+10*, LOOP1+12*, LOOP1+22*, LOOP1+24*, LOOP1+26*, CHK+2
>> QAOSHOW LOOP1+13, LOOP1+19, LOOP1+27
QAOSMULT EXIT+1!, LOOP1+1*, LOOP1+2, LOOP1+5, LOOP1+16
QAOSPAGE EXIT+1!, LOOP1+3*
>> QAOSPDAY LOOP1+17*
>> QAOSPDUE LOOP1+17*, LOOP1+18
QAOSPEER QAOSPPR0+2*, QAOSPPR0+8, QAOSPPR0+13, EXIT+1!
>> QAOSQUIT QAOSPPR0+2*, QAOSPPR0+4, QAOSPPR0+6*, QAOSPPR0+9, QAOSPPR0+11*, QAOSPPR0+13*, LOOP1+5, LOOP1+6, LOOP1+7, LOOP1+10
, LOOP1+11, LOOP1+14, LOOP1+15, LOOP1+21, LOOP1+22, LOOP1+23, LOOP1+24, LOOP1+25, LOOP1+28, LOOP1+29
, CHK+1*
QAOSREVR QAOSPPR0+2*, EXIT+1!, LOOP1+2*
>> QAOSS0 LOOP1+27*
QAOSSCRN QAOSPPR0+2*, EXIT+1!
X EXIT+1!, LOOP1+27*
XX EXIT+1!
Y QAOSPPR0+6, QAOSPPR0+11, QAOSPPR0+13, EXIT+1!, LOOP1+16*, LOOP1+18*, LOOP1+19, 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