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 |