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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Occurrence Screen 5 EN2^QAOEDT  ^QAOEDT0C  ^QAOEDT0M  ^QAOEDT0P  ENDISP^QAOUTL0  
VA FileMan 4 ^DIC  (FILE,YN)^DICN  DQ^DICQ  ^DIE  
Kernel 1 HOME^%ZIS  
Quality Assurance Integration 1 ^QAQAUDIT  

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

Package Total Caller Graph
Occurrence Screen 5 QAOEDT0C  QAOEDT0M  QAOEDT0P  QAOS C/P/M REVIEW  QAOSENTR  

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

External References

Name Field # of Occurrence
HOME^%ZIS ASKDFN+1
^DIC ASKLEVL+11
FILE^DICN ADD+3
YN^DICN ASKDISP+5, ASKADD+3
DQ^DICQ ASKLEVL+7
^DIE EN1+5, ASKDISP+13, RESET+7
EN2^QAOEDT ASKDFN+2
^QAOEDT0C EDIT+1
^QAOEDT0M EDIT+1
^QAOEDT0P EDIT+1
ENDISP^QAOUTL0 EN1+3, ASKDISP+11
^QAQAUDIT AUDIT+3

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
Routine Call
  • %ZIS
  • Line Location:
    • ASKDFN+1
Routine Call
  • DIC
  • Line Location:
    • ASKLEVL+11
Routine Call
  • DIE
  • Line Location:
    • EN1+5
    • ASKDISP+13
    • RESET+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(741 - [#741] Classic Fileman Calls
^QA(741.2 - [#741.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] SEARCH+7
^QA(741 - [#741] ASKDISP+2, ASKLEVL+7, SEARCH+2, SEARCH+3, SEARCH+5, SEARCH+14, ASKADD+1, ADD, CHKACT+1
^QA(741.2 - [#741.2] ASKDISP+1
^QA(741.7 - [#741.7] CHKACT+1
^VA(200 - [#200] SEARCH+7

Label References

Name Line Occurrences
ADD ASKADD+1
ASKADD SEARCH+10, ASKADD+4
ASKDISP ASKDISP+6
ASKLEVL EN1+8, ASKLEVL+11, SEARCH+12, ASKADD+3, EDIT+2
AUDIT EN1+5, EN1+9, ASKDISP+14, EDIT+2
DONE EN1+5, EN1+9, ASKDISP+3, ASKDISP+5
EDIT SEARCH+3, SEARCH+24
SEARCH SEARCH+13

Naked Globals

Name Field # of Occurrence
^(0 ADD*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKDFN+3!, ASKDISP+5*, ASKDISP+6, ASKADD+3*, ASKADD+4
A AUDIT~, AUDIT+1
C AUDIT~, AUDIT+1
D ASKDFN+3!, ASKLEVL+5*
D0 ASKDFN+3!, ASKLEVL+5*, ADD+2*, RESET+6*
D1 ASKDFN+3!, RESET+6*
DA ASKDFN+3!, EN1+4*, ASKDISP+12*, ASKLEVL+5*, ADD+2*, RESET+6*
DA(1 ASKLEVL+5*, ADD+2*, RESET+6*
DD ASKDFN+3!, ADD+1!
DIC ASKDFN+3!, ASKLEVL+4!*, ASKLEVL+10!*, ASKLEVL+11!, ADD+1!*
DIC("S" ASKLEVL+11*
DIC(0 ASKLEVL+4*, ASKLEVL+10*, ADD+1*
DIE ASKDFN+3!, EN1+4*, ASKDISP+12*, RESET+5*
DINUM ASKDFN+3!, ADD+1!
DO ASKDFN+3!, ADD+1!
DR ASKDFN+3!, EN1+4!*, ASKDISP+12!*, RESET+5!, RESET+6*
DTIME ASKLEVL+1, SEARCH+12
DZ ASKDFN+3!, ASKLEVL+5*
QA ASKDFN+6!, SEARCH+13, SEARCH+14*, SEARCH+15*, SEARCH+16, CHKACT+1*
QALIMIT ASKDFN+2*, ASKDFN+7!
QAOFIELD ASKDFN+7!
QAOS ASKDFN+3!, SEARCH+5*, SEARCH+7, CHKACT+1*
QAOSD0 ASKDFN+3!, EN1+4, ASKDISP+2, ASKDISP+12, ASKLEVL+4, ASKLEVL+5, ASKLEVL+7, SEARCH+2, SEARCH+3, SEARCH+5
, SEARCH+14, ASKADD+1, ADD, ADD+1, ADD+2, CHKACT+1, RESET+5, RESET+6, AUDIT+2
QAOSD1 ASKDFN+3!, SEARCH+2*, SEARCH+3, SEARCH+4, SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+8, SEARCH+12*, SEARCH+13
, SEARCH+14, SEARCH+15, SEARCH+17, SEARCH+23, SEARCH+24, ADD+3*, CHKACT+1, RESET+6
QAOSD2 ASKDFN+3!
QAOSDATA ASKDFN+4!, ASKLEVL+7*, ASKLEVL+8
QAOSDATE ASKDFN+4!
QAOSDFN ASKDFN+4!
QAOSFDSP ASKDFN+6!, EN1+2*, ASKDISP+2*, ASKDISP+3, CHKACT+1*
QAOSFDSP("A" EN1+2*, CHKACT+1
QAOSFDSP("F" EN1+2*
QAOSFIND ASKDFN+4!, ASKDFN+6!
QAOSFOND ASKDFN+4!, SEARCH+1!, SEARCH+2*, SEARCH+6*, SEARCH+10*, SEARCH+11, SEARCH+15
QAOSFOND( SEARCH+7*, SEARCH+8, SEARCH+23
QAOSLEVL ASKDFN+4!, ASKLEVL+12*, SEARCH+2, SEARCH+5, ASKADD+1, ADD+2
QAOSLEVL(0 ASKLEVL+12*, SEARCH+7, SEARCH+19, ASKADD+2
QAOSLOC ASKDFN+7!
QAOSLVNO ASKDFN+4!, ASKLEVL+12*, SEARCH+3, EDIT+1
QAOSMDUE ASKDFN+5!
QAOSMGMT ASKDFN+7!, ASKDISP+1*, ASKDISP+2
QAOSNEWF ASKDFN+5!
QAOSNODE ASKDFN+7!
QAOSONE ASKDFN+7!
QAOSPDUE ASKDFN+5!
QAOSPROG ASKDFN+2*, ASKDFN+7!
QAOSQUIT ASKDFN+5!, EN1+2*, EN1+5*, EN1+9, ASKDISP+13*, ASKLEVL+2*, CHKACT+1*
QAOSREVR ASKDFN+7!
QAOSREVR(0 RESET+6
QAOSSCRN ASKDFN+5!
QAOSSERV ASKDFN+8!
QAOSUBDD ASKDFN+8!
QAOSWARD ASKDFN+5!
QAOSWHAT ASKDFN+5!, EN1+3*, ASKDISP+11*
QAOSX ASKDFN+6!
QAOSZERO ASKDFN+6!
QAUDIT ASKDFN+6!, AUDIT+1~
QAUDIT("ACTION" AUDIT+1*
QAUDIT("COMMENT" AUDIT+1*
QAUDIT("DA" AUDIT+2*
QAUDIT("FILE" AUDIT+2*
SAVEX ASKDFN+6!
SAVEY ASKDFN+6!
UNDL ASKDFN+6!
X ASKDFN+6!, ASKLEVL+1*, ASKLEVL+2, ASKLEVL+3, ASKLEVL+4~, ADD+2*
Y ASKDFN+6!, EN1+5, ASKDISP+13, ASKLEVL+11, ASKLEVL+12, ADD+3
Y(0 ASKLEVL+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All