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

Package: Occurrence Screen

Routine: QAOEDT0


Information

QAOEDT0 ;HISC/DAD-CLINICAL, PEER, & MANAGER REVIEW ;6/24/93 15:34

Source Information

Source file <QAOEDT0.m>

Entry Points

Name Comments DBIA/ICR reference
ASKDFN ;
EN1 ;
; *** FINAL DISPOSITION ACTIONS AND FINDINGS
ASKDISP ;
DONE ;
ASKLEVL ;
SEARCH ;
ASKADD ;
ADD
EDIT ;
CHKACT ;
RESET ;
AUDIT(A,C) ; AUDIT: A = ACTION, C = COMMENT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Select CLINICAL, PEER, or MANAGEMENT review level."
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !?5,"Only one CLINICAL review level may be entered."
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to enter a FINAL DISPOSITION"
  • Line Location: ASKDISP+4
Function Call: WRITE
  • Prompt: !!?10,"Enter Y(es) to edit the FINAL DISPOSITION DATE and FINAL"
  • Line Location: ASKDISP+7
Function Call: WRITE
  • Prompt: !?10,"DISPOSITION REACHED BY data."
  • Line Location: ASKDISP+8
Function Call: WRITE
  • Prompt: !?10,"Enter N(o) to skip the FINAL DISPOSITION and select the next patient."
  • Line Location: ASKDISP+9
Function Call: READ
  • Formatting: !!
  • Prompt: "Select REVIEW LEVEL: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKLEVL+1
Function Call: WRITE
  • Prompt: !!,"Already existing reviews for this occurrence:"
  • Line Location: ASKLEVL+6
Function Call: WRITE
  • Prompt: !?5,QAOSD1,?15,QAOSFOND(QAOSD1)
  • Line Location: SEARCH+8
Function Call: WRITE
  • Prompt: !!,"Choose (",QAOSFOND,"): "
  • Line Location: SEARCH+11
Function Call: READ
  • Variable: QAOSD1
  • Timeout: DTIME
  • Line Location: SEARCH+12
Function Call: WRITE
  • Prompt: !!?5,"Enter one of the numbers listed below, or press RETURN"
  • Line Location: SEARCH+18
Function Call: WRITE
  • Prompt: !?5,"to add a new ",QAOSLEVL(0)," review level. "
  • Line Location: SEARCH+19
Function Call: WRITE
  • Prompt: "Up-arrow (^) to exit."
  • Line Location: SEARCH+20
Function Call: WRITE
  • Prompt: " ",$G(QAOSFOND(+QAOSD1))
  • Line Location: SEARCH+23
Function Call: WRITE
  • Prompt: *7,!!?5,"Are you adding ",QAOSLEVL(0)," as a new review level"
  • Line Location: ASKADD+2
Function Call: WRITE
  • Prompt: !!?5,"Enter Y(es) to create a new review level."
  • Line Location: ASKADD+5
Function Call: WRITE
  • Prompt: !?5,"Enter N(o) to skip adding another review level."
  • Line Location: ASKADD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: RESET+1
Function Call: WRITE
  • Prompt: !!?5,"You may not change the review level, but you may delete it (@)"
  • Line Location: RESET+2
Function Call: WRITE
  • Prompt: !?5,"if you wish. Resetting the review level to its original value."
  • Line Location: RESET+3
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: RESET+4

FileMan Files Accessed Via FileMan Db Call

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