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

Package: Patient Representative

Routine: QACENV17


Information

QACENV17 ;ALB/ERC - PRE-INSTALL ROUTINE FOR QAC*2*17 ;3/5/02

Source Information

Source file <QACENV17.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$PATCH^XPDUTL  
VA FileMan 1 ^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 QACPRE17  

Entry Points

Name Comments DBIA/ICR reference
ISS ;check Issue Code entries for duplicate
RE ;
INSTALL ;check to see if the patch has been installed - if so quit
MSG ;
FI ;
PR ;
EV ;
PC ;
LL ;
TR ;
CODE(QAC,QACPRE,QACIEN) ;
RG ;
RI ;
EM ;
AC ;
CO ;
START ;
CP ;
CSS ;check entries in 745.6
IF ;
SC ;
OP ;

External References

Name Field # of Occurrence
^DIR CSS+36, MSG+16
$$PATCH^XPDUTL INSTALL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!," ****NOTE****"
  • Line Location: CSS+14
Function Call: WRITE
  • Prompt: !,"The Customer Service Standard file (#745.6) has been altered locally."
  • Line Location: CSS+15
Function Call: WRITE
  • Prompt: !,"This file is pointed to by the Issue Code file (#745.2)."
  • Line Location: CSS+16
Function Call: WRITE
  • Prompt: !,"Before installation these pointers should be updated."
  • Line Location: CSS+17
Function Call: WRITE
  • Prompt: !!,"Current Customer Service Standards MUST be:"
  • Line Location: CSS+18
Function Call: WRITE
  • Prompt: !," ^QA(745.6,1,0) = 1^Staff Courtesy"
  • Line Location: CSS+19
Function Call: WRITE
  • Prompt: !," ^QA(745.6,2,0) = 2^Timeliness"
  • Line Location: CSS+20
Function Call: WRITE
  • Prompt: !," ^QA(745.6,3,0) = 3^One Provider"
  • Line Location: CSS+21
Function Call: WRITE
  • Prompt: !," ^QA(745.6,4,0) = 4^Decisions"
  • Line Location: CSS+22
Function Call: WRITE
  • Prompt: !," ^QA(745.6,5,0) = 5^Emotional Needs"
  • Line Location: CSS+23
Function Call: WRITE
  • Prompt: !," ^QA(745.6,6,0) = 6^Coordination of Care"
  • Line Location: CSS+24
Function Call: WRITE
  • Prompt: !," ^QA(745.6,7,0) = 7^Patient Education"
  • Line Location: CSS+25
Function Call: WRITE
  • Prompt: !," ^QA(745.6,8,0) = 8^Family Involvement"
  • Line Location: CSS+26
Function Call: WRITE
  • Prompt: !," ^QA(745.6,9,0) = 9^Physical Comfort"
  • Line Location: CSS+27
Function Call: WRITE
  • Prompt: !," ^QA(745.6,10,0) = 10^Transitions",!!
  • Line Location: CSS+28
Function Call: WRITE
  • Prompt: !,"Patch 17 will overwrite your data - editing of this file is not permitted."
  • Line Location: CSS+29
Function Call: WRITE
  • Prompt: !,"Installation of the patch will create changes in this file."
  • Line Location: CSS+30
Function Call: WRITE
  • Prompt: !,"Installation stopped, global destroyed."
  • Line Location: CSS+37
Function Call: WRITE
  • Prompt: !!!," ****NOTE****"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"Your database has Issue Codes that duplicate those exported with this patch."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"After installing this patch the following Issue Codes will refer to"
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"the new codes."
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !," "_$P(QACND,U)_" "_$P(QACND,U,3)
  • Line Location: MSG+10
Function Call: WRITE
  • Prompt: !,"Installation stopped, global destroyed."
  • Line Location: MSG+17
Routine Call
  • DIR
  • Line Location:
    • CSS+36
    • MSG+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.2 - [#745.2] ISS+8, ISS+9, MSG+9
^QA(745.6 - [#745.6] CSS+7, CSS+8, CSS+12

Label References

Name Line Occurrences
CODE ISS+13
CSS START+3
INSTALL CSS+2, ISS+2
ISS START+4
MSG ISS+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CSS+31~
DIR("A" CSS+33*, MSG+13*
DIR("B" CSS+34*, MSG+14*
DIR(0 CSS+32*, MSG+12*
DIROUT CSS+31~, CSS+36, MSG+11~
DIRUT CSS+31~, CSS+36, MSG+11~
QAC CSS+4~, CSS+6*, CSS+7*, CSS+8, CSS+9, CSS+10, ISS+4~, ISS+7*, ISS+8*, ISS+9
, ISS+10, ISS+12, ISS+13, CODE~, CODE+3, CODE+5
QAC( CSS+9*, CSS+10*
QAC(0 CSS+12*, CSS+13
QACCODE ISS+4~, ISS+5*, ISS+11
QACE ISS+4~, ISS+10*, ISS+11
QACIEN ISS+4~, ISS+6*, ISS+9*, ISS+13, CODE~, CODE+6
QACIEN( CODE+6*, MSG+8
QACIEN(0 ISS+14
QACNAME CSS+4~, CSS+5*, CSS+10
QACND MSG+1~, MSG+9*, MSG+10
QACPRE ISS+4~, ISS+12*, ISS+13, CODE~
QACQ CSS+1~, CSS+3, ISS+1~, ISS+3, INSTALL+1*
QACQUIT CODE+2~, CODE+4, CODE+7*
QACR CODE+2~, MSG+1~, MSG+2*, MSG+8*, MSG+9
QACTXT CODE+2~, CODE+4*, CODE+5
QACZERO CSS+4~, CSS+8*, CSS+9, CSS+10
QAX CODE+2~, CODE+4*
U CSS+9, CSS+10, CSS+12, MSG+10
X START+1~, CSS+37, MSG+17
XPDQUIT START+1~, START+2*, CSS+37*, MSG+17*

Marked Items

Name Field # of Occurrence
$T(@QACPRE+QAX CODE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All