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

Package: Patient Representative

Routine: QACMAIL0


Information

QACMAIL0 ;ERC/WASHCIOFO-Send data to reposititory ;11/29/99

Source Information

Source file <QACMAIL0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  (C,H)^%DTC  ^DIE  ^DIR  
Kernel 2 (,ISQED,STAT)^%ZTLOAD  PARENT^XUAF4  
MailMan 2 KILL^XM  ^XMD  
Patient Representative 2 (LOOP,NODE0)^QACMAIL1  SITE^QACUTL0  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Representative 3 QAC ROLLUP (MANUAL)  QACI5  QACMAIL1  

Entry Points

Name Comments DBIA/ICR reference
TASK ;Set up tasking for routine. Roll-up will be queued for
; 01:30am, so that it doesn't run at a busy time of day.
START ;
EXIT ;
ERROR ;
; Need to send message with error codes if QACERR is set.
; QACERR is set if site and domain information is missing
; or if no task number assigned to queueing.
; Then need to re-queue for next run.
SEND ;Send message.
ERR ;;Text for error messages to be included in mail message
ZTDTH ;set the kernel ZTDTH variable for the first run and rescheduled runs.
NEWMSG ;send message, set variables for continuation message.
ROLL(QACODE) ;set new Roll-Up Status field
REQUE ;this subroutine will task this extract once, for one month or for
VISN(QACSITNO) ;find VISN for this site
CHKTSK ;check to see if this job has already been tasked (i.e. on an earlier
REQLOOP ; this subroutine will run the rollup manually for a month or a part
; of one month.
REQLOOP1
SITEMSG(QACOUNT,QACMONTH) ;sends a message with the number of records

External References

Name Field # of Occurrence
^%DT REQLOOP+5
DD^%DT REQLOOP+9
C^%DTC ZTDTH+9
H^%DTC ZTDTH+7
^%ZTLOAD TASK+7
ISQED^%ZTLOAD CHKTSK+7
STAT^%ZTLOAD CHKTSK+4
^DIE TASK+11, ZTDTH+15, ROLL+9
^DIR REQLOOP+17, REQLOOP1+4, REQLOOP1+7
LOOP^QACMAIL1 START+25
NODE0^QACMAIL1 REQLOOP1+19
SITE^QACUTL0 START+20
KILL^XM ERROR+5, ERROR+11, SEND+3, SEND+7, SITEMSG+2, SITEMSG+9
^XMD ERROR+10, SEND+7, SITEMSG+9
PARENT^XUAF4 VISN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will run the Patient Representative data roll-up"
  • Line Location: REQLOOP+3
Function Call: WRITE
  • Prompt: !,"for one month."
  • Line Location: REQLOOP+4
Function Call: WRITE
  • Prompt: !!,"Valid date not entered - exiting."
  • Line Location: REQLOOP+6
Function Call: WRITE
  • Prompt: !!,"Invalid Date"
  • Line Location: REQLOOP+10
Function Call: WRITE
  • Prompt: !!,"End date must be later than beginning date."
  • Line Location: REQLOOP1+9
Function Call: WRITE
  • Prompt: !!,"No Contacts for this date range."
  • Line Location: REQLOOP1+21
Function Call: WRITE
  • Prompt: !!,"Number of records transmitted to the national database - "_QACOUNT
  • Line Location: REQLOOP1+23
Function Call: WRITE
  • Prompt: !!,"End of Manual Rollup Option."
  • Line Location: REQLOOP1+24
Routine Call
  • DIE
  • Line Location:
    • TASK+11
    • ZTDTH+15
    • ROLL+9
Routine Call
  • DIR
  • Line Location:
    • REQLOOP+17
    • REQLOOP1+4
    • REQLOOP1+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" SEND+5
^DIC(4 - [#4] VISN+2, VISN+3, VISN+8, VISN+9, VISN+10, VISN+11
^QA(740 - [#740] START+17, CHKTSK+2
^QA(745.1 - [#745.1] REQLOOP1+16, REQLOOP1+18, REQLOOP1+20
^TMP("QAC MAIL" START+15!, START+27, EXIT+1!, SEND+2*, NEWMSG+6!
^VA(200 - [#200] SITEMSG+3

Label References

Name Line Occurrences
CHKTSK ZTDTH+3
ERROR TASK+8, START+17, START+20, VISN+13
EXIT TASK+12, START+17, START+20, SEND+9
REQLOOP START+26
REQLOOP1 REQLOOP1+10
SEND START+27, NEWMSG+4
SITEMSG REQLOOP1+22
START REQUE+7
TASK ZTDTH+11
VISN START+19
ZTDTH QACMAIL0+4, START+22

Naked Globals

Name Field # of Occurrence
^(0 START+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT REQLOOP+5!*
%DT("A" REQLOOP+5*
%Y ZTDTH+5~, ZTDTH+8
DA TASK+9*, ZTDTH+12*, ROLL+5~, ROLL+7*
DIE TASK+10*, TASK+11!, ZTDTH+14*, ZTDTH+15!, ROLL+5~, ROLL+6*, ROLL+9!
DIR REQLOOP1+1!
DIR("?" REQLOOP+16*
DIR("A" REQLOOP+14*, REQLOOP1+3*, REQLOOP1+6*
DIR("B" REQLOOP+15*
DIR(0 REQLOOP+12*, REQLOOP1+2*
DIROUT EXIT+2!, REQLOOP+17, REQLOOP1+4, REQLOOP1+7
DIRUT EXIT+2!, REQLOOP+17, REQLOOP1+4, REQLOOP1+7
DR TASK+9*, ZTDTH+13*, ROLL+5~, ROLL+8*
DT ZTDTH+6, REQLOOP+6
DUZ SITEMSG+3
QA START+2~
QAC1 TASK+7*, START+1~
QACA REQLOOP1+11~, REQLOOP1+14*, REQLOOP1+16*, REQLOOP1+18
QACBDAT START+2~
QACC START+1~
QACCHCNT START+11~, START+12*, NEWMSG+5*, REQUE+3~, REQUE+4*
QACCONT START+2~, SEND+8*, NEWMSG+3*
QACD START+1~
QACDOM START+2~
QACDUZ EXIT+3!, SITEMSG+3*, SITEMSG+4
QACE START+1~
QACEDAT START+2~
QACEE START+1~, VISN+7*, VISN+8*, VISN+9, VISN+10
QACELIG START+2~
QACEM START+2~
QACEMP START+2~
QACERR TASK+8*, START+3~, START+17*, START+20*, ERROR+6, ERROR+12, VISN+3*, VISN+12*, VISN+13
QACERROR START+3~
QACERROR( ERROR+6*, ERROR+12!
QACEXIT START+3~, START+16*
QACF START+1~
QACFAIL REQLOOP+18!, REQLOOP1+9*, REQLOOP1+10!
QACHK START+1~, START+23, ZTDTH+4, CHKTSK+8*, CHKTSK+9*
QACINC START+3~, START+14*
QACINT EXIT+3!
QACINTAP START+3~
QACJ START+1~, ROLL+7, REQLOOP1+11~, REQLOOP1+17*, REQLOOP1+18*, REQLOOP1+20
QACK START+1~
QACLCNT START+11~, START+12*, SEND+2, NEWMSG+5*, REQUE+3~, REQUE+4*
QACLIN START+3~
QACLSAT START+3~
QACMADE START+3~
QACMON START+4~
QACMONTH REQLOOP+11*, REQLOOP+13*, REQLOOP+14, REQLOOP1+22, SITEMSG~, SITEMSG+6
QACMSG EXIT+3!
QACMSG(1 SITEMSG+6*
QACMSG(2 SITEMSG+7*
QACNO START+4~, EXIT+3!
QACNOCNT START+4~, START+11~, START+12*, EXIT+3!, REQUE+3~, REQUE+4*
QACNOT START+4~
QACODE ROLL~
QACOUNT REQLOOP1+11~, REQLOOP1+12*, REQLOOP1+16, REQLOOP1+20*, REQLOOP1+21, REQLOOP1+22, REQLOOP1+23, SITEMSG~, SITEMSG+7
QACQBEG EXIT+4~, REQLOOP+7*, REQLOOP+9, REQLOOP1+5*, REQLOOP1+9, REQLOOP1+10*, REQLOOP1+13*, REQLOOP1+14
QACQEND EXIT+4~, REQLOOP+8*, REQLOOP1+8*, REQLOOP1+9, REQLOOP1+10*, REQLOOP1+15*, REQLOOP1+16
QACQUIT START+4~
QACRCNT START+11~, START+12*, EXIT+4~, NEWMSG+5*, REQUE+3~, REQUE+4*
QACREQUE QACMAIL0+3~, START+22, START+25, START+26, EXIT+4~, REQUE+2~, REQUE+6*
QACRST START+4~
QACSERV START+4~
QACSITE START+4~
QACSITNO START+18*, START+19, VISN~, VISN+2, VISN+3, VISN+8, VISN+9, VISN+10
QACSOR START+4~
QACSR START+5~
QACST START+5~, EXIT+4~
QACSTA START+5~, START+20*
QACSTART TASK+4, ZTDTH+5~, ZTDTH+10*
QACTCNT START+11~, START+12*, EXIT+4~, NEWMSG+5*, REQUE+3~, REQUE+4*
QACTMP START+5~
QACV VISN+1~
QACV("P" VISN+4, VISN+5
QACVISN START+5~, EXIT+4~, VISN+3*, VISN+5*, VISN+10*, VISN+11*, VISN+12, VISN+13*, VISN+14*
QACVZ START+5~, VISN+4*, VISN+5, VISN+6
QACYR START+5~
QACZERO START+5~, START+17*, START+18, START+20
QACZTSK EXIT+4~, CHKTSK+6*
QANLINE START+3~
U VISN+5, VISN+10, VISN+11, CHKTSK+2, REQLOOP1+20, SITEMSG+3
X EXIT+5!, ZTDTH+6*, ZTDTH+10
X1 EXIT+5!, ZTDTH+6*
X2 EXIT+5!, ZTDTH+8*
XMSUB EXIT+6!, ERROR+9*, SEND+5*, SITEMSG+5*
XMTEXT EXIT+6!, ERROR+7*, SEND+6*, SITEMSG+8*
XMY EXIT+6!
XMY( SITEMSG+4*
XMY("G.IRM" ERROR+8*
XMY("XXX@Q-PSS.DOMAIN.EXT" SEND+4*
Y REQLOOP+2~, REQLOOP+6, REQLOOP+7, REQLOOP+8, REQLOOP+9*, REQLOOP+10, REQLOOP+11, REQLOOP+13, REQLOOP1REQLOOP1+5
REQLOOP1+8, REQLOOP1+10*
ZTDESC TASK+3*, EXIT+7!
ZTDTH TASK+4*, EXIT+7!
ZTIO TASK+6*, EXIT+7!
ZTRTN TASK+2*, EXIT+7!
ZTSAVE EXIT+7!
ZTSAVE("QACNOT" TASK+5*
ZTSAVE("QACREQUE" TASK+5*
ZTSAVE("XMTXT" TASK+5*
ZTSK TASK+7, TASK+8, CHKTSK+2*, CHKTSK+3, CHKTSK+6!*
ZTSK("D" CHKTSK+8, CHKTSK+9
ZTSK(1 CHKTSK+5

Marked Items

Name Field # of Occurrence
$T(ERR+QACERR ERROR+6
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 |  Marked Items  | All