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

Package: Quality Assurance Integration

Routine: QAQAHOC1


Information

QAQAHOC1 ;HISC/DAD-AD HOC REPORTS: SORT/PRINT SELECTION ;3/23/94 12:22

Source Information

Source file <QAQAHOC1.m>

Entry Points

Name Comments DBIA/ICR reference
ENASK ; *** Prompt user for sort/print fields
NOTHING
MACOUT
CHECK ; *** Check user's input
LIST ; *** Display the sort/print menus
HELP ; *** Display the sort/print help screens

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: QA
  • Timeout: QAQDTIME
  • Line Location: ENASK+1
Function Call: WRITE
  • Prompt: !!?3,"Maximum of ",QAQMAXOP(QAQTYPE)," ",QAQTYPE(0)," fields reached. ",*7
  • Line Location: ENASK+1
Function Call: WRITE
  • Prompt: " ",X(1),X,X(2)
  • Line Location: ENASK+3
Function Call: READ
  • Variable: QAQSELOP
  • Timeout: DTIME
  • Line Location: ENASK+4
Function Call: WRITE
  • Prompt: *7,!!?3,"You have not selected any "
  • Line Location: NOTHING+1
Function Call: WRITE
  • Prompt: !?3,"Do you wish to exit the program"
  • Line Location: NOTHING+3
Function Call: WRITE
  • Prompt: !!?5,QAQYESNO
  • Line Location: NOTHING+4
Function Call: WRITE
  • Prompt: !!?3,"No report will be produced."
  • Line Location: NOTHING+6
Function Call: WRITE
  • Prompt: !!?3,"You previously asked for macro output, do you still want it"
  • Line Location: MACOUT+1
Function Call: WRITE
  • Prompt: !!?5,QAQYESNO
  • Line Location: MACOUT+2
Function Call: WRITE
  • Prompt: !!?3,QAQTYPE(1)," lists may only be entered at the"
  • Line Location: MACOUT+10
Function Call: WRITE
  • Prompt: " first ",QAQTYPE(0)," selection prompt !! ",*7
  • Line Location: MACOUT+11
Function Call: WRITE
  • Prompt: !!?3,"Too many ",QAQTYPE(0)," fields chosen !! ",*7
  • Line Location: MACOUT+14
Function Call: WRITE
  • Prompt: " ",$P($G(QAQMENU(+QAQSELOP)),"^",2)
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: *7,!!?3,"You have already chosen item ",QAQSELOP,", "
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: $P(QAQMENU(QAQSELOP),"^",2),","
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !?3,"as a ",QAQTYPE(0)," field !! Please re-enter your selection. "
  • Line Location: CHECK+10
Function Call: READ
  • Variable: QA
  • Timeout: QAQDTIME
  • Line Location: CHECK+13
Function Call: WRITE
  • Prompt: !!?3,"You are not allowed to sort by ",$P(QAQMENU(QAQSELOP),"^",2)," !! ",*7
  • Line Location: CHECK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: QAQTAB=0
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: ?QAQTAB,$S(QAQTYPE="P"!QAQMENU(QAI):$J(QAI,2),1:" ")
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: $S($D(QAQCHOSN(QAI)):" * ",1:" "),$P(QAQMENU(QAI),"^",2)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: " ??",*7,!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Select the ",$S(QAQSEQ=1:$S(QAQTYPE="S":"major",1:"first"),1:"next")," data element to ",$S(QAQTYPE="S":"sort by",1:"print"),". Maximum of ",QAQMAXOP(QAQTYPE)," ",QAQTYPE(0)," fields allowed."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,QAQBLURB,$S(QAQSEQ>1:", * means already chosen",1:""),".",!
  • Line Location: HELP+4
Info |  Source |  Entry Points |  Interaction Calls