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