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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: QAOEDT1

Package: Occurrence Screen

Routine: QAOEDT1


Information

QAOEDT1 ;HISC/DAD-QUICK EXCEPTION EDIT ;7/26/93 13:09

Source Information

Source file <QAOEDT1.m>

Entry Points

Name Comments DBIA/ICR reference
ASKCLIN ;
DFN ;
ASKOK ;
DOIT ;
EXIT ;
EXCEPT ; *** SELECT A GROUP OF EXCEPTIONS
; *** RETURNS ^TMP($J,"QAOS EXCEPTION",EXCEPTION IEN)=""
; *** RETURNS QAOSQUIT = $S('^' OUT:1,TIME OUT:1,1:0)
ASKEXC ;
SHOW ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?15,"*** REVIEWS ALREADY EXIST FOR THIS OCCURRENCE ***"
  • Line Location: DFN+3
Function Call: WRITE
  • Prompt: !?2,"*** Use the 'Clinical, Peer, Manager Review' option to edit exceptions ***",!,*7
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: !!?5,"Mark this record as an exception (Y/N) "
  • Line Location: ASKOK+2
Function Call: WRITE
  • Prompt: !!?10,"Please answer Y(es) or N(o)"
  • Line Location: ASKOK+3
Function Call: WRITE
  • Prompt: !!,"Entering Clinical Review Findings as Exception to Criteria..."
  • Line Location: DOIT+1
Function Call: WRITE
  • Prompt: "Finished"
  • Line Location: DOIT+16
Function Call: WRITE
  • Prompt: !,"Entering Final Disposition..."
  • Line Location: DOIT+17
Function Call: WRITE
  • Prompt: "Finished"
  • Line Location: DOIT+22
Function Call: WRITE
  • Prompt: !!,$S(QAOSNUM>1:"Another one",1:"Select EXCEPTION")_": "
  • Line Location: ASKEXC+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKEXC+2
Function Call: WRITE
  • Prompt: !!?5,"Select an exception name or number, to deselect an item"
  • Line Location: ASKEXC+4
Function Call: WRITE
  • Prompt: !?5,"type a minus sign (-) in front of it, e.g. -EXCEPTION.",!
  • Line Location: ASKEXC+5
Function Call: WRITE
  • Prompt: !,"You have already selected:"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?3,$P(QAOS,"^",3)," ",$P(QAOS,"^")
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^QA(741 - [#741] Classic Fileman Calls
^QA(741.5 - [#741.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call