Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls