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 |  Local Variables |  All
Print Page as PDF
Routine: QACCODE

Package: Patient Representative

Routine: QACCODE


Information

QACCODE ;HISC/CEW - Enter/Edit a Local Contact Issue Code ;1/30/95 09:02

Source Information

Source file <QACCODE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  

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
Patient Representative 1 QAC CODE  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;Edit an existing code text.
EXIT ;
SLCHEAD ;
ENTER ;Enter a new code text. Code number is built in background.

External References

Name Field # of Occurrence
^DIC SLCHEAD+6
FILE^DICN ENTER+10
^DIE ENTER+14, EDIT+3
^DIR ENTER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Issue Codes can no longer be entered or edited."
  • Line Location: QACCODE+15
Function Call: WRITE
  • Prompt: !?5,"Only National Issue Codes are valid."
  • Line Location: QACCODE+16
Function Call: WRITE
  • Prompt: !?5,"The Issue Code list will be periodically evaluated and updated."
  • Line Location: QACCODE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SLCHEAD+3
Function Call: WRITE
  • Prompt: !,"Only 999 issue codes allowed per heading! Select a different heading."
  • Line Location: ENTER+6
Function Call: WRITE
  • Prompt: "Try again later."
  • Line Location: ENTER+12
Function Call: WRITE
  • Prompt: "Try again later."
  • Line Location: EDIT+1
Routine Call
  • DIE
  • Line Location:
    • ENTER+14
    • EDIT+3
Routine Call
  • DIC
  • Line Location:
    • SLCHEAD+6
Routine Call
  • DIR
  • Line Location:
    • ENTER+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.2 - [#745.2] ENTER+1, ENTER+4, ENTER+12, ENTER+14, EDIT+1, EDIT+3

Label References

Name Line Occurrences
EDIT SLCHEAD+11
ENTER SLCHEAD+10
EXIT SLCHEAD+6, ENTER+10
SLCHEAD SLCHEAD+10, SLCHEAD+11, ENTER+6, ENTER+12, EDIT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALPHCODE SLCHEAD+7*, ENTER+1, ENTER+2, ENTER+3, EXIT+1!
DA ENTER+13*, EDIT+2*, EXIT+2!
DIC SLCHEAD+3!*, SLCHEAD+6!, ENTER+9*, ENTER+10!, EXIT+1!
DIC("A" SLCHEAD+4*
DIC("S" SLCHEAD+5*
DIC(0 SLCHEAD+3*, ENTER+9*
DIE ENTER+13!*, ENTER+14!, EDIT+2!*, EDIT+3!, EXIT+1!
DIR ENTER+7!, ENTER+8!
DIR("0" ENTER+7*
DIR("A" ENTER+7*
DIR("B" ENTER+7*
DIRUT ENTER+8, EXIT+2!
DR ENTER+13*, EDIT+2*, EXIT+2!
FLAG SLCHEAD+10*, ENTER+1, ENTER+2*, ENTER+4*, EXIT+1!
NEWIEN ENTER+11*, ENTER+12, ENTER+13, ENTER+14, EXIT+1!
NEXNUM ENTER+2*, ENTER+3*, ENTER+4, ENTER+6, ENTER+7, ENTER+9, EXIT+1!
NUM SLCHEAD+7*, ENTER+1*, ENTER+2, ENTER+3, EXIT+1!
QACIEN SLCHEAD+7*, EDIT+1, EDIT+2, EDIT+3, EXIT+1!
QASPECT SLCHEAD+7*, ENTER+13, EXIT+2!
U SLCHEAD+10
X ENTER+9*, EXIT+1!
Y SLCHEAD+6, SLCHEAD+7, ENTER+8, ENTER+10, ENTER+11, EXIT+1!
Y(0 SLCHEAD+7, SLCHEAD+10
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 |  Local Variables |  All