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

Package: Occurrence Screen

Routine: QAOSPSM1


Information

QAOSPSM1 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART I ;11/20/92 15:39

Source Information

Source file <QAOSPSM1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Occurrence Screen 1 QAOSPSM  

Entry Points

Name Comments DBIA/ICR reference
LOOP0 ;
LOOP1 ;
HDR ;
PAUSE ;

External References

Name Field # of Occurrence
^DIR PAUSE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(QAOSSEQ,2)," (",X,")"
  • Line Location: LOOP1+1
Function Call: WRITE
  • Prompt: !!,"COMMENTS:"
  • Line Location: LOOP1+4
Function Call: WRITE
  • Prompt: !!?TAB,X,!?TAB,$TR($J("",$L(X))," ","-")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"MEDICAL CENTER: ",$S(QAOBLANK:$E(UNDL,1,64),1:QAOSSITE)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"PERSON PREPARING REPORT: ",$E(UNDL,1,55)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"TITLE & CORRESPONDENCE SYMBOL OF THE ABOVE: ",$E(UNDL,1,36)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"FTS TELEPHONE: ",$E(UNDL,1,27)," TELEFAX: ",$E(UNDL,1,28)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"REPORTING PERIOD: ",$S(QAOBLANK:$E(UNDL,1,62),1:QAQ2HED),!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"|CRITERION|--# OF OCCURRENCES---|--OUTCOME OF PEER REVIEW---|-# OF OCCURRENCES-|"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"| SCREEN | REVIEWED REFERRED |LEVEL LEVEL LEVEL PENDING| REFERRED FOR |"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"| | CLINICALLY TO PEER | 1 2 3 | SYSTEM EQUIPMENT|"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"|=========|=====================|===========================|==================|"
  • Line Location: HDR+12
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] QAOSPSM1+2
^QA(740 - [#740] QAOSPSM1+2
^UTILITY($J LOOP0+1, LOOP0+2, LOOP1+1, LOOP1+3, LOOP1+4

Label References

Name Line Occurrences
HDR LOOP0+1, LOOP1+3
LOOP0 QAOSPSM1+3
LOOP1 LOOP0+2
PAUSE LOOP1+3, LOOP1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+1!
DIR(0 PAUSE+1*
IOF HDR+1
IOSL LOOP1+3
IOST LOOP1+3, LOOP1+4, HDR+1
>> QA LOOP1+2*
>> QAOBLANK LOOP1+2, HDR+4, HDR+8
>> QAOSLIST QAOSPSM1+3
>> QAOSLST QAOSPSM1+3*
>> QAOSLST(0 QAOSPSM1+3*, LOOP0+1, LOOP0+2, LOOP1+1, LOOP1+3, LOOP1+4, HDR+2
>> QAOSPAGE LOOP0+1*, HDR+1*
>> QAOSQUIT QAOSPSM1+2*, QAOSPSM1+3, LOOP0+2, LOOP1+3, PAUSE+1*
>> QAOSSEQ LOOP0+2*, LOOP1+1, LOOP1+3, LOOP1+4
>> QAOSSITE QAOSPSM1+2*, HDR+4
>> QAOSTEMP LOOP1+1*, LOOP1+2
>> QAQ2HED HDR+8
>> TAB LOOP1+2*, HDR+2*, HDR+3
UNDL QAOSPSM1+2!*, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8
>> X LOOP1+1*, LOOP1+2*, HDR+2*, HDR+3
>> Y PAUSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All