Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls