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 |