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

Package: Quality Assurance Integration

Routine: QAQAHOC4


Information

QAQAHOC4 ;HISC/DAD-AD HOC REPORTS: MACRO OUTPUT ;12/30/92 11:30

Source Information

Source file <QAQAHOC4.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
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: 3

Package Total Caller Graph
Quality Assurance Integration 3 QAQAHOC0  QAQAHOC1  QAQAHOC3  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; *** Set the output macro flag
EN2 ; *** Print the macro report
ENTSK
EXIT ; *** Exit the macro report
PS ; *** Print the macro sort data
PS1 ; *** Inquire sort macro entry point
PP ; *** Print the macro print data
PP1 ; *** Inquire print macro entry point
PAUSE ; *** Pause at the end of page
QVAR ; *** Save variables for queueing

External References

Name Field # of Occurrence
^%ZIS EN2+1
^%ZISC EXIT+1
^%ZTLOAD EN2+1
^DIR PAUSE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"You will be prompted for an output",!?3,"device when you exit the ",QAQTYPE(0)," menu. ",*7
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !?19,"=========================================="
  • Line Location: ENTSK+2
Function Call: WRITE
  • Prompt: !?19,"|| AD HOC REPORT GENERATOR MACRO REPORT ||"
  • Line Location: ENTSK+3
Function Call: WRITE
  • Prompt: !?19,"=========================================="
  • Line Location: ENTSK+4
Function Call: WRITE
  • Prompt: !!!,"Report name: ",$E(QAQUNDL,1,67)
  • Line Location: ENTSK+5
Function Call: WRITE
  • Prompt: !!,"Sort fields:",!,"------------"
  • Line Location: ENTSK+6
Function Call: WRITE
  • Prompt: !!,"Macro: ",$S($D(QAQMACRO("S"))#2:$P(QAQMACRO("S"),"^",2),1:$E(QAQUNDL,1,73))
  • Line Location: ENTSK+7
Function Call: WRITE
  • Prompt: !!,"Print fields:",!,"-------------"
  • Line Location: ENTSK+10
Function Call: WRITE
  • Prompt: !!,"Macro: ",$S($D(QAQMACRO("P"))#2:$P(QAQMACRO("P"),"^",2),1:$E(QAQUNDL,1,73))
  • Line Location: ENTSK+11
Function Call: WRITE
  • Prompt: !!,"Header: ",$E(QAQUNDL,1,72)
  • Line Location: ENTSK+14
Function Call: WRITE
  • Prompt: !!,"Device: ",$E(QAQUNDL,1,72)
  • Line Location: ENTSK+15
Function Call: WRITE
  • Prompt: !!?3,QAQORDER,") Field: ",$S(QA]"":QA,QAQFIELD?1.N:"*** CORRUPTED ***",1:$E(QAQUNDL,1,30))
  • Line Location: PS1+2
Function Call: WRITE
  • Prompt: !?6,"Entry: ",$S(X(1)]"":X(1),1:$E(QAQUNDL,1,30))
  • Line Location: PS1+4
Function Call: WRITE
  • Prompt: !?6,"From: ",$E($S(X(2)]"":X(2),1:QAQUNDL),1,30)
  • Line Location: PS1+5
Function Call: WRITE
  • Prompt: ?46,"To: ",$E($S(X(3)]"":X(3),1:QAQUNDL),1,30)
  • Line Location: PS1+6
Function Call: WRITE
  • Prompt: !!?3,QAQORDER,") Field: ",$S(QA]"":QA,QAQFIELD?1.N:"*** CORRUPTED ***",1:$E(QAQUNDL,1,30))
  • Line Location: PP1+2
Function Call: WRITE
  • Prompt: !?6,"Entry: ",$S(X(1)]"":X(1),1:$E(QAQUNDL,1,30))
  • Line Location: PP1+4
Routine Call
  • %ZIS
  • Line Location:
    • EN2+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(740.1 - [#740.1] PS+5, PS+8, PP+4, PP+6

Label References

Name Line Occurrences
EXIT EN2+1, ENTSK+9, ENTSK+13
PAUSE ENTSK+9, ENTSK+13
PP ENTSK+12
PS ENTSK+8
QVAR EN2+1

Naked Globals

Name Field # of Occurrence
^("FRTO" PS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN2+1!*
%ZIS("A" EN2+1*
DIR PAUSE+1!
DIR(0 PAUSE+1*
>> FR( PS+2
IO ENTSK+1
IO("Q" EN2+1!
IOF ENTSK+1, ENTSK+16
IOP EN2+1!
IOST ENTSK+1, ENTSK+16, PAUSE+1
>> POP EN2+1
>> QA EN1+2*, PS+4*, PS+5, PS+8*, PS+9, PS+10, PS1+1*, PS1+2, PP+3*, PP+4
, PP1+1*, PP1+2, QVAR+2*
>> QAI PS+10*
>> QAQ PS+8*, PS+10
>> QAQD1 PS+4*, PS+5*, PS+7, PS+8, PP+3*, PP+4*, PP+6
>> QAQDTIME EN1+2
>> QAQEXIT ENTSK*, ENTSK+9, ENTSK+13, PAUSE+1*
>> QAQFIELD ENTSK+8*, ENTSK+12*, PS+1, PS1+1, PS1+2, PP+1, PP1+1, PP1+2
>> QAQMACRO("P" ENTSK+11, PP+2, PP+4, PP+6
>> QAQMACRO("S" ENTSK+7, PS+3, PS+5, PS+8
>> QAQMAXOP("P" ENTSK+12
>> QAQMAXOP("S" ENTSK+8
>> QAQMENU( PS1+1, PP1+1
>> QAQMOUTP EN1+1*, EXIT+1*
>> QAQOPTN("P" ENTSK+12
>> QAQOPTN("S" ENTSK+8
>> QAQORDER ENTSK+8*, ENTSK+12*, PS+2, PS1+2, PP1+2
>> QAQTYPE(0 EN1+1
QAQUNDL ENTSK!*, ENTSK+5, ENTSK+7, ENTSK+11, ENTSK+14, ENTSK+15, PS1+2, PS1+4, PS1+5, PS1+6
, PP1+2, PP1+4
>> TO( PS+2
>> X ENTSK+8*, ENTSK+12*, PS+1, PP+1
>> X( PS+10*
>> X(1 PS+1*, PS+2, PS+3, PS+4, PS+5, PS+9*, PS1+3*, PS1+4, PP+1*, PP+2
, PP+3, PP+4, PP+6*, PP1+3*, PP1+4
>> X(2 PS+2*, PS1+5
>> X(3 PS+2*, PS1+6
>> XX PS1+3*, PP1+3*
>> Y PAUSE+1
>> ZTDESC QVAR+1*
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
>> ZTRTN QVAR+1*
>> ZTSAVE( QVAR+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All