SDEC32 ;ALB/SAT,DMR - VISTA SCHEDULING RPCS ;JUL 26, 2017
Source file <SDEC32.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERROR | ;
|
|
| ERR(SDECERR) | ;Error processing
|
|
| HOSPLOC(SDECY,SDECP,MAXREC,LSUB) | ;return HOSPITAL LOCATIONs
|
|
| CLINSET(SDECY,SDNOSLOT,SDIENS,SDECP,SDNOLET,MAXREC) | ;Returns CLINIC SETUP PARAMETERS for clinics that are active in the HOSPITAL LOCATION file
|
|
| PART | ||
| PROCESS(SDECIEN) | ;Process an individual clinic
|
|
| CHK(SDECP,SDECIEN) | ||
| GETSLOTS(SDDATA) | ;get slots - NUMBER OF PATIENTS in the AVAILABILITY multiple of file 44
|
|
| INACTIVE(SDCL,SDDT) | ;determine if clinic is active
; X=0=ACTIVE ; X=1=INACTIVE |
|
| PRIV(SDECY,CLINIEN,USER) | ;IS this USER in the PRIVILEGED USER multiple for the clinic
|
|
| BOOKHLDY(SDECY,SDECCL) | ; Returns can book on holiday flag for a clinic. 12/1/17 wtc 679
|
|
| VVCSTPCD(STOPCD) | ;
; Called from PROCES tag above |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ, GETS^DIQ |
