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

Package: Occurrence Screen

Routine: QAOSPAD1


Information

QAOSPAD1 ;HISC/DAD-ADVERSE FINDINGS REPORT ;2/12/93 15:13

Source Information

Source file <QAOSPAD1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Quality Assurance Integration 1 EN6^QAQAUTL  
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 QAOSPAD0  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
LOOP1 ;
LOOP2 ;
LOOP3 ;
INDIV ;
TEAM ;
HOSPL ;
HEAD ;
SUBHEAD ;
PAUSE ;

External References

Name Field # of Occurrence
^DIR PAUSE+1
EN6^QAQAUTL HEAD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR THIS REPORT"
  • Line Location: QAOSPAD1+3
Function Call: WRITE
  • Prompt: !!,PAT,?32,SSN,?43,Y,?56,SCRN,?63,STATUS,?71,FIND
  • Line Location: LOOP2+2
Function Call: WRITE
  • Prompt: !,$E(ATTEND,1,25),?27,$E(TEAM,1,25),?54,$E(PROV,1,25)
  • Line Location: LOOP2+3
Function Call: WRITE
  • Prompt: !,"-ATTRIBUTION(INDIVIDUAL)-",?27,"-ATTRIBUTION(MEDICAL TEAM)-",?56,"-ATTRIBUTION(HOSP LOC)-"
  • Line Location: LOOP2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP3+1
Function Call: WRITE
  • Prompt: $E(X,1,25)
  • Line Location: INDIV+1
Function Call: WRITE
  • Prompt: ?27,$E(X,1,25)
  • Line Location: TEAM+1
Function Call: WRITE
  • Prompt: ?56,$E(X,1,25)
  • Line Location: HOSPL+1
Function Call: WRITE
  • Prompt: !!?32,"ADVERSE FINDINGS",?68,TODAY,!?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,UNDL
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!?3,"SERVICE: ",$S(SERV["~":$P(SERV,"~",2),1:SERV)
  • Line Location: SUBHEAD+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" QAOSPAD1+2, LOOP2+1
^QA(741 - [#741] LOOP2+6, LOOP3+2, INDIV+1, TEAM+1, HOSPL+1
^QA(741.93 - [#741.93] TEAM+1
^SC - [#44] HOSPL+1
^TMP($J QAOSPAD1+3, QAOSPAD1+4, LOOP1+1, LOOP2+1
^VA(200 - [#200] INDIV+1

Label References

Name Line Occurrences
EXIT QAOSPAD1+3
HEAD QAOSPAD1+3, LOOP2+4, LOOP3+2
HOSPL LOOP3+1
INDIV LOOP3+1
LOOP1 QAOSPAD1+4
LOOP2 LOOP1+1
LOOP3 LOOP3+3
PAUSE LOOP2+4, LOOP3+2
SUBHEAD QAOSPAD1+4
TEAM LOOP3+1

Naked Globals

Name Field # of Occurrence
^(0 INDIV+1, TEAM+1, HOSPL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ATTEND LOOP2+1*, LOOP2+3
>> DATE LOOP1+1*, LOOP2+1
>> DH LOOP2+5*, LOOP3+1, LOOP3+2, LOOP3+3, HOSPL+1*
>> DI LOOP2+5*, LOOP3+1, LOOP3+2, LOOP3+3, INDIV+1*
DIR PAUSE+1!
DIR(0 PAUSE+1*
>> DM LOOP2+5*, LOOP3+1, LOOP3+2, LOOP3+3, TEAM+1*
DT QAOSPAD1+2
>> FIND LOOP2+1*, LOOP2+2
IOF HEAD+1
IOSL LOOP2+4, LOOP3+2
IOST LOOP2+4, LOOP3+2, HEAD+1
>> LOC LOOP2+1*
>> PAGE QAOSPAD1+2*, HEAD+1, HEAD+2*
>> PAT QAOSPAD1+4*, LOOP1+1, LOOP2+1, LOOP2+2
>> PROV LOOP2+1*, LOOP2+3
>> PT QAOSPAD1+4*
>> QAOSCHOS LOOP2+2, LOOP2+5, INDIV+1, TEAM+1, HOSPL+1, HEAD+4
>> QAOSD0 LOOP2+1*, LOOP2+6, LOOP3+2, INDIV+1, TEAM+1, HOSPL+1
>> QAOSQUIT QAOSPAD1+2*, QAOSPAD1+4, LOOP1+1, LOOP2+4, LOOP3+2, PAUSE+1*
>> QAQ2HED HEAD+2
>> QAQTART HEAD+2
>> SCRN QAOSPAD1+4*, LOOP1+1, LOOP2+1, LOOP2+2
>> SERV QAOSPAD1+4*, LOOP1+1, LOOP2+1, SUBHEAD+1
>> SRV QAOSPAD1+4*
>> SSN LOOP2+1*, LOOP2+2
>> STATUS LOOP2+1*, LOOP2+2
>> TEAM LOOP2+1*, LOOP2+3
>> TODAY QAOSPAD1+2*, HEAD+2
UNDL QAOSPAD1+2!*, HEAD+4
>> X INDIV+1*, TEAM+1*, HOSPL+1*
>> Y QAOSPAD1+2*, LOOP2+1*, LOOP2+2, 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