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  | All
Print Page as PDF
Routine: SDCED

Package: Scheduling

Routine: SDCED


Information

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

Source Information

Source file <SDCED.m>

Call Graph

Call Graph

Call Graph Total: 12

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:

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: 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All