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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QAOSENT1

Package: Occurrence Screen

Routine: QAOSENT1


Information

QAOSENT1 ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93 08:01

Source Information

Source file <QAOSENT1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 YN^DICN  

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

Package Total Caller Graph
Occurrence Screen 1 QAOSENTR  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
EXIT ;

External References

Name Field # of Occurrence
YN^DICN ASK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"*** THIS OCCURRENCE HAS ALREADY BEEN ENTERED ***",*7
  • Line Location: QAOSENT1+6
Function Call: WRITE
  • Prompt: !!?5,"To create another similar occurrence screen record for this"
  • Line Location: QAOSENT1+7
Function Call: WRITE
  • Prompt: !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",!
  • Line Location: QAOSENT1+8
Function Call: WRITE
  • Prompt: !!?5,"*** A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ***",*7,!
  • Line Location: QAOSENT1+11
Function Call: WRITE
  • Prompt: !?5,"Do you want to continue"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Answering Y(es) will add a new record to the file."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,"Answering N(o) will abort the entry process and allow you to enter"
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"a different new record, or you may use the 'Reopen Closed/Deleted"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"Occurrence Screen Record' option to work with the old record.",!
  • Line Location: ASK+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(741 - [#741] QAOSENT1+3

Label References

Name Line Occurrences
ASK ASK+3
EXIT QAOSENT1+4, QAOSENT1+5, ASK+2

Naked Globals

Name Field # of Occurrence
^(0 QAOSENT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+2*, ASK+3, EXIT+1!
>> LOC QAOSENT1+3*
>> QADATE QAOSENT1+3
>> QANAME QAOSENT1+3
QAOSD0 QAOSENT1+3*, EXIT+1!
>> QAOSQUIT QAOSENT1+2*, QAOSENT1+3*, QAOSENT1+4*, QAOSENT1+5, QAOSENT1+9*, ASK+2*
>> QASCRN QAOSENT1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All