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

Package: Clinical Monitoring System

Routine: QAMAHO1


Information

QAMAHO1 ;HISC/GJC-REPORTS FOR FALLOUT FILE ;11/15/94 13:47

Source Information

Source file <QAMAHO1.m>

Entry Points

Name Comments DBIA/ICR reference
KILL
ASKSRT ;
ASKPRT ;
CHPRT ;
CHSRT ;
DISP ;
MSSG ;
VOID ;
ZFLDS ;;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: ZZZ
  • Timeout: 3
  • Line Location: ASKSRT+3
Function Call: WRITE
  • Prompt: !!?15,"Maximum of two sort fields reached!!",*7
  • Line Location: ASKSRT+3
Function Call: WRITE
  • Prompt: !?15,"Select next field to sort on. "
  • Line Location: ASKSRT+4
Function Call: WRITE
  • Prompt: !?15,"Maximum two sort fields allowed."
  • Line Location: ASKSRT+5
Function Call: WRITE
  • Prompt: !?15,"* indicates already selected."
  • Condition for execution: CNTR>0
  • Line Location: ASKSRT+5
Function Call: WRITE
  • Prompt: !!?15,"Sort selection #",CNTR+1_": "
  • Line Location: ASKSRT+5
Function Call: READ
  • Variable: ZZZ
  • Timeout: 3
  • Line Location: ASKPRT+3
Function Call: WRITE
  • Prompt: !!?15,"Maximum of four print fields reached!!",*7
  • Line Location: ASKPRT+3
Function Call: WRITE
  • Prompt: !?15,"Select next field to print on. "
  • Line Location: ASKPRT+4
Function Call: WRITE
  • Prompt: !?15,"Maximum four print fields allowed. "
  • Line Location: ASKPRT+5
Function Call: WRITE
  • Prompt: !?15,"* indicates already selected."
  • Condition for execution: CNT>0
  • Line Location: ASKPRT+5
Function Call: WRITE
  • Prompt: !!?15,"Print selection # ",CNT+1_": "
  • Line Location: ASKPRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,+X,$S($D(CHOICE(+X))#2:" * ",1:" "),$P(X," ",2)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,+X,$S($D(CHOICE(+X))#2:" * ",1:" "),$P(X," ",2)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: *7," ??",!!?15,"Enter a number between 1 - "_LIMIT_". "
  • Line Location: MSSG+1
Function Call: WRITE
  • Prompt: !!?15,*7,"You have not selected any sort or print data.",!?15,"Do you wish to exit the program"
  • Line Location: VOID+1
Function Call: WRITE
  • Prompt: !,*7,?15,"""Y"" for Yes, ""N"" for No "
  • Line Location: VOID+2
Info |  Source |  Entry Points |  Interaction Calls