SDCED ;ALB/JCH - VSE GUI RESOURCE MANAGEMENT REPORT DATA COMPILER ;19 Oct 14 04:11PM
Source file <SDCED.m>
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|