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

Package: Occurrence Screen

Routine: QAOSENTR


Information

QAOSENTR ;HISC/JES,DAD-ENTER EDIT AN OCCURRENCE ;6/24/93 15:41

Source Information

Source file <QAOSENTR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 ^%DT  ^DIC  WAIT^DICD  (FILE,YN)^DICN  ^DIE  ^DIR  
Occurrence Screen 2 EN1^QAOEDT0  ^QAOSENT1  
Quality Assurance Integration 1 ^QAQAUDIT  
Registration 1 (IN5,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Occurrence Screen 1 QAOS ENTER OCCURRENCE  

Entry Points

Name Comments DBIA/ICR reference
ASKREVU ;
ENLOOK ;
EDIT ;
NOTHERE ;
ASKEDIT ;
DATE ;
EXIT ;
WHODEAD ;
DAGAIN ;
ENTER ;
ASK ;
ISHEDEAD ;
REVIEW ;

External References

Name Field # of Occurrence
^%DT DATE+2
^DIC ENTER+2, DAGAIN+5
WAIT^DICD ENLOOK+1
FILE^DICN DAGAIN+12
YN^DICN ASK+2, DAGAIN+2, NOTHERE+3, ASKEDIT+2, ASKREVU+2
^DIE DAGAIN+16, EDIT+1
^DIR ENLOOK+15
EN1^QAOEDT0 REVIEW+1
^QAOSENT1 DAGAIN+6
^QAQAUDIT DAGAIN+19
IN5^VADPT DAGAIN+10
KVAR^VADPT EXIT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to see list of open occurrences"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+1
Function Call: WRITE
  • Prompt: !!?5,"Is this the correct date (Y/N)"
  • Line Location: DAGAIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DAGAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DAGAIN+5
Function Call: WRITE
  • Prompt: *7,!!?5,"You cannot enter an occurrence for this patient, who died on ",QADDEAD,".",!
  • Line Location: DAGAIN+8
Function Call: WRITE
  • Prompt: *7,!!?5,"You cannot enter more than one death for the same patient.",!
  • Line Location: DAGAIN+9
Function Call: WRITE
  • Prompt: !!?5,"This occurrence has not yet been entered into the system"
  • Line Location: NOTHERE+1
Function Call: WRITE
  • Prompt: !?5,"Do you wish to go back to the enter step (Y/N)",*7
  • Line Location: NOTHERE+2
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to make any corrections to this entry (Y/N)",*7
  • Line Location: ASKEDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: *7,!!?5,"Do you wish to start review process for this entry (Y/N)"
  • Line Location: ASKREVU+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENLOOK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENLOOK+1
Function Call: WRITE
  • Prompt: !?5,"*** NO OPEN OCCURRENCES FOUND ***"
  • Line Location: ENLOOK+10
Function Call: WRITE
  • Prompt: !?5,$P(PRINTEE,"^",1),?30,$P(PRINTEE,"^",2),?50,$P(PRINTEE,"^",3)
  • Line Location: ENLOOK+14
Routine Call
  • DIE
  • Line Location:
    • DAGAIN+16
    • EDIT+1
Routine Call
  • DIC
  • Line Location:
    • ENTER+2
    • DAGAIN+5
Routine Call
  • DIR
  • Line Location:
    • ENLOOK+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^QA(741 - [#741] Classic Fileman Calls
^QA(741.1 - [#741.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WHODEAD+2, ENLOOK+7
^DGPM - [#405] DAGAIN+15
^DPT - [#2] ENLOOK+4, ENLOOK+5
^QA(741 - [#741] ISHEDEAD+2, WHODEAD+1, WHODEAD+2, ENLOOK+2, ENLOOK+3, ENLOOK+6
^QA(741.1 - [#741.1] DAGAIN+9, ISHEDEAD+1, ENLOOK+6
^TMP($J EXIT+8!, ENLOOK+1!, ENLOOK+8*, ENLOOK+10, ENLOOK+12, ENLOOK+13

Label References

Name Line Occurrences
ASK ASK+2
ASKEDIT DAGAIN+20, ASKEDIT+3
ASKREVU ASKEDIT+2, ASKREVU+2
DAGAIN DAGAIN+2
DATE DAGAIN+2
EDIT ASKEDIT+2
ENLOOK ASK+2
ENTER DAGAIN+6, DAGAIN+8, DAGAIN+9, DAGAIN+13, DAGAIN+19, NOTHERE+3, ASKREVU+2, REVIEW+1
EXIT ASK+2, ENTER+2, DAGAIN+2, NOTHERE+3, NOTHERE+4, ASKEDIT+2, ASKREVU+2
ISHEDEAD DAGAIN+7
NOTHERE DATE+2, DAGAIN+5, DAGAIN+19, NOTHERE+3
WHODEAD ISHEDEAD+2, WHODEAD+3

Naked Globals

Name Field # of Occurrence
^(0 ENLOOK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+2*, DAGAIN+1*, DAGAIN+2, NOTHERE+3*, ASKEDIT+2*, ASKEDIT+3, ASKREVU+2*, EXIT+4!
%DT DATE+1!*, DATE+2!, EXIT+4!
%DT("A" DATE+1*
%DT(0 DATE+1*
%T EXIT+4!
ACTIVE EXIT+1!
C EXIT+4!
D0 EXIT+4!
D1 EXIT+4!
D2 EXIT+4!
DA DAGAIN+12*, DAGAIN+16*, EXIT+1!
DD DAGAIN+11!
>> DFN DAGAIN+10*
DI EXIT+4!
DIC ENTER+1!*, DAGAIN+3!*, DAGAIN+5!, DAGAIN+11!*, DAGAIN+12!, EXIT+1!
DIC("A" ENTER+1*, DAGAIN+3*
DIC("S" DAGAIN+4*
DIC(0 ENTER+1*, DAGAIN+3*, DAGAIN+11*
DIE DAGAIN+16*, EDIT+1*, EXIT+1!
DIG EXIT+4!
DIH EXIT+4!
DINUM DAGAIN+11!
DIPGM EXIT+4!
DIR ENLOOK+15!
DIR(0 ENLOOK+15*
DIU EXIT+4!
DIV EXIT+4!
DK EXIT+4!
DL EXIT+4!
>> DLAYGO DAGAIN+11*
DO DAGAIN+11!
DR DAGAIN+14*, DAGAIN+15*, DAGAIN+16*, DAGAIN+19!, EDIT+1*, EXIT+1!
DTOUT ASK+2*, DAGAIN+1*, DAGAIN+19, NOTHERE+3*, ASKEDIT+2*, ASKREVU+2*, EXIT+1!
DUOUT DAGAIN+19, EXIT+1!
DZ EXIT+1!
HELPYN QAOSENTR+2*, ASK+2, DAGAIN+2, NOTHERE+3, ASKEDIT+3, ASKREVU+2, EXIT+1!
I EXIT+1!
III EXIT+1!
IOSL ENLOOK+15
IV EXIT+1!
LINE21 EXIT+1!, ENLOOK+1*, ENLOOK+15*
LOC EXIT+1!, ENLOOK+3*, ENLOOK+4, ENLOOK+5
PRINTEE EXIT+1!, ENLOOK+13*, ENLOOK+14
QA EXIT+4!
QACLOSE EXIT+5!
QADAT EXIT+2!, ENLOOK+7*, ENLOOK+8
QADATE DATE+2*, DAGAIN+10, DAGAIN+15, WHODEAD+2, EXIT+2!
QADDEAD DAGAIN+7*, DAGAIN+8, WHODEAD+2*, EXIT+2!
QADEAD DAGAIN+7*, DAGAIN+9, WHODEAD+2*, EXIT+2!
QAHOLD EXIT+5!
QAI EXIT+5!
QAJUL EXIT+2!, ENLOOK+5*, ENLOOK+7, ENLOOK+8, ENLOOK+12*, ENLOOK+13
QALINE EXIT+5!
QANAM EXIT+2!, ENLOOK+5*, ENLOOK+8, ENLOOK+11*, ENLOOK+12*, ENLOOK+13
QANAME ENTER+2*, DAGAIN+10, DAGAIN+11, WHODEAD+1, EXIT+2!
QAOFIELD EXIT+7!
QAOS EXIT+5!
QAOS109 ISHEDEAD+1*, ISHEDEAD+2, WHODEAD+1, EXIT+2!
QAOSAUDT EXIT+2!
QAOSD0 DAGAIN+12*, DAGAIN+13, DAGAIN+16, DAGAIN+17, EXIT+5!
QAOSD1 EXIT+5!
QAOSDATA EXIT+6!
QAOSFDSP EXIT+6!
QAOSFIND EXIT+6!
QAOSFOND EXIT+6!
QAOSLEVL EXIT+6!
QAOSLOC EXIT+5!
QAOSLVNO EXIT+6!
QAOSMGMT EXIT+6!
QAOSNEWF EXIT+7!
QAOSNODE EXIT+7!
QAOSOPEN EXIT+3!
QAOSQUIT DAGAIN+6*, EXIT+7!
QAOSREVR EXIT+7!
QAOSSERV EXIT+7!
QAOSUBDD EXIT+7!
QAOSWHAT EXIT+3!
QAOSWRD EXIT+5!
QAOSX EXIT+7!
QAPAT ISHEDEAD+2*, WHODEAD+1*, WHODEAD+2, EXIT+3!
QASCREEN EXIT+3!, ENLOOK+6*, ENLOOK+8, ENLOOK+12*, ENLOOK+13
QASCRN DAGAIN+5*, DAGAIN+9, DAGAIN+14, EXIT+3!
QASTOP EXIT+3!, ENLOOK+1*, ENLOOK+12, ENLOOK+15*
QAUDIT EXIT+2!
QAUDIT("ACTION" DAGAIN+17*
QAUDIT("COMMENT" DAGAIN+18*
QAUDIT("DA" DAGAIN+17*
QAUDIT("FILE" DAGAIN+17*
QAWHEN ISHEDEAD+2*, WHODEAD+1, WHODEAD+2, EXIT+3!
QAWHO EXIT+3!, ENLOOK+2*, ENLOOK+3, ENLOOK+6
SAVEX EXIT+5!
SAVEY DAGAIN+16*, DAGAIN+19, WHODEAD+2*, EXIT+3!
SAVY EXIT+4!, ENLOOK+7*
V EXIT+4!
VAIP DAGAIN+10!
VAIP("D" DAGAIN+10*
VAIP("M" DAGAIN+10*
VAIP(1 DAGAIN+15
VAIP(3 DAGAIN+15
X DAGAIN+11*, ASKEDIT+2, ASKREVU+2, EXIT+4!
Y ENTER+2, DATE+2, DAGAIN+5, DAGAIN+12, DAGAIN+16, WHODEAD+2*, EXIT+4!, EXIT+5!, ENLOOK+7*, ENLOOK+15
Z EXIT+5!
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