Routine: SCRPW70

Information

SCRPW70 ;BP-CIOFO/KEITH,ESW - Clinic appointment availability extract ; 7/8/03 2:23pm

Package	Total	Call Graph
Scheduling	5	$$DIVA^SCRPW17 (SUBT,TITL)^SCRPW50 ($$ADDL,$$CNAME,$$SORT)^SCRPW72 ($$MON,$$WHEN,EXIT,QDIS,SCHED)^SCRPW74 SELECT^SCRPW78
Kernel	3	(,KILL)^%ZTLOAD $$NOW^XLFDT EN^XUTMDEVQ
MailMan	2	^XMD $$GOTLOCAL^XMXAPIG
VA FileMan	2	^%DT ^DIR
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SCRPW CLINIC APP AVA RPT SCRPW72

Entry Points

Name	Comments	DBIA/ICR reference
EDT
REN
RENS
ROSS
QUE
RESEND	;Entry point for manually initiating extracts for the current month
REQUE	;Entry point for initiating repetitive tasking of extracts
RQUE(SDEX)	;Schedule extract for repetitive run
QUEUE(SDMON)	;Queue extraction for re-run
QQ
TXXM	;Transmit extract data
EXXM(XMG,SDMGM)	;Send extract mail message
XMTX(SDX)	;Set mail message line
NAVA(SDY)	;Format next available appointment information

External References

Name	Field # of Occurrence
^%DT	SCRPW70+9, EDT, QUEUE+4
^%ZTLOAD	QUEUE+7
KILL^%ZTLOAD	RQUE+11
^DIR	EDT+5, EDT+17, REN+3, ROSS+4, ROSS+7, ROSS+10, ROSS+14, ROSS+19, RESEND+8, RESEND+14 , REQUE+3, REQUE+10, RQUE+10
$$DIVA^SCRPW17	SCRPW70+7
SUBT^SCRPW50	SCRPW70+8, EDT+3, RENS
TITL^SCRPW50	SCRPW70+6
$$ADDL^SCRPW72	TXXM+35
$$CNAME^SCRPW72	TXXM+23
$$SORT^SCRPW72	EDT+18, REN+5
$$MON^SCRPW74	RESEND+13, RQUE+13
$$WHEN^SCRPW74	RQUE+13
EXIT^SCRPW74	SCRPW70+7, SCRPW70+9, EDT, EDT+5, EDT+17, EDT+18, EDT+19, REN+3, REN+4, REN+6 , ROSS+4, ROSS+7, ROSS+10, ROSS+14, ROSS+19, ROSS+21, QUE+2
QDIS^SCRPW74	RESEND+4, REQUE+2
SCHED^SCRPW74	RQUE+14
SELECT^SCRPW78	EDT+12
$$SITE^VASITE	TXXM+2
$$NOW^XLFDT	RQUE+4
^XMD	EXXM+8
$$GOTLOCAL^XMXAPIG	TXXM+8
EN^XUTMDEVQ	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCRPW70+9
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: !!,$C(7),"End date cannot be before begin date!",! Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: EDT+5
Function Call: WRITE	Prompt: !!?3,"To generate a detailed report by stop code pair or clinic," Line Location: EDT+8
Function Call: WRITE	Prompt: !?3,"press 'enter' without inputting a patient name.",! Line Location: EDT+9
Function Call: WRITE	Prompt: ! Line Location: EDT+17
Function Call: WRITE	Prompt: ! Line Location: REN+3
Function Call: WRITE	Prompt: !!,"This report requires 132 column output!" Line Location: QUE+0
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Function Call: WRITE	Prompt: !!,$C(7),"NOTE: Use of this utility will result in the transmission of extract data to" Line Location: RESEND+2
Function Call: WRITE	Prompt: !,"Austin. It should only be used if automatically queued extracts failed to run." Line Location: RESEND+3
Function Call: WRITE	Prompt: ! Line Location: REQUE+3
Function Call: WRITE	Prompt: ! Line Location: REQUE+10
Function Call: WRITE	Prompt: !!,"Scheduled for: ",Y,", task number: ",$G(SDXTMP("EXTRACT",SDEX,"TASK")) Line Location: RQUE+7
Function Call: WRITE	Prompt: ! Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!,"Extract not queued!!!",! Line Location: QQ+0
Function Call: WRITE	Prompt: !!,"Task number: ",ZTSK,! Line Location: QQ+1
Routine Call	DIR Line Location: EDT+5 EDT+17 REN+3 ROSS+4 ROSS+7 ROSS+10 ROSS+14 ROSS+19 RESEND+8 RESEND+14 REQUE+3 REQUE+10 RQUE+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCRPW70+10, EDT+2, RQUE+7, QUEUE+3
^SC - [#44]	TXXM+25
^SD(404.91 - [#404.91]	TXXM+4
^TMP("SD"	TXXM+9, TXXM+10, TXXM+11, TXXM+27, TXXM+28
^TMP("SDNAVA"	TXXM+33
^TMP("SDNAVB"	TXXM+34
^TMP("SDPAT"	EDT+11!
^TMP("SDXM"	TXXM+40, EXXM+9!, XMTX+2*
^XTMP("SD53P192"	RESEND+4, REQUE+2, RQUE+12!

Label References

Name	Line Occurrences
$$NAVA	TXXM+35
EDT	EDT+1
EXXM	TXXM+12, TXXM+40
QQ	QUEUE+4
QUE	EDT+20, REN
QUEUE	RESEND+14
REN	EDT+6
RENS	EDT+21
ROSS	ROSS+22
RQUE	RESEND+8, REQUE+3, REQUE+10, RQUE+2
XMTX	TXXM+30, TXXM+32, TXXM+38, TXXM+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SCRPW70+9, QUEUE+2~, QUEUE+4
%DT("A"	SCRPW70+9, EDT, QUEUE+3*
%DT("B"	QUEUE+3*
DIR	SCRPW70+2~, RESEND+1~, REQUE+1~, REQUE+6!, RQUE+3~
DIR("?"	EDT+16, REN+2, ROSS+17, REQUE+8
DIR("A"	EDT+4, EDT+14, REN+1, ROSS+3, ROSS+6, ROSS+9, ROSS+13, ROSS+18, RESEND+7, RESEND+13 , REQUE+4, REQUE+9, RQUE+9*
DIR("B"	EDT+13, EDT+15, ROSS, RESEND+7, RESEND+10, REQUE+5, RQUE+8*
DIR(0	EDT+4, EDT+14, EDT+15, REN+1, ROSS, RESEND+7, RESEND+10, REQUE+4, REQUE+7, RQUE+8
DT	EDT+20, REN, QUE, RESEND+5, RESEND+12, QUEUE+3
DTOUT	SCRPW70+2~, EDT+5, EDT+17, REN+3, ROSS+4, ROSS+7, ROSS+10, ROSS+14, ROSS+19, RESEND+1~ , RESEND+5, RESEND+8, RESEND+9, RESEND+11, RESEND+14, REQUE+1~, REQUE+3, REQUE+6, REQUE+10, RQUE+2 , RQUE+5, RQUE+10
DUOUT	SCRPW70+2~, EDT+5, EDT+17, REN+3, ROSS+4, ROSS+7, ROSS+10, ROSS+14, ROSS+19, RESEND+1~ , RESEND+5, RESEND+8, RESEND+9, RESEND+11, RESEND+14, REQUE+1~, REQUE+3, REQUE+6, REQUE+10, RQUE+2 , RQUE+5, RQUE+10
II	ROSS+1~*
SC	TXXM+1~, TXXM+10, TXXM+11, TXXM+23, TXXM+25, TXXM+27, TXXM+28, TXXM+33, TXXM+34
SDBDT	SCRPW70+3~, SCRPW70+10*, EDT+1, EDT+20, REN, QUE, TXXM+21
SDCP	TXXM+1~, TXXM+9, TXXM+10, TXXM+11, TXXM+21, TXXM+27, TXXM+28, TXXM+33, TXXM+34
SDDIV	SCRPW70+2~, SCRPW70+7
SDEDT	SCRPW70+3~, EDT+2*
SDEX	SCRPW70+2~, SCRPW70+5, RQUE~, RQUE+2, RQUE+4, RQUE+6, RQUE+7, RQUE+9, RQUE+11, RQUE+12 , RQUE+13, RQUE+14, TXXM+1~, TXXM+3, TXXM+4, TXXM+15, TXXM+32, EXXM+4
>> SDEXDT	TXXM+15
SDFAC	TXXM+1~, TXXM+2*, TXXM+15
SDFMT	SCRPW70+2~, EDT+6*, ROSS+12
SDFMTS	SCRPW70+2~, REN+4*
SDI	RESEND+1~, RESEND+5, RESEND+6, RESEND+8, RESEND+11, RESEND+12, RESEND+13, QUEUE+2~, QUEUE+7, TXXM+1~ , TXXM+27, TXXM+28, TXXM+37, NAVA+2~, NAVA+4, NAVA+5, NAVA+6, NAVA+8, NAVA+9, NAVA+10 , NAVA+12, NAVA+13, NAVA+14
SDIV	TXXM+1~, TXXM+2, TXXM+9, TXXM+10, TXXM+11, TXXM+21, TXXM+27, TXXM+28, TXXM+33, TXXM+34
SDJN	SCRPW70+3~, SCRPW70+4*, EDT+11, EDT+12
SDL	TXXM+1~, TXXM+2*
SDMAX	SCRPW70+2~, EDT+3*
SDMG	TXXM+1~, TXXM+4, TXXM+5, TXXM+12, TXXM+40
SDMGM	TXXM+1~, TXXM+7, TXXM+8, TXXM+12, TXXM+40, EXXM~, EXXM+7
SDMON	RESEND+1~, RESEND+13, RESEND+14, RQUE+3~, RQUE+13, RQUE+14, QUEUE~
SDMON("SDEX"	QUEUE+6
SDNOW	RQUE+3~, RQUE+4*, RQUE+5
SDOUT	SCRPW70+2~, SCRPW70+5, SCRPW70+7, SCRPW70+9, EDT, EDT+5, EDT+17, EDT+18, EDT+19, REN+3 , REN+4, REN+5, REN+6, ROSS+4, ROSS+7, ROSS+10, ROSS+14, ROSS+19, ROSS+21, QUE+2 , RQUE+3~, RQUE+4, RQUE+5, RQUE+10
SDP	TXXM+1~, TXXM+29*
>> SDPAST	TXXM+3
SDPAT	SCRPW70+3~, EDT+10*, EDT+12, EDT+15, ROSS+2, ROSS+16
SDPBDT	SCRPW70+3~, SCRPW70+10*
SDPEDT	SCRPW70+3~, EDT+2*
SDPT	SCRPW70+3~
SDREPORT	SCRPW70+3~, ROSS+21
SDREPORT(	ROSS+1*
SDREPORT(1	EDT+20, REN, ROSS+5*, ROSS+22
SDREPORT(2	ROSS+8*, ROSS+22
SDREPORT(3	ROSS+11*, ROSS+22
SDREPORT(4	ROSS+15*, ROSS+22
SDREPORT(5	ROSS+20*, ROSS+22
>> SDRPT	RQUE+13*, RQUE+14
SDSIZE	TXXM+1~, TXXM+2, TXXM+12, EXXM+9, XMTX+2*
SDSORT	SCRPW70+2~, EDT+18, REN+5
SDT	RESEND+1~, RESEND+12, RESEND+13, RQUE+3~, RQUE+13, RQUE+14
SDX	TXXM+1~, TXXM+15, TXXM+19, TXXM+21, TXXM+23, TXXM+25, TXXM+30, TXXM+31, TXXM+32, TXXM+35* , TXXM+36, TXXM+37, TXXM+38, TXXM+39, XMTX~, XMTX+2, NAVA+2~, NAVA+4, NAVA+5, NAVA+6 , NAVA+8, NAVA+9, NAVA+10, NAVA+11, NAVA+13, NAVA+14, NAVA+16*, NAVA+17
>> SDXM	TXXM+2, EXXM+9, XMTX+2*
SDXTMP	RESEND+1~, RESEND+4, REQUE+1~, REQUE+2, REQUE+3
SDXTMP("EXTRACT"	RESEND+5, RQUE+4, RQUE+7, RQUE+11
SDY	TXXM+1~, TXXM+28, TXXM+29, TXXM+33, TXXM+35, TXXM+36, TXXM+37, TXXM+39, NAVA~, NAVA+6 , NAVA+10, NAVA+11, NAVA+13, NAVA+14, NAVA+16
SDZ	TXXM+1~, TXXM+29, TXXM+31, TXXM+34, TXXM+35
U	RESEND+13, TXXM+2, TXXM+4, TXXM+15, TXXM+21, TXXM+25, TXXM+29, TXXM+31, NAVA+6, NAVA+8 , NAVA+10, NAVA+11, NAVA+13, NAVA+14, NAVA+16
X	SCRPW70+2~, QUE+1*
XMDUN	EXXM+3~, EXXM+5*
XMDUZ	EXXM+3~, EXXM+5*
XMG	EXXM~, EXXM+7
XMSUB	EXXM+3~, EXXM+4*
XMTEXT	EXXM+3~, EXXM+6*
XMY	EXXM+3~
XMY(	EXXM+7*
XMY("G."	EXXM+7*
XMZ	EXXM+3~
Y	SCRPW70+2~, SCRPW70+9, SCRPW70+10, EDT, EDT+1, EDT+2, EDT+3, EDT+6, EDT+18, REN+4 , REN+5, ROSS+5, ROSS+8, ROSS+11, ROSS+15, ROSS+20, RESEND+8, RESEND+14, REQUE+3, REQUE+10 , RQUE+3~, RQUE+4, RQUE+5, RQUE+7, RQUE+10, RQUE+11, QUEUE+2~, QUEUE+3, QUEUE+4, QUEUE+5
ZTDESC	QUEUE+2~, QUEUE+6*
ZTDTH	QUEUE+2~, QUEUE+5*
ZTIO	QUEUE+2~, QUEUE+5*
ZTRTN	QUEUE+2~, QUEUE+5*
ZTSAVE	QUE+1~, QUE+2, QUEUE+2~
ZTSAVE(	QUE+1*
ZTSAVE("SDMON("	QUEUE+5*
ZTSK	RQUE+11*, QUEUE+2~, QUEUE+7, QQ, QQ+1, EXXM+5

Customize PDF page

Package: Scheduling