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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Quality Assurance Integration 4 (,FIX)^QAQAHOC2  ^QAQAHOC3  EN2^QAQAHOC4  EN^QAQAHOCH  
VA FileMan 2 YN^DICN  ^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
Quality Assurance Integration 1 QAQAHOC0  

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

External References

Name Field # of Occurrence
YN^DICN NOTHING+4, MACOUT+2
^DIR LIST+2
^QAQAHOC2 CHECK+14
FIX^QAQAHOC2 CHECK+1
^QAQAHOC3 MACOUT+6
EN2^QAQAHOC4 MACOUT+3
EN^QAQAHOCH HELP+5

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
Routine Call
  • DIR
  • Line Location:
    • LIST+2

Label References

Name Line Occurrences
CHECK MACOUT+17, MACOUT+23
ENASK ENASK+5, MACOUT+6, MACOUT+7, MACOUT+23
HELP MACOUT+6, CHECK+6
LIST ENASK+4
MACOUT MACOUT+2
NOTHING NOTHING+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NOTHING+4*, NOTHING+5, NOTHING+6, MACOUT+2*, MACOUT+3
DIR LIST+2!
DIR(0 LIST+2*
DTIME ENASK+4
IOF ENASK+3, HELP+2
IOSL LIST+2
>> QA ENASK+1*, MACOUT+11*, MACOUT+14*, CHECK+11*, CHECK+13*, LIST+2*, HELP+6*
>> QAI LIST+2*, LIST+3, LIST+4, LIST+5
>> QAQ CHECK+18*, CHECK+19, LIST+1*, LIST+2*
>> QAQAGIN MACOUT+7, MACOUT+8*, MACOUT+9*, MACOUT+13*, MACOUT+16, MACOUT+19, MACOUT+23*, CHECK+6*, CHECK+7*, CHECK+13*
, CHECK+14*
QAQBEGIN MACOUT+20!
>> QAQBLURB HELP+4
QAQCHOSN MACOUT+21!
QAQCHOSN( CHECK+7, CHECK+20*, LIST+5
>> QAQDIR(0 CHECK+14*
>> QAQDTIME ENASK+1, MACOUT+11, MACOUT+14, CHECK+11, CHECK+13, HELP+6
QAQEND MACOUT+20!
>> QAQLIST MACOUT+8*, MACOUT+13, MACOUT+17
>> QAQLST MACOUT+16*, MACOUT+17, MACOUT+23*, CHECK+4
>> QAQMAXOP( ENASK+1, MACOUT+13, HELP+3
>> QAQMENU( CHECK+4, CHECK+5, CHECK+6, CHECK+9, CHECK+13, CHECK+14, CHECK+15, LIST+3, LIST+4, LIST+5
>> QAQMHDR ENASK+2, ENASK+3
>> QAQMLOAD MACOUT+6
>> QAQMMAX CHECK+6, LIST+1
>> QAQMMAX(0 LIST+1*, LIST+2
>> QAQMOUTP MACOUT
>> QAQNEXT ENASK+1*, ENASK+5, NOTHING+6*, MACOUT+5*, MACOUT+6*, MACOUT+7*, CHECK+14*
>> QAQNONE ENASK+5, NOTHING*, NOTHING+4*
>> QAQNUMOP("S" NOTHING+2
>> QAQOPTN( MACOUT+21!, CHECK+20*
>> QAQPREFX CHECK+2, CHECK+3*, CHECK+15
>> QAQPREFX( CHECK+2*
>> QAQPREFX(0 CHECK+1*
>> QAQQUIT NOTHING+6*, MACOUT+5*, CHECK+14*
>> QAQSELOP ENASK+4*, ENASK+5, MACOUT+5, MACOUT+6, MACOUT+7, MACOUT+8, MACOUT+16, MACOUT+17*, CHECK+3*, CHECK+4
, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+13, CHECK+14, CHECK+15, CHECK+20, HELP+1
, HELP+5
>> QAQSEQ ENASK+1, ENASK+4, ENASK+5, MACOUT+9, MACOUT+17*, MACOUT+19*, MACOUT+21*, CHECK+2, CHECK+20, HELP+3
, HELP+4
>> QAQSUFFX CHECK+2, CHECK+17
>> QAQSUFFX( CHECK+2*
>> QAQSUFFX("T" CHECK+17*, CHECK+19
>> QAQSUFFX(1 CHECK+17*, CHECK+18
>> QAQTAB LIST+2*, LIST+4
>> QAQTYPE ENASK+1, MACOUT+13, MACOUT+20, MACOUT+21, CHECK+1, CHECK+2, CHECK+3, CHECK+5, CHECK+13, CHECK+14
, CHECK+20, LIST+4, HELP+3, HELP+5
>> QAQTYPE(0 ENASK+1, MACOUT+11, MACOUT+14, CHECK+10, HELP+3
>> QAQTYPE(1 ENASK+4, MACOUT+10
>> QAQYESNO NOTHING+4, MACOUT+2
>> X ENASK+2*, ENASK+3, CHECK+15*, CHECK+16, CHECK+19*, CHECK+20
>> X("T" CHECK+16*, CHECK+19
>> X(0 CHECK+16*, CHECK+18
>> X(1 ENASK+3*, CHECK+16*, CHECK+18
>> X(2 ENASK+3*
>> Y ENASK+3*, LIST+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All