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

Package: Patient Representative

Routine: QACALRT1


Information

QACALRT1 ;HISC/DAD-PROCESS AN ALERT ;3/23/95 10:22

Source Information

Source file <QACALRT1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 DD^%DT  %XY^%RCR  ^DIR  EN^DIWE  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  SETUP^XQALERT  
Patient Representative 1 (EN,START1)^QACRPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
RESPOND ; Get user's response
KILLALRT ; Kill this alert
SAVEALRT ; Do not kill this alert
TASK ; Tasked entry point
EXIT ;
DELMSG ;If user deletes an alert on a report of contact a message is sent

External References

Name Field # of Occurrence
DD^%DT DELMSG+5
%XY^%RCR RESPOND+26
^%ZTLOAD RESPOND+31
^DIR EN+31
EN^DIWE RESPOND+6
EN^QACRPT EN+35
START1^QACRPT EN+7
$$FMADD^XLFDT RESPOND+3
$$FMTE^XLFDT RESPOND+17
$$NOW^XLFDT RESPOND+17
SETUP^XQALERT TASK+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"*** The Patient Rep record associated with this alert"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?63,"***",!?5,"*** has been ",$P("deleted^closed",U,QAC)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ". No response needed, killing alert.",?63,"***",$C(7)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!?5,"*** You have an unsent response to this alert. ***",$C(7)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: RESPOND+10
Function Call: WRITE
  • Prompt: !?5,"*** You have timed out while entering a response. ***"
  • Line Location: RESPOND+11
Function Call: WRITE
  • Prompt: !?5,"*** The text can be recovered if you re-enter the alert. ***"
  • Line Location: RESPOND+12
Function Call: WRITE
  • Prompt: !?5,"*** If not, it will be automatically purged in two weeks. ***"
  • Line Location: RESPOND+13
Function Call: WRITE
  • Prompt: !!,"Saving your response, please wait . . . "
  • Line Location: RESPOND+22
Function Call: WRITE
  • Prompt: "Done"
  • Line Location: RESPOND+32
Routine Call
  • DIR
  • Line Location:
    • EN+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] EN+9, TASK+1, TASK+2, TASK+4, TASK+8*, TASK+11*, TASK+13*, TASK+14, TASK+18*, TASK+19
TASK+21
^TMP("QACALRT1" RESPOND+23!, TASK+6, TASK+8, EXIT+4!
^VA(200 - [#200] RESPOND+16, TASK+20, DELMSG+6
^XTMP( EN+17, RESPOND+1!, RESPOND+3*, RESPOND+8!, RESPOND+18*, RESPOND+19*, RESPOND+20*, KILLALRT+1!, DELMSG+3*, DELMSG+4*
DELMSG+7*

Label References

Name Line Occurrences
DELMSG RESPOND+7
EXIT EN+10, EN+42, TASK+2
KILLALRT EN+14, EN+40
RESPOND EN+40, EN+41
SAVEALRT EN+39, RESPOND+8, RESPOND+14

Naked Globals

Name Field # of Occurrence
^(7 EN+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X RESPOND+24*, EXIT+4!
%Y RESPOND+25*, EXIT+4!
DIC RESPOND+2!, RESPOND+5*, EXIT+2!
DIR EN+22!, EXIT+2!
DIR("?" EN+26*, EN+27*, EN+28*, EN+29*, EN+30*
DIR("A" EN+25*
DIR("B" EN+36*
DIR(0 EN+24*
DIROUT EXIT+2!
DIRUT EN+31, EXIT+2!
DIWEPSE RESPOND+2!
DT RESPOND+3, TASK+17, DELMSG+3, DELMSG+5
DTOUT RESPOND+2!, RESPOND+9, EXIT+2!
DUOUT EXIT+2!
DUZ DELMSG+6
DWLW RESPOND+2!
DWPK RESPOND+2!
QAC EN+7*, EN+9*, EN+10, EN+12, EN+33*, EXIT+2!
QACACTN EN+22*, EN+23, EN+31*, EN+32, EN+36*, EN+39, EN+40, EN+41, EXIT+2!
QACCASE TASK+21*, TASK+23, TASK+24, EXIT+2!
QACD0 EN+3*, EN+7, EN+9, EN+33, EN+34~, TASK+1, TASK+2, TASK+4, TASK+8, TASK+11
TASK+13, TASK+14, TASK+18, TASK+19, TASK+21, EXIT+2!
QACD1 TASK+3*, TASK+4*, EXIT+2!
QACD1(0 TASK+3*, TASK+4*, TASK+8, TASK+11, TASK+13
QACDATE EN+1~, DELMSG+5*, DELMSG+7
QACDELET EN+2!, EN+40*, RESPOND+4, RESPOND+7, TASK+24
QACDUZ EN+3*, TASK+22, EXIT+3!
QACEE EXIT+3!, DELMSG+4*
QACHDR RESPOND+17*, RESPOND+19, EXIT+3!
>> QACNAME DELMSG+6*, DELMSG+7
QACOUNT TASK+5*, TASK+7*, TASK+8, TASK+10*, TASK+11, TASK+12*, TASK+13, TASK+15, TASK+16, EXIT+3!
QACRES EN+7*, EN+33*, EXIT+3!
QACTMP TASK+5*, TASK+6*, TASK+8, EXIT+3!
QACWPHDR TASK+14*, TASK+15*, TASK+16*, TASK+17*, TASK+18, EXIT+3!
QACX EN+3*, EN+34~, RESPOND+16, TASK+20, EXIT+3!
QACX(0 RESPOND+16*, RESPOND+17, TASK+20*, TASK+23, TASK+24
QACXQAID EN+4*, EN+17, EN+34~, RESPOND+1, RESPOND+3, RESPOND+5, RESPOND+8, RESPOND+18, RESPOND+19, RESPOND+20
RESPOND+24, KILLALRT+1, EXIT+3!, DELMSG+3, DELMSG+4, DELMSG+7
U EN+3, EN+9, EN+12, EN+31, EN+39, RESPOND+3, RESPOND+16, TASK+15, TASK+16, TASK+17
TASK+20, TASK+21, DELMSG+3, DELMSG+4, DELMSG+6
X EXIT+3!
>> XQA( TASK+22*
>> XQADATA EN+3
>> XQAID EN+4
XQAKILL KILLALRT+2*, SAVEALRT+1!
>> XQAMSG TASK+23*, TASK+24*
Y EN+31, EXIT+3!, DELMSG+5*
ZTDESC RESPOND+27*, EXIT+4!
ZTDTH RESPOND+28*, EXIT+4!
ZTIO RESPOND+28*, EXIT+4!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN RESPOND+27*, EXIT+4!
ZTSAVE EXIT+4!
ZTSAVE("QACD0" RESPOND+28*
ZTSAVE("QACDELET" RESPOND+30*
ZTSAVE("QACDUZ" RESPOND+29*
ZTSAVE("QACX" RESPOND+29*
ZTSAVE("^TMP(""QACALRT1"",$J," RESPOND+28*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All