SDESAPPTREQ40984 ;ALB/ANU,MGD - VISTA SCHEDULING RPCS GET MISSION ELIGIBILITY ; June 16, 2022@15:20
Source file <SDESAPPTREQ40984.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARSET(APTRETURN,SDAPPTSTARTDTTM,SDAPPTENDDTTM,SDPATIENTDFN,SDRESOURCE,SDATYPID,SDDDTTM,SDEXTID,SDAPPTREQTYPE,SDPROVIEN,SDCLNID,SDNOTE,SDAPPTYPE,SDEESTAT,SDAPPTLENGTH,SDEAS) | ; Create/Update Appointment Request
; This RPC creates an entry in SDEC APPOINTMENT file #409.84. ; Input: |
|
| VALIDATE(ERRORS,SDAPPTSTARTDTTM,SDAPPTENDDTTM,SDPATIENTDFN,SDRESOURCE,SDATYPID,SDDDTTM,SDEXTID,SDAPPTREQTYPE,SDPROVIEN,SDCLNID,SDNOTE,SDAPPTYPE,SDEESTAT,SDAPPTLENGTH,SDEAS) | ; Validate input
|
|
| CRTAPPT(ELGARRAY,SDAPPTSTARTDTTM,SDAPPTENDDTTM,SDPATIENTDFN,SDRESOURCE,SDATYPID,SDDDTTM,SDEXTID,SDAPPTREQTYPE,SDPROVIEN,SDCLNID,SDNOTE,SDAPPTYPE,SDEESTAT,SDAPPTLENGTH,SDEAS) | ; Create Appt
|
|
| BUILDJSON(JSONRETURN,INPUT) | ; Build JSON format
|
|
| CLEANUP | ; Cleanup
|
| FileNo | Call Tags |
|---|---|
| ^SDWL(409.3 - [#409.3] | GET1^DIQ |
