Routine: SDCED

Information

SDCED ;ALB/JCH - VSE GUI RESOURCE MANAGEMENT REPORT DATA COMPILER ;19 Oct 14 04:11PM

Package	Total	Call Graph
Scheduling	5	EN^SDCED1 RPT^SDECRPT GETCLNS^SDECSTP START^SDECXML SUPPLY^SDECXUTL
Kernel	2	(,STAT)^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT
VA FileMan	2	GETS^DIQ ^DIR
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
Text Integration Utility	1	NOTES^TIUSRVLV

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: 7

Package	Total	Caller Graph
Scheduling	6	SD VSE REPORT DATA SD628PST SDEC REPORT DATA SDECXML SDECXUTL ^SCE
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
QUEUE	; Task to background
EN	; This utility will create a temporary storage global in ^XTMP("SDVSE") that contains ; data used by the VSE GUI Resource Management Reports. ;
PROVIDER	; Get encounters by provider
CNTPROV(SDIV,SDEC,SDCL)	; aggregate daily encounters by provider
CLEAN	; Clean up
BLDPRDT(ENCTYP,SDSTARTD,SDSTPAR,SDEND)	; Collect Provider Encounter data from ENCOUNTER (#409.68) file "D" xref
MERGE(SDATE)	; copy data to ^TMP
GETSCAT(SDLOC,SDSGNM,SDSTPAR)
STOPCAT(CLSTOP,CAT,SDSTPAR)	; Get stop code category (Mental Health, Specialty, Primary)
CLSTOP(SDLOC,CSTOP)	; Get Clinic Stop
CHKEST(DFN,BDATE,ENC,CLSTOP)	; Was Patient DFN's encounter on date DATE considered Established or New?
TELE(VISIT)	; If the Visit has at least one telephone note, return true
VPRV(VISIT)	; Find encounter provider
SUPPLY	; Supply by clinic
NONCNT(SDCL)	; Non-Count Clinic?
ISLOCKED()	; -- Returns 1 if the locked, otherwise 0 if unlocked ; Format of zero node: ; ^XTMP("SDVSE",0)="Save Through Date/Time^Last Start Date/Time^Description^Task #^Complete Date/Time ; Check if top level node does not exist then let it run
LOCK()
TSKSTAT(ZTSK)	; Check the status of a task ; Returns 0 if task is undefined or 1 if task is still running
BLDSTAT(TEXT)	; Build the report data collection stats email text
RPTSTAT	; Report the status of the job
EXITOPT
SETDXREF(DA)	; This function is the set condition for the "D" index on the Outpatient Encounter file #409.68 ; This cross reference is only used by the VistA Scheduling GUI Resource Management Reports. ; The cross reference is used to collect the total Outpatient Encounters for a Provider over a year time period. ; Verify that all required fields exist before setting cross reference ; Input: DA = IEN of file 409.68
KILDXREF(DA)	; This function is the kill condition for the "D" index ont he Outpatient Encounter file #409.68
PAUSE	;

External References

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+10
STAT^%ZTLOAD	TSKSTAT+2
GETS^DIQ	CLSTOP+3, CLSTOP+8
^DIR	PAUSE+3
EN^SDCED1	EN+42
RPT^SDECRPT	EN+23
GETCLNS^SDECSTP	EN+21
START^SDECXML	EN+49, EN+57, EN+64, EN+71
SUPPLY^SDECXUTL	SUPPLY+2
NOTES^TIUSRVLV	TELE+2
$$SITE^VASITE	EN+12
$$FMADD^XLFDT	EN+11, EN+56, EN+63, EN+70, BLDPRDT+2, LOCK+2, RPTSTAT+2, RPTSTAT+10
$$FMDIFF^XLFDT	EN+23, EN+28, EN+34, EN+42, EN+49, EN+57, EN+64, EN+71, CLEAN+5, CHKEST+6 , SETDXREF+7, KILDXREF+3
$$FMTE^XLFDT	EN+20, EN+25, EN+31, EN+37, EN+45, EN+52, EN+60, EN+67, EN+74, CLEAN+8 , RPTSTAT+6
$$NOW^XLFDT	QUEUE+8, EN+10, EN+11, EN+23, EN+28, EN+34, EN+42, EN+49, EN+56, EN+57 , EN+63, EN+64, EN+70, EN+71, CLEAN+2, LOCK+2, RPTSTAT+2, RPTSTAT+6, RPTSTAT+10
^XMD	RPTSTAT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"SD Resource Management Report Data compile cannot be started at this time.",!! Line Location: EN+15
Function Call: WRITE	Prompt: !!?5,"SD Resource Management Report Data compile has been queued.",!! Line Location: EXITOPT+2
Function Call: WRITE	Prompt: !!?5,"SD Resource Management Report Data compile is running",!! Line Location: EXITOPT+3
Function Call: WRITE	Prompt: !!?5,"SD Resource Management Report has completed",!! Line Location: EXITOPT+4
Routine Call	DIR Line Location: PAUSE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	VPRV+5
^AUPNVPRV("AD"	VPRV+3, SETDXREF+13, KILDXREF+9
^AUPNVSIT - [#9000010]	BLDPRDT+21
^SC - [#44]	NONCNT+1, SETDXREF+15, SETDXREF+17, KILDXREF+11, KILDXREF+13
^SCE - [#409.68]	BLDPRDT+10, BLDPRDT+11, BLDPRDT+17, BLDPRDT+19, CHKEST+2, CHKEST+3, CHKEST+4, CHKEST+7, CHKEST+9, SETDXREF+7 , SETDXREF+9, SETDXREF+11, SETDXREF+15, KILDXREF+3, KILDXREF+5, KILDXREF+7, KILDXREF+11
^SCE("ADFN"	CHKEST+6
^SCE("D"	BLDPRDT+4, BLDPRDT+5, BLDPRDT+6, BLDPRDT+10!
^TMP("SDCEX"	CNTPROV+13, CNTPROV+15*, CLEAN+1!, MERGE+1, MERGE+2!
^TMP("SDECX"	PROVIDER+4, PROVIDER+5, PROVIDER+6, CNTPROV+2, CNTPROV+4, CNTPROV+6, CNTPROV+8, CLEAN+1!, BLDPRDT+23*
^VA(200 - [#200]	LOCK+2
^XTMP("SDECMAIL"	RPTSTAT+2, RPTSTAT+4, RPTSTAT+10
^XTMP("SDVSE"	EN+9, EN+56, EN+63, EN+70, CLEAN+2, CLEAN+4, MERGE+1, ISLOCKED+4, ISLOCKED+6, LOCK+2* , EXITOPT+2, EXITOPT+3, EXITOPT+4

Label References

Name	Line Occurrences
$$CHKEST	BLDPRDT+20
$$ISLOCKED	QUEUE+4, LOCK+1
$$LOCK	EN+14
$$TELE	BLDPRDT+21
$$TSKSTAT	ISLOCKED+6, EXITOPT+2
$$VPRV	BLDPRDT+13
BLDPRDT	PROVIDER+3
BLDSTAT	EN+17, EN+18, EN+19, EN+20, EN+24, EN+25, EN+26, EN+29, EN+30, EN+31 , EN+32, EN+35, EN+36, EN+37, EN+38, EN+43, EN+44, EN+45, EN+46, EN+50 , EN+51, EN+52, EN+53, EN+58, EN+59, EN+60, EN+61, EN+65, EN+66, EN+67 , EN+68, EN+72, EN+73, EN+74, EN+75, CLEAN+6, CLEAN+7, CLEAN+8, CLEAN+9, CLEAN+10 , CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14, CLEAN+15, CLEAN+16, CLEAN+17
CLEAN	EN+76
CLSTOP	GETSCAT+2, CHKEST+4, CHKEST+8
CNTPROV	PROVIDER+6
GETSCAT	CNTPROV+9, BLDPRDT+22
MERGE	EN+40
PAUSE	EN+15, EXITOPT+2, EXITOPT+3, EXITOPT+4
PROVIDER	EN+34
RPTSTAT	EN+76
STOPCAT	GETSCAT+3
SUPPLY	EN+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGGDATA	CNTPROV+7~, CNTPROV+14*, CNTPROV+15
BDATE	PROVIDER+2~, CHKEST~, CHKEST+1, CHKEST+2, CHKEST+6
CAT	STOPCAT~, STOPCAT+2!, STOPCAT+7*
CATEGORY	PROVIDER+2~
CDATE	PROVIDER+2~, BLDPRDT+7~, BLDPRDT+18*, BLDPRDT+20
CLINEX	CNTPROV+1~, STOPCAT+1~, STOPCAT+4*, STOPCAT+5
CLSTOP	PROVIDER+2~, STOPCAT~, STOPCAT+2, STOPCAT+5, CHKEST~, CHKEST+3, CHKEST+4, CHKEST+9
CSTOP	GETSCAT+1~, GETSCAT+2, GETSCAT+3, CLSTOP~, CLSTOP+1!, CLSTOP+4, CLSTOP+5, CLSTOP+7, CLSTOP+9
DA	CLSTOP+1~, CLSTOP+2, CLSTOP+3, CLSTOP+4, CLSTOP+6~, CLSTOP+7, CLSTOP+8, CLSTOP+9, VPRV+2~, SETDXREF~ , SETDXREF+7, SETDXREF+9, SETDXREF+11, SETDXREF+15, KILDXREF~, KILDXREF+3, KILDXREF+5, KILDXREF+7, KILDXREF+11
DATE	EN+3~
DAYS	EN+4~, EN+9*, EN+11, EN+23
DFN	PROVIDER+2~, CHKEST~, CHKEST+2, CHKEST+6
DGENDTST	BLDPRDT+1~, BLDPRDT+2, BLDPRDT+4, BLDPRDT+5, BLDPRDT+6, BLDPRDT+10, BLDPRDT+18
DIC	CLSTOP+1~, CLSTOP+2, CLSTOP+3, CLSTOP+4, CLSTOP+6~, CLSTOP+7, CLSTOP+8, CLSTOP+9, VPRV+2~
DIFROM	RPTSTAT+1~
DIQ	CLSTOP+1~, CLSTOP+6~, VPRV+2~
DIR	PAUSE+3!
DIR("A"	PAUSE+3*
DIR(0	PAUSE+3*
DIRUT	PAUSE+2~, PAUSE+3*
DIVEX	CNTPROV+1~
DR	CLSTOP+1~, CLSTOP+2, CLSTOP+3, CLSTOP+6~, CLSTOP+7, CLSTOP+8, VPRV+2~
DT	SUPPLY+1, SETDXREF+7, KILDXREF+3
DTRANGE	EN+3~
DUOUT	PAUSE+2~, PAUSE+3
DUZ	LOCK+2
ENC	PROVIDER+2~, CNTPROV+5~, CNTPROV+6*, CNTPROV+8, CHKEST~, CHKEST+1, CHKEST+2, CHKEST+3, CHKEST+4, CHKEST+9
ENCARAY	BLDPRDT+7~, VPRV+2~
ENCDCNT	PROVIDER+1~, CNTPROV+3*
ENCTYP	BLDPRDT~
FOUND	STOPCAT+1~, STOPCAT+3, STOPCAT+4, STOPCAT+5
GLB	TELE+1~, TELE+4*
IC	BLDPRDT+1~, BLDPRDT+6*
II	BLDPRDT+1~, BLDPRDT+5*
IO	PAUSE+1
IO("Q"	EXITOPT+1
IO(0	PAUSE+1
IOST	PAUSE+1
LOC	PROVIDER+2~
NXTDAY	PROVIDER+1~
OCLSTOP	CHKEST+1~, CHKEST+7, CHKEST+8, CHKEST+9
OENCND	CHKEST+1~, CHKEST+7*, CHKEST+8
OK	STOPCAT+1~
OLOC	EN+3~, CHKEST+7*, CHKEST+8
PROV	EN+3~
PROVEX	CNTPROV+1~
PRVDATE	CHKEST+1~, CHKEST+6
PRVENC	CHKEST+1~, CHKEST+6, CHKEST+7
RDT	SUPPLY+1~*
SDAPDATA	BLDPRDT+7~
SDATE	EN+10*, EN+11, EN+40, MERGE~, MERGE+1
SDBEGDT	EN+55~, EN+56, EN+57, EN+62~, EN+63, EN+64, EN+69~, EN+70*, EN+71
SDBEGRNG	EN+3~
SDCEX	PROVIDER+1~
SDCHILD	BLDPRDT+1~
SDCHIT	CHKEST+1~, CHKEST+5, CHKEST+6, CHKEST+9, CHKEST+10
SDCKODT	BLDPRDT+1~, BLDPRDT+5*, BLDPRDT+6, BLDPRDT+10
SDCL	PROVIDER+1~, PROVIDER+6*, CNTPROV~, CNTPROV+2, CNTPROV+4, CNTPROV+6, CNTPROV+8, CNTPROV+9, CNTPROV+13, CNTPROV+15 , NONCNT~, NONCNT+1
SDCMP	EN+4~, EN+23, EN+26, EN+28~, EN+32, EN+34~, EN+38, EN+42~, EN+46, EN+48~ , EN+49, EN+53, EN+55~, EN+57, EN+61, EN+62~, EN+64, EN+68, EN+69~, EN+71 , EN+75, CLEAN+3~, CLEAN+5*, CLEAN+9
SDCS	CLSTOP+1~, CLSTOP+5!
SDCS(	CLSTOP+4, CLSTOP+9
SDDFN	CNTPROV+5~, BLDPRDT+7~, BLDPRDT+17*, BLDPRDT+20
SDDIVI	BLDPRDT+1~, BLDPRDT+16*, BLDPRDT+23
SDDIVIE	BLDPRDT+1~
SDDT	PROVIDER+1~, CNTPROV+4*, CNTPROV+6, CNTPROV+8, CNTPROV+13, CNTPROV+15
SDEC	PROVIDER+1~, PROVIDER+5*, PROVIDER+6, CNTPROV~, CNTPROV+2, CNTPROV+4, CNTPROV+6, CNTPROV+8
>> SDECMAIL	RPTSTAT+3
SDECTOT	EN+3~
SDEDT	SETDXREF+5~, SETDXREF+7, KILDXREF+1~, KILDXREF+3
SDENC	BLDPRDT+1~, BLDPRDT+6*, BLDPRDT+10, BLDPRDT+11, BLDPRDT+17, BLDPRDT+19, BLDPRDT+20, BLDPRDT+23
SDENC0	BLDPRDT+7~, BLDPRDT+11*, BLDPRDT+12, BLDPRDT+14, BLDPRDT+15, BLDPRDT+16
SDENCAR	BLDPRDT+8~
SDENCDT	BLDPRDT+1~, BLDPRDT+15*, BLDPRDT+23
SDENCL	BLDPRDT+1~, BLDPRDT+14*, BLDPRDT+22, BLDPRDT+23
SDENCND	CNTPROV+7~, CNTPROV+8*, CNTPROV+11, CNTPROV+12, BLDPRDT+1~
SDENCPR	BLDPRDT+1~, BLDPRDT+13*, BLDPRDT+23
SDEND	EN+11, EN+20, PROVIDER+3, BLDPRDT~, BLDPRDT+3, BLDPRDT+4
SDENDRNG	EN+3~
SDEST	PROVIDER+2~, CNTPROV+1~, CNTPROV+12, CNTPROV+14, BLDPRDT+1~, BLDPRDT+7~, BLDPRDT+20*, BLDPRDT+23
SDFAC	EN+3~, EN+12*
SDGRPA	BLDPRDT+1~
SDIV	PROVIDER+1~, PROVIDER+2~, PROVIDER+4*, PROVIDER+5, PROVIDER+6, CNTPROV~, CNTPROV+2, CNTPROV+4, CNTPROV+6, CNTPROV+8
SDLAST	EN+55~, EN+56, EN+62~, EN+63, EN+69~, EN+70*
SDLOC	GETSCAT~, GETSCAT+2, CLSTOP~, CLSTOP+2, CHKEST+1~, CHKEST+3, CHKEST+4, SETDXREF+5~, SETDXREF+15, SETDXREF+17 , KILDXREF+11*, KILDXREF+13
SDNEW	PROVIDER+2~, CNTPROV+1~, CNTPROV+12, CNTPROV+14, BLDPRDT+1~, BLDPRDT+7~, BLDPRDT+20*
SDOK	SETDXREF+5~, SETDXREF+7, SETDXREF+9, SETDXREF+11, SETDXREF+13, SETDXREF+15, SETDXREF+17, KILDXREF+1~, KILDXREF+3, KILDXREF+5 , KILDXREF+7, KILDXREF+9, KILDXREF+11, KILDXREF+13
SDPHN	TELE+1~, TELE+3, TELE+4, TELE+5
SDPR	PROVIDER+1~, CNTPROV+2*, CNTPROV+4, CNTPROV+6, CNTPROV+8, CNTPROV+13, CNTPROV+15
SDRPT	EN+3~, EN+41*
SDRPTAR	EN+3~, EN+42
SDRPTAR(	EN+41*
SDSGNM	CNTPROV+7~, CNTPROV+9, CNTPROV+10, CNTPROV+13, CNTPROV+15, BLDPRDT+22~, BLDPRDT+23, GETSCAT~, GETSCAT+1*, GETSCAT+3
SDSTART	EN+3~, EN+11*, EN+20, PROVIDER+3
SDSTARTD	BLDPRDT~, BLDPRDT+2
SDSTP	EN+4~, EN+23, EN+25, EN+28~, EN+31, EN+34~, EN+37, EN+42~, EN+45, EN+48~ , EN+49, EN+52, EN+55~, EN+57, EN+60, EN+62~, EN+64, EN+67, EN+69~, EN+71 , EN+74, CLEAN+3~, CLEAN+4*, CLEAN+5, CLEAN+8
SDSTPAR	EN+3~, EN+21, EN+23, PROVIDER+3, CNTPROV+9, BLDPRDT~, BLDPRDT+22, GETSCAT~, GETSCAT+3, STOPCAT~ , SUPPLY+2
SDSTPAR(	STOPCAT+3, STOPCAT+4, STOPCAT+5
SDSTRT	EN+4~, EN+23, EN+25, EN+28~, EN+31, EN+34~, EN+37, EN+42~, EN+45, EN+48~ , EN+49, EN+52, EN+55~, EN+56, EN+57, EN+60, EN+62~, EN+63, EN+64, EN+67 , EN+69~, EN+70, EN+71, EN+74, CLEAN+3~, CLEAN+4*, CLEAN+5, CLEAN+8
SDTMPLOC	BLDPRDT+19~, BLDPRDT+20*
SDTMPND	CNTPROV+7~, CNTPROV+13*, CNTPROV+14
SDTMPSTP	BLDPRDT+19~*, BLDPRDT+20
SDVAR	BLDPRDT+8~
SDVISIT	BLDPRDT+7~, BLDPRDT+12*, BLDPRDT+13, BLDPRDT+21
SDVPRV	BLDPRDT+8~
SDVST	SETDXREF+5~, SETDXREF+11, SETDXREF+13, KILDXREF+1~, KILDXREF+7, KILDXREF+9
SDWEEKS	EN+3~
STCNT	EN+4~, BLDSTAT+1, BLDSTAT+3, BLDSTAT+4
STGL	EN+4~, EN+6, BLDSTAT+2, BLDSTAT+4, RPTSTAT+7
STPCNT	STOPCAT+1~, STOPCAT+3*, STOPCAT+4, STOPCAT+5, STOPCAT+6
SVCAT	PROVIDER+1~, CNTPROV+7~, CNTPROV+11, BLDPRDT+21, BLDPRDT+23
TELCATD	CNTPROV+1~, CNTPROV+3, CNTPROV+11, CNTPROV+14
TEXT	BLDSTAT~, BLDSTAT+4
TMPCAT	STOPCAT+1~, STOPCAT+2, STOPCAT+6, STOPCAT+7
TMPDAY	PROVIDER+1~, CNTPROV+4*
TMPDUZ	RPTSTAT+1~, RPTSTAT+4*, RPTSTAT+5, RPTSTAT+6
TMPNM	TELE+1~*, TELE+2, TELE+3, TELE+4
U	EN+9, CLEAN+2, CLEAN+4, BLDPRDT+12, BLDPRDT+14, BLDPRDT+15, BLDPRDT+16, VPRV+5, ISLOCKED+6, LOCK+2 , RPTSTAT+2, RPTSTAT+4, RPTSTAT+10, EXITOPT+2, EXITOPT+3, EXITOPT+4, SETDXREF+7, SETDXREF+9, SETDXREF+11, SETDXREF+15 , KILDXREF+3, KILDXREF+5, KILDXREF+7, KILDXREF+11
VARAY	VPRV+2~
VISIT	BLDPRDT+1~, TELE~, TELE+2, VPRV~, VPRV+1, VPRV+3
VPRV	VPRV+2~, VPRV+3*, VPRV+4, VPRV+5
X	CLSTOP+1~, CLSTOP+6~
XMDUZ	RPTSTAT+1~
XMLNODE	EN+48~, EN+49, EN+55~, EN+56, EN+57, EN+62~, EN+63, EN+64, EN+69~, EN+70 , EN+71
XMMG	RPTSTAT+1~
XMROU	RPTSTAT+1~
XMSTRIP	RPTSTAT+1~
XMSUB	RPTSTAT+1~, RPTSTAT+6*
XMTEXT	RPTSTAT+1~, RPTSTAT+7*
XMY	RPTSTAT+1~
XMY(	RPTSTAT+6*
XMYBLOB	RPTSTAT+1~
XMZ	RPTSTAT+1~
Y	CLSTOP+1~, CLSTOP+6~
ZTDESC	QUEUE+1~, QUEUE+9*
ZTDTH	QUEUE+1~, QUEUE+8*
ZTIO	QUEUE+1~, QUEUE+2*
ZTRTN	QUEUE+1~, QUEUE+6*
>> ZTSAVE("SDECMAIL"	QUEUE+7*
ZTSK	QUEUE+1~, EN+15, LOCK+2, TSKSTAT~, EXITOPT+2, EXITOPT+3, EXITOPT+4
ZTSK(0	TSKSTAT+3
ZTSK(1	TSKSTAT+5

Customize PDF page

Package: Scheduling