SDEC08 ;ALB/SAT/JSM,WTC,LAB,LEG,RRM,MGD,BLB,JAS,BLB - DELETE APPTS ;Apr 1, 2024
Source file <SDEC08.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| APPDEL(SDECY,SDECAPTID,SDECTYP,SDECCR,SDECNOT,SDECDATE,SDUSER,SOURCE,SDF,SDECCMT,NEWPID,EASTRCKNGNMBR) | ;Cancels appointment
|
|
| ADERR(SDECI,SDECY,SDECERR,SDECAPTID,LOCK) | ;Error processing BI/SD*5.3*740 ;changed SDECPATID to SDECAPTID ; pwc *745
|
|
| SDECCAN(SDECAPTID,SDECTYP,SDECCR,SDECNOT,SDECDATE,SDUSER,SDF,NEWPID,EASTRCKNGNMBR) | ;cancel SDEC APPOINTMENT entry
|
|
| CANEVT(SDECPAT,SDECSTART,SDECSC) | ;EP Called by SDEC CANCEL APPOINTMENT
|
|
| CANEVT1(SDECRES,SDECSTART,SDECPAT) | ;
|
|
| CANEVT3(SDECRES) | ;
|
|
| CANCEL(BSDR) | ;EP; called to cancel appt
; Make call using: S ERR=$$CANCEL^SDEC08(.ARRAY) |
|
| UNDOCANA(SDECY,SDECAPTID) | ;Undo Cancel Appointment
|
|
| ERR(SDECI,SDECERR,SDECAPTID,LOCK) | ;Error processing BI/SD*5.3*740 added two parameters ;changed SDECPATID to SDECAPTID - pwc *745
|
|
| ETRAP |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SD(409.2 - [#409.2] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GET1^DIQ |
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
