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

Package: Quality Assurance

Routine: AQAOENTR


Information

AQAOENTR ; IHS/ORDC/LJF - ENTER OR EDIT AN OCCURRENCE ;

Source Information

Source file <AQAOENTR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Quality Assurance 7 ^AQAOAUD  ^AQAOEDTS  ^AQAOENTS  (CSUM,INTRO,VISIT)^AQAOHOCC  (ADD,ASK)^AQAOLKP  KILL^AQAOUTIL  CLOSE^AQAOVAL  
VA Fileman 2 ^DIE  ^DIR  
Patient Care Component 1 ^APCDVLK  

Entry Points

Name Comments DBIA/ICR reference
ASKREVU ; >>> ask to begin review process
EDIT ; >>> edit basic occurrence data
; >> find review type entered then loop thru fields
INITIAL ; >>> enter initial review data
VISIT ; >>> look up and add patient's visit
EXIT ; >>> eoj
CHOOSE ; >>> choose add new occurrence or edit open one
ERROR ; >>> SUBRTN to print error msg
CLOSE ;if user has close out key AND initial action not referral AND

External References

Name Field # of Occurrence
^APCDVLK VISIT+18
^AQAOAUD VISIT+6, ASKREVU+7, INITIAL+4
^AQAOEDTS EDIT+5, INITIAL+12
^AQAOENTS CHOOSE+8
CSUM^AQAOHOCC EDIT+8
INTRO^AQAOHOCC CHOOSE+2
VISIT^AQAOHOCC VISIT+11
ADD^AQAOLKP CHOOSE+13
ASK^AQAOLKP CHOOSE+11
KILL^AQAOUTIL EXIT+2
CLOSE^AQAOVAL CLOSE+3
^DIE VISIT+21, EDIT+8, ASKREVU+8, INITIAL+6
^DIR CHOOSE+4, VISIT+13, ASKREVU+14, ASKREVU+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: VISIT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: VISIT+12
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: VISIT+14
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: VISIT+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKREVU+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASKREVU+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: INITIAL+5
Function Call: WRITE
  • Prompt: !!,"INITIAL REVIEW COMPLETE . . ."
  • Line Location: INITIAL+14
Function Call: WRITE
  • Prompt: !!,*7,"COULD NOT ADD OCCURRENCE TO FILE! PLEASE SEE SITE MANAGER!"
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ERROR+2
Routine Call
  • DIE
  • Line Location:
    • VISIT+21
    • EDIT+8
    • ASKREVU+8
    • INITIAL+6
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+4
    • VISIT+13
    • ASKREVU+14
    • ASKREVU+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AQAOC - [#9002167] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAGU(0 VISIT+3, ASKREVU+4, INITIAL+1
^AQAO(2 - [#9002168.2] VISIT+8, EDIT+3, ASKREVU+3
^AQAO(3 - [#9002168.3] EDIT+4
^AQAO(6 - [#9002168.6] INITIAL+10, CLOSE+2
^AQAOC - [#9002167] CHOOSE+1, VISIT+1, VISIT+8, VISIT+10, EDIT+2, ASKREVU+3, ASKREVU+16, INITIAL+9, CLOSE+2, EXIT+1
^AQAQX("B" INITIAL+11
^AUPNVSIT - [#9000010] VISIT+20
^XUSEC("AQAOZCLS" CLOSE+2

Label References

Name Line Occurrences
ASKREVU EDIT+2, EDIT+3, EDIT+4
CHOOSE CHOOSE+5, CHOOSE+8, CHOOSE+10, CHOOSE+13, VISIT+1, VISIT+3, EDIT+9, ASKREVU+4, ASKREVU+14, INITIAL+1
, CLOSE+6
CLOSE ASKREVU+3, ASKREVU+16
EDIT VISIT+9, VISIT+10, VISIT+14, VISIT+19
EXIT CHOOSE+5, CHOOSE+10, CHOOSE+13, ASKREVU+14, ERROR+2

Naked Globals

Name Field # of Occurrence
^(1 ASKREVU+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDCAT VISIT+22!
APCDCLN VISIT+22!
APCDDATE VISIT+22!
APCDLOC VISIT+22!
APCDLOOK VISIT+17*, VISIT+18!
APCDOVRR VISIT+17*, VISIT+18!
APCDPAT VISIT+17*, VISIT+22!
APCDTYPE VISIT+22!
APCDVLDT VISIT+15*, VISIT+22!
APCDVSIT VISIT+17*, VISIT+19, VISIT+20, VISIT+21, VISIT+22!
>> AQAOACT INITIAL+9*, INITIAL+10
AQAOENTR CLOSE+3*!
AQAOIFN CHOOSE+1!, CHOOSE+10, CHOOSE+13, VISIT+1, VISIT+5, VISIT+8, VISIT+10, VISIT+21, EDIT+2, EDIT+8
, ASKREVU+3, ASKREVU+6, ASKREVU+8, ASKREVU+16, INITIAL+3, INITIAL+5, INITIAL+9, CLOSE+2, EXIT+1
>> AQAOIND EDIT+2*, EDIT+3, ASKREVU+3
AQAOP INITIAL+12!
>> AQAOPAT VISIT+17
>> AQAOPT EDIT+4*, INITIAL+11*
>> AQAORT EDIT+3*, EDIT+4
>> AQAOSTR VISIT+20*
>> AQAOUDIT("ACTION" VISIT+5*, ASKREVU+7*, INITIAL+4*
>> AQAOUDIT("COMMENT" VISIT+6*, ASKREVU+6*, INITIAL+3*
>> AQAOUDIT("DA" VISIT+5*, ASKREVU+6*, INITIAL+3*
>> AQAOVSIT VISIT+8*, VISIT+9
>> DA VISIT+21*, EDIT+8*, ASKREVU+8*, INITIAL+5*
>> DIE VISIT+21*, EDIT+8*, ASKREVU+8*, INITIAL+5*
DIR CHOOSE+3!, VISIT+12!, ASKREVU+8!, ASKREVU+12!, ASKREVU+18!, INITIAL+5!
DIR("?" VISIT+12*
DIR("A" CHOOSE+4*, VISIT+13*, ASKREVU+13*, ASKREVU+19*
DIR("B" ASKREVU+12*, ASKREVU+18*
DIR(0 CHOOSE+3*, VISIT+12*, ASKREVU+12*, ASKREVU+18*
>> DIRUT CHOOSE+5, ASKREVU+14
>> DR VISIT+21*, EDIT+8*, ASKREVU+8*, INITIAL+5*
>> DTOUT CHOOSE+10, CHOOSE+13
>> DUOUT CHOOSE+10, CHOOSE+13
DUZ CLOSE+2
IOF ASKREVU+14
U VISIT+8, VISIT+10, VISIT+14, VISIT+19, EDIT+2, EDIT+3, EDIT+4, ASKREVU+3, ASKREVU+16, INITIAL+9
, INITIAL+10, CLOSE+2
>> X CHOOSE+5, VISIT+19
>> Y CHOOSE+5, CHOOSE+8, CHOOSE+10, VISIT+14, VISIT+15, EDIT+9, ASKREVU+14, ASKREVU+16
Info |  Source |  Call 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