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

Package: Quality Assurance Integration

Routine: QAQAHOCY


Information

QAQAHOCY ;HISC/DAD-AD HOC REPORTS: INTERFACE COMPILER ;7/12/95 14:57

Source Information

Source file <QAQAHOCY.m>

Entry Points

Name Comments DBIA/ICR reference
FLD ; *** Process the sort/print fields
NAME ; *** Prompt user for the external field name
SORT ; *** Allow sorting on this field (Y/N)
DIR ; *** Set up DIR(0) for sort from/to prompts
DATE
NUMERIC
POINTER
SET
TEXT
SETLINE ; *** Save menu $TEXT line in ^TMP
EXIT ; *** Exit field questions loop
LIST ; *** Display the fields already chosen
CASE(QAQ)
U(X)
L(X)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Choose a field for menu item number ",QAQMMAX+1,", <RETURN> to end, ^ to exit."
  • Line Location: FLD+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FLD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FLD+3
Function Call: WRITE
  • Prompt: !!?5,"*** You have already chosen that field !! ***",*7
  • Line Location: FLD+8
Function Call: WRITE
  • Prompt: !!?5,QAQYESNO,!
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: !!?5,"*** This line is ",Y," character",$S(Y>1:"s",1:"")," too long, maximum is 245 !! ***",*7
  • Line Location: SETLINE+2
Function Call: WRITE
  • Prompt: !!,"You have already selected the following: (Menu Item # Menu Text)",!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?QAQTAB,$S($P(X,"^"):$J(QAI-1000,2),1:" ")," ",$P(X,"^",2)
  • Line Location: LIST+5
Info |  Source |  Entry Points |  Interaction Calls